[unix-history] / usr.bin / m4 / TEST / string.m4


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))')')
Commit	Line	Data
15637ed4 RG	1
	2	define(string,`integer $1(len(substr($2,1)))
	3	str($1,substr($2,1),0)
	4	data $1(len(substr($2,1)))/EOS/
	5	')
	6
	7	define(str,`ifelse($2,",,data $1(incr($3))/`LET'substr($2,0,1)/
	8	`str($1,substr($2,1),incr($3))')')