parse-ldcache ( -- entries )

Vocabulary

ldcache.private

Inputs

None

Outputs

entries

an object

Definition

USING: accessors classes.struct continuations io kernel math
sequences ;

IN: ldcache.private

: parse-ldcache ( -- entries )
    HeaderOld read-struct [
        [ HEADER_MAGIC_OLD check-ldcache-magic ] [
            nlibs>> EntryOld struct-size *
            seek-relative seek-input
        ] bi
    ]
    [ 2drop HeaderOld struct-size neg seek-relative seek-input ]
    recover HeaderNew read-struct
    [ HEADER_MAGIC_NEW check-ldcache-magic ] keep
    [ parse-new-entries ] [ stringslen>> read ] bi swap
    [ <ldcache-entry> ] with map ;