InterSystems Caché में असामान्य प्रोग्रामिंग

/// The extension name, this can be a comma separated list of extensions if this class supports more than one Projection RegisterExtension As %Projection.StudioDocument(DocumentDescription = "CachéJavaScript Routine", DocumentExtension = "cjs", DocumentIcon = 1, DocumentType = "JS");
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

• INT - कैश ऑब्जेक्ट स्क्रिप्ट INT कोड
• मैक - कैश ऑब्जेक्ट स्क्रिप्ट मैक कोड
• INC - कैश ऑब्जेक्ट स्क्रिप्ट मैक्रो में शामिल हैं
• सीएसपी - कैश सर्वर पेज
• सीएसआर - कैश सर्वर नियम
• जेएस - जावास्क्रिप्ट कोड
• सीएसएस - HTML स्टाइल शीट
• XML - XML ​​दस्तावेज़
• एक्सएसएल - एक्सएमएल ट्रांसफॉर्म
• XSD - XML ​​स्कीमा
• एमवीबी - मल्टीवाल्यू बेसिक एमवीबी कोड
• एमवीआई - मल्टीवाल्यू बेसिक मावि कोड

ClassMethod ListExecute (ByRef qHandle के रूप में% बाइनरी, निर्देशिका के रूप में% स्ट्रिंग, फ्लैट के रूप में% बूलियन, सिस्टम% बूलियन के रूप में)% स्थिति के रूप में

{

सेट करेंहैंडल = $ सूची निर्माण ( निर्देशिका , फ्लैट , सिस्टम , "" )

$ $ $ $ ठीक है

}



ClassMethod ListFetch (ByRef qHandle के रूप में% बाइनरी, ByRef Row के रूप में% सूची, ByRef के रूप में% पूर्णांक = 0) के रूप में% स्थिति [स्थान = सूची = सूची]

{

सेट पंक्ति = "" , AtEnd = 0

यदि qHandle = "" AtEnd = 1 सेट $ $ $ $ ठीक है

अगर $ सूची ( qHandle ) '= "" || ( $ सूची ( qHandle , 4) = 1) AtEnd सेट करें = 1 $ $ $ $

सेट AtEnd = 1

सेट rtnName = $ listget ( qHandle , 5)

{के लिए

सेट rtnName = $ ऑर्डर (^ rCJS ( rtnName )) छोड़ें : rtnName = ""

जारी रखें : $ get (^ rCJS ( rtnName , "LANG" )) '= "CJS"

सेट टाइमस्टैम्प = $ zdatetime ( $ get (^ rCJS ( rtnName , 0)), 3)

सेट आकार = + $ मिलता है (^ rCJS ( rtnName , 0, "SIZE" ))

सेट पंक्ति = $ सूची ( rtnName _ ".cjs" , टाइमस्टैम्प , आकार , "" )

सेट AtEnd = 0

$ सूची ( qHandle , 5) = rtnName सेट करें

छोड़ना

}

$ $ $ $ ठीक है

}

/// वापसी 1 यदि दिनचर्या 'नाम' मौजूद है और 0 अगर यह नहीं है।

ClassMethod अस्तित्व (% स्ट्रिंग के नाम)% बूलियन के रूप में

{

सेट rtnName = $ टुकड़ा ( नाम , " , " , 1, $ लंबाई ( नाम , "" ) -1)।

सेट करें rtnNameExt = $ टुकड़ा ( नाम , " , " , $ लंबाई ( नाम , "" ))।

$ डेटा (^ rCJS ( rtnName )) और& ( $ get (^ rCJS ( rtnName , "LANG" )) = $ zconvert ( rtnNameExt , "U" )) से बाहर निकलें

}

///% टाइमस्टैम्प प्रारूप में दिनचर्या 'नाम' की टाइमस्टैम्प लौटें। यह निर्धारित करने के लिए उपयोग किया जाता है कि क्या दिनचर्या है

/// सर्वर पर अपडेट किया गया है और इसलिए स्टूडियो से पुनः लोड करने की आवश्यकता है। तो प्रारूप $ zdatetime होना चाहिए ($ horolog, 3),

/// या "" यदि दिनचर्या मौजूद नहीं है।

ClassMethod TimeStamp (% स्ट्रिंग के नाम)% TimeStamp के रूप में

{

सेट rtnName = $ टुकड़ा ( नाम , " , " , 1, $ लंबाई ( नाम , "" ) -1)।

टाइमस्टैम्प सेट करें = $ zdatetime ( $ get (^ rCJS ( rtnName , 0)), 3)

टाइमस्टैम्प से बाहर निकलें

}

/// स्ट्रीम कोड में नाम में दिनचर्या लोड करें

