read-extinfo-header ( main-header -- extinfo-header )

Vocabulary

terminfo.private

Inputs

main-header

an object

Outputs

extinfo-header

an object

Definition

USING: accessors io kernel pack sequences ;

IN: terminfo.private

: read-extinfo-header ( main-header -- extinfo-header )
    magic>> 10 read "sssss" unpack-le [ first3 ] [ last ] bi
    <extinfo-header> ;