@cyklang/cli 0.1.2 → 0.2.0

package/test/t01.xml

@@ -0,0 +1,185 @@
+<?xml-model href="cyklang.xsd" ?>
+<module>
+
+    <type name="prestation">
+        <number name="id"/>
+        <string name="libelle"/>
+    </type>
+    <type name="dossier">
+        <number name="id" />
+        <string name="libelle" />
+        <object type="prestation" name="prestation" />
+    </type>
+    <type name="dossier_remorquage" base="dossier">
+        <string name="lieu" />
+    </type>
+    
+    <function name="add" returns="c: number">
+        <number name="a" />
+        <number name="b"/>
+        <block>
+            <print>"*** Function add BEGIN" + a</print>
+            <let name="c">a + b</let>
+            <print>"**** Function add output c =" + c</print>
+        </block>
+    </function>
+    <function name="fact" returns="result: number">
+        <number name="N"/>
+        <block>
+            <if>
+                <condition><![CDATA[ N <= 0]]></condition>
+                <then>
+                    <let name="result">1</let>
+                </then>
+                <else>
+                    <number name="fact1">1</number>
+                    <call function="fact" returns="fact1">
+                        <number name="N">N - 1</number>
+                    </call>
+                    <let name="result">N * fact1</let>
+                </else>
+            </if>
+        </block>
+    </function>
+    <object type="dossier" name="dos1">
+        <number name="id">1</number>
+        <string name="libelle">"Dossier DUPONT"</string>
+    </object>
+    <!-- <let name="dos1.id">1</let>
+        <let name="dos1.libelle">"DUPONT"</let> -->
+    <print>"******* Mon nom est " + dos1.libelle + " id " + dos1.id</print>
+    <object type="dossier_remorquage" name="dos2">
+        <number name="id">2</number>
+    </object>
+    <let name="dos2.libelle">"DURAND"</let>
+    <let name="dos2.lieu">"Saint-Denis"</let>
+    <print>"Dossier remorquage : " + dos2.libelle + " lieu " + dos2.lieu</print>
+    <!-- <let name="dos1.lieu">"toto"</let> -->
+    <if>
+        <condition><![CDATA[ dos1.id == 2 ]]></condition>
+        <then>
+            <print>"then de dos1.id == 1"</print>
+        </then>
+        <condition>dos2.libelle == "DURAND"</condition>
+        <then>
+            <print>"then dos2.libelle == DURAND"</print>
+        </then>
+        <else>
+            <print>"CASE else"</print>
+        </else>
+    </if>
+    <block>
+        <print>"Nested block dos1.id " + dos1.id </print>
+    </block>
+    <number name="result"/>
+    <call function="add" returns="result">
+        <number name="a">150</number>
+        <number name="b">300</number>
+    </call>
+    <print>"Result 150 + 300 : " + result</print>
+    <let name="result">add(1000,2000)</let>
+    <print>"Result 1000 + 2000 : " + result</print>
+    <number name="N"> 4 </number>
+
+    <print>"Before fact of " + N</print>
+    <call function="fact" returns="result">
+        <number name="N">N</number>
+    </call>
+    <print>"factorielle de " + N + " = " + result</print>
+    <print>"factorielle de 5 : " + fact(5)</print>
+    <object type="prestation" name="pst1">
+        <number name="id">100</number>
+        <string name="libelle">"Prestation 1"</string>
+    </object>
+    <object type="prestation" name="pst2">
+    </object>
+
+    <print>"PST1 id="+pst1.id +" libelle="+pst1.libelle</print>
+    <let name="pst2">pst1</let>
+    <let name="pst2.libelle">"Prestation 2"</let>
+    <print>"PST2 id="+pst2.id +" libelle="+pst2.libelle</print>
+    <print>"PST1 id="+pst1.id +" libelle="+pst1.libelle</print>
+    <let name="dos1.prestation">pst1</let>
+    <print>"dos1.prestation.libelle = "+dos1.prestation.libelle</print>
+
+    <object name="numbers">
+        <number>150</number>
+        <number>50</number>
+    </object>
+    <call object="numbers" method="push">
+        <number>10</number>
+    </call>
+    <number name="total">0</number>
+    <call object="numbers" method="foreach">
+        <function>
+            <number name="n"/>
+            <block>
+                <print>"sum " + n</print>
+                <let name="total">total + n</let>
+            </block>
+        </function>
+    </call>
+    <print>"sum = "+total</print>
+    <object name="double" />
+    <call object="numbers" method="foreach">
+        <function>
+            <number name="n"/>
+            <block>
+                <call object="double" method="push">
+                    <number>2*n</number>
+                </call>
+            </block>
+        </function>
+    </call>
+    <let name="total">0</let>
+    <print>"dump double[]"</print>
+    <call object="double" method="foreach">
+        <function>
+            <number name="n"/>
+            <block>
+                <print>"double[] element : " + n</print>
+                <let name="total">total + n</let>
+            </block>
+        </function>
+    </call>
+    <print>"sum = "+total</print>
+    <!--
+        <array name="tabnum" type="number">
+            <number>150</number>
+            <number>50</number>
+        </array>
+        
+        <foreach array="tabnum" element="num">
+            <print>num</print>
+            <let name="total">total + element</let>
+        </foreach>
+        <print>"total du tableau = "+total</print> -->
+
+    <object type="dossier" name="dos3">
+        <number name="id">300</number>
+        <string name="libelle">"dossier 300"</string>
+    </object>
+
+    <print>"dos3 " + dos3.id + " " + dos3.libelle</print>
+
+    <string name="xml" literal=""><![CDATA[ 
+        <number name="id">1000</number>
+        <string name="libelle">"libellé dossier"</string>
+        ]]>
+    </string>
+    <object type="dossier" name="dos_object">
+        object(xml, "dossier")
+    </object>
+    <print>string(dos_object)</print>
+
+    <print>"Vidage de l'object pst1 :"</print>
+    <call object="pst1" method="foreach">
+        <function>
+            <string name="varvalue"/>
+            <string name="varname"/>
+            <block>
+                <print>"name "+varname+ ", value "+varvalue</print>
+            </block>
+        </function>
+    </call>
+</module>

package/test/t02.output

@@ -0,0 +1,10 @@
+dossier 3 Dossier 3
+*** Function add BEGIN 100
+**** Function add output c = 300
+printed by function before of resume dos1
+RESUME OF dos1 : label Label dos1, Dossier ID 1 Libellé Dossier 1 qty 110
+printed by function before of resume dos 2
+RESUME OF dos2 : label Label dos2, Dossier ID 2 Libellé Dossier 2 qty 200
+dos id 1, libelle Dossier 1, qty 110
+dos id 2, libelle Dossier 2, qty 200
+dos id 3, libelle Dossier 3, qty 330

package/test/t02.xml

@@ -0,0 +1,88 @@
+<?xml-model href="cyklang.xsd" ?>
+<module>
+    <type name="dossier">
+        <number name="id" />
+        <string name="libelle" />
+        <number name="qty"/>
+        <method name="resume" returns="result:string">
+            <string name="label">"Default Label"</string>
+            <function name="before"/>
+            <block>
+                <call function="before" />
+                <let name="result">"label "+ label + ", Dossier ID "+this.id+" Libellé "+this.libelle+" qty "+this.qty</let>
+            </block>
+        </method>
+    </type>
+
+    <object type="dossier" name="dos1">
+        <number name="id">1</number>
+        <string name="libelle">"Dossier 1"</string>
+        <number name="qty"> 110 </number>
+    </object>
+    <object type="dossier" name="dos2">
+        <number name="id">2</number>
+        <string name="libelle">"Dossier 2"</string>
+        <number name="qty">200</number>
+    </object>
+    <object type="dossier" name="dos3">
+        <number name="id">3</number>
+        <string name="libelle">"Dossier 3"</string>
+        <number name="qty"> 330 </number>
+    </object>
+
+    <print>"dossier 3 "+dos3.libelle</print>
+
+    <function name="add" returns="c: number">
+        <number name="a" />
+        <number name="b"/>
+        <block>
+            <print>"*** Function add BEGIN " + a</print>
+            <set name="c">a + b</set>
+            <print>"**** Function add output c = " + c</print>
+        </block>
+    </function>
+
+    <number name='addition'></number>
+    <call function='add' returns="result">
+        <number name="a">100</number>
+        <number name='b'>200</number>
+    </call>
+
+    <string name="resume"/>
+    <call object="dos1" method="resume" returns="resume">
+        <string name="label">"Label dos1"</string>
+        <function name="before">
+            <block>
+                <print>"printed by function before of resume dos1"</print>
+            </block>
+        </function>
+    </call>
+    <print>"RESUME OF dos1 : "+resume</print>
+    <call object="dos2" method="resume" returns="resume">
+        <string name="label">"Label dos2"</string>
+        <function name="before">
+            <block>
+                <print>"printed by function before of resume dos 2"</print>
+            </block>
+        </function>
+    </call>
+    <print>"RESUME OF dos2 : "+resume</print>
+
+    <call object="dos2" method="push">
+        <string>"this is a comment"</string>
+    </call>
+    <object name="list">
+        <object type="dossier">dos1</object>
+        <object type="dossier">dos2</object>
+        <object type="dossier">dos3</object>
+    </object>
+    <call object="list" method="foreach">
+        <function>
+            <object type="dossier" name="dos"></object>
+            <block>
+                <print>"dos id "+dos.id + ", libelle "+dos.libelle + ", qty "+dos.qty</print>
+            </block>
+        </function>
+    </call>
+
+</module>

package/test/t03.output

@@ -0,0 +1,9 @@
+my car has an autonomy of 666.6666666666667 kms CV584MK
+your car has an autonomy of 476.1904761904762 km DX643ME
+add result = 3000
+add expression = 7000
+mycar autonomy is 666.6666666666667
+yourcar autonomy is 476.1904761904762
+Two cars autonomy result = 1142.857142857143 km
+Two cars autonomy : 1142.857142857143 km
+FINI

package/test/t03.xml

@@ -0,0 +1,74 @@
+<?xml-model href="cyklang.xsd" ?>
+<module>
+    <type name="vehicle">
+        <string name="carplatenumber"/>
+        <method name="getAutonomy" returns="autonomy:number">
+        </method>
+    </type>
+    <type name="oilcar" base="vehicle">
+        <number name="tankcapacity" />
+        <number name="l100"/>
+        <method name="getAutonomy" returns="autonomy:number">
+            <block>
+                <let name="autonomy">100 * (this.tankcapacity / this.l100)</let>
+            </block>
+        </method>
+    </type>
+    <type name="evcar" base="vehicle">
+        <number name="batterycapacity"/>
+        <number name="conspkm"/>
+        <method name="getAutonomy" returns="autonomy:number">
+            <block>
+                <let name="autonomy">this.batterycapacity / this.conspkm</let>
+            </block>
+        </method>
+    </type>
+    <object type="oilcar" name="mycar">
+        <string name="carplatenumber">"CV584MK"</string>
+        <number name="tankcapacity">60</number>
+        <number name="l100">9</number>
+    </object>
+    <object type="evcar" name="yourcar">
+        <string name="carplatenumber">"DX643ME"</string>
+        <number name="batterycapacity">150</number>
+        <number name="conspkm">0.315</number>
+    </object>
+    <number name="mycarautonomy"/>
+    <call object="mycar" method="getAutonomy" returns="mycarautonomy" />
+    <print>"my car has an autonomy of "+ mycarautonomy + " kms "+ mycar.carplatenumber</print>
+    <number name="yourcarautonomy"/>
+    <call object="yourcar" method="getAutonomy" returns="yourcarautonomy"/>
+    <print>"your car has an autonomy of "+ yourcarautonomy + " km "+ yourcar.carplatenumber</print>
+    <function name="add" returns="result:number">
+        <number name="a"/>
+        <number name="b"/>
+        <block>
+            <let name="result">a + b</let>
+        </block>
+    </function>
+    <number name="result"/>
+    <call function="add" returns="result">
+        <number name="a">1000</number>
+        <number name="b">2000</number>
+    </call>
+    <print>"add result = "+result</print>
+    <print>"add expression = "+add(3000,4000)</print>
+    <print>"mycar autonomy is "+ mycar.getAutonomy()</print>
+    <print>"yourcar autonomy is "+yourcar.getAutonomy()</print>
+    <function name="sumvh" returns="result:number">
+        <object type="vehicle" name="vh1" />
+        <object type="vehicle" name="vh2" />
+        <block>
+            <let name="result">vh1.getAutonomy()+vh2.getAutonomy()</let>
+        </block>
+    </function>
+    <call function="sumvh" returns="result">
+        <object type="vehicle" name="vh1">mycar</object>
+        <object type="vehicle" name="vh2">yourcar</object>
+    </call>
+    <print>"Two cars autonomy result = " +result + " km"</print>
+    <print>"Two cars autonomy : " +sumvh(mycar,yourcar) + " km"</print>
+
+
+    <print>"FINI"</print>
+</module>

package/test/t04.output

@@ -0,0 +1,29 @@
+ms = 200
+AVANT
+APRES
+result = 200
+x et y sont positifs
+ms = 100
+AVANT
+APRES
+length('1234') = 4
+length(undefined) = undefined
+counter_next('JANV-010') = JANV-011
+counter_next('March-999') = March-1000
+counter_next('April-909') = April-910
+counter_next('Février') = Février1
+counter_next(undefined) = undefined
+padend('1',3,'0') = 100
+substring('abc',0,1) = a
+substring('abc',0,0) = 
+quote : 'L\'abondance'
+quote undefined : undefined
+quote null : undefined
+<object name="1963-11-04">
+    <string name="date" literal="">1963-11-04</string>
+    <string name="surname" literal="">philippe</string>
+</object>
+philippe
+list.get(10).surname = Surname10
+test OK of varobj == undefined
+varstring == undefined

package/test/t04.xml

@@ -0,0 +1,116 @@
+<?xml-model href="cyklang.xsd" ?>
+<module>
+  <function name="wait" returns="result: number">
+    <number name="ms">100</number>
+    <block>
+      <print>"ms = "+ms</print>
+      <print> "AVANT" </print>
+      <sleep> ms </sleep>
+      <print> "APRES" </print>
+      <let name="result">ms</let>
+    </block>
+  </function>
+  <number name="result"></number>
+  <let name="result">wait(200)</let>
+  <print>"result = " + result </print>
+  <number name="x">10</number>
+  <number name="y">20</number>
+  <if>
+    <condition><![CDATA[ x > 0  && y > 0]]></condition>
+    <then>
+      <print> "x et y sont positifs" </print>
+    </then>
+  </if>
+  <call function="wait">
+  </call>
+
+  <!--
+    function counter_next
+  -->
+
+  <function name="counter_next" returns="result: string">
+    <string name="counter"/>
+    <block>
+      <if>
+        <condition>counter == undefined</condition>
+        <then>
+          <break/>
+        </then>
+      </if>
+      <number name="prefix_end">length(counter)</number>
+      <while>
+        <condition><![CDATA[ prefix_end > 0 && substring(counter,prefix_end - 1,prefix_end) >= '0' && substring(counter,prefix_end - 1,prefix_end) <= '9' ]]></condition>
+        <then>
+          <set name="prefix_end">prefix_end - 1</set>
+        </then>
+      </while>
+      <number name="current">0</number>
+      <if>
+        <condition><![CDATA[ prefix_end < length(counter) ]]></condition>
+        <then>
+          <set name="current">number(substring(counter,prefix_end))</set>
+        </then>
+      </if>
+      <set name="current">current + 1</set>
+      <set name="result">substring(counter,0,prefix_end) + padstart(string(current),length(counter)-prefix_end,'0')</set>
+    </block>
+  </function>
+
+  <print>"length('1234') = "+length('1234')</print>
+  <print>"length(undefined) = "+length(undefined)</print>
+  <print>"counter_next('JANV-010') = " + counter_next('JANV-010')</print>
+  <print>"counter_next('March-999') = " + counter_next('March-999')</print>
+  <print>"counter_next('April-909') = " + counter_next('April-909')</print>
+  <print>"counter_next('Février') = " + counter_next('Février')</print>
+  <print>"counter_next(undefined) = " + counter_next(undefined)</print>
+  <print>"padend('1',3,'0') = " + padend('1',3,'0')</print>
+  <datetime name="debut">now()</datetime>
+  <!-- <print>number(debut)</print> -->
+  <print>"substring('abc',0,1) = "+substring('abc',0,1)</print>
+  <print>"substring('abc',0,0) = "+substring('abc',0,0)</print>
+  <string name="q" literal="">L'abondance</string>
+  <print>"quote : " + quote(q)</print>
+  <print>"quote undefined : " + quote(undefined)</print>
+  <print>"quote null : " + quote(null)</print>
+
+  <object name="list"/>
+  <call object="list" method="pushnamevariable">
+    <string name="name">"1963-11-04"</string>
+    <object name="variable">
+      <string name="date">"1963-11-04"</string>
+      <string name="surname">"philippe"</string>
+    </object>
+  </call>
+  <print>string(list)</print>
+  <print>list.get("1963-11-04").surname</print>
+  <call object="list" method="push">
+    <object name="10">
+      <string name="date">"10"</string>
+      <string name="surname">"Surname10"</string>
+    </object>
+  </call>
+  <print>"list.get(10).surname = " + list.get(10).surname</print>
+
+  <object name="varobj">undefined</object>
+  <if>
+    <condition>varobj == undefined</condition>
+    <then>
+      <print>"test OK of varobj == undefined"</print>
+    </then>
+    <else>
+      <print>"TEST KO OF VAROBJ AND UNDEFINED"</print>
+    </else>
+  </if>
+
+  <string name="varstring"/>
+  <if>
+    <condition>varstring == undefined</condition>
+    <then>
+      <print>"varstring == undefined"</print>
+    </then>
+    <else>
+      <print>"varstring = " + varstring + ", length(varstring) = " + length(varstring)</print>
+    </else>
+  </if>
+
+</module>

package/test/t05.output

@@ -0,0 +1,18 @@
+ind=1
+ind=2
+ind=3
+ind=4
+ind=5
+ind=1
+ind=2
+ind=3
+ind=4
+ind=5
+ind=1
+ind=2
+ind=4
+ind=5
+ind=1
+ind=2
+ind=4
+ind=5

package/test/t05.xml

@@ -0,0 +1,41 @@
+<?xml-model href="cyklang.xsd" ?>
+<module>
+    <number name='ind'>0</number>
+    <loop>
+        <let name='ind'>ind + 1</let>
+        <break>ind > 5</break>
+        <print>'ind='+ind</print>
+    </loop>
+
+    <let name='ind'>0</let>
+    <loop>
+        <let name='ind'>ind + 1</let>
+        <if>
+            <condition>ind > 5</condition>
+            <then> <break/> </then>
+        </if>
+        <print>'ind='+ind</print>
+    </loop>
+
+    <let name='ind'>0</let>
+    <loop>
+        <let name='ind'>ind + 1</let>
+        <break>ind > 5</break>
+        <continue>ind == 3</continue>
+        <print>'ind='+ind</print>
+    </loop>
+
+    <let name='ind'>0</let>
+    <loop>
+        <let name='ind'>ind + 1</let>
+        <if>
+            <condition>ind > 5</condition>
+            <then> <break/> </then>
+        </if>
+        <if>
+            <condition>ind == 3</condition>
+            <then> <continue/> </then>
+        </if>
+        <print>'ind='+ind</print>
+    </loop>
+</module>

package/test/t06.output

@@ -0,0 +1,4 @@
+DEBUT
+v1 = 1000
+v2 = 2000
+FIN

package/test/t06.xml

@@ -0,0 +1,16 @@
+<?xml-model href="cyklang.xsd" ?>
+<module>
+    <function name="wait" returns="result: number">
+        <number name="ms"/>
+        <block>
+            <sleep>ms</sleep>
+            <let name="result">ms</let>
+        </block>
+    </function>
+    <print>"DEBUT"</print>
+    <number name="v1">wait(1000) </number>
+    <print>"v1 = "+v1</print>
+    <number name="v2">wait(2000)</number>
+    <print>"v2 = "+v2</print>
+    <print>"FIN"</print>
+</module>

package/test/t07.output

@@ -0,0 +1,5 @@
+begin
+ident_form.tip information
+f1.tip information
+form1.tip information
+end