diff options
Diffstat (limited to 'contrib/awk/awklib/eg/lib/readable.awk')
-rw-r--r-- | contrib/awk/awklib/eg/lib/readable.awk | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/contrib/awk/awklib/eg/lib/readable.awk b/contrib/awk/awklib/eg/lib/readable.awk deleted file mode 100644 index 51705ae..0000000 --- a/contrib/awk/awklib/eg/lib/readable.awk +++ /dev/null @@ -1,16 +0,0 @@ -# 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]) - } -} |