read-records ( field-headers -- records )

Vocabulary

dbf

Inputs

field-headers

an object

Outputs

records

an object

Definition

USING: accessors io kernel sequences ;

IN: dbf

: read-records ( field-headers -- records )
    [ read1 dup { 26 f } member? not ] [
        42 = over
        [ [ length>> read ] [ type>> parse-field ] bi ] map
        record boa
    ] produce 2nip ;