examples/forloop.m4

   1 divert(`-1')
   2 # forloop(var, from, to, stmt) - simple version
   3 define(`forloop', `pushdef(`$1', `$2')_forloop($@)popdef(`$1')')
   4 define(`_forloop',
   5        `$4`'ifelse($1, `$3', `', `define(`$1', incr($1))$0($@)')')
   6 divert`'dnl