(scan-multiline-string) ( i end lexer -- j )

Vocabulary

multiline.private

Inputs

i	an object
end	an object
lexer	an object

Outputs

j

an object

Definition

USING: accessors kernel lexer make math sequences ;

IN: multiline.private

:: (scan-multiline-string) ( i end lexer -- j )
    lexer line-text>> :> text lexer still-parsing? [
        i text end subseq-index-from
        [| j | i j text subseq % j end length + ] [
            text i index-or-length tail % 10 , lexer next-line
            0 end lexer (scan-multiline-string)
        ] if*
    ] [ end throw-unexpected-eof ] if ;