File: _validate_int.fish

package info (click to toggle)
fish 4.2.1-3.2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 35,976 kB
  • sloc: python: 6,972; javascript: 1,407; sh: 1,009; xml: 411; ansic: 230; objc: 78; makefile: 20
file content (34 lines) | stat: -rw-r--r-- 1,287 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
# localization: tier1
#
# This function is intended to be used as a validation command for individual option specifications
# given to the `argparse` command. It checks that the argument is a valid integer and optionally
# whether it is in a reasonable range.
function _validate_int --no-scope-shadowing
    # Note that we can't use ourself to validate the arguments to the --min and --max flags this
    # function recognizes.
    set -l options 'm-min=' 'x-max='
    argparse -n _argparse_validate_int $options -- $argv
    or return

    if not string match -qr '^-?\d+$' -- $_flag_value
        set -l msg (_ "%s: Value '%s' for flag '%s' is not an integer\n")
        printf $msg $_argparse_cmd $_flag_value $_flag_name >&2
        return 1
    end

    if set -q _flag_min
        and test $_flag_value -lt $_flag_min
        set -l msg (_ "%s: Value '%s' for flag '%s' less than min allowed of '%s'\n")
        printf $msg $_argparse_cmd $_flag_value $_flag_name $_flag_min >&2
        return 1
    end

    if set -q _flag_max
        and test $_flag_value -gt $_flag_max
        set -l msg (_ "%s: Value '%s' for flag '%s' greater than max allowed of '%s'\n")
        printf $msg $_argparse_cmd $_flag_value $_flag_name $_flag_max >&2
        return 1
    end

    return 0
end