home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 June / PCWorld_2005-06_cd.bin / software / vyzkuste / firewally / firewally.exe / framework-2.3.exe / readable.awk < prev    next >
Encoding:
AWK Script  |  2003-10-29  |  443 b   |  17 lines
  1. # readable.awk --- library file to skip over unreadable files
  2. #
  3. # Arnold Robbins, arnold@gnu.org, 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. }
  17.