steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

rename another strings.parser word

db4
Doug Coleman 2009-09-24 19:45:03 -05:00
parent bf3b154091
commit c0294195e6
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
core/strings/parser/parser.factor
View File

@ -138,37 +138,34 @@ ERROR: escaped-char-expected ;
lexer get advance-char
] if ;
DEFER: ((parse-multiline-string))
DEFER: (parse-multiline-string)
: parse-found-token ( i string token -- )
[ lexer-before % ] dip
CHAR: \ = [
lexer get [ next-char , ] [ next-char , ] bi ((parse-multiline-string))
lexer get [ next-char , ] [ next-char , ] bi (parse-multiline-string)
] [
dup rest-begins? [
end-string-parse
] [
lexer get next-char , ((parse-multiline-string))
lexer get next-char , (parse-multiline-string)
] if
] if ;
ERROR: trailing-characters string ;
: ((parse-multiline-string)) ( string -- )
: (parse-multiline-string) ( string -- )
lexer get still-parsing? [
dup first find-next-token [
parse-found-token
] [
drop lexer get next-line%
((parse-multiline-string))
(parse-multiline-string)
] if*
] [
unexpected-eof
] if ;
: (parse-multiline-string) ( string -- string' )
[ ((parse-multiline-string)) ] "" make ;
PRIVATE>
: parse-multiline-string ( -- string )
@ -177,4 +174,4 @@ PRIVATE>
"\"\"\""
] [
"\""
] if (parse-multiline-string) unescape-string ;
] if [ (parse-multiline-string) ] "" make unescape-string ;