home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 138.lha / M4 / Examples / string.m4 < prev    next >
Text File  |  1986-11-20  |  202b  |  7 lines
  1. define(string,`integer $1(len(substr($2,1)))
  2. str($1,substr($2,1),0)
  3. data $1(len(substr($2,1)))/EOS/
  4. ')
  5. define(str,`ifelse($2,",,data $1(incr($3))/`LET'substr($2,0,1)/
  6. `str($1,substr($2,1),incr($3))')')
  7.