रेट्रो स्टाइल: टीसीएल पर J2ME

अपनी बेटी के फोन में कॉल का जवाब नहीं दे पाने के बाद, मैंने फैसला किया कि कुछ करने की जरूरत है। विशेषज्ञों का कहना है कि सब कुछ खो नहीं जाता है और विशेष प्रौद्योगिकियों की मदद से आप युवा पीढ़ी के साथ रख सकते हैं। ऐसा ही एक उपकरण एन-बैक है । चूँकि मैं टोस्क्रीन (एक दुष्चक्र प्राप्त होता है) के साथ एक सेल फोन का सामना नहीं कर सकता, मैंने J2ME के ​​तहत इस तरह के एक एप्लिकेशन को खोजने की कोशिश की। मैंने इसे नहीं पाया और इसे खुद लिखने का फैसला किया। लेकिन यहाँ समस्या है - स्काला और क्लोजर J2ME का समर्थन नहीं करते हैं, और मेरे लिए एक अलिखित कार्यक्रम पर अभ्यास किए बिना जावा सीखना मुश्किल होगा। कुछ गुगली करने के बाद, एक समाधान मिला - एचईसीएल , थोड़ा संशोधित टीईसीएल ।

मुझे कहना होगा कि मैंने बहुत लंबे समय तक TCL में प्रोग्राम किया था - तब मैंने SGI O2 कंप्यूटर पर काम किया था और उन लोगों से ईर्ष्या कर रहा था जो "लाइनें" खेल सकते हैं (वे "गेंद" भी हैं)। मैं अनुप्रयोगों की उपस्थिति के बारे में बहुत दिखावा नहीं कर रहा हूं, और मैंने Tk पुस्तकालय के साथ Tcl का उपयोग करके इस समस्या को हल किया है।
Tcl एक सरल अनिवार्य स्क्रिप्टिंग भाषा है, यूनिक्स शेल की वाक्यविन्यास याद दिलाती है (और कभी-कभी इसकी गुणवत्ता में इसका उपयोग किया जाता है)। एक्स्टेंसिबिलिटी के जरिए इसकी तुलना फोर्ट और लिस्प से की जा सकती है। सी अनुप्रयोगों में इसे एम्बेड करने की आसानी ने इसे सीएडी डेवलपर्स के साथ लोकप्रिय बना दिया है।
Hecl को Tcl की कई विशेषताएं विरासत में मिलीं, यह केवल Java अनुप्रयोगों के साथ एकीकृत होता है, C. नहीं। इसे REPL द्वारा सरलीकृत किया जाता है, क्लासिक tclsh के विपरीत, जो इतिहास और लाइन संपादन का समर्थन करता है।
Hecl वेबसाइट में उदाहरणों और यहां तक ​​कि न्यूनतम विकास परिवेश के साथ रेडी-मेड MIDlet है। जार आर्काइव में एक script.hcl फाइल है - यह J2ME प्लेटफॉर्म पर आपकी स्क्रिप्ट को चलाने के लिए इसे (.jad को सही करने के लिए भूल के बिना) बदलने के लिए पर्याप्त है।

तो, चलिए शुरू करते हैं। हमें एक यादृच्छिक चरित्र प्राप्त करने की आवश्यकता है।

set alph {ACGT} set alphsize [llen $alph] proc rand {} { global alph alphsize lindex $alph [* [random] $alphsize] } 

वैरिएबल असाइनमेंट सेट कमांड के साथ किया जाता है। परिवर्तित किए जाने वाले चर का नाम केवल पाइथन की तरह लिखा गया है, और इसका उपयोग करते समय '$' जोड़ना आवश्यक है, जैसा कि पर्ल में है। आप चाहें तो लिख सकते हैं

 set aaa bbb set $aaa ccc 

