multiline: fix lexer eof detection.
parent
8645b1db49
commit
afdec2de61
|
@ -12,7 +12,7 @@ ERROR: bad-heredoc identifier ;
|
||||||
lexer get [ line-text>> ] [ column>> ] bi tail ;
|
lexer get [ line-text>> ] [ column>> ] bi tail ;
|
||||||
|
|
||||||
: next-line-text ( -- str )
|
: next-line-text ( -- str )
|
||||||
lexer get dup next-line line-text>> ;
|
lexer get [ next-line ] [ line-text>> ] bi ;
|
||||||
|
|
||||||
: (parse-here) ( -- )
|
: (parse-here) ( -- )
|
||||||
next-line-text [
|
next-line-text [
|
||||||
|
@ -38,9 +38,12 @@ SYNTAX: STRING:
|
||||||
|
|
||||||
<PRIVATE
|
<PRIVATE
|
||||||
|
|
||||||
|
: lexer-eof? ( lexer -- ? )
|
||||||
|
[ line>> ] [ text>> length ] bi <= ;
|
||||||
|
|
||||||
:: (scan-multiline-string) ( i end -- j )
|
:: (scan-multiline-string) ( i end -- j )
|
||||||
lexer get line-text>> :> text
|
lexer get line-text>> :> text
|
||||||
text [
|
lexer get lexer-eof? [
|
||||||
end text i start* [| j |
|
end text i start* [| j |
|
||||||
i j text subseq % j end length +
|
i j text subseq % j end length +
|
||||||
] [
|
] [
|
||||||
|
|
Loading…
Reference in New Issue