add PARSE, PARSE-NAME

2021-11-27 11:00:09 +01:00
parent 13a069f075
commit 002c9cb100
4 changed files with 56 additions and 7 deletions
@@ -1712,6 +1712,9 @@ T{ CHAR " PARSE 4567 "DUP ROT ROT EVALUATE -> 5 4567 }T
 TESTING PARSE-NAME  (Forth 2012)
 \ Adapted from the PARSE-NAME RfD tests

+: STR1 S" abcd" ;
+: STR2 S" abcde" ;
+
 T{ PARSE-NAME abcd  STR1  S= -> TRUE }T        \ No leading spaces
 T{ PARSE-NAME      abcde STR2 S= -> TRUE }T    \ Leading spaces