1 files changed, 16 insertions, 0 deletions
diff --git a/coreutils-5.3.0-bin/share/awk/readable.awk b/coreutils-5.3.0-bin/share/awk/readable.awk
new file mode 100644
index 0000000..dbbab57
--- /dev/null
+++ b/coreutils-5.3.0-bin/share/awk/readable.awk
@@ -0,0 +1,16 @@
+# readable.awk --- library file to skip over unreadable files
+#
+# Arnold Robbins, arnold@skeeve.com, 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])
+    }
+}