SampleCode/PIONE/Basic11/LoopTouch.pione

   1 param $max := 64
   2
   3 Rule Main
   4         output '*.txt'
   5 Flow
   6         rule LoopSystem {val: 0}
   7 End
   8
   9 Rule LoopSystem
  10         output '*.txt'
  11         param $val
  12 Flow
  13         rule Test {val: $val}
  14         if $val + 1 <= $max
  15                 rule LoopSystem {val: $val + 1}
  16         end
  17 End
  18
  19 Rule Test
  20         output '{$val}.txt'
  21         param $val
  22 Action
  23         touch {$O[1]}
  24 End