codekingpro/portable-devtools

1# readable.awk --- library file to skip over unreadable files2#3# This file and how to use it are described in the manual.4# Therefore, we respectfully advise you to Read The Fine Manual5# for more information.6#7# Arnold Robbins, arnold@skeeve.com, Public Domain8# October 20009# December 201010 11BEGIN {12    for (i = 1; i < ARGC; i++) {13        if (ARGV[i] ~ /^[a-zA-Z_][a-zA-Z0-9_]*=.*/ \14            || ARGV[i] == "-" || ARGV[i] == "/dev/stdin")15            continue    # assignment or standard input16        else if ((getline junk < ARGV[i]) < 0) # unreadable17            delete ARGV[i]18        else19            close(ARGV[i])20    }21}22