 : lexer-eof? ( lexer -- ? )
     [ line>> ] [ text>> length ] bi <= ;
 
-:: (scan-multiline-string) ( i end -- j )
-    lexer get line-text>> :> text
-    lexer get lexer-eof? [
+:: (scan-multiline-string) ( i end lexer -- j )
+    lexer line-text>> :> text
+    lexer lexer-eof? [
         end text i start* [| j |
             i j text subseq % j end length +
         ] [
             text i short tail % CHAR: \n ,
-            lexer get next-line
-            0 end (scan-multiline-string)
+            lexer next-line
+            0 end lexer (scan-multiline-string)
         ] if*
     ] [ end throw-unexpected-eof ] if ;
 
-:: (parse-multiline-string) ( end-text skip-n-chars -- str )
+:: (parse-multiline-string) ( end-text lexer skip-n-chars -- str )
     [
-        lexer get
-        [ skip-n-chars + end-text (scan-multiline-string) ]
+        lexer
+        [ skip-n-chars + end-text lexer (scan-multiline-string) ]
         change-column drop
     ] "" make ;
 
-:: advance-same-line ( text -- )
-    lexer get [ text length + ] change-column drop ;
+: advance-same-line ( lexer text -- )
+    length [ + ] curry change-column drop ;
 
-:: (parse-til-line-begins) ( begin-text -- )
-    lexer get still-parsing? [
-        lexer get line-text>> begin-text sequence= [
-            begin-text advance-same-line
+:: (parse-til-line-begins) ( begin-text lexer -- )
+    lexer still-parsing? [
+        lexer line-text>> begin-text sequence= [
+            lexer begin-text advance-same-line
         ] [
-            lexer get line-text>> % "\n" %
-            lexer get next-line
-            begin-text (parse-til-line-begins)
+            lexer line-text>> % CHAR: \n ,
+            lexer next-line
+            begin-text lexer (parse-til-line-begins)
         ] if
     ] [
         begin-text bad-heredoc
     ] if ;
 
-: parse-til-line-begins ( begin-text -- seq )
+: parse-til-line-begins ( begin-text lexer -- seq )
     [ (parse-til-line-begins) ] "" make ;
 
 PRIVATE>
 
 : parse-multiline-string ( end-text -- str )
-    1 (parse-multiline-string) ;
+    lexer get 1 (parse-multiline-string) ;
 
 SYNTAX: /* "*/" parse-multiline-string drop ;
 
 SYNTAX: HEREDOC:
-    lexer get skip-blank
-    rest-of-line
-    lexer get next-line
-    parse-til-line-begins suffix! ;
+    lexer get {
+        [ skip-blank ]
+        [ rest-of-line ]
+        [ next-line ]
+        [ parse-til-line-begins ]
+    } cleave suffix! ;
 
 SYNTAX: DELIMITED:
-    lexer get skip-blank
-    rest-of-line
-    lexer get next-line
-    0 (parse-multiline-string) suffix! ;
+    lexer get {
+        [ skip-blank ]
+        [ rest-of-line ]
+        [ next-line ]
+        [ 0 (parse-multiline-string) ]
+    } cleave suffix! ;

! Copyright (C) 2007 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license.
USING: namespaces make parser lexer kernel sequences words
quotations math accessors locals ;
IN: multiline

ERROR: bad-heredoc identifier ;

<PRIVATE

: rest-of-line ( -- seq )
    lexer get [ line-text>> ] [ column>> ] bi tail ;

: next-line-text ( -- str )
    lexer get [ next-line ] [ line-text>> ] bi ;

: (parse-here) ( -- )
    next-line-text [
        dup ";" =
        [ drop lexer get next-line ]
        [ % "\n" % (parse-here) ] if
    ] [ ";" throw-unexpected-eof ] if* ;

PRIVATE>



: parse-here ( -- str )
    [
        lexer get
        dup rest-of-line [ text-found-before-eol ] unless-empty
        (parse-here)
    ] "" make but-last ;

