| REPEAT |
REPEAT |
| drop r> ; |
drop r> ; |
| |
|
| |
: prefix-off ( -- ) 0 0 prefix-found 2! ; |
| |
|
| : prefix-string ( addr len nfa -- addr' len' ) |
: prefix-string ( addr len nfa -- addr' len' ) |
| dup prefix-found ! ?dup |
dup prefix-found ! ?dup |
| IF |
IF |
| name>string rot /string rot drop |
name>string rot /string rot drop |
| dup 1+ prefix-found cell+ ! |
dup 1+ prefix-found cell+ ! |
| ELSE |
ELSE |
| 2drop s" " prefix-found cell+ off |
2drop s" " prefix-off |
| THEN ; |
THEN ; |
| |
|
| : search-prefix ( addr1 len1 -- addr2 len2 ) |
: search-prefix ( addr1 len1 -- addr2 len2 ) |
