File: _validate_int.fish

package info (click to toggle)
fish 3.1.2-3%2Bdeb11u1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 38,672 kB
  • sloc: ansic: 80,259; cpp: 47,069; javascript: 17,087; sh: 6,163; python: 3,429; makefile: 669; perl: 367; objc: 78; xml: 18
file content (32 lines) | stat: -rw-r--r-- 1,251 bytes parent folder | download | duplicates (2)
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
# 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
        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
        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
        return 1
    end

    return 0
end