diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2010-07-16 12:41:09 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2010-07-16 12:41:09 +0300 |
| commit | 8c042f99cc7465c86351d21331a129111b75345d (patch) | |
| tree | 9656e653be0e42e5469cec77635c20356de152c2 /awklib/passwd.awk | |
| parent | 8ceb5f934787eb7be5fb452fb39179df66119954 (diff) | |
| download | egawk-8c042f99cc7465c86351d21331a129111b75345d.tar.gz egawk-8c042f99cc7465c86351d21331a129111b75345d.tar.bz2 egawk-8c042f99cc7465c86351d21331a129111b75345d.zip | |
Move to gawk-3.0.0.
Diffstat (limited to 'awklib/passwd.awk')
| -rw-r--r-- | awklib/passwd.awk | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/awklib/passwd.awk b/awklib/passwd.awk new file mode 100644 index 00000000..7b64f60d --- /dev/null +++ b/awklib/passwd.awk @@ -0,0 +1,56 @@ +# passwd.awk --- access password file information +# Arnold Robbins, arnold@gnu.ai.mit.edu, Public Domain +# May 1993 + +BEGIN { + # tailor this to suit your system + _pw_awklib = "/usr/local/libexec/awk/" +} + +function _pw_init( oldfs, oldrs, olddol0, pwcat) +{ + if (_pw_inited) + return + oldfs = FS + oldrs = RS + olddol0 = $0 + FS = ":" + RS = "\n" + pwcat = _pw_awklib "pwcat" + while ((pwcat | getline) > 0) { + _pw_byname[$1] = $0 + _pw_byuid[$3] = $0 + _pw_bycount[++_pw_total] = $0 + } + close(pwcat) + _pw_count = 0 + _pw_inited = 1 + FS = oldfs + RS = oldrs + $0 = olddol0 +} +function getpwnam(name) +{ + _pw_init() + if (name in _pw_byname) + return _pw_byname[name] + return "" +} +function getpwuid(uid) +{ + _pw_init() + if (uid in _pw_byuid) + return _pw_byuid[uid] + return "" +} +function getpwent() +{ + _pw_init() + if (_pw_count < _pw_total) + return _pw_bycount[++_pw_count] + return "" +} +function endpwent() +{ + _pw_count = 0 +} |