👩🏽‍🔧 👰🏿 🛐 डीबी। संदर्भ पुस्तकें। ग्लोबल्स 3 पर लाइव उदाहरण 🧖🏾 📮 👨🏽‍🚒

भाग 1
भाग २

लेख के शीर्षक में "लिविंग" शब्द का मतलब है कि इन लेखों से तंत्र, कोड और डेटा का उपयोग कार्य मसौदे में किया जाता है।

डेटाबेस (संरचना, तंत्र) विकसित करने के लिए कुछ समाधानों को देखने के लिए आपकी रुचि हो सकती है।

चित्र कोड का एक टुकड़ा दिखाता है जो निर्देशिका के वैश्विक नियमों का वर्णन करता है।

सी आर यूडी विधियां, अपने काम के दौरान, लगातार इन नियमों को संदर्भित करती हैं ताकि यह पता लगाया जा सके कि किन कार्यों को करने की आवश्यकता है।

इससे पहले, हमने इस तथ्य पर समझौता किया कि हमारे पास निम्नलिखित ग्लोबल्स हैं:

^ शब्दकोश - निर्देशिकाओं के तत्व और उनके गुण;
^ नेमवार्डब्लीमेंट - विभिन्न भाषाओं में निर्देशिकाओं के तत्वों के नाम;
^ अनुक्रमणिका - निर्देशिकाओं का मुख्य सूचकांक ;
^ Refs मंदार - वैश्विक सूचकांक पश्च (इसका उद्देश्य बाद में वर्णित किया जाएगा)।

ग्लोबल्स देखें

^Dictionary("Vehicle","TransmissionType",1,0,"UpdateTime")="62086,66625" ^Dictionary("Vehicle","TransmissionType",1,0,"uid")=888 ^Dictionary("Vehicle","TransmissionType",2,0,"UpdateTime")="62086,66625" ^Dictionary("Vehicle","TransmissionType",2,0,"uid")=888 ^NameDictionaryElement(1,"partUri",0)="akp" ^NameDictionaryElement(1,"partUri",0,"UpdateTime")="62086,66625" ^NameDictionaryElement(1,"ru",0)="" ^NameDictionaryElement(1,"ru",0,"UpdateTime")="62086,66625" ^NameDictionaryElement(2,"partUri",0)="meh" ^NameDictionaryElement(2,"partUri",0,"UpdateTime")="62086,66625" ^NameDictionaryElement(2,"ru",0)="" ^NameDictionaryElement(2,"ru",0,"UpdateTime")="62086,66625" ^IndexDictionary("Vehicle","TransmissionType","name","partUri","akp",1)=1 ^IndexDictionary("Vehicle","TransmissionType","name","partUri","meh",2)=1 ^IndexDictionary("Vehicle","TransmissionType","name","ru","",1)=1 ^IndexDictionary("Vehicle","TransmissionType","name","ru","",2)=1 ^IndexDictionary("Vehicle","TransmissionType","uid",888,1)=1 ^IndexDictionary("Vehicle","TransmissionType","uid",888,2)=1 ^RefsDictionary(1,"^|""MONTOLOGY""|IndexDictionary(""Vehicle"",""TransmissionType"",""name"",""partUri"",""akp"",1)")=1 ^RefsDictionary(1,"^|""MONTOLOGY""|IndexDictionary(""Vehicle"",""TransmissionType"",""name"",""ru"","""",1)")=1 ^RefsDictionary(1,"^|""MONTOLOGY""|IndexDictionary(""Vehicle"",""TransmissionType"",""uid"",888,1)")=1 ^RefsDictionary(2,"^|""MONTOLOGY""|IndexDictionary(""Vehicle"",""TransmissionType"",""name"",""partUri"",""meh"",2)")=1 ^RefsDictionary(2,"^|""MONTOLOGY""|IndexDictionary(""Vehicle"",""TransmissionType"",""name"",""ru"","""",2)")=1 ^RefsDictionary(2,"^|""MONTOLOGY""|IndexDictionary(""Vehicle"",""TransmissionType"",""uid"",888,2)")=1

ग्लोबल्स Ctrl + C / V बनाएँ

 set ^Dictionary("Vehicle","TransmissionType",1,0,"UpdateTime")="62086,66625" set ^Dictionary("Vehicle","TransmissionType",1,0,"uid")=888 set ^Dictionary("Vehicle","TransmissionType",2,0,"UpdateTime")="62086,66625" set ^Dictionary("Vehicle","TransmissionType",2,0,"uid")=888 set ^NameDictionaryElement(1,"partUri",0)="akp" set ^NameDictionaryElement(1,"partUri",0,"UpdateTime")="62086,66625" set ^NameDictionaryElement(1,"ru",0)="" set ^NameDictionaryElement(1,"ru",0,"UpdateTime")="62086,66625" set ^NameDictionaryElement(2,"partUri",0)="meh" set ^NameDictionaryElement(2,"partUri",0,"UpdateTime")="62086,66625" set ^NameDictionaryElement(2,"ru",0)="" set ^NameDictionaryElement(2,"ru",0,"UpdateTime")="62086,66625" set ^IndexDictionary("Vehicle","TransmissionType","name","partUri","akp",1)=1 set ^IndexDictionary("Vehicle","TransmissionType","name","partUri","meh",2)=1 set ^IndexDictionary("Vehicle","TransmissionType","name","ru","",1)=1 set ^IndexDictionary("Vehicle","TransmissionType","name","ru","",2)=1 set ^IndexDictionary("Vehicle","TransmissionType","uid",888,1)=1 set ^IndexDictionary("Vehicle","TransmissionType","uid",888,2)=1 set ^RefsDictionary(1,"^|""MONTOLOGY""|IndexDictionary(""Vehicle"",""TransmissionType"",""name"",""partUri"",""akp"",1)")=1 set ^RefsDictionary(1,"^|""MONTOLOGY""|IndexDictionary(""Vehicle"",""TransmissionType"",""name"",""ru"","""",1)")=1 set ^RefsDictionary(1,"^|""MONTOLOGY""|IndexDictionary(""Vehicle"",""TransmissionType"",""uid"",888,1)")=1 set ^RefsDictionary(2,"^|""MONTOLOGY""|IndexDictionary(""Vehicle"",""TransmissionType"",""name"",""partUri"",""meh"",2)")=1 set ^RefsDictionary(2,"^|""MONTOLOGY""|IndexDictionary(""Vehicle"",""TransmissionType"",""name"",""ru"","""",2)")=1 set ^RefsDictionary(2,"^|""MONTOLOGY""|IndexDictionary(""Vehicle"",""TransmissionType"",""uid"",888,2)")=1

वैश्विक निर्देशिका नियम

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

आइए विचार करें कि ^ नियम नियम वैश्विक कैसे संरचित है - इसके अनुक्रमित को निम्नलिखित अर्थ दें:

आंटलजी
निर्देशिका का प्रकार
CRUD विधियों में से एक का नाम
कार्रवाई के प्रकार का संकेत दिया जा रहा है
क्रियाओं का क्रम

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

हम ऑन्कोलॉजी के लिए सभी नियमों को प्रिंट करते हैं। SimpleOntology, कमांड निष्पादित करें:
zwrite ^ नियम छायावाद ("सिम्पलऑंटोलॉजी")
मैं आपको याद दिलाता हूं कि "मोनटोलोजी" नाम स्थान का नाम है।

 MONTOLOGY>zwrite ^RuleDictionary("SimpleOntology") ^RuleDictionary("SimpleOntology","SimpleType","create","check",10)="do clearPunctuationAndControlCharAllLang()" ^RuleDictionary("SimpleOntology","SimpleType","create","check",20)="do checkUniqueNameElementAllLang()" ^RuleDictionary("SimpleOntology","SimpleType","update","check",10)="do clearPunctuationAndControlCharAllLang()" ^RuleDictionary("SimpleOntology","SimpleType","update","check",20)="do checkUniqueNameElementAllLang()" MONTOLOGY>

ग्लोबल्स Ctrl + C / V बनाएँ

 set ^RuleDictionary("SimpleOntology","SimpleType","create","check",10)="do clearPunctuationAndControlCharAllLang()" set ^RuleDictionary("SimpleOntology","SimpleType","create","check",20)="do checkUniqueNameElementAllLang()" set ^RuleDictionary("SimpleOntology","SimpleType","update","check",10)="do clearPunctuationAndControlCharAllLang()" set ^RuleDictionary("SimpleOntology","SimpleType","update","check",20)="do checkUniqueNameElementAllLang()"

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

बनाएं

यह समझने के लिए कि यह कैसे काम करता है, बनाने की विधि पर विचार करें। सादगी के लिए, हम ताले, लेनदेन प्रसंस्करण और विभिन्न प्रकार की त्रुटियों को कम करेंगे। फिर हम इस पर लौटेंगे।

 #; -------------------------------------------------------------------------------------------------- #;   . #;         . #; -------------------------------------------------------------------------------------------------- create() #;     kill map("out") #;     t #;         create new t #;      set t("err")=$$check("create") #; ,    if t("err")<0 { quit t("err") } #;   "UpdateTime" do setProperty(t("ontology"),t("type"),"UpdateTime",$horolog,t("id"),"false") #;   "uid" do setProperty(t("ontology"),t("type"),"uid",t("uid"),t("id"),"true") set t("lang")="" for { #;    (     ) set t("lang")=$order(t("nameList",t("lang"))) #;   ,     quit:t("lang")="" #;      set t("name")=$get(t("nameList",t("lang"))) #;      do setName(t("ontology"),t("type"),t("lang"),t("name"),t("id")) } #;          do saveOntoAndTypeID #;         do saveElementPath #;         set map("out","id")=t("id") #;     kill map("in") #;     quit t("id") #; --------------------------------------------------------------------------------------------------

