?read-extinfo ( header -- extinfo )

Vocabulary

terminfo.private

Inputs

header

an object

Outputs

extinfo

an object

Definition

USING: io kernel math namespaces ;

IN: terminfo.private

: ?read-extinfo ( header -- extinfo )
    input-stream get [ stream-length ] [ stream-tell ] bi -
    10 >= [ read-extinfo ] [ drop f ] if ;