mirror of
https://github.com/fish-shell/fish-shell
synced 2024-11-14 17:07:44 +00:00
9367d4ff71
This does not include checks/function.fish because that currently includes a "; end" in a message that indent would remove, breaking the test.
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 fish_opt
|
|
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
|