source:
trunk/essentials/sys-devel/m4/examples/forloop.m4
| Last change on this file was 3090, checked in by , 18 years ago | |
|---|---|
| File size: 224 bytes | |
| Line | |
|---|---|
| 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 |
Note:
See TracBrowser
for help on using the repository browser.
