take-until ( lexer -- string )

Vocabulary

regexp.private

Inputs

lexer

an object

Outputs

string

an object

Definition

USING: kernel lexer math sequences ;

IN: regexp.private

: take-until ( lexer -- string )
    dup skip-blank [
        dupd [
            [ [ "\\/" member? ] find-from ] 1check
            [ 92 = [ [ 2 + ] dip t ] [ f ] if ]
            [ "Unterminated regexp" throw ] if*
        ] loop over [ subseq ] dip 1 +
    ] change-lexer-column ;