read-backslash ( n string slice -- n' string obj )

Vocabulary

modern

Inputs

n	an object
string	an object
slice	an object

Outputs

n'	an object
string	an object
obj	an object

Definition

USING: kernel modern.slices sequences sequences.extras ;

IN: modern

: read-backslash ( n string slice -- n' string obj )
    [ "\"!:[{(<> \r\n" slice-til-either ] dip swap
    [ span-slices ] dip over "\\" head? [
        drop dup [ 92 = ] all?
        [ (read-backslash) ] [ merge-slice-til-whitespace ] if
    ] [
        over "\\" tail?
        [ drop (read-backslash) ] [ lex-factor-top* ] if
    ] if ;