source:
trunk/minix/commands/m4/String.m4@
11
Last change on this file since 11 was 9, checked in by , 14 years ago | |
---|---|
File size: 204 bytes |
Line | |
---|---|
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))')') |
Note:
See TracBrowser
for help on using the repository browser.