Home | History | Annotate | Line # | Download | only in TEST
string.m4 revision 1.2 
      1  1.1  cgd 
      2  1.1  cgd define(string,`integer $1(len(substr($2,1)))
      3  1.1  cgd str($1,substr($2,1),0)
      4  1.1  cgd data $1(len(substr($2,1)))/EOS/
      5  1.1  cgd ')
      6  1.1  cgd 
      7  1.1  cgd define(str,`ifelse($2,",,data $1(incr($3))/`LET'substr($2,0,1)/
      8  1.1  cgd `str($1,substr($2,1),incr($3))')')
      9