new-zim ( zim-path -- )

Vocabulary

zim.builder

Inputs

zim-path

an object

Outputs

None

Definition

USING: accessors alien.c-types checksums checksums.md5 io
io.encodings.binary io.files kernel math uuid zim ;

IN: zim.builder

:: new-zim ( zim-path -- )
    zim-header heap-size :> mime-list-ptr-pos mime-list-ptr-pos
    1 + :> url-ptr-pos zim-path binary [
        zim-header new 72173914 >>magic-number 6 >>major-version
        1 >>minor-version uuid1 uuid-parse >>uuid
        0 >>entry-count 0 >>cluster-count 4294967295 >>main-page
        4294967295 >>layout-page
        mime-list-ptr-pos >>mime-list-ptr-pos
        url-ptr-pos >>url-ptr-pos url-ptr-pos >>title-ptr-pos
        url-ptr-pos >>cluster-ptr-pos url-ptr-pos >>checksum-pos
        write 0 write1
    ] with-file-writer zim-path md5 checksum-file
    zim-path binary [ write ] with-file-appender ;