diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2010-07-16 13:09:56 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2010-07-16 13:09:56 +0300 |
| commit | bc70de7b3302d5a81515b901cae376b8b51d2004 (patch) | |
| tree | d36d6743e65697f6923b79d0ea8f9f9bf4ef7398 /awklib/eg/lib/groupawk.in | |
| parent | b9e4a1fd4c8c8753ab8a9887bab55f03efe1e3e2 (diff) | |
| download | egawk-bc70de7b3302d5a81515b901cae376b8b51d2004.tar.gz egawk-bc70de7b3302d5a81515b901cae376b8b51d2004.tar.bz2 egawk-bc70de7b3302d5a81515b901cae376b8b51d2004.zip | |
Move to gawk-3.1.0.
Diffstat (limited to 'awklib/eg/lib/groupawk.in')
| -rw-r--r-- | awklib/eg/lib/groupawk.in | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/awklib/eg/lib/groupawk.in b/awklib/eg/lib/groupawk.in index 11a72a5a..9d8b4021 100644 --- a/awklib/eg/lib/groupawk.in +++ b/awklib/eg/lib/groupawk.in @@ -1,13 +1,17 @@ # group.awk --- functions for dealing with the group file +# # Arnold Robbins, arnold@gnu.org, Public Domain # May 1993 +# Revised October 2000 BEGIN \ { # Change to suit your system _gr_awklib = "/usr/local/libexec/awk/" } -function _gr_init( oldfs, oldrs, olddol0, grcat, n, a, i) + +function _gr_init( oldfs, oldrs, olddol0, grcat, + using_fw, n, a, i) { if (_gr_inited) return @@ -15,6 +19,7 @@ function _gr_init( oldfs, oldrs, olddol0, grcat, n, a, i) oldfs = FS oldrs = RS olddol0 = $0 + using_fw = (PROCINFO["FS"] == "FIELDWIDTHS") FS = ":" RS = "\n" @@ -43,6 +48,8 @@ function _gr_init( oldfs, oldrs, olddol0, grcat, n, a, i) _gr_count = 0 _gr_inited++ FS = oldfs + if (using_fw) + FIELDWIDTHS = FIELDWIDTHS RS = oldrs $0 = olddol0 } |