lex-factor-fallthrough ( 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-fallthrough
    ( n/f string slice/f ch/f -- n'/f string literal )
    {
        { 92 [ read-backslash ] }
        { 91 [ read-bracket ] }
        { 123 [ read-brace ] }
        { 40 [ read-paren ] }
        { 93 [ ] }
        { 125 [ ] }
        { 41 [ ] }
        { 34 [ read-string ] }
        { 33 [ read-exclamation ] }
        {
            62
            [
                [ [ 62 = not ] slice-until ] dip merge-slices
                dup section-close? [
                    [ slice-til-whitespace drop ] dip
                    ?span-slices
                ] unless
            ]
        }
        { f [ ] }
    } case ;