और bbb वैरिएबल ccc पर सेट है।
स्ट्रिंग्स, यूनिक्स शेल में, आमतौर पर उद्धरण चिह्नों में संलग्न होने की आवश्यकता नहीं होती है। यदि आपके पास अभी भी है, तो सामान्य दोहरे उद्धरणों के अतिरिक्त, आप संतुलित घुंघराले ब्रेसिज़ ({}) का उपयोग कर सकते हैं - तार "नेस्टेड" हो सकते हैं।
लाइन को रिक्त स्थान में विभाजित किया गया है (हम एक सूची प्राप्त करते हैं) और पहले शब्द को प्रक्रिया के नाम के रूप में व्याख्या की जाती है - यहां Tcl लिस्प की तरह एक सा है। एक कमांड में एम्बेड किए गए अन्य कमांड्स को कॉल स्क्वायर ब्रैकेट ([]) में संलग्न हैं।
कमांड + और * - एचईसीएल का एक नवाचार। मूल Tcl में, मुझे एक विशेष DSL कॉल करना था

 expr 1 + 2 * 3 

लगभग शैल में (केवल * कोई बच नहीं)।

 set nback {aa aa} set last "" proc getnext {} { global nback last set nbach [lappend [lset $nback 0] $last] set last [rand] return $last } proc first {} { global nback last eq $last [lindex $nback 0] } 

एन-एन नाम में एन सूची की प्रारंभिक लंबाई द्वारा दिया गया है। मेरे पास पर्याप्त एन == 2 :-) है।
कहानी के प्रारंभिक मूल्यों को सरलता के लिए वर्णमाला के पात्रों से मेल नहीं खाते हुए चुना जाता है। चूँकि मैंने पूर्वता के बाद पीछा नहीं किया, इसलिए बफर को भरने के लिए उत्पन्न पहला N-1 वर्ण अनुमानित काउंटर पर जाएगा।

 set stats {0 0 0 0} proc update k { global stats lset $stats $k [1+ [lindex $stats $k]] set stats } 

आँकड़ों की गणना के लिए प्रक्रिया। 1+ फ़ंक्शन जोड़ने वाली इकाई का नाम है। आंकड़े सरणी सफलतापूर्वक बेमेल मेलों की संख्या को स्टोर करता है, गलती से देखा गया बेमेल मेल खाता है, गलती से देखे गए मैच, और सफलतापूर्वक मेल खाता है। इस तरह के अनुक्रम को कार्यान्वयन की सुविधा से चुना गया था, लेकिन यह धारणा के लिए भी सुविधाजनक था।

मूल लिपि से निम्न कोड I skargokultil

 proc PrintLn {g txt} { global MIDL $g clear $g string [list 4 $MIDL] $txt nw } proc EventHandler {ce} { global last MIDL set reason [$e cget -reason] if {!= 5 $reason} {return} set MIDL [/ [$c cget -height] 2] set keycode [$e cget -keycode] set res [first] set sym [getnext] set g [$c graphics] set k [eq 49 $keycode] if {eq $k $res} { PrintLn $g "[update [+ $res $res $k]] Ok $last" } else { PrintLn $g "[update [+ $res $res $k]] Fail $last" } } set c [lcdui.canvas -title "N-Back" -fullscreen 1 -eventhandler EventHandler] $c setcurrent 

यहां आप Tcl के ऑब्जेक्ट-ओरिएंटेड गुणों का अवलोकन कर सकते हैं - ऑब्जेक्ट को एक चर में संग्रहीत प्रक्रिया के रूप में प्रच्छन्न किया जाता है, और तर्कों में स्ट्रिंग स्थिरांक के साथ संदेश चिह्नित किए जाते हैं। "कंस्ट्रक्टर" lcdui.canvas एक "कैनवास ऑब्जेक्ट" बनाता है और उस पर एक ईवेंट हैंडलर लटकाता है। मेरा हैंडलर कारण 5 (कीस्ट्रोक) के साथ घटनाओं को पहचानता है। कुंजी "1" को एक संयोग के रूप में माना जाता है, बाकी - एक बेमेल मेल के रूप में। मुझे यकीन नहीं है कि चुनाव अच्छा है, लेकिन आलस्य एक प्रयोग है - इस फोन को डाउनलोड करने की प्रक्रिया पूरे विकास में सबसे कठिन है :-)

सामान्य तौर पर, एचईसीएल को तेजी से विकास / प्रोटोटाइप के लिए और जावा अनुप्रयोगों में एम्बेडेड भाषा के रूप में, विरासत प्लेटफार्मों के लिए अनुशंसित किया जा सकता है।