lex-factor-top* ( 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 kernel modern.slices sequences.extras ;

IN: modern

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