lex-factor-nested* ( n/f string slice/f ch/f -- n'/f string literal )

Vocabulary

modern

Inputs

n/f	an object
string	an object
slice/f	an object
ch/f	an object

Outputs

n'/f	an object
string	an object
literal	an object

Definition

USING: combinators combinators.short-circuit kernel
modern.slices sequences.extras ;

IN: modern

: lex-factor-nested*
    ( n/f string slice/f ch/f -- n'/f string literal )
    {
        {
            58
            [
                merge-slice-til-whitespace dup
                { [ upper-colon? ] [ ":" = ] } 1||
                [ rewind-slice f ] [ read-colon ] if
            ]
        }
        {
            60
            [
                [ slice-til-whitespace drop ] dip span-slices
                dup section-open? [ rewind-slice f ] when
            ]
        }
        { 32 [ read-token-or-whitespace-nested ] }
        { 13 [ read-token-or-whitespace-nested ] }
        { 10 [ read-token-or-whitespace-nested ] }
        [ lex-factor-fallthrough ]
    } case ;