CachéDBMSで1次関数の類似物を探しています

この投稿は、 Caché宣言的開発の記事に加えて書かれています 。

[2, 3, 5, 7, 11, 13, 17].forEach(function(i) { console.log(i); });
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

COSを使用してCachéでこれを行う方法

カットの下で、特定のトピックに関するいくつかの演習。



Cachéに組み込まれているサーバー言語の1つであるCOSが、同じ簡潔で明確かつ柔軟なコードをどのように実現できるかを確認するために、独自のtest.ForEachクラスはリストコレクションを操作するために開発されました。



クラスコードは、COS機能の一部を使用しました。

• Args ... （任意の数の引数をメソッド/プロシージャ/プログラムに渡す）;
• XECUTEまたは$ XECUTE（任意のCOSコマンドの実行）;
• $ COMPILE （コンパイル/コード構文チェック）;
• $ CLASSMETHOD （任意の数の引数を渡して任意のクラスメソッドを呼び出す）;
• $ METHOD （任意の数の引数を渡してクラスインスタンスの任意のメソッドを呼び出す）;
• 組み込みクラスのライブラリ 。

注意！ 以下の例はすべて、 未定義 = 2であると仮定しています。



このモードは端末で設定できます。

 > set old=$system.Process.Undefined(2)
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

テストを実行し、それらを元の場所に戻すことを忘れないでください

 > do $system.Process.Undefined(old)
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

行こう！

ForEachオブジェクトの初期化

初期化はtest.ForEach。％New（val、sep）メソッドを使用して実行されます

最初のパラメーターvalは、リテラルのコレクション（リストまたはオブジェクトのコレクション）を取ります。

2番目のsepパラメーターは、リテラルコレクションの区切り文字です。



1.リテラルのコレクションの初期化

 set tmp=##class(test.ForEach).%New("2,3,5")  set tmp=##class(test.ForEach).%New($listbuild(2,3,5))
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

2.任意のセパレーターを介したリテラルのコレクションの初期化

たとえば、セパレーター「;」を介して

 set tmp=##class(test.ForEach).%New("2;zxc;5;asd,ert",";")  set tmp=##class(test.ForEach).%New($listbuild(2,"zxc",5,"asd,ert"))
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

3.オブジェクトのリストの初期化

 set list=##class(%ListOfObjects).%New() for i="f1","f2","f3",7 do list.Insert(##class(test.myclass).%New(i)) set tmp=##class(test.ForEach).%New(list)
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

注意！ ％Newメソッドのtest.ForEachクラスは、 ％Collection.AbstractListから継承されたコレクションを必要とします

使用例

test.myclassクラスは、コレクション内の各要素に対して呼び出すいくつかのメソッドを実装します。

たとえば、Dump-要素と渡されたパラメーターに関する情報を表示します。

Sum-引数を合計し、結果を表示します。



コレクションの例

コレクションを初期化します。

 set tmp=##class(test.ForEach).%New("2,3,5")
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

ターミナルで実行します。

 >do tmp.Do("test.myclass:Dump")  = 2,   = "",   = ""  = 3,   = "",   = ""  = 5,   = "",   = "" >set r="result" do tmp.Do("test.myclass:Dump",.r,"p1","p2")  = 2,   = "result",   = "p1,p2"  = 3,   = "result",   = "p1,p2"  = 5,   = "result",   = "p1,p2"
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

オブジェクトのコレクションの使用例



初期化：

 set list=##class(%ListOfObjects).%New() for i="f1","f2","f3" do list.Insert(##class(test.myclass).%New(i)) set tmp=##class(test.ForEach).%New(list)
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

ターミナルをチェックインします。

 >do tmp.Do("test.myclass:Dump")  = "f1",   = "",   = ""  = "f2",   = "",   = ""  = "f3",   = "",   = "" >do tmp.Do("PrintLn") "f1" "f2" "f3" >do tmp.Do("PrintLn",," = ")  = "f1"  = "f2"  = "f3" >kill r do tmp.Do("Concat",.r,"**") write r **f1**f2**f3 >kill r do $system.OBJ.DisplayError(tmp.Do("Concat",.r,"f3"))  #5001:    : f3 >do $system.OBJ.DisplayError(tmp.Do("PrintLn1"))  #5654:  'test.myclass:PrintLn1'   >do $system.OBJ.DisplayError(tmp.Do("Sum",.r))  #5001:  Sum      test.myclass >do tmp.Do("SetField",,"blablabla"), tmp.Do("PrintLn",," = ")  = "blablabla"  = "blablabla"  = "blablabla" >do tmp.Do($listbuild("do el.PrintLn(.args)")) "blablabla" "blablabla" "blablabla" >do tmp.Do($listbuild("write ""field="",el.field,!")) field=blablabla field=blablabla field=blablabla
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

配列、グローバル、テーブル、ストリームなど、他のタイプのコレクションは無視されました。 しかし、今では「仕組み」を知っています...



クラスと例のソース。



免責事項 ： この記事は、匿名のままにしたい著者の許可を得て公開されました。



ご清聴ありがとうございました！