File: forloop.m4

package info (click to toggle)
m4 1.4-10
  • links: PTS
  • area: main
  • in suites: potato
  • size: 1,592 kB
  • ctags: 1,114
  • sloc: ansic: 10,411; makefile: 395; sh: 330; 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