read-entry-content ( entry zim -- blob mime-type )

Vocabulary

zim

Inputs

entry	an object
zim	an object

Outputs

blob	an object
mime-type	an object

Definition

IN: zim

GENERIC#: read-entry-content 1 ( entry zim -- blob mime-type )

Methods

USING: accessors sequences zim ;

M:: content-entry read-entry-content
    ( entry zim -- blob mime-type )
    entry blob-number>> entry cluster-number>> zim
    read-blob-index entry mime-type>> zim mime-types>> nth ;


USING: kernel math zim ;

M: integer read-entry-content
    [ read-entry-index ] keep [ read-entry-content ] curry
    [ f f ] if* ;


USING: accessors kernel zim ;

M: redirect-entry read-entry-content
    [ redirect-index>> ] [ read-entry-content ] bi* ;