read-char ( byte -- ch )

Vocabulary

quoted-printable.private

Inputs

byte

an object

Outputs

ch

an object

Definition

USING: arrays io kernel math.parser ;

IN: quoted-printable.private

: read-char ( byte -- ch )
    dup 61 = [
        drop read1 dup 10 =
        [ drop read1 read-char ] [ read1 2array hex> ] if
    ] when ;