CVSROOT: /sources/m4 Module name: m4 Changes by: Eric Blake <ericb> 06/10/19 16:19:20
Index: examples/forloop.m4 =================================================================== RCS file: /sources/m4/m4/examples/forloop.m4,v retrieving revision 1.1.1.2 retrieving revision 1.2 diff -u -b -r1.1.1.2 -r1.2 --- examples/forloop.m4 17 Feb 2000 03:09:47 -0000 1.1.1.2 +++ examples/forloop.m4 19 Oct 2006 16:19:20 -0000 1.2 @@ -1,10 +1,6 @@ -divert(-1) -# forloop(i, from, to, stmt) - -define(`forloop', `pushdef(`$1', `$2')_forloop(`$1', `$2', `$3', `$4')popdef(`$1')') +divert(`-1') +# forloop(var, from, to, stmt) - simple version +define(`forloop', `pushdef(`$1', `$2')_forloop($@)popdef(`$1')') define(`_forloop', - `$4`'ifelse($1, `$3', , - `define(`$1', incr($1))_forloop(`$1', `$2', `$3', `$4')')') -divert -forloop(`x', 1, 10, `2**x = eval(2**x) -') + `$4`'ifelse($1, `$3', `', `define(`$1', incr($1))$0($@)')') +divert`'dnl
