Added Cyg-Win
This commit is contained in:
parent
82cbc206eb
commit
413c315806
10586 changed files with 3806249 additions and 0 deletions
21
Agent-Windows/OGP64/usr/share/awk/readable.awk
Normal file
21
Agent-Windows/OGP64/usr/share/awk/readable.awk
Normal file
|
|
@ -0,0 +1,21 @@
|
|||
# readable.awk --- library file to skip over unreadable files
|
||||
#
|
||||
# This file and how to use it are described in the manual.
|
||||
# Therefore, we respectfully advise you to Read The Fine Manual
|
||||
# for more information.
|
||||
#
|
||||
# Arnold Robbins, arnold@skeeve.com, Public Domain
|
||||
# October 2000
|
||||
# December 2010
|
||||
|
||||
BEGIN {
|
||||
for (i = 1; i < ARGC; i++) {
|
||||
if (ARGV[i] ~ /^[a-zA-Z_][a-zA-Z0-9_]*=.*/ \
|
||||
|| ARGV[i] == "-" || ARGV[i] == "/dev/stdin")
|
||||
continue # assignment or standard input
|
||||
else if ((getline junk < ARGV[i]) < 0) # unreadable
|
||||
delete ARGV[i]
|
||||
else
|
||||
close(ARGV[i])
|
||||
}
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue