Return to ds2texi.fs CVS log | Up to [gforth] / gforth |
version 1.20, 1998/12/08 22:02:39 | version 1.21, 1998/12/13 23:29:58 |
---|---|
Line 63 create description-buffer 4096 chars all | Line 63 create description-buffer 4096 chars all |
: skip-prefix ( c-addr1 u1 -- c-addr2 u2 ) | : skip-prefix ( c-addr1 u1 -- c-addr2 u2 ) |
2dup 2 min s" --" compare 0= | 2dup 2 min s" --" compare 0= |
IF | IF |
[char] - skip [char] - scan [char] - skip | [char] - skip [char] - scan 1 /string |
THEN ; | THEN ; |
: replace-_ ( c-addr u -- ) | : replace-_ ( c-addr u -- ) |