Powered by ViewCVS 1.0-dev
| version 1.9, Sat Sep 4 21:34:23 2010 UTC | version 1.10, Thu Dec 30 21:46:14 2010 UTC | ||
|---|---|---|---|
|
|
||
| >r 2dup r> scan dup >r dup IF 1 /string THEN | >r 2dup r> scan dup >r dup IF 1 /string THEN | ||
| 2swap r> - 2swap ; | 2swap r> - 2swap ; | ||
| : $iter ( .. $addr char xt -- .. ) { char xt } | : $iter ( .. $addr char xt -- .. ) >r >r | ||
| $@ BEGIN dup WHILE char $split >r >r xt execute r> r> | $@ BEGIN dup WHILE r@ $split i' -rot >r >r execute r> r> | ||
| REPEAT 2drop ; | REPEAT 2drop rdrop rdrop ; |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |