find-option ( arg options -- option )

Vocabulary

command-line.parser.private

Inputs

arg	an object
options	an object

Outputs

option

an object

Definition

USING: assocs combinators command-line.parser kernel namespaces
sequences tools.completion ;

IN: command-line.parser.private

:: find-option ( arg options -- option )
    options [ option-name arg = ] find nip [
        allow-abbrev? get [
            arg options [ dup option-name ] map>alist
            completions keys dup length {
                { 0 [ arg unknown-option ] }
                { 1 [ first ] }
                [ drop arg swap ambiguous-option ]
            } case
        ] [ arg unknown-option ] if
    ] unless* ;