command-options ( -- value )

Vocabulary

tools.image.compressor.private

Inputs

None

Outputs

value

an object

Definition

USING: command-line.parser math math.order math.parser
tools.image.compression tools.image.compressor ;

IN: tools.image.compressor.private

CONSTANT: command-options
    {
        T{ option
            { name "-F" }
            { help
                "force compress uncompressable image\nWARNING: experts only! Us..."
            }
            { variable force-compression }
            { const t }
        }
        T{ option
            { name "-c" }
            { type integer }
            { help
                "set the compression level between 1 and 22"
            }
            { variable compression-level }
            { default 12 }
            { convert [ dec> ] }
            { validate [ 1 22 between? ] }
            { #args 1 }
        }
        T{ option
            { name "input" }
            { help
                "the input factor image path (default: image-path)"
            }
            { #args "?" }
        }
        T{ option
            { name "output" }
            { help
                "the output factor image path (default: input)"
            }
            { #args "?" }
        }
    } inline