Caché ObjectScript में एक तर्क के रूप में कोड

InterSystems Caché ObjectScript (COS) भाषा हर साल विकसित हो रही है, इसमें नई कमांड और कार्यक्षमता जोड़ी जाती है। दुर्भाग्य से, इस समय, COS में दिनचर्या प्रथम श्रेणी की वस्तुएं नहीं हैं, अर्थात्, एक दिनचर्या (कार्य, विधि) को एक दिनचर्या के पैरामीटर के रूप में पारित नहीं किया जा सकता है या एक दिनचर्या से वापस नहीं किया जा सकता है।

हालांकि, इन सीमाओं को कम करने के तरीके हैं।

बिल्ली के तहत, उप-कोड के तर्क के रूप में कोड पास करने के कई विकल्पों पर विचार करें।

मान लीजिए कि निम्नलिखित विधियों में से दो हैं:

क्लासमैथ ऑलपर्सनविथ ()
{
सेट rs = ## वर्ग ( % परिणाम )। % नया ()
आर एस एस तैयार करें ( "नमूना से आईडी चुनें। जहां रूट (नाम, 1,1) = 'ए'" )
आर एस एस निष्पादित करें ()
जबकि आर.एस. अगला () {
सेट p = ## वर्ग ( Sample.Person )। % OpenId ( rs । Get ( "ID" ))
सेट पी । कार्यालय = "मास्को"
पी लिखो । नाम , "" , पी । एसएसएन ,!
मार डालो पी
}
rs मार डालो
}
ClassMethod AllCompaniesWithO ()
{
सेट rs = ## वर्ग ( % परिणाम )। % नया ()
आर एस एस तैयार करें ( "नमूना से आईडी चुनें। जहां रूट (नाम, 1,1) = 'ओ'" )
आर एस एस निष्पादित करें ()
जबकि आर.एस. अगला () {
सेट p = ## वर्ग ( Sample.Company )। % OpenId ( rs । Get ( "ID" ))
सेट पी । नाम = "OOO" _ पी । नाम
पी लिखो । नाम ,!
मार डालो पी
}
rs मार डालो
}

गतिशील SQL -% SQL.Statement के नए संस्करण पर स्विच करने के लिए हमें दो स्थानों पर कोड बदलना होगा। अगर हमारे पास% ResultSet का उपयोग दस स्थानों पर किया जाता है, तो दस में बदल जाएगा।

हम इन दो तरीकों को फिर से लिखते हैं।

Sample.Person के एक विशिष्ट उदाहरण को संभालने के लिए एक विधि जोड़ें।

ClassMethod ProcessPerson ( नमूना के रूप में p )
{
सेट पी । कार्यालय = "मास्को"
पी लिखो । नाम , "" , पी । एसएसएन ,!
}

यहां हम ऐसे कमांड के साथ AllPersonsWithA विधि को प्रतिस्थापित करेंगे:

do .. OpenAndProcess ( "नमूना से आईडी का चयन करें। जहां रूट (नाम, 1,1) = 'ए'" , "नमूना.पर्सन" , " प्रोसेसपर्सन " )

यहां, पहला तर्क क्वेरी है, दूसरा उस वर्ग का नाम है जिसके उदाहरणों को संसाधित किया जाएगा, तीसरा वर्ग विधि का नाम है जिसे क्वेरी परिणाम की प्रत्येक पंक्ति के लिए कहा जाना चाहिए।

कंपनियों के लिए, प्रसंस्करण विधि इस तरह दिखाई देगी:

ClassMethod ProcessCompany ( c नमूना के रूप में ।Company )
{
सेट सी । नाम = "OOO" _ c । नाम
लिखना c । नाम ,!
}

हम निम्नलिखित कमांड को कॉल करेंगे:

do .. OpenAndProcess ( "नमूना से आईडी चुनें। जहां रूट (नाम, 1,1) = 'O'" , "Sample.Company" , "ProcessCompany" )

अब, वास्तव में, स्वयं OpenAndProcess विधि:

ClassMethod OpenAndProcess ( क्वेरी % स्ट्रिंग के रूप में , className % स्ट्रिंग , कॉलबैक % स्ट्रिंग के रूप में )
{
सेट rs = ## वर्ग ( % परिणाम )। % नया ()
आर एस एस तैयार ( क्वेरी )
आर एस एस निष्पादित करें ()
जबकि आर.एस. अगला () {
सेट p = $ classmethod ( className , "% OpenId" , rs । Get ( "ID" ))
$ classmethod करना ( $ classname (), कॉलबैक , पी ) ;
मार डालो पी
}
rs मार डालो
}

फ़ंक्शन $ classmethod (वर्ग, विधि, arg1, arg2, ...) क्लास विधि को क्लास क्लास से विधि नाम देता है और तर्क arg1, arg2, आदि को पास करता है।

अब,% ResultSet के साथ काम करने को एक अलग विधि में ले जाया गया है, वहां जो किया जा रहा है वह किसी को भी दिलचस्पी नहीं देता है

जाहिर है, OpenAndProcess मेथड को ठीक किया जा सकता है, ताकि वह करंट से विधि को न बुलाए, लेकिन एक मनमाने वर्ग से और कॉलबैक के लिए मनमाने ढंग से कई मापदंडों को पास करता है।

यदि कॉलबैक के लिए कोड बहुत छोटा है, तो आप $ xecute फ़ंक्शन का उपयोग कर सकते हैं, जो कि अनाम फ़ंक्शन का एक प्रकार का एनालॉग है। इस मामले में OpenAndProcess विधि इस तरह दिखाई देगी:

ClassMethod OpenAndProcess ( क्वेरी % स्ट्रिंग के रूप में , className % स्ट्रिंग , कॉलबैक % स्ट्रिंग के रूप में )
{
सेट rs = ## वर्ग ( % परिणाम )। % नया ()
आर एस एस तैयार ( क्वेरी )
आर एस एस निष्पादित करें ()
जबकि आर.एस. अगला () {
सेट p = $ classmethod ( className , "% OpenId" , rs । Get ( "ID" ))
सेट रेस = $ xecute ( कॉलबैक , पी )
मार डालो पी
}
rs मार डालो
}

और प्रसंस्करण एक वर्ग विधि में संलग्न नहीं होगा, लेकिन एक स्ट्रिंग में।

क्वेरी = "नमूना से आईडी चुनें। जहां रूट (नाम, 1,1) = 'ए'"
do .. OpenAndProcess ( क्वेरी , "Sample.Person" , "(p) s p.Office =" "मास्को" "w p.Name," "", p.SSN, (q 0 " ))

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

USER> s a = "(in) ret इन + b"

USER> s b = 10 w $ xecute ( a , 2)
12

USER> s b = 13 w $ xecute ( a , 2)
15

कोड पास करने के लिए $ xecute का उपयोग करने का नुकसान यह है कि आप एक ही पंक्ति में कुछ कमांड से अधिक नहीं डाल सकते हैं। इसके अलावा, सिंटैक्स की जाँच कोड निष्पादन के दौरान ही की जाएगी। दूसरी ओर, ऐसे तरीकों का उत्पादन करने की आवश्यकता नहीं है जो केवल एक बार उपयोग किए जाएंगे।

प्रलेखन:

• $ क्लासमेथोड
• $ वर्गनाम
• $ xecute