version 1.1, 2012/06/23 23:20:23
|
version 1.2, 2012/06/23 23:44:30
|
Line 29
|
Line 29
|
' string-recognizer |
' string-recognizer |
forth-recognizer get-recognizers |
forth-recognizer get-recognizers |
1+ forth-recognizer set-recognizers |
1+ forth-recognizer set-recognizers |
|
|
|
: slit. slit, postpone type ; |
|
|
|
' type ' slit. ' slit, recognizer: r:." |
|
|
|
: ."-recognizer ( addr u -- addr u' r:." | addr u r:fail ) |
|
2dup ".\"" string-prefix? |
|
IF drop source drop - 2 + >in ! \"-parse save-mem r:." |
|
ELSE r:fail THEN ; |
|
|
|
' ."-recognizer |
|
forth-recognizer get-recognizers |
|
1+ forth-recognizer set-recognizers |
|
|