source: trunk/minix/commands/m4/String.m4@ 11

Last change on this file since 11 was 9, checked in by Mattia Monga, 14 years ago

Minix 3.1.2a

File size: 204 bytes
Line 
1
2define(string,`integer $1(len(substr($2,1)))
3str($1,substr($2,1),0)
4data $1(len(substr($2,1)))/EOS/
5')
6
7define(str,`ifelse($2,",,data $1(incr($3))/`LET'substr($2,0,1)/
8`str($1,substr($2,1),incr($3))')')
Note: See TracBrowser for help on using the repository browser.