File: forloop.m4

package info (click to toggle)
m4 1.4-8
  • links: PTS
  • area: main
  • in suites: hamm
  • size: 1,588 kB
  • ctags: 1,115
  • sloc: ansic: 10,411; makefile: 378; sh: 328; lisp: 243
file content (8 lines) | stat: -rw-r--r-- 247 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
 
divert(-1)
# forloop(i, from, to, stmt)

define(`forloop', `pushdef(`$1', `$2')_forloop(`$1', `$2', `$3', `$4')popdef(`$1')')
define(`_forloop',
       `$4`'ifelse($1, `$3', ,
			 `define(`$1', incr($1))_forloop(`$1', `$2', `$3', `$4')')')
divert