read-escape ( stream -- type/f )

Vocabulary

io.encodings.iso2022.private

Inputs

stream

an object

Outputs

type/f

an object

Definition

USING: combinators io kernel ;

IN: io.encodings.iso2022.private

: read-escape ( stream -- type/f )
    dup stream-read1 {
        {
            40
            [
                stream-read1 {
                    { 66 ~quotation~ }
                    { 74 ~quotation~ }
                    [ drop f ]
                } case
            ]
        }
        {
            36
            [
                dup stream-read1 {
                    { 64 ~quotation~ }
                    { 66 ~quotation~ }
                    { 40 ~quotation~ }
                    [ 2drop f ]
                } case
            ]
        }
        [ 2drop f ]
    } case ;