decoder

Vocabulary

io.encodings

Definition

USING: kernel ;

IN: io.encodings

TUPLE: decoder
    { stream read-only } { code read-only }
    { cr boolean initial: f } ;

Methods

USING: accessors destructors io.encodings ;

M: decoder dispose stream>> dispose ;


USING: accessors io.encodings io.streams.limited kernel ;

M: decoder limit-stream
    [ [ stream>> ] ] dip [ limit-stream ] curry compose
    [ code>> ] [ cr>> ] tri decoder boa ; inline


USING: game.models.loader io.encodings kernel ;

M: decoder load-models* nip stream>models ;


USING: accessors io.encodings kernel ;

M: decoder re-decode [ stream>> ] dip re-decode ;


USING: accessors io.encodings io.timeouts ;

M: decoder set-timeout stream>> set-timeout ;


USING: io io.encodings io.private ;

M: decoder stream-contents* stream-contents-by-element ; inline


USING: io io.encodings kernel ;

M: decoder stream-element-type drop +character+ ; inline


USING: io io.encodings io.encodings.private kernel ;

M: decoder stream-read-unsafe
    pick 0 =
    [ 3drop 0 ] [
        decode-first
        [ 0 store-decode 1 decode-rest ] [ 4drop 0 ] if*
    ] if ; inline


USING: accessors io io.encodings io.encodings.private kernel
sequences sequences.private ;

M: decoder stream-read-until
    dup cr>> [
        dup cr- 2dup >decoder< decode-until over
        [ dup 10 = [ 2drop stream-read-until ] [ 2nipd ] if ]
        [ first-unsafe 10 = [ [ rest ] dip ] when 2nipd ]
        if-empty
    ] [ >decoder< decode-until ] if ;


USING: io io.encodings io.encodings.private kernel ;

M: decoder stream-read1 dup decode1 fix-cr ; inline


USING: io io.encodings io.encodings.private kernel ;

M: decoder stream-readln
    "\r\n" over >decoder< decode-until handle-readln ;


USING: accessors io.encodings io.ports ;

M: decoder underlying-port stream>> underlying-port ;


USING: accessors io.encodings io.streams.limited kernel ;

M: decoder unlimit-stream
    [ stream>> stream>> ] [ code>> ] [ cr>> ] tri decoder boa ;