home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / GNU / M4V05AS.ZIP / TEST / FORLOOP.M4 < prev    next >
Encoding:
Text File  |  1992-02-19  |  255 b   |  9 lines
  1. divert(-1)
  2. # forloop(i, from, to, stmt)
  3.  
  4. define(`forloop', `pushdef(`$1', `$2')_forloop(`$1', `$2', `$3', `$4')popdef(`$1')')
  5. define(`_forloop',
  6.        `$4`'ifelse($1, `$3', ,
  7.              `define(`$1', incr($1))_forloop(`$1', `$2', `$3', `$4')')')
  8. divert
  9.