Return to m4.test1 CVS log

Up to [Research Unix] / researchv8dc / cmd / m4

researchv8 Dan Cross

define(lgth,`ifelse($1,,0,`incr(lgth(substr($1,1)))')')
define(string,`integer $1(lgth(substr($2,1)))
str($1,substr($2,1),0)
	data $1(lgth(substr($2,1)))/EOS/
')
define(str,`ifelse($2,",,`
	'data $1(incr($3))/`LET'substr($2,0,1)/`str($1,substr($2,1),incr($3))')')

string(xxx,"abc")
string(yyyy,"123456789")

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.