NetBSD/usr.bin/m4/TEST/string.m4

9 lines
204 B
Plaintext
Raw Normal View History

1993-03-21 12:45:37 +03:00
define(string,`integer $1(len(substr($2,1)))
str($1,substr($2,1),0)
data $1(len(substr($2,1)))/EOS/
')
define(str,`ifelse($2,",,data $1(incr($3))/`LET'substr($2,0,1)/
`str($1,substr($2,1),incr($3))')')