p!ranha?
Server IP : 103.169.32.36  /  Your IP : 216.73.217.13
Web Server : Apache
System : Linux web.dpmptsp 3.10.0-1160.119.1.el7.x86_64 #1 SMP Tue Jun 4 14:43:51 UTC 2024 x86_64
User : apache ( 48)
PHP Version : 5.6.40
Disable Function : NONE
MySQL : ON  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON  |  Sudo : ON  |  Pkexec : ON
Directory :  /usr/share/awk/

Upload File :
Curr3nt_D!r [ Writeable ] D0cum3nt_r0Ot [ Writeable ]

 
Command :
Current File : /usr/share/awk/getopt.awk
# getopt.awk --- Do C library getopt(3) function in awk
#
# Arnold Robbins, arnold@skeeve.com, Public Domain
#
# Initial version: March, 1991
# Revised: May, 1993

# External variables:
#    Optind -- index in ARGV of first nonoption argument
#    Optarg -- string value of argument to current option
#    Opterr -- if nonzero, print our own diagnostic
#    Optopt -- current option letter

# Returns:
#    -1     at end of options
#    "?"    for unrecognized option
#    <c>    a character representing the current option

# Private Data:
#    _opti  -- index in multi-flag option, e.g., -abc
function getopt(argc, argv, options,    thisopt, i)
{
    if (length(options) == 0)    # no options given
        return -1

    if (argv[Optind] == "--") {  # all done
        Optind++
        _opti = 0
        return -1
    } else if (argv[Optind] !~ /^-[^:[:space:]]/) {
        _opti = 0
        return -1
    }
    if (_opti == 0)
        _opti = 2
    thisopt = substr(argv[Optind], _opti, 1)
    Optopt = thisopt
    i = index(options, thisopt)
    if (i == 0) {
        if (Opterr)
            printf("%c -- invalid option\n",
                                  thisopt) > "/dev/stderr"
        if (_opti >= length(argv[Optind])) {
            Optind++
            _opti = 0
        } else
            _opti++
        return "?"
    }
    if (substr(options, i + 1, 1) == ":") {
        # get option argument
        if (length(substr(argv[Optind], _opti + 1)) > 0)
            Optarg = substr(argv[Optind], _opti + 1)
        else
            Optarg = argv[++Optind]
        _opti = 0
    } else
        Optarg = ""
    if (_opti == 0 || _opti >= length(argv[Optind])) {
        Optind++
        _opti = 0
    } else
        _opti++
    return thisopt
}
BEGIN {
    Opterr = 1    # default is to diagnose
    Optind = 1    # skip ARGV[0]

    # test program
    if (_getopt_test) {
        while ((_go_c = getopt(ARGC, ARGV, "ab:cd")) != -1)
            printf("c = <%c>, optarg = <%s>\n",
                                       _go_c, Optarg)
        printf("non-option arguments:\n")
        for (; Optind < ARGC; Optind++)
            printf("\tARGV[%d] = <%s>\n",
                                    Optind, ARGV[Optind])
    }
}
N4m3
5!z3
L45t M0d!f!3d
0wn3r / Gr0up
P3Rm!55!0n5
0pt!0n5
..
--
September 29 2025 07:00:09
0 / 0
0755
assert.awk
0.373 KB
June 28 2017 21:52:45
0 / 0
0644
bits2str.awk
0.319 KB
June 28 2017 21:52:45
0 / 0
0644
cliff_rand.awk
0.3 KB
June 28 2017 21:52:45
0 / 0
0644
ctime.awk
0.228 KB
June 28 2017 21:52:45
0 / 0
0644
ftrans.awk
0.31 KB
June 28 2017 21:52:45
0 / 0
0644
getopt.awk
2.185 KB
June 28 2017 21:52:45
0 / 0
0644
gettime.awk
2.433 KB
June 28 2017 21:52:45
0 / 0
0644
group.awk
1.75 KB
June 28 2017 21:52:45
0 / 0
0644
join.awk
0.369 KB
June 28 2017 21:52:45
0 / 0
0644
libintl.awk
0.232 KB
June 28 2017 21:52:45
0 / 0
0644
noassign.awk
0.415 KB
June 28 2017 21:52:45
0 / 0
0644
ord.awk
0.915 KB
June 28 2017 21:52:45
0 / 0
0644
passwd.awk
1.171 KB
June 28 2017 21:52:45
0 / 0
0644
quicksort.awk
0.999 KB
June 28 2017 21:52:45
0 / 0
0644
readable.awk
0.48 KB
June 28 2017 21:52:45
0 / 0
0644
rewind.awk
0.395 KB
June 28 2017 21:52:45
0 / 0
0644
round.awk
0.646 KB
June 28 2017 21:52:45
0 / 0
0644
strtonum.awk
1.428 KB
June 28 2017 21:52:45
0 / 0
0644
walkarray.awk
0.209 KB
June 28 2017 21:52:45
0 / 0
0644
zerofile.awk
0.414 KB
June 28 2017 21:52:45
0 / 0
0644