check-field-header ( field-header -- field-header )

Vocabulary

dbf

Inputs

field-header

an object

Outputs

field-header

an object

Definition

USING: accessors combinators kernel ;

IN: dbf

: check-field-header ( field-header -- field-header )
    dup type>> {
        { 73 [ dup length>> 4 assert= ] }
        { 76 [ dup length>> 1 assert= ] }
        { 79 [ dup length>> 8 assert= ] }
        { 89 [ dup length>> 8 assert= ] }
        { 68 [ dup length>> 8 assert= ] }
        { 84 [ dup length>> 8 assert= ] }
        { 77 [ dup length>> 10 assert= ] }
        [ drop ]
    } case ;