mirror of
https://github.com/AdaCore/gsh.git
synced 2026-02-12 12:27:10 -08:00
17 lines
446 B
Awk
17 lines
446 B
Awk
# 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])
|
|
}
|
|
}
|