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/readable.awk | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 awklib/eg/lib/readable.awk

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

diff --git a/awklib/eg/lib/readable.awk b/awklib/eg/lib/readable.awk
new file mode 100644
index 00000000..51705aea
--- /dev/null
+++ b/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.2.3