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