xex.xml

   1 <?xml version='1.0'?>
   2 <expr xmlns="http://www.m17n.org/MIM">
   3   <defun fname="factorial">
   4     <args><fixed vname="x"/></args>
   5     <if><lt><varref vname="x"/><integer>2</integer></lt>
   6       <varref vname="x"/>
   7       <mul>
   8         <varref vname="x"/>
   9         <funcall fname="factorial">
  10           <sub vname="x"><integer>1</integer></sub>
  11         </funcall>
  12       </mul>
  13     </if>
  14   </defun>
  15
  16   <defun fname="temp">
  17     <args-unevalled>
  18       <fixed vname="x"/>
  19       <optional vname="y"/>
  20       <rest vname="rest"/>
  21     </args-unevalled>
  22     <eval><varref vname="x"/></eval>
  23   </defun>
  24
  25   <set vname="x"><integer>10</integer></set>
  26   <set vname="str"><string>ABC</string></set>
  27   <append>
  28     <funcall fname="factorial"><varref vname="x"/></funcall>
  29     <ins vname="str"><integer>1</integer><string>123</string></ins>
  30     <del vname="str"><integer>2</integer><integer>4</integer></del>
  31     <cond>
  32       <list><gt><integer>0</integer><integer>1</integer></gt>
  33         <string>1st</string></list>
  34       <list><integer>1</integer>
  35         <string>2nd</string></list>
  36     </cond>
  37     <foreach vname="a">
  38       <list><integer>10</integer><integer>11</integer></list>
  39       <add vname="x"><varref vname="a"/></add>
  40     </foreach>
  41     <varref vname="x"/>
  42     <eval><varref vname="x"/></eval>
  43     <eval>
  44       <eval>
  45         <quote><add><varref vname="x"/><integer>1</integer></add></quote>
  46       </eval>
  47     </eval>
  48   </append>
  49 </expr>