From bc70de7b3302d5a81515b901cae376b8b51d2004 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Fri, 16 Jul 2010 13:09:56 +0300
Subject: Move to gawk-3.1.0.

---
 awklib/eg/lib/groupawk.in | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'awklib/eg/lib/groupawk.in')

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
 }
-- 
cgit v1.2.3