REDROOM

Create

Preview: group.awk Size: 1.72 KB

//usr/share/awk/group.awk

# group.awk --- functions for dealing with the group file
#
# Arnold Robbins, arnold@skeeve.com, Public Domain
# May 1993
# Revised October 2000
# Revised December 2010

BEGIN {
    # Change to suit your system
    _gr_awklib = "/usr/libexec/awk/"
}

function _gr_init(    oldfs, oldrs, olddol0, grcat,
                             using_fw, using_fpat, n, a, i)
{
    if (_gr_inited)
        return

    oldfs = FS
    oldrs = RS
    olddol0 = $0
    using_fw = (PROCINFO["FS"] == "FIELDWIDTHS")
    using_fpat = (PROCINFO["FS"] == "FPAT")
    FS = ":"
    RS = "\n"

    grcat = _gr_awklib "grcat"
    while ((grcat | getline) > 0) {
        if ($1 in _gr_byname)
            _gr_byname[$1] = _gr_byname[$1] "," $4
        else
            _gr_byname[$1] = $0
        if ($3 in _gr_bygid)
            _gr_bygid[$3] = _gr_bygid[$3] "," $4
        else
            _gr_bygid[$3] = $0

        n = split($4, a, "[ \t]*,[ \t]*")
        for (i = 1; i <= n; i++)
            if (a[i] in _gr_groupsbyuser)
                _gr_groupsbyuser[a[i]] = _gr_groupsbyuser[a[i]] " " $1
            else
                _gr_groupsbyuser[a[i]] = $1

        _gr_bycount[++_gr_count] = $0
    }
    close(grcat)
    _gr_count = 0
    _gr_inited++
    FS = oldfs
    if (using_fw)
        FIELDWIDTHS = FIELDWIDTHS
    else if (using_fpat)
        FPAT = FPAT
    RS = oldrs
    $0 = olddol0
}
function getgrnam(group)
{
    _gr_init()
    return _gr_byname[group]
}
function getgrgid(gid)
{
    _gr_init()
    return _gr_bygid[gid]
}
function getgruser(user)
{
    _gr_init()
    return _gr_groupsbyuser[user]
}
function getgrent()
{
    _gr_init()
    if (++_gr_count in _gr_bycount)
        return _gr_bycount[_gr_count]
    return ""
}
function endgrent()
{
    _gr_count = 0
}

Name	Size	Perms	Modified	Actions
assert.awk	383 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
bits2str.awk	334 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
cliff_rand.awk	307 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
ctime.awk	234 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
ftrans.awk	315 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
getopt.awk	2.15 KB	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
gettime.awk	2.43 KB	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
group.awk	1.72 KB	lrw-r--r--	2022-04-18 15:55:53	Edit Download recursive recursive
have_mpfr.awk	221 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
inplace.awk	1.95 KB	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
intdiv0.awk	462 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
join.awk	378 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
libintl.awk	238 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
noassign.awk	422 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
ord.awk	937 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
passwd.awk	1.17 KB	lrw-r--r--	2022-04-18 15:55:53	Edit Download recursive recursive
processarray.awk	355 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
quicksort.awk	1.01 KB	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
readable.awk	489 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
readfile.awk	267 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
rewind.awk	404 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
round.awk	661 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
shellquote.awk	472 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
strtonum.awk	1.42 KB	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
walkarray.awk	214 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
zerofile.awk	424 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive

Directory Contents