read-header ( -- header )

Vocabulary

shapefiles.private

Inputs

None

Outputs

header

an object

Definition

USING: endian io kernel ;

IN: shapefiles.private

: read-header ( -- header )
    4 read be> dup 9994 assert= 20 read drop
    4 read be> read-int dup 1000 assert=
    read-int read-double read-double read-double read-double
    read-double read-double read-double read-double header boa ;