विधि लोड ()% स्थिति के रूप में

{

सेट स्रोत = .. कोड

स्रोत करो स्पष्ट ()

सेट pCodeGN = $ नाम (^ rCJS (.. शॉर्टनेम , 0))

के लिए pLine = 1: 1: $ get (@ pCodeGN @ (0), 0) {

स्रोत करो WriteLine (@ pCodeGN @ ( pLine ))

}

स्रोत करो रिवाइंड ()

$ $ $ $ ठीक है

}



/// कोड में संचित दिनचर्या को बचाएं

विधि सहेजें ()% स्थिति के रूप में

{

सेट pCodeGN = $ नाम (^ rCJS (.. शॉर्टनेम , 0))

मार @ pCodeGN

@ pCodeGN = $ ztimestamp सेट करें

सेट .. कोड । लाइनटर्मिनेटर = $ चार (13,10)

सेट स्रोत = .. कोड

स्रोत करो रिवाइंड ()

WHILE '( स्रोत । एटएंड ) {

pCodeLine = स्रोत सेट करें । ReadLine ()

सेट @ pCodeGN @ ( $ वेतन वृद्धि (@ pCodeGN @ (0))) = pCodeGine

}

@ pCodeGN @ ( "SIZE" ) = .. कोड सेट करें । आकार

$ $ $ $ ठीक है

}

जब दस्तावेज़ को संकलित किया जाना है /// CompileDocument कहा जाता है

/// इसे पहले ही इस बिंदु पर स्रोत नियंत्रण हुक कहा जाता है

%% के रूप में विधि CompileDocument (ByRef q%% स्ट्रिंग के रूप में)

{

लिखें !, “संकलन: ile , .. नाम

संकलन संकलित करें = ## वर्ग ( % दिनचर्या )। % ओपनआईड (.. शॉर्टनेम _ ".INT" )

संकलित कोड सेट करें । उत्पन्न = १

संकलित करें । स्पष्ट ()



संकलित करें । लिटललाइन ( "," _ $ zdatetime ( $ ztimestamp , 3))

do .. GenerateIntCode ( संकलित कोड )



संकलित करें । % बचाओ ()

संकलित करें । संकलन ()

$ $ $ $ ठीक है

}



विधि GenerateIntCode (एकोड) [आंतरिक]

{

सेट varMatcher = ## वर्ग ( % Regex.Matcher )। % नया ( "[\ t] * (var [\ t] +)? (\ W [\ w [d \ d] *)] [\ t] * (\ = [\ t] * (*। *)?"?

PrintlnMatcher = ## वर्ग ( % Regex.Matcher ) सेट करें। % नया ( "[\ t] * (?: कंसोल \ .लॉग। प्रिंट्लन) \ ((^ ^ \)] +) \)?" )

readMatcher = ## वर्ग ( % Regex.Matcher ) सेट करें। % नया ( "[\ t] * पढ़ा \ ((। *) \ _, ((। *) \)" )



सेट स्रोत = .. कोड

स्रोत करो रिवाइंड ()

जबकि ' स्रोत कम से कम {

सेट tLine = स्रोत । ReadLine ()



सेट pos = 1

जबकि $ का पता लगाएं ( tLine , "(([^ \ '\" "\; \ r \ n] | [\' \" "] [^ \ '\" "] * [\" \ "" "] +) " , पीओएस , पॉस , कोड ) {

सेट tPos = 1

अगर $ zstrip ( tCode , "* W" ) = "" {{

एककोड करें । लिक्लाइन ( tCode )

जारी रखने के लिए

}

अगर varMatcher । मैच ( tCode ) {

varName = varMatcher सेट करें । समूह (2)

अगर varMatcher । समूह (1) '= "" {

एककोड करें । राइटलाइन ( $ char (9) _ "नया N _ varName )

}

अगर varMatcher । समूह (3) '= "» {

expr = varMatcher सेट करें । समूह (4)

expr = .. अभिव्यक्ति ( expr ) सेट करें

do : expr '= "" aCode । राइटलाइन ( $ char (9) _ "सेट N _ varName _ " = ( _ expr )

}

जारी रखने के लिए



} अन्य मैच ( tCode ) {

expr = printlnMatcher सेट करें । समूह (1)

expr = .. अभिव्यक्ति ( expr ) सेट करें

do : expr '= "" aCode । WriteLine ( $ char (9) _ "लिखें r _ expr _ "; " ))



} अन्यो पढ़ेंमेकचर । मैच ( tCode ) {

expr = readMatcher सेट करें । समूह (1)

expr = .. अभिव्यक्ति ( expr ) सेट करें

सेट var = readMatcher । समूह (2)

do : expr '= "" aCode । राइटलाइन ( $ char (9) _ "पढ़ें ine _ expr _ ", " _ var _ ", ";" )

}

}

}

}



