From 223f0286ad0612783e0da01de3b5bfdc52e3b25c Mon Sep 17 00:00:00 2001
From: obrien <obrien@FreeBSD.org>
Date: Fri, 2 Nov 2001 21:06:08 +0000
Subject: Update vendor branch to gawk-3.1.0.

---
 contrib/awk/awklib/eg/lib/readable.awk | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 contrib/awk/awklib/eg/lib/readable.awk

(limited to 'contrib/awk/awklib/eg/lib/readable.awk')

diff --git a/contrib/awk/awklib/eg/lib/readable.awk b/contrib/awk/awklib/eg/lib/readable.awk
new file mode 100644
index 0000000..51705ae
--- /dev/null
+++ b/contrib/awk/awklib/eg/lib/readable.awk
@@ -0,0 +1,16 @@
+# readable.awk --- library file to skip over unreadable files
+#
+# Arnold Robbins, arnold@gnu.org, Public Domain
+# October 2000
+
+BEGIN {
+    for (i = 1; i < ARGC; i++) {
+        if (ARGV[i] ~ /^[A-Za-z_][A-Za-z0-9_]*=.*/ \
+            || ARGV[i] == "-")
+            continue    # assignment or standard input
+        else if ((getline junk < ARGV[i]) < 0) # unreadable
+            delete ARGV[i]
+        else
+            close(ARGV[i])
+    }
+}
-- 
cgit v1.1