zim-tools-main ( -- )

Vocabulary

zim.tools

Inputs

None

Outputs

None

Definition

USING: combinators command-line destructors io kernel math
namespaces sequences zim ;

IN: zim.tools

: zim-tools-main ( -- )
    command-line get dup length 2 <
    [ drop zim-usage ] [
        unclip swap unclip read-zim [
            [
                swap rot {
                    { "dump" ~quotation~ }
                    { "info" ~quotation~ }
                    { "list" ~quotation~ }
                    { "show" ~quotation~ }
                    { "main" ~quotation~ }
                    [
                        "Unknown command: " prepend print
                        zim-usage 2drop
                    ]
                } case
            ] with-zim
        ] with-disposal
    ] if ;