(with-commands) ( ... commands command-line quot: ( ... -- ... ) -- ... )

Vocabulary

command-line.parser

Inputs

commands	an object
command-line	an object
quot	a quotation with stack effect ( ... -- ... )

Outputs

None

See also

with-commands

Definition

USING: arrays assocs command-line.parser.private kernel
namespaces sequences ;

IN: command-line.parser

:: (with-commands)
    ( ... commands command-line quot: ( ... -- ... ) -- ... )
    command-line [
        commands <command-option> :> command-option
        command-option 1array swap unclip 1array swap
        [ quot (with-options) ] curry [
            [
                get-program-name command get " " glue
                program-name
            ]
        ] dip [ with-variable ] curry compose
        [ [ command get commands ?at ] ] dip
        [ [ command-option swap invalid-value ] if ] curry
        compose (with-options)
    ] unless-empty ; inline