home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / AWK210.ZIP / XREF.AWK < prev   
Encoding:
AWK Script  |  1988-10-10  |  764 b   |  32 lines
  1. #Original program courtesy Bruce Feist of Arlington VA
  2.  
  3. { 
  4. # remove non alphanumeric characters
  5.     gsub (/[`~!@#%\^&\*\(\)\+\|\-=\\\[\]{};':\",\./\<\>\?\/]/, " ")
  6. # convert to upper case
  7.     for (i = 1; i <= 26; i++)           # go through alphabet
  8.         gsub (substr (lowers, i, 1), substr (uppers, i, 1))
  9. # add reference
  10.     for (i = 1; i <= NF; i++)
  11.     {
  12.         if ($i !~ /^[0-9]+$/ && done[$i] != NR)  # check if number or done
  13.         {
  14.             done[$i] = NR               # mark as done
  15.             xref[$i] = xref[$i] " " NR  # add reference
  16.         }
  17.     }
  18. }
  19.  
  20. BEGIN {
  21.     uppers = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  22.     lowers = "abcdefghijklmnopqrstuvwxyz"
  23. }
  24.  
  25. END {
  26.     for (i in xref)
  27.         print i ": ", xref[i]
  28. }
  29.  
  30.  
  31.  
  32.