dbase3-memo ( n path -- data )

Vocabulary

dbf

Inputs

n	an object
path	an object

Outputs

data

an object

Definition

USING: io io.encodings.binary io.files kernel math sequences ;

IN: dbf

: dbase3-memo ( n path -- data )
    binary [
        512 * seek-absolute seek-input
        B{ } [
            512 read dup [ B{ 0 26 } member? ] find drop
            [ head f ] [ t ] if* [ append ] dip
        ] loop
    ] with-file-reader ;