read-field-headers ( -- field-headers )

Vocabulary

dbf

Inputs

None

Outputs

field-headers

an object

Definition

USING: alien.c-types classes.struct io kernel math sequences ;

IN: dbf

: read-field-headers ( -- field-headers )
    [ read1 dup { 13 10 f } member? not ] [
        dbf-field-header heap-size 1 - read swap prefix
        dbf-field-header memory>struct
    ] produce nip ;