mirror of
https://github.com/fish-shell/fish-shell
synced 2024-12-26 12:53:13 +00:00
a4dc2b872b
This implements a `fish_opt` command that provides a way for people to create option specs for the `argparse` command as an alternative to creating such strings by hand. Fixes #4190
47 lines
1.3 KiB
Fish
47 lines
1.3 KiB
Fish
# This is a helper function for `fish_opt`. It does some basic validation of the arguments.
|
|
function __fish_opt_validate_args --no-scope-shadowing
|
|
if not set -q _flag_short
|
|
or test 1 -ne (string length -- $_flag_short)
|
|
printf (_ "%s: The --short flag is required and must be a single character\n") fish_opt >&2
|
|
return 1
|
|
end
|
|
|
|
return 0
|
|
end
|
|
|
|
# The `fish_opt` command.
|
|
function fish_opt -d 'Produce an option specification suitable for use with `argparse`.'
|
|
set -l options 'h/help' 's/short=' 'l/long=' 'o/optional-val' 'r/required-val'
|
|
set options $options 'L-long-only' 'M-multiple-vals'
|
|
argparse -n fish_opt --max-args=0 --exclusive=r,o --exclusive=M,o $options -- $argv
|
|
or return
|
|
|
|
if set -q _flag_help
|
|
__fish_print_help nextd
|
|
return 0
|
|
end
|
|
|
|
__fish_opt_validate_args
|
|
or return
|
|
|
|
set -l opt_spec $_flag_short
|
|
|
|
if set -q _flag_long
|
|
if set -q _flag_long_only
|
|
set opt_spec "$opt_spec-"
|
|
else
|
|
set opt_spec "$opt_spec/"
|
|
end
|
|
set opt_spec "$opt_spec$_flag_long"
|
|
end
|
|
|
|
if set -q _flag_multiple_vals
|
|
set opt_spec "$opt_spec=+"
|
|
else if set -q _flag_required_val
|
|
set opt_spec "$opt_spec="
|
|
else if set -q _flag_optional_val
|
|
and set opt_spec "$opt_spec=?"
|
|
end
|
|
|
|
echo $opt_spec
|
|
end
|