version 1.34, 2004/12/26 20:32:02
|
version 1.35, 2004/12/27 20:05:53
|
Line 185 Create prefix-found 0 , 0 ,
|
Line 185 Create prefix-found 0 , 0 ,
|
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 ) |