हम देखते हैं कि कोई भी पैरामीटर स्पष्ट रूप से बनाने () विधि से पारित नहीं हुआ है। यह माना जाता है कि वे स्थानीय चर मानचित्र में लिखे गए हैं, जिसे विधि कहा जाने से पहले परिभाषित किया जाना चाहिए। मानचित्र चर में, हम दो मुख्य शाखाओं का उपयोग करेंगे: मानचित्र ("इन") और मानचित्र ("आउट") । एक स्थानीय वैरिएबल केवल एक वैश्विक से अलग है जिसमें यह डिस्क पर सहेजा नहीं गया है और इसकी अधिकतम आकार की सीमा है। अन्यथा, यह वैश्विक रूप से अनुक्रमित है। इसे कार्यों के पैरामीटर के रूप में पारित किया जा सकता है: $ ऑर्डर () , $ qsubscript () , $ qlength () , $ नाम () और अन्य। कई चर का उत्पादन नहीं करने के लिए, और गुंजाइश की निगरानी नहीं करने के लिए: यह एक एकल चर नया टी घोषित करने के लिए पर्याप्त है। वैरिएबल टी कहीं भी बनाने की विधि में उपलब्ध होगा, साथ ही अन्य सभी कार्यक्रमों और दिनचर्या में जो इसे कहा जाता है। मानचित्र चर के बारे में भी यही कहा जा सकता है। अगर, create के दौरान कहे गए कुछ फ़ंक्शन के अंदर, नया t सामने आया है, तो इस फ़ंक्शन को create पद्धति के अंदर घोषित चर t तक पहुंच नहीं होगी। यह इसके चर टी के साथ काम करेगा, जो इसके दायरे के अंदर है (चर स्टैक में कहीं और)। शायद Caché मैंने जिन चरों के दायरे की व्याख्या की है, वे पर्याप्त स्पष्ट नहीं हैं - टिप्पणियों में प्रश्न पूछें।

चेक

अगला, t ("इरेट") में, हम फ़ंक्शन $ $ चेक ("क्रिएट") का परिणाम लिखते हैं। यदि सभी जांचें सफल होती हैं, तो फ़ंक्शन 0 पर वापस आ जाएगा, अन्यथा परिणाम नकारात्मक होगा। आइए देखें कि $ $ चेक () फ़ंक्शन कैसे काम करता है और इसे कहा जाता है। मैं ध्यान देता हूं कि इन लेखों में: विधि, कार्य, उपवाक्य - शब्द समानार्थक हैं। सेवा शब्द निजी - का अर्थ है कि विधि को केवल शब्दकोश कार्यक्रम के अंदर बुलाया जा सकता है।

 #; -------------------------------------------------------------------------------------------------- #;  . #;    ^RuleDictionary    . #; -------------------------------------------------------------------------------------------------- check(action)private #;     check new check #;        action set check=$case(action,"create":$$checkCreate(),"update":$$checkUpdate(),"delete":$$checkDelete(),:-1) #;   quit:check<0 check #;  "uid"      set t("uid")=$get(map("in","uid"),888) #; ,      "check",        if $data(^RuleDictionary(t("ontology"),t("type"),action,"check")) { #;  t("map")        set t("map")=$name(^RuleDictionary(t("ontology"),t("type"),action,"check")) } else { #;  t("map")              set t("map")=$name(^RuleDictionary("SimpleOntology","SimpleType",action,"check")) } set check("i")="" for { #;     set check("i")=$order(@t("map")@(check("i"))) #;   ,     quit:check("i")="" #;     xecute $get(@t("map")@(check("i"))) #;   ,     quit:check<0 } #;    quit check #; -------------------------------------------------------------------------------------------------- #;      . #;  id, ontology, type,   . #; -------------------------------------------------------------------------------------------------- checkCreate()private #;       st("ontology")=$get(map("in","ontology"),"") #;       quit:t("ontology")="" -1 #;        set t("type")=$get(map("in","type"),"") #;  ,      quit:t("type")="" -1 #;     set t("check")=$$checkNames() #;  ,     quit:t("check")<0 t("check") #;       set t("id")=$increment(^Dictionary("MaxID")) #;      ^Dictionary set t("path")=$name(^Dictionary(t("ontology"),t("type"),t("id"))) #;     quit 0 #; -------------------------------------------------------------------------------------------------- checkUpdate() quit 0 #; -------------------------------------------------------------------------------------------------- checkDelete() quit 0 #; -------------------------------------------------------------------------------------------------- #;     . #; -------------------------------------------------------------------------------------------------- checkNames()private #;          merge t("nameList")=map("in","nameList") #;   t("check")  #;         set t("check")=-1 set t("lang")="" for { #;    set t("lang")=$order(t("nameList",t("lang"))) #;   ,     quit:t("lang")="" #;      set t("name")=$get(t("nameList",t("lang")),"") #;    if t("name")="" { #;   t("check")  set t("check")=-1 #;    quit } else { #;  t("check")   ,     set t("check")=0 } } #;     quit t("check") #; --------------------------------------------------------------------------------------------------

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

चेकक्रीट () इनपुट मानचित्र में ऑन्कोलॉजी मापदंडों और एक निर्देशिका प्रकार की उपस्थिति के लिए नियमित जांच। अंदर चेकनाम () - प्रत्येक दी गई भाषा के लिए नामों की उपस्थिति की जाँच की जाती है, कम से कम एक भाषा की उपस्थिति के लिए शर्त के साथ (हमारी प्रणाली में नाम के बिना एक निर्देशिका तत्व बनाना असंभव है)। उसी विधि में, निर्मित निर्देशिका तत्व का पहचानकर्ता सुरक्षित फ़ंक्शन $ वृद्धि () द्वारा उत्पन्न होता है। निर्देशिका तत्व की वर्तमान अधिकतम पहचानकर्ता (किसी भी ऑन्कोलॉजी और प्रकार के लिए) ^ शब्दकोश ("मैक्सिड") में संग्रहीत है।

सभी पहचानकर्ता अद्वितीय हैं, यहां तक कि विभिन्न निर्देशिकाओं और ऑन्कोलॉजी के भीतर भी

CheckCreate () पद्धति के अंत में, t ("पथ") चर में, हम वैश्विक शाखा ^ शब्दकोश का विहित नाम लिखते हैं, जिसमें निर्मित निर्देशिका तत्व संग्रहीत किया जाएगा।

चेकनेम () विधि के शब्द मर्ज टी ("नेमलिस्ट") = मैप ("इन," नेमलिस्ट ") नोट करें ।

मर्ज कमांड एक दूसरे में अनुक्रमित चर के पूरे उपप्रकार को कॉपी करता है, चाहे वे स्थानीय या वैश्विक के रूप में परिभाषित हों।
पुस्तक से ली गई परिभाषा: वोल्फगैंग कर्स्टन। माइकल इहिंगर। मथायस कुने। बर्नहार्ड रोरिग। पोस्ट-रिलेशनल डीबीएमएस कैच 5. ऑब्जेक्ट-ओरिएंटेड एप्लिकेशन डेवलपमेंट। दूसरा संस्करण। मास्को। प्रकाशन गृह BINOM । 2005. ए। मास्लोव, के। अरिस्तोव द्वारा अनुवाद। पेज 116।

तो, CheckCreate () विधि को निष्पादित करने के बाद, निम्नलिखित महत्वपूर्ण डेटा स्थानीय चर t में समाहित हो जाएगा:

t ("ontology") - निर्देशिका तत्व का ontology
t ("प्रकार") - संदर्भ प्रकार
t ("nameList") - सभी दी गई भाषाओं में नाम
टी ("आईडी") - पहचानकर्ता
t ("पथ") - वैश्विक शाखा ^ शब्दकोश का विहित नाम, जहां तत्व के बारे में जानकारी संग्रहीत की जाएगी

हम चेक () फ़ंक्शन का निष्पादन जारी रखते हैं। CheckCreate () निष्पादित होने के बाद, हम उपयोगकर्ता को यूआईडी ( 888 - डिफ़ॉल्ट रूप से) प्राप्त करते हैं। अगला, वैरिएबल टी ("मैप") में , हम वैश्विक नियम की शाखा के विहित नाम को लिखते हैं जिसमें हमारी ऑन्कोलॉजी के लिए आवश्यक सत्यापन कार्य होते हैं, जैसे कि एक निर्देशिका और एक क्रिया। चूँकि अब केवल ऑन्कोलॉजी और डिफॉल्ट टाइप के नियम ^ रूलडॉर ग्लोबल में परिभाषित होते हैं, रूल्डर ब्रांच का कैनोनिकल व्यू ("सिंपलऑनटॉलॉजी", "सिंपल टाइप", "क्रिएट", "चेक" टी ("मैप") में लिखा जाएगा। )।

आइए विस्तार से रेखा का विश्लेषण करें:

 set check("i")=$order(@t("map")@(check("i")))

आपको याद दिला दूं कि @ एक अप्रत्यक्ष परिचालक है। प्रारंभिक मान चेक ("i") = "" है । तो लूप की शुरुआत में, लाइन निम्नलिखित के बराबर है:

 set check("i")=$order(^RuleDictionary("SimpleOntology","SimpleType","create","check",""))

यही है, चेक ("i") होगा 10. यदि अप्रत्यक्ष ऑपरेटर का सिंटैक्स प्रश्न उठाता है, तो टिप्पणियों में पूछें।

अब आइए देखें:

 xecute $get(@t("map")@(check("i")))

Xecute कमांड एकल-पंक्ति सबरूटीन के रूप में एक वर्ण स्ट्रिंग निष्पादित करता है।
पृष्ठ ११५, वही पुस्तक।

यही है, लूप की शुरुआत में हम वह करेंगे जो ^ नियम ("SimpleOntology", "SimpleType", "create", "check", 10) में लिखा है । और यह:

 do clearPunctuationAndControlCharAllLang()

इस उप-धारा को निष्पादित करने के बाद, सभी निर्दिष्ट भाषाओं में नामों से विराम चिह्न और सहायक वर्ण बाहर फेंक दिए जाएंगे।

लूप के अगले पुनरावृत्ति में, हम मान ^ नियम ("SimpleOntology", "SimpleType", "create", "check", 20) को निष्पादित करेंगे। और यह:

 do checkUniqueNameElementAllLang()

यह दिनचर्या सभी दी गई भाषाओं के लिए एक नाम की विशिष्टता की पुष्टि करती है। यदि कम से कम एक नाम अद्वितीय नहीं है, तो एक त्रुटि चेक () विधि में परिभाषित चेक वेरिएबल को लिखा जाता है।

सबरूटीन कोड:

 #; -------------------------------------------------------------------------------------------------- clearPunctuationAndControlCharAllLang() set t("lang")="" for { #;     set t("lang")=$order(t("nameList",t("lang"))) quit:t("lang")="" #;           set t("nameList",t("lang"))=$$clearPunctuationAndControlChar($get(t("nameList",t("lang")),"")) } quit #; -------------------------------------------------------------------------------------------------- checkUniqueNameElementAllLang() set t("lang")="" for { #;     set t("lang")=$order(t("nameList",t("lang"))) quit:t("lang")="" #;    set t("name")=$get(t("nameList",t("lang")),"") #;   check     (0 -  ) set check=$$checkUniqueNameElement() #;     -    quit:check<0 } quit #; -------------------------------------------------------------------------------------------------- #;         . #; -------------------------------------------------------------------------------------------------- clearPunctuationAndControlChar(str) new t #;  t("str")     set t("str")="" #;      for t("i")=1:1:$length(str) { #;    set t("ch")=$extract(str,t("i")) if '((t("ch")?1P)||(t("ch")?1C)) { #;       set t("str")=t("str")_t("ch") } } #;    quit t("str") #; -------------------------------------------------------------------------------------------------- #; -------------------------------------------------------------------------------------------------- #;      ,   ,   . #;  ,   . #; -------------------------------------------------------------------------------------------------- checkUniqueNameElement() #;    set t("q")=0 set t("uniqueId")="" for { #; ,         #;   , ,   (  ) set t("uniqueId")=$order(^IndexDictionary(t("ontology"),t("type"),"name",t("lang"),$zconvert(t("name"),"l"),t("uniqueId"))) #;     quit:t("uniqueId")="" #; ,      #;     update if (t("uniqueId")'=t("id")) { #;  ,       set t("q")=-1 quit } } #;   quit t("q") #; --------------------------------------------------------------------------------------------------

दिनचर्या हमारे लिए नए कार्यों का उपयोग करती है: $ zconvert () , $ लंबाई () , $ निकालने () ; साथ ही टेम्पलेट चेक ऑपरेटर - प्रतीक "?" । एक स्ट्रिंग में विराम चिह्न और सेवा पात्रों की उपस्थिति के लिए जाँच दूसरे तरीके से की जा सकती है, बिल्ट-इन काशेव फ़ंक्शन का उपयोग करते हुए, हालांकि, मेरी परियोजना चरित्र-दर-चरित्र विश्लेषण की विधि का उपयोग करती है।

तो, हमारी क्रिएट () विधि ने लाइन को सफलतापूर्वक पूरा किया: टी ("गलत") = $ $ चेक ("क्रिएट") , और टी वेरिएबल में महत्वपूर्ण सेवा की जानकारी है।

setProperty

अगला, हम सेटप्रोपर्टी () फ़ंक्शन का उपयोग करके "अपडेटटाइम" और "यूआईडी" गुण सेट करते हैं।

 #; -------------------------------------------------------------------------------------------------- #;  ,     . #;         . #; -------------------------------------------------------------------------------------------------- setProperty(ontology,type,property,value,id,index="true")private #;      ()    set ^Dictionary(ontology,type,id,0,property)=value #;    if index="true" { #;   set ^IndexDictionary(ontology,type,property,value,id)=1 #;      set ^RefsDictionary(id,$name(^|"MONTOLOGY"|IndexDictionary(ontology,type,property,value,id)))=1 } quit 0 #; --------------------------------------------------------------------------------------------------

$ होरोलॉग कैची प्रारूप में वर्तमान तिथि और समय है। कृपया ध्यान दें कि "अपडेट टाइम" संपत्ति अनुक्रमित नहीं है (चरम पैरामीटर इंडेक्स = "गलत" है )। उसी विधि में, वैश्विक ^ RefsDictionary पहली बार दिखाई देता है। इसके सूचकांकों की संरचना सरल है:

आइटम आईडी
कैनोनिकल इंडेक्स ग्लोबल ब्रांच नाम

यही है, यदि आवश्यक हो (उदाहरण के लिए, जब एक तत्व को हटाते हुए) - हम जल्दी से सभी विभिन्न सूचकांकों को प्राप्त करते हैं जिनमें इस तत्व का उल्लेख होता है।

setName

अगला, हम सेटनाम () फ़ंक्शन का उपयोग करके नामों के मान सेट करते हैं।

 #; -------------------------------------------------------------------------------------------------- #;   ,     . #;  (  )   . #; -------------------------------------------------------------------------------------------------- setName(ontology,type,lang,value,id)private #;         set ^NameDictionaryElement(id,lang,0)=value #;   / set ^NameDictionaryElement(id,lang,0,"UpdateTime")=$horolog #;     set ^IndexDictionary(ontology,type,"name",lang,$zconvert(value,"l"),id)=1 #;    set ^RefsDictionary(id,$name(^|"MONTOLOGY"|IndexDictionary(ontology,type,"name",lang,$zconvert(value,"l"),id)))=1 quit 0 #; --------------------------------------------------------------------------------------------------

उसके बाद, हम saveOntoAndTypeID फ़ंक्शन को कॉल करते हैं, जो ऑन्कोलॉजी और एलिमेंट टाइप को ग्लोबल ब्रांच ^ इंडेक्सॉरेड ("आईडी", टी ("आईडी") पर लिखते हैं। भविष्य में यह आवश्यक है, हमें निर्देशिका के तत्व से यह पता लगाना होगा कि यह किस प्रकार और ऑन्थोलॉजी से संबंधित है। इसके बाद, उसी शाखा में saveElementPath फ़ंक्शन निर्देशिका आइटम के लिए पथ रिकॉर्ड करेगा।

 #; -------------------------------------------------------------------------------------------------- saveOntoAndTypeID set ^IndexDictionary("ID",t("id"),"ontology")=t("ontology") set ^RefsDictionary(t("id"),$name(^|"MONTOLOGY"|IndexDictionary("ID",t("id"),"ontology")))=1 set ^IndexDictionary("ID",t("id"),"type")=t("type") set ^RefsDictionary(t("id"),$name(^|"MONTOLOGY"|IndexDictionary("ID",t("id"),"type")))=1 quit #; -------------------------------------------------------------------------------------------------- saveElementPath set ^IndexDictionary("ID",t("id"),"path")=t("path") set ^RefsDictionary(t("id"),$name(^|"MONTOLOGY"|IndexDictionary("ID",t("id"),"path")))=1 quit #; --------------------------------------------------------------------------------------------------

ध्यान दें कि वैश्विक ^ RefsDictionary में सभी प्रविष्टियों में स्पष्ट नाम स्थान का नाम है । "MONTOLOGY" । यदि भविष्य में, हम इस वैश्विक नाम के साथ किसी अन्य नाम स्थान पर काम करेंगे, तो हमारे पास हमेशा सही पूर्ण मार्ग होगा। बेशक, यहां तक कि शब्दकोश कार्यक्रम के अंदर भी, पूर्ण पथ (अन्य नामस्थानों से कॉलिंग के तरीकों के मामले में) लिखना आवश्यक है। मेरी परियोजना में, इसे मैक्रोज़ के माध्यम से लागू किया गया है, लेकिन सादगी के लिए, मैंने अभी के लिए एक सरलीकृत कोड प्रदान किया है।

सभी शब्दकोश कोड:

 #; -------------------------------------------------------------------------------------------------- #;   #; -------------------------------------------------------------------------------------------------- Dictionary #; -------------------------------------------------------------------------------------------------- #;   . #; -------------------------------------------------------------------------------------------------- retrieve(id,lang="ru",version=0) quit $get(^NameDictionaryElement(id,lang,version),"") #; -------------------------------------------------------------------------------------------------- #;      . #; -------------------------------------------------------------------------------------------------- retrieveListByIndex(ontology,type,index,value,str="",lang="ru") #;     ,       set str=$zconvert(str,"L") set id="" for { #;  ()    set id=$order(^IndexDictionary(ontology,type,index,value,id)) #;  ,        quit:id="" #;   set name=$$retrieve(id,lang) #;      str if $extract($zconvert(name,"L"),1,$length(str))=str { #;  (  ) write id_" "_name,! } } quit #; -------------------------------------------------------------------------------------------------- #;   . #;         . #; -------------------------------------------------------------------------------------------------- create() #;     kill map("out") #;     t #;         create new t #;      set t("err")=$$check("create") #; ,    if t("err")<0 { quit t("err") } #;   "UpdateTime" do setProperty(t("ontology"),t("type"),"UpdateTime",$horolog,t("id"),"false") #;   "uid" do setProperty(t("ontology"),t("type"),"uid",t("uid"),t("id"),"true") set t("lang")="" for { #;    (     ) set t("lang")=$order(t("nameList",t("lang"))) #;   ,     quit:t("lang")="" #;      set t("name")=$get(t("nameList",t("lang"))) #;      do setName(t("ontology"),t("type"),t("lang"),t("name"),t("id")) } #;          do saveOntoAndTypeID #;         do saveElementPath #;         set map("out","id")=t("id") #;     kill map("in") #;     quit t("id") #; -------------------------------------------------------------------------------------------------- #;  . #;    ^RuleDictionary    . #; -------------------------------------------------------------------------------------------------- check(action)private #;     check new check #;        action set check=$case(action,"create":$$checkCreate(),"update":$$checkUpdate(),"delete":$$checkDelete(),:-1) #;   quit:check<0 check #;  "uid"      set t("uid")=$get(map("in","uid"),888) #; ,      "check",        if $data(^RuleDictionary(t("ontology"),t("type"),action,"check")) { #;  t("map")        set t("map")=$name(^RuleDictionary(t("ontology"),t("type"),action,"check")) } else { #;  t("map")              set t("map")=$name(^RuleDictionary("SimpleOntology","SimpleType",action,"check")) } set check("i")="" for { #;     set check("i")=$order(@t("map")@(check("i"))) #;   ,     quit:check("i")="" #;     xecute $get(@t("map")@(check("i"))) #;   ,     quit:check<0 } #;    quit check #; -------------------------------------------------------------------------------------------------- #;      . #;  id, ontology, type,   . #; -------------------------------------------------------------------------------------------------- checkCreate()private #;       st("ontology")=$get(map("in","ontology"),"") #;       quit:t("ontology")="" -1 #;        set t("type")=$get(map("in","type"),"") #;  ,      quit:t("type")="" -1 #;     set t("check")=$$checkNames() #;  ,     quit:t("check")<0 t("check") #;       set t("id")=$increment(^Dictionary("MaxID")) #;      ^Dictionary set t("path")=$name(^Dictionary(t("ontology"),t("type"),t("id"))) #;     quit 0 #; -------------------------------------------------------------------------------------------------- checkUpdate() quit 0 #; -------------------------------------------------------------------------------------------------- checkDelete() quit 0 #; -------------------------------------------------------------------------------------------------- #;     . #; -------------------------------------------------------------------------------------------------- checkNames()private #;          merge t("nameList")=map("in","nameList") #;   t("check")  #;         set t("check")=-1 set t("lang")="" for { #;    set t("lang")=$order(t("nameList",t("lang"))) #;   ,     quit:t("lang")="" #;      set t("name")=$get(t("nameList",t("lang")),"") #;    if t("name")="" { #;   t("check")  set t("check")=-1 #;    quit } else { #;  t("check")   ,     set t("check")=0 } } #;     quit t("check") #; -------------------------------------------------------------------------------------------------- clearPunctuationAndControlCharAllLang() set t("lang")="" for { #;     set t("lang")=$order(t("nameList",t("lang"))) quit:t("lang")="" #;           set t("nameList",t("lang"))=$$clearPunctuationAndControlChar($get(t("nameList",t("lang")),"")) } quit #; -------------------------------------------------------------------------------------------------- checkUniqueNameElementAllLang() set t("lang")="" for { #;     set t("lang")=$order(t("nameList",t("lang"))) quit:t("lang")="" #;    set t("name")=$get(t("nameList",t("lang")),"") #;   check     (0 -  ) set check=$$checkUniqueNameElement() #;     -    quit:check<0 } quit #; -------------------------------------------------------------------------------------------------- #;         . #; -------------------------------------------------------------------------------------------------- clearPunctuationAndControlChar(str) new t #;  t("str")     set t("str")="" #;      for t("i")=1:1:$length(str) { #;    set t("ch")=$extract(str,t("i")) if '((t("ch")?1P)||(t("ch")?1C)) { #;       set t("str")=t("str")_t("ch") } } #;    quit t("str") #; -------------------------------------------------------------------------------------------------- #; -------------------------------------------------------------------------------------------------- #;      ,   ,   . #;  ,   . #; -------------------------------------------------------------------------------------------------- checkUniqueNameElement() #;    set t("q")=0 set t("uniqueId")="" for { #; ,         #;   , ,   (  ) set t("uniqueId")=$order(^IndexDictionary(t("ontology"),t("type"),"name",t("lang"),$zconvert(t("name"),"l"),t("uniqueId"))) #;     quit:t("uniqueId")="" #; ,      #;     update if (t("uniqueId")'=t("id")) { #;  ,       set t("q")=-1 quit } } #;   quit t("q") #; -------------------------------------------------------------------------------------------------- #;  ,     . #;         . #; -------------------------------------------------------------------------------------------------- setProperty(ontology,type,property,value,id,index="true")private #;      ()    set ^Dictionary(ontology,type,id,0,property)=value #;    if index="true" { #;   set ^IndexDictionary(ontology,type,property,value,id)=1 #;      set ^RefsDictionary(id,$name(^|"MONTOLOGY"|IndexDictionary(ontology,type,property,value,id)))=1 } quit 0 #; -------------------------------------------------------------------------------------------------- #;   ,     . #;  (  )   . #; -------------------------------------------------------------------------------------------------- setName(ontology,type,lang,value,id)private #;         set ^NameDictionaryElement(id,lang,0)=value #;   / set ^NameDictionaryElement(id,lang,0,"UpdateTime")=$horolog #;     set ^IndexDictionary(ontology,type,"name",lang,$zconvert(value,"l"),id)=1 #;    set ^RefsDictionary(id,$name(^|"MONTOLOGY"|IndexDictionary(ontology,type,"name",lang,$zconvert(value,"l"),id)))=1 quit 0 #; -------------------------------------------------------------------------------------------------- saveOntoAndTypeID set ^IndexDictionary("ID",t("id"),"ontology")=t("ontology") set ^RefsDictionary(t("id"),$name(^|"MONTOLOGY"|IndexDictionary("ID",t("id"),"ontology")))=1 set ^IndexDictionary("ID",t("id"),"type")=t("type") set ^RefsDictionary(t("id"),$name(^|"MONTOLOGY"|IndexDictionary("ID",t("id"),"type")))=1 quit #; -------------------------------------------------------------------------------------------------- saveElementPath set ^IndexDictionary("ID",t("id"),"path")=t("path") set ^RefsDictionary(t("id"),$name(^|"MONTOLOGY"|IndexDictionary("ID",t("id"),"path")))=1 quit #; --------------------------------------------------------------------------------------------------

अब हम ^ नियम नियम वैश्विक को छोड़कर अपने सभी ग्लोबल्स को हटा देंगे :

 MONTOLOGY>kill ^Dictionary,^IndexDictionary,^NameDictionaryElement,^RefsDictionary MONTOLOGY>

और निर्देशिका के पहले दो तत्व बनाएं:

 MONTOLOGY>kill map MONTOLOGY>set map("in","ontology")="Vehicle",map("in","type")="TransmissionType" MONTOLOGY>set map("in","nameList","ru")=" ,",map("in","nameList","partUri")="akp" MONTOLOGY>write $$create^Dictionary() 1 MONTOLOGY>kill map MONTOLOGY>set map("in","ontology")="Vehicle",map("in","type")="TransmissionType" MONTOLOGY>set map("in","nameList","ru")="",map("in","nameList","partUri")="meh" MONTOLOGY>write $$create^Dictionary() 2 MONTOLOGY>

हम अपने सभी ग्लोबल्स प्रिंट करते हैं:

 MONTOLOGY>zwrite ^Dictionary,^IndexDictionary,^NameDictionaryElement,^RefsDictionary ^Dictionary("MaxID")=2 ^Dictionary("Vehicle","TransmissionType",1,0,"UpdateTime")="62948,47015" ^Dictionary("Vehicle","TransmissionType",1,0,"uid")=888 ^Dictionary("Vehicle","TransmissionType",2,0,"UpdateTime")="62948,47022" ^Dictionary("Vehicle","TransmissionType",2,0,"uid")=888 ^IndexDictionary("ID",1,"ontology")="Vehicle" ^IndexDictionary("ID",1,"path")="^Dictionary(""Vehicle"",""TransmissionType"",1)" ^IndexDictionary("ID",1,"type")="TransmissionType" ^IndexDictionary("ID",2,"ontology")="Vehicle" ^IndexDictionary("ID",2,"path")="^Dictionary(""Vehicle"",""TransmissionType"",2)" ^IndexDictionary("ID",2,"type")="TransmissionType" ^IndexDictionary("Vehicle","TransmissionType","name","partUri","akp",1)=1 ^IndexDictionary("Vehicle","TransmissionType","name","partUri","meh",2)=1 ^IndexDictionary("Vehicle","TransmissionType","name","ru","",1)=1 ^IndexDictionary("Vehicle","TransmissionType","name","ru","",2)=1 ^IndexDictionary("Vehicle","TransmissionType","uid",888,1)=1 ^IndexDictionary("Vehicle","TransmissionType","uid",888,2)=1 ^NameDictionaryElement(1,"partUri",0)="akp" ^NameDictionaryElement(1,"partUri",0,"UpdateTime")="62948,47015" ^NameDictionaryElement(1,"ru",0)="" ^NameDictionaryElement(1,"ru",0,"UpdateTime")="62948,47015" ^NameDictionaryElement(2,"partUri",0)="meh" ^NameDictionaryElement(2,"partUri",0,"UpdateTime")="62948,47022" ^NameDictionaryElement(2,"ru",0)="" ^NameDictionaryElement(2,"ru",0,"UpdateTime")="62948,47022" ^RefsDictionary(1,"^|""MONTOLOGY""|IndexDictionary(""ID"",1,""ontology"")")=1 ^RefsDictionary(1,"^|""MONTOLOGY""|IndexDictionary(""ID"",1,""path"")")=1 ^RefsDictionary(1,"^|""MONTOLOGY""|IndexDictionary(""ID"",1,""type"")")=1 ^RefsDictionary(1,"^|""MONTOLOGY""|IndexDictionary(""Vehicle"",""TransmissionType"",""name"",""partUri"",""akp"",1)")=1 ^RefsDictionary(1,"^|""MONTOLOGY""|IndexDictionary(""Vehicle"",""TransmissionType"",""name"",""ru"","""",1)")=1 ^RefsDictionary(1,"^|""MONTOLOGY""|IndexDictionary(""Vehicle"",""TransmissionType"",""uid"",888,1)")=1 ^RefsDictionary(2,"^|""MONTOLOGY""|IndexDictionary(""ID"",2,""ontology"")")=1 ^RefsDictionary(2,"^|""MONTOLOGY""|IndexDictionary(""ID"",2,""path"")")=1 ^RefsDictionary(2,"^|""MONTOLOGY""|IndexDictionary(""ID"",2,""type"")")=1 ^RefsDictionary(2,"^|""MONTOLOGY""|IndexDictionary(""Vehicle"",""TransmissionType"",""name"",""partUri"",""meh"",2)")=1 ^RefsDictionary(2,"^|""MONTOLOGY""|IndexDictionary(""Vehicle"",""TransmissionType"",""name"",""ru"","""",2)")=1 ^RefsDictionary(2,"^|""MONTOLOGY""|IndexDictionary(""Vehicle"",""TransmissionType"",""uid"",888,2)")=1

जैसा कि आप देख सकते हैं, ये ग्लोबल्स लेख की शुरुआत में दिखाए गए से भिन्न होते हैं, केवल "अपडेट टाइम" के साथ - मैंने आज इन कार्यों को किया - इसलिए तारीख वर्तमान है। एक नई शाखा ^ अनुक्रमणिका ("आईडी") भी दिखाई दी है, और इसे वैश्विक ^ RefsDictionary में backlinks । में ^ डिक्शनरी ( «MaxID») संदर्भ उपतंत्र में हमारी पहचान का अधिकतम तत्व रखा। डिक्शनरी

प्रोग्राम कोड का उपयोग मेरी कार्यशील परियोजना में किया जाता है, हालांकि, स्पष्टता और सरलीकरण के लिए, मैंने कुछ निर्माणों को याद किया और कमांड के पूर्ण नामों का उपयोग किया। शायद त्रुटियों में कहीं कमी है - अगर कोई उन्हें ढूंढता है - टिप्पणियों में लिखें।

अगले लेख में मैं नेस्टेड संरचनाओं के बारे में बात करूंगा। मैं इसे और अधिक कॉम्पैक्ट बनाने की कोशिश करूंगा।

आपका ध्यान देने के लिए धन्यवाद।

मुझे सवालों, टिप्पणियों और सुझावों पर खुशी होगी।

डीबी। संदर्भ पुस्तकें। ग्लोबल्स 3 पर लाइव उदाहरण

वैश्विक निर्देशिका नियम

बनाएं

चेक

setProperty

setName

More articles: