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

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

सबसे पहले, चलो एक सरल सर्वर प्रोग्राम बनाने की कोशिश करें जो सम्मिलित क्लाइंट को अच्छी तरह से देगा ... मान लें कि सर्वर पर वर्तमान दिनांक और समय है।


नोटपैड या किसी अन्य टेक्स्ट एडिटर (एकेलपैड) में एक datetimes.f फ़ाइल बनाएं जो spfx.exe फ़ाइल के समान फ़ोल्डर में हो।

हमें सर्वर बनाने के लिए क्या चाहिए? सॉकेट!
उनके साथ काम करना शुरू करने के लिए आपको उचित पुस्तकालय कनेक्ट करने की आवश्यकता है।
~ nn \ lib \ sock2.f

आसानी से, सभी पुस्तकालयों को स्रोत कोड में संग्रहीत किया जाता है। आप हमेशा देख सकते हैं और देख सकते हैं कि यह क्या है और यह कैसे काम करता है।

 0 VALUE सॉकट
 0 VALUE sockt_a
 सॉर्सस्टार्टअप थ्रॉ। (सॉकेट्स शुरू) सी.आर. 
 CreateSocket THROW TO sockt। (सॉकेट बनाया गया) सी.आर.

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

 
 80 सॉकट बिंद्स्केट थ्रॉ। (सॉकेट बंधे) सी.आर.
 sockt ListenSocket THROW। (सुनो) सीआर
 sockt AcceptSocket THROW TO sockt_a। (कनेक्शन स्वीकार करें :) 

यह लगभग सभी है। अब हम पोर्ट 80 पर बैठते हैं और तब तक सुनते हैं जब तक कि कोई दस्तक न दे।
बेशक, आप पूरी तरह से मनमाना मुक्त बंदरगाह चुन सकते हैं।
जब तक यह कनेक्ट नहीं होता तब तक AcceptSoket शब्द प्रोग्राम को रोक देगा।
हमसे कौन जुड़ा है?

 sockt_a GetPeerIP & Port THROW SWAP OcA TYPE। "port:"। 

IP पता और पोर्ट प्रदर्शित करता है जिससे कनेक्शन कंसोल में बनाया गया था। पूरे कार्यक्रम में केवल SWAP केवल GetPeerIP और पोर्ट शब्द के बहुत ही सुविचारित कार्यान्वयन के कारण उत्पन्न हुई ।

हम प्रेषण के लिए तारीख और समय तैयार करेंगे।
हमें एक और पुस्तकालय की आवश्यकता होगी

लिब \ _ सुविधा \ _ शामिल हैं

जिससे TIME & DATE शब्द की आवश्यकता है। (मुझे इसे लाइब्रेरी में ठीक करना था, अब यह पूरी तरह से अलग है। यह मिलीसेकंड देना शुरू कर दिया, और तारीख क्रम भी बदल गया।) यह शब्द स्टैक पर 7 मान डालता है। मिलीसेकंड, सेकंड, घंटे, वर्ष, महीना, दिन। तदनुसार, पहले नंबर को स्टैक से हटा दिया जाएगा। यह महीने के दिन को दर्शाता है।

  S "वर्तमान समय: sockt_a WriteSocket THROW
 S> D (D.) sockt_a WriteSocket THROW (दिन)
 S "-" sockt_a WriteSocket THROW
 S> D (D.) sockt_a WriteSocket THROW (माह)
 S "-" sockt_a WriteSocket THROW
 S> D (D.) sockt_a WriteSocket THROW (वर्ष)
 S "" sockt_a WriteSocket THROW
 S> D (D.) sockt_a WriteSocket THROW (घंटे)
 S "-" sockt_a WriteSocket THROW
 S> D (D.) sockt_a WriteSocket THROW (मिनट)
 S "-" sockt_a WriteSocket THROW
 S> D (D) sockt_a WriteSocket THROW (सेकंड)
 S "-" sockt_a WriteSocket THROW
 S> D (D.) sockt_a WriteSocket THROW (मिलीसेकंड) 

यह भयानक लग रहा है। फोर्ट की सुंदरता यह है कि इस अपमान को कैंडी में बदल दिया जा सकता है।
यह देखा जा सकता है कि एक ही पाठ 7 में दोहराया जाता है और 3 बार। बेशक, आप एक लूप पर रख सकते हैं, लेकिन फिर पाठ को पढ़ना मुश्किल होगा।
किले का लाभ उठाएं।

अतिरिक्त शब्दों को परिभाषित करें

  : send_value S> D (D.) sockt_a WriteSocket THROW;
 : send_delimeter sockt_a WriteSocket THROW; 

तार्किक, स्पष्ट और पढ़ने में आसान। {रिमार्क: एस> डी शब्द स्टैक के शीर्ष तत्व को दोहरे परिशुद्धता के साथ चिह्नित करता है। शब्द (डी।) एक डबल-परिशुद्धता संख्या को एक स्ट्रिंग में परिवर्तित करता है और इसके पते और काउंटर को स्टैक पर धकेलता है। "

 : दिन send_value;
 : महीना send_value;
 : वर्ष send_value;
 : घंटे send_value;
 : मिनट send_value;
 : सेकंड्स send_value;
 : मिलीसेकेंड send_value; 

अभी भी भयानक है। क्या किया जा सकता है?
किले की भाषा की एक प्रमुख विशेषता बचाव में आती है। हम अपने स्वयं के परिभाषित शब्द बना सकते हैं।

 : make_value CREATE DOES> DROP send_value;
 : make_values ​​0 DO make_value LOOP; 

इसके निष्पादन के दौरान मेक_वेल्यू शब्द इनपुट स्ट्रीम से वर्णों के अगले सेट का चयन करेगा, जो रिक्त स्थान द्वारा सीमित होगा और इसे वर्तमान शब्दकोश के शीर्ष पर रखेगा । इस नए शब्द का शब्दार्थ शब्द DOES> के बाद शब्द द्वारा दिया जाएगा। यही है, हमारे पास एक उपकरण है जिसके साथ हम ऐसी अवधारणाएँ बना सकते हैं जो सामान्य शब्दार्थ से एकजुट होती हैं।

  7 मेक_वेल्स डे मंथ ईयर आवर्स मिनट्स सेकंड्स मिलिसेकंड 

और सीमांकक के लिए

 : make_delimeter बनाएं, DOES> 1 send_delimeter;
 : make_delimeters 0 DO make_delimeter LOOP;

 BL CHAR - CHAR: 3 मेकडेलमीटर: - _ 

अब हम खूबसूरती से लिख सकते हैं

 समय और दिनांक
 दिन - महीना - वर्ष _ घंटे: मिनट: सेकंड: मिलिसेकंड 

कनेक्शन फाड़ दो

  sockt_a CloseSocket THROW 

और सॉकेट साफ़ करें

  सॉकेट्सलेनअप थ्रॉइड 

वह सब है।

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

कॉमेड कोड

 ~ nn \ lib \ sock2.f 
 लिब \ _ सुविधा \ _ शामिल हैं

 80 CONSTANT पोर्ट
 0 VALUE सॉकट
 0 VALUE sockt_a

 : send_value S> D (D.) sockt_a WriteSocket THROW;
 : send_delimeter sockt_a WriteSocket THROW;

 : make_value CREATE DOES> DROP send_value;
 : make_values ​​0 DO make_value LOOP;

 7 मेक_वेल्स डे मंथ ईयर आवर्स मिनट्स सेकंड्स मिलिसेकंड 

 : make_delimeter बनाएं, DOES> 1 send_delimeter;
 : make_delimeters 0 DO make_delimeter LOOP;

 : परिभाषित ::;

 BL CHAR - CHAR: 3 मेकडेलमीटर: - _



 परिभाषित: समय और date_server 

                 सॉर्क्सस्टार्टअप थ्रॉ। "सॉकेट्स की शुरुआत" सी.आर. 
                 CreateSocket THROW TO sockt। "सॉकेट ने" CR बनाया

                 port sockt BindSocket THROW। "सॉकेट बाइंडेड" CR
                 Sockt ListenSocket THROW। "सुनो" CR

                 sockt AcceptSocket THROW TO sockt_a। "इससे कनेक्शन स्वीकार करें:" 
                 sockt_a GetPeerIP & Port THROW SWAP OcA TYPE। "port:"। 

                 S "वर्तमान समय:" sockt_a WriteSocket THROW

                 समय और दिनांक 

                 दिन - महीना - वर्ष _ घंटे: मिनट: सेकंड: मिलिसेकंड  

                 sockt_a CloseSocket THROW 

                 सॉकेट्सलेनअप थ्रॉइड 
 ;

 समय और date_server