zim-info ( zim args -- )

Vocabulary

zim.tools

Inputs

zim	an object
args	an object

Outputs

None

Definition

USING: accessors combinators formatting hex-strings io kernel
sequences uuid zim ;

IN: zim.tools

: zim-info ( zim args -- )
    drop {
        [ path>> "path: %s\n" printf ]
        [ header>> uuid>> uuid-unparse "uuid: %s\n" printf ]
        [ header>> entry-count>> "entries: %s\n" printf ]
        [ header>> cluster-count>> "clusters: %s\n" printf ]
        [ mime-types>> length "mime-types: %s\n" printf ]
        [
            drop -16 seek-end seek-input
            16 read bytes>hex-string "checksum: %s\n" printf
        ]
        [
            [ header>> main-page>> ] [ read-entry-index ] bi
            [ url>> ] [ "-" ] if* "main: %s\n" printf
        ]
    } cleave ;