share/awk/readable.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])
    }
}
Revision:	1046
Committed:	Mon Aug 29 13:19:38 2016 UTC (9 years, 2 months ago) by alloc
File size:	446 byte(s)
Log Message:	Daodan: Added Windows MinGW and build batch file
#	Content
1	# readable.awk --- library file to skip over unreadable files
2	#
3	# Arnold Robbins, arnold@skeeve.com, Public Domain
4	# October 2000
5
6	BEGIN {
7	for (i = 1; i < ARGC; i++) {
8	if (ARGV[i] ~ /^[A-Za-z_][A-Za-z0-9_]=./ \
9	\|\| ARGV[i] == "-")
10	continue # assignment or standard input
11	else if ((getline junk < ARGV[i]) < 0) # unreadable
12	delete ARGV[i]
13	else
14	close(ARGV[i])
15	}
16	}