source:
trunk/minix/commands/m4/String.m4@
17
| Last change on this file since 17 was 9, checked in by , 15 years ago | |
|---|---|
| File size: 204 bytes | |
| Rev | Line | |
|---|---|---|
| [9] | 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.