ClassMethod अभिव्यक्ति (tExpr)% स्ट्रिंग के रूप में

{

सेट मैचर्स ( $ वेतन वृद्धि ( मैचर्स ), "मैचर" ) = "(? sm) ([^ \ '\" "] *) \ + [\ t] * (?: \" "([^ \" "] *) \ "" | \ '([^ \'] *) \ ') ([^ \ "\" "]") "

सेट मैचर्स ( मिलानकर्ता , "प्रतिस्थापन" ) = "$ 1 _" "$ 2 $ 3" ​​"$ 4"



सेट मैचर्स ( $ वेतन वृद्धि ( मैचर्स ), "मैचर" ) = "(? sm) ([^ \ '\" "] *)?: (?) \" ([^ \ ""] *) \ "" | " '([^ \'] *) \ ') [\ t] * \ + ([^ \' \ "" "]") "

सेट मैचर्स ( मिलानकर्ता , "प्रतिस्थापन" ) = "$ 1" "$ 2 $ 3" ​​"_ $ 4"



सेट मैचर्स ( $ वेतन वृद्धि ( मैचर्स ), "मैचर" ) = "(? sm) ([^ \ '\" "] *)?: (?) \" ([^ \ ""] *) \ "" | " '([^ \'] *) \ ') ([^ \' \ ""] *) "

सेट मैचर्स ( मिलानकर्ता , "प्रतिस्थापन" ) = "$ 1" "$ 2 $ 3" ​​"$ 4"



tResult = tExpr सेट करें

मैं = 1: 1: मैचर्स के लिए {

सेट मिलानकर्ता = ## वर्ग ( % Regex.Matcher )। % नया ( मैचर्स ( i , "मैचर" ))

सेट रिप्लेसमेंट = $ गेट ( मैचर्स ( i , "रिप्लेसमेंट" ))



मिलान करने वाला । पाठ = tResult



सेट tResult = matcher । प्रतिस्थापन ( प्रतिस्थापन )

}



tResult को छोड़ दें

}

/// अन्य दस्तावेज़ प्रकार जो इससे संबंधित हैं, लौटाएँ।

/// एक नाम दिया गया है और आप उससे संबंधित अन्य दस्तावेजों की अल्पविराम से अलग की गई सूची लौटाते हैं

/// या "" यदि यह किसी भी चीज़ से संबंधित नहीं है। ध्यान दें कि यह एक अन्य प्रकार का एक दस्तावेज पारित किया जा सकता है

/// उदाहरण के लिए यदि आपका 'test.XXX' दस्तावेज़ एक 'test.INT' रूटीन बनाता है तो इसे भी कहा जाएगा

/// 'test.INT' के साथ ताकि आप चक्र पूरा करने के लिए 'test.XXX' वापस कर सकें।

ClassMethod GetOther (% स्ट्रिंग के नाम)% स्ट्रिंग के रूप में

{

सेट rtnName = $ टुकड़ा ( नाम , " , " , 1, $ लंबाई ( नाम , "" )))) ".INT"

छोड़ो : ## वर्ग ( % दिनचर्या )। % ExistId ( rtnName ) rtnName

"" छोड़ो

}

/// रूटीन को हटाएं 'नाम' जिसमें रूटीन एक्सटेंशन शामिल है

ClassMethod Delete (% स्ट्रिंग के रूप में नाम)% की स्थिति

{

सेट rtnName = $ टुकड़ा ( नाम , " , " , 1, $ लंबाई ( नाम , "" ) -1)।

किल ^ rCJS ( rtnName )

$ $ $ $ ठीक है

}



/// वर्तमान दिनचर्या को लॉक करें, डिफ़ॉल्ट विधि सिर्फ रूटीन के नाम के साथ ^ आरसीजेएस ग्लोबल को अनलॉक करती है।

/// यदि यह विफल रहता है तो त्रुटि की स्थिति कोड लौटाएं, अन्य $ $ $ वापस करें ठीक है

विधि लॉक (% स्ट्रिंग के रूप में झंडे)% स्थिति के रूप में

{

लॉक + ^ rCJS (.. नाम ): 0 एलीस क्विट $ $ $ एरर ( $ $ $ केनोटॉक रॉटाइन , .. नाम )

$ $ $ $ ठीक है

}



/// वर्तमान दिनचर्या को अनलॉक करें, डिफ़ॉल्ट विधि सिर्फ दिनचर्या के नाम के साथ ^ rCJS ग्लोबल को अनलॉक करती है

विधि अनलॉक (% स्ट्रिंग के रूप में झंडे)% स्थिति के रूप में

{

ताला - ^ rCJS (.. नाम )

$ $ $ $ ठीक है

}

  /// स्टूडियो टेम्पलेट: <br>
 /// एक नया कैश जावास्क्रिप्ट रूटीन बनाएँ।
 कक्षा% CJS.RoutineWizard% ZEN.Template.studioTemplate [StorageStrategy = "]] का विस्तार करता है
 {

 पैरामीटर TEMPLATENAME = "कैश जावास्क्रिप्ट";

 पैरामीटर TEMPLATETITLE = "कैश जावास्क्रिप्ट";

 पैरामीटर TEMPLATEDESCRIPTION = "एक नया कैश जावास्क्रिप्ट रूटीन बनाएं।"

 पैरामीटर TEMPLATETYPE = "CJS";

 /// किस प्रकार का टेम्पलेट।
 पैरामीटर TEMPLATEMODE = "नया";

 /// अगर यह एक TEMPLATEMODE = "नया" है तो यह टैब का नाम है
 /// स्टूडियो में इस टेम्प्लेट को भेजा जाता है।  अगर कोई भी निर्दिष्ट नहीं है
 /// यह 'कस्टम' टैब पर प्रदर्शित होता है।
 STRING के रूप में पैरामीटर TEMPLATEGROUP;

 /// यह XML ब्लॉक इस स्टूडियो टेम्पलेट के बॉडी पेन की सामग्री को परिभाषित करता है।
 XData टेम्पलेटबॉडी [XMLNamespace = "http://www.intersystems.com/zen"]
 {
 <pane id = "body">
 <vgroup labelPosition = "बाएँ" सेलशेल = "पैडिंग: 2 पीएक्स; पैडिंग-लेफ्ट: 5 पीएक्स; पैडिंग-राइट: 5 पीएक्स;">
 <html id = "desc" OnDrawContent = "% GetDescHTML" />
 <पाठ लेबल = "नियमित नाम:" 
	 id = "ctrlRoutineName"
	 नाम = "नियमित नाम"
	 आकार = "40"
	 आवश्यक = "सत्य"
	 लेबलक्लास = "zenRequired"
	 शीर्षक = "कैश जावास्क्रिप्ट रूटीन नाम" 
	 onchange = "zenPage.updateState ();"
 />
 </ Vgroup>
 </ फलक>
 }

 /// विवरण घटक की सामग्री प्रदान करें।
 विधि% GetDescHTML (% स्ट्रिंग के रूप में देखें)% स्थिति के रूप में
 {
	 $ $ $ $ ठीक है
 }

 /// इसे तब कहा जाता है जब टेम्पलेट पहली बार प्रदर्शित होता है;
 /// यह फोकस आदि सेट करने का मौका प्रदान करता है।
 ClientMethod onstartHandler () [भाषा = जावास्क्रिप्ट]
 {
	 // नाम पर ध्यान दें
	 var ctrl = zenPage.getComponentById ('ctrlRoutineName');
	 अगर (ctrl) {
		 ctrl.focus ();
		 ctrl.select ();
	 }
 }

 /// निर्माण में निर्मित टेम्पलेट के लिए मान्यता हैंडलर।
 क्लाइंटमेथोड फॉर्मवैलिडेशनहैंडलर () [भाषा = जावास्क्रिप्ट]
 {
	 var rtnName = zenPage.getComponentById ('ctrlRoutineame')। getValue ();

	 अगर ('' == rtnName) {
		 झूठे लौटना;
	 }
	
	 सच लौटना;
 }

 /// टेम्पलेट पूरा होने पर इस विधि को कहा जाता है।  कोई
 /// प्रिंसिपल डिवाइस का आउटपुट स्टूडियो में वापस आ जाता है।
 विधि% OnTemplateAction ()% स्थिति के रूप में
 {
	 सेट tRoutineName = ..% GetValueByName ("रूटीन नेम")
	
	 % सत्र सेट करें। डेटा ("टेम्पलेट", "नाम") = tRoutineName _ "। CJS"
	 "//" _tRoutineName, लिखें!
	 $ $ $ $ ठीक है
 }

 }

 // hello console.log('Hello World!'); var name=''; read('What is your name? ', name); println('Hello ' + name + '!');
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

; 2014-05-18 20:06:36 पर उत्पन्न

"हैलो वर्ल्ड!" लिखें ,

नया नाम

सेट नाम = ""

पढ़ें “आपका नाम क्या है? ,, नाम,!

"हैलो“ _ नाम _ "!" लिखें !

एक अलग कोड के साथ स्क्रीनशॉट

  USER> d ^ हैलो
 नमस्ते विश्व!
 तुम्हारा नाम क्या है?  daimor
 नमस्कार डेमोर!