🐙 🕞 🤦🏽 FORTH: POP3 नैनोकिएंट। भाग २ 🚋 👈🏽 ⌨️

दूसरे भाग में हम न्यूनतम POP3 क्लाइंट लिखने का प्रयास करेंगे। वह सर्वर से कनेक्ट करने में सक्षम होगा, मेलबॉक्स में लॉग इन करें, पता करें कि कितने पत्र हैं और नवीनतम डाउनलोड करें। यह स्पष्ट करने के लिए पर्याप्त होगा।

POP3 प्रोटोकॉल से जानने के लिए क्या पर्याप्त है। लॉगिन के लिए USER PASS कमांड के एक जोड़े की आवश्यकता होती है, बॉक्स में अक्षरों की संख्या प्राप्त करने के लिए STAT और स्वयं पत्र प्राप्त करने के लिए RETR। हम DELE कमांड के साथ अक्षरों को नहीं हटाएंगे। QUIT शिष्टाचार से बाहर दिया जाएगा।
आइए टीमों पर एक नज़र डालें। आप देख सकते हैं कि इन्हें दो समूहों में विभाजित किया जा सकता है: बिना तर्क वाली टीमें NOOP QUIT STAT RSET और एक तर्क रखने वाली टीमें: DELE LIST RETR TOP APOP USER PASS। इसके अलावा, एक तर्क के रूप में अंतिम तीन को पाठ स्ट्रिंग की आवश्यकता होती है। सख्ती से बोलते हुए, सभी आदेशों में एक स्ट्रिंग तर्क की आवश्यकता होती है। एक मामले में, यह एक खाली स्ट्रिंग है, दूसरे में, स्ट्रिंग में दशमलव अंक शामिल हैं, तीसरे वर्णों में मनमानी अक्षर हैं।

सरलतम मामले पर विचार करें, तर्कहीन आदेश। आप माथे पर लिख सकते हैं

  एस "एनओओपी" सॉकटॉसकेटलाइन थ्रॉइड और इसलिए 4 बार। 
 S "DELE" sockt WriteSocket THROW S> D (D.) sockt WriteSocketLine THROW 
3 बार भी

(हम TOP APOP को लागू नहीं करेंगे, लेकिन USER पास के साथ हम अभी के लिए बुद्धिमान नहीं होंगे।)

लेकिन हम फोर्ट में लिखते हैं, और इसमें परिभाषित शब्द बनाने के लिए एक सुंदर तंत्र है। हम इसका उपयोग करते हैं।
आरंभ करने के लिए, अलग-अलग परिभाषाओं में बाइट्स_ड्रेड पर सॉकेट राइटस्केटलाइन थ्रॉ और buf bufsize सॉकिट रीडस्कॉकेट THROW डालें। बहुत सारे पत्र लिखने के लिए बहुत आलसी।

 :> सॉकट   
               sockt WriteSocketLine THROW;

 : सॉकट>
               buf bufsize sockt ReadSocket THROW TO bytes_read;

और शब्द बनाने शुरू करो

 : pop3_noarg 
                      सबसे नवीनतम, 
                      Does> @ COUNT> sockt; 

 : pop3_noargs 
                     0 DO pop3_noarg LOOP;

 4 pop3_noargs NOOP QUIT STAT RSET

इस प्रकार, तीन पंक्तियों में हमने एक ही प्रकार की चार टीमों की पहचान की। मुझे और विस्तार से बताएं कि यहां क्या हो रहा है।
एक नया शब्द pop3_noarg को बृहदान्त्र के माध्यम से परिभाषित किया गया है, निम्न क्रिया के साथ: इनपुट स्ट्रीम से एक स्थान द्वारा सीमित अक्षरों का चयन करें, शब्दकोश के शीर्ष पर शब्द कार्रवाई के साथ एक शब्द बनाने के लिए उनका उपयोग करें। यह सब उस शब्द को बनाता है, जिस समय शब्द pop3_noarg निष्पादित किया गया था। अगला शब्द LATEST परिभाषित शब्द के नाम फ़ील्ड के पते को धकेलता है, उदाहरण के लिए, NOOP, स्टैक पर। एक अल्पविराम स्टैक से शब्दकोश के शीर्ष तक मूल्यों को संकलित करता है। अगर आगे कोई हिस्सा नहीं था, तो NOOP के लिए एक कॉल स्टैक पर एक निश्चित पता लगाएगा, डेरेफेरिंग कि हमें काउंटर के साथ लाइन का पता मिलेगा, इसे COUNT शब्द के साथ लाइन के पते में बदलकर, हम इसे TYPE शब्द से प्रिंट कर सकते हैं।
नतीजतन, वे NOOP देखेंगे। यह शब्दों में बहुत कठिन लगता है, किले की व्यवस्था की कमांड लाइन पर खुद को आज़माने में तेज़ है।
आगे क्या? इसके अलावा, हमारे पास फोर्ट डीईएस> का सबसे रहस्यमय शब्द है। यह महसूस करने के लिए पर्याप्त है कि यह शब्द क्रिएट के माध्यम से बनाए गए शब्द की डिफ़ॉल्ट क्रिया को उस क्रिया में बदल देता है जिसे हम चाहते हैं। DOES> के बाद लिखी गई हर चीज pop3_noarg के माध्यम से परिभाषित सभी शब्दों के लिए एक सामान्य क्रिया है। यहां इसका पता और लाइन काउंटर - शब्द का नाम और इसे सॉकेट में भेजना है।

  : pop3_digiarg 
                सबसे नवीनतम, 
                DOES> @> R <# S> D #S BL होल्ड R> COUNT HOLDS # >> sockt;

 : pop3_digiargs 0 DO pop3_digiarg LOOP;

 3 pop3_digiargs DELE LIST RETR

डीओईएस के संदर्भ में ध्यान देने योग्य अंतर वाले शब्दों के पिछले समूह के समान। यह स्पष्ट है कि सॉकेट में कुछ भेजा जाता है। लेकिन क्या?
यहां हम एक और महान किले की सुविधा का उपयोग करते हैं। हमारे पास एक सुंदर शब्द (डी) है जो स्टैक से स्ट्रिंग तक एक डबल-सटीक संख्या (64 बिट) को परिवर्तित करता है। और हम इसे आसानी से उपयोग कर सकते हैं, लेकिन इसके लिए हमें कुछ ऐसा लिखना होगा

 S "LIST" sockt WriteSocket S> D (D।)> Sockt

डरावना नहीं, लेकिन किसी तरह दुखी।

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

अब सर्वर प्रतिक्रियाओं को देखें। उनमें से केवल दो हैं: + OK या -ERR, जो किसी भी पाठ या संख्याओं का पालन कर सकता है या नहीं कर सकता है। यह अच्छा होगा यदि सर्वर प्रतिक्रियाओं ने किसी तरह सभी काम खुद किया। ताकि हमें अंतहीन शाखाओं के साथ कूदना न पड़े। और किले हमें ऐसा करने दे सकते हैं।
एक बफर की कल्पना करें जिसमें सर्वर प्रतिक्रिया व्याख्या के लिए एक इनपुट स्ट्रीम के रूप में संग्रहीत है। शब्द EVALUATE के साथ हम एक मनमाना स्ट्रिंग की व्याख्या कर सकते हैं। हम इस अवसर का उपयोग करते हैं।
सर्वर प्रतिक्रिया हमेशा + OK या -RR के साथ शुरू होती है। आइए इन उत्तरों के बारे में समझें।

सबसे आसान तरीका -ERR के साथ है। त्रुटि के मामले में, टर्मिनल पर बाकी लाइन प्रदर्शित करना और कार्यक्रम के निष्पादन को बाधित करना अच्छा होगा।

  : -RR 1 PARSE TYPE CR ABORT;

PARSE का उपयोग व्याख्या किए गए स्ट्रिंग की पूंछ प्राप्त करने के लिए किया जाता है।

+ ओके इतना आसान नहीं है। यह हमेशा पॉप अप होता है यदि कमांड सफलतापूर्वक संसाधित होता है। हम सभी को अच्छी तरह से बताता है, लेकिन इस अच्छे का संदर्भ क्या है?
सर्वर पर एक सफल कनेक्शन पर पहले + ठीक रिपोर्ट करता है। हमें इस तथ्य को स्वीकार करने और टर्मिनल पर ग्रीटिंग सर्वर प्रदर्शित करने की आवश्यकता है।
लॉगिन प्रक्रिया में दूसरा और तीसरा + ओके होता है। बस बाकी लाइन को नजरअंदाज करें।
चौथा + OK STAT की प्रतिक्रिया में प्रकट होता है और इसे + OK पर दो नंबर संलग्न होते हैं। पहले बॉक्स में संदेशों की संख्या है। दूसरा है उनके कब्जे वाले तोतों की संख्या। हमें तोते की जरूरत नहीं है। इसलिए हमें सर्वर रिस्पांस के टेक्स्ट नंबर को स्टैक पर एक नंबर में बदलना होगा, और बाकी लाइन को अनदेखा करना होगा।
पांचवां + ठीक सूचित करेगा कि हमें उस पत्र का पालन करना होगा जिसकी हमें आवश्यकता है। प्रोटोकॉल में एक अति सूक्ष्म अंतर है। सबसे पहले, सर्वर की प्रतिक्रिया और पत्र के प्रसारण के बीच एक ठहराव। दूसरे, + ओके के बाद दो नंबर - संदेश संख्या और तोते में इसका आकार।
छठी + ठीक है, आप इंतजार नहीं कर सकते, लेकिन आप पहले की तरह ही संभाल सकते हैं।
तो, + ओके तीन अलग-अलग चीजें करने में सक्षम होना चाहिए।
किले आपको झंडे और जटिल तर्क के बिना करने की अनुमति देता है। इसमें तथाकथित वेक्टर शब्द हैं। ऐसे शब्द जिनकी कार्रवाई किसी भी समय सौंपी जा सकती है।

 VECT + ओके

 : do_type 1 PARSE TYPE CR;
 : do_ignore 1 PARSE 2DROP;
 : do_number 1 PARSE; SLITERAL;
 : do_msg         
                 sockt>                 
                 BEGIN buf बाइट्स_पाय TYPE CR 
                 bytes_read bufsize - 0 <0 = WHILE sockt> REPEAT do_ignore;

अब हमारे पास कोड डालने के लिए सब कुछ है।

कोड

 ~ nn / lib / sock2.f  

 0 VALUE सॉकट
 0 मूल्य बाइट्स_ड्रेड
 0 मान num_of_msgs

 १ ९ २ कनस्टेंट बफसाइज
 bufize आवंटित कंस्ट्रक्ट buf
 
 मॉड्यूल:

 :> सॉकट   
               sockt WriteSocketLine THROW;

 : सॉकट>
               buf bufsize sockt ReadSocket THROW TO bytes_read;

 : प्रतिक्रिया  
                     sockt>
                      buf bytes_read EVALUATE;


 : pop3_noarg 
                      सबसे नवीनतम, 
                      DOES> @ COUNT> सॉकट प्रतिक्रिया; 

 : pop3_noargs 
                     0 DO pop3_noarg LOOP;

 4 pop3_noargs NOOP QUIT STAT RSET


 : pop3_digiarg 
                सबसे नवीनतम, 
                DOES> @> R <# S> D #S BL होल्ड R> COUNT HOLDS # >> sockt response;

 : pop3_digiargs 0 DO pop3_digiarg LOOP;

 3 pop3_digiargs DELE LIST RETR


 : उपयोगकर्ता एस "USER उपयोगकर्ता नाम"> sockt प्रतिक्रिया;
 : पास "एस पास पासवर्ड"> सॉकट प्रतिक्रिया;


 VECT + ओके

 : do_type 1 PARSE TYPE CR;
 : do_ignore 1 PARSE 2DROP;
 : do_number 1 PARSE; SLITERAL do_ignore;
 : do_msg         
                 sockt>                 
                 BEGIN buf बाइट्स_पाय TYPE CR 
                 bytes_read bufsize - 0 <0 = WHILE sockt> REPEAT do_ignore;

 : -RR do_type ABORT;


 : start_sockets   
                        सॉर्टस्टार्टअप थ्रौड
                        CreateSocket थ्रॉक करने के लिए;

 : connect_to_host
                       GetHostIP THROW 
                      110 सॉकेट कनेक्टस्केट थ्रॉइड 
                       प्रतिक्रिया;

 \ नीचे निष्पादन योग्य कोड है।  ऊपर आवश्यक परिभाषाएं हैं।

 start_sockets

 'do_type TO + OK 

 S "pop.server.com" connect_to_host 

 'do_ignore TO + OK

 उपयोगकर्ता पास  

 'do_number TO + OK 

 STAT TO num_of_msgs

 'do_msg TO + OK 
 num_of_msgs RETR  

 'do_type TO + OK
 QUIT

इस कोड को पूरक करना आसान है ताकि यह सर्वर से सभी या कुछ निश्चित संदेशों को डाउनलोड करे, उन्हें एक स्थानीय ड्राइव पर सहेजता है, सर्वर से हटाता है, आदि। यहां मैंने लियो ब्रॉडी द्वारा विकसित और वर्णित फोर्ट भाषा में प्रोग्रामिंग के लिए महत्वपूर्ण अपघटन सिद्धांत को प्रदर्शित करने की कोशिश की, और भाषा में समस्याओं को हल करने के लिए कुछ उपकरण उपलब्ध हैं।

FORTH: नैनोसर्वर्स और नैनो ग्राहक। भाग 1

_{पुनश्च: जब एक विषय लिख रहा था तो हबर थोड़ा क्षतिग्रस्त हो गया था।}

FORTH: POP3 नैनोकिएंट। भाग २

More articles: