X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=xex.xml;h=ef86e977302f91a0cd780c73fc5f75409fa23f67;hb=2a6d904273f074ce782a4fdcbc42dc1aaa579923;hp=6f24c55349f7571acfd4abb84e9682f696f69520;hpb=3b60cbb4badfce6230a70ca54bfcb9d6ae4f5708;p=m17n%2Fm17n-lib-cs.git

diff --git a/xex.xml b/xex.xml
index 6f24c55..ef86e97 100644
--- a/xex.xml
+++ b/xex.xml
@@ -14,17 +14,33 @@
   </defun>
 
   <defun fname="temp">
-    <args-unevalled>
-      <fixed vname="x"/>
-      <optional vname="y"/>
-      <rest vname="rest"/>
-    </args-unevalled>
-    <eval><varref vname="x"/></eval>
+    <set vname="y"><varref vname="SELECT"/></set>
+    <varref vname="y"/>
+  </defun>
+
+  <defun fname="looptest">
+    <args-unevalled><fixed vname="l"/></args-unevalled>
+    <loop><loop>
+      <foreach vname="term"><varref vname="l"/>
+	<eval><varref vname="term"/></eval>
+      </foreach>
+    </loop></loop>
+    <symbol>looptest-finished</symbol>
   </defun>
 
   <set vname="x"><integer>10</integer></set>
   <set vname="str"><string>ABC</string></set>
   <append>
+    <catch><symbol>tag</symbol>
+      <funcall fname="looptest">
+	<list>
+	  <set vname="i"><integer>0</integer></set>
+	  <throw><symbol>tag</symbol><symbol>returned</symbol></throw>
+	  <add vname="i"><integer>1</integer></add>
+	  <varref vname="i"/>
+	</list>
+      </funcall>
+    </catch>
     <funcall fname="factorial"><varref vname="x"/></funcall>
     <ins vname="str"><integer>1</integer><string>123</string></ins>
     <del vname="str"><integer>2</integer><integer>4</integer></del>
@@ -36,7 +52,7 @@
     </cond>
     <foreach vname="a">
       <list><integer>10</integer><integer>11</integer></list>
-      <add vname="x"><varref vname="a"/></add>
+      <funcall fname="add" vname="x"><varref vname="a"/></funcall>
     </foreach>
     <varref vname="x"/>
     <eval><varref vname="x"/></eval>
@@ -45,5 +61,9 @@
 	<quote><add><varref vname="x"/><integer>1</integer></add></quote>
       </eval>
     </eval>
+    <concat><integer>?a</integer><integer>?b</integer></concat>
+    <quote><add><varref vname="x"/><integer>1</integer></add></quote>
+    <set vname="SELECT"><integer>11</integer></set>
+    <temp/>
   </append>
 </expr>