home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / awk / awk320.zip / XREF.AWK < prev   
Text File  |  1991-04-24  |  623b  |  28 lines
  1. # generate cross reference of identifiers in a program
  2.  
  3. #   Original program courtesy Bruce Feist of Arlington VA
  4.  
  5. { 
  6. # remove non alphanumeric characters
  7.     gsub (/[`~!@#%\^&\*\(\)\+\|\-=\\\[\]{};':\",\./\<\>\?\/]/, " ")
  8. # convert to upper case
  9.     $0 = toupper($0)
  10. # add reference
  11.     for (i = 1; i <= NF; i++)
  12.     {
  13.         if ($i !~ /^[0-9]+$/ && done[$i] != NR)  # check if number or done
  14.         {
  15.             done[$i] = NR               # mark as done
  16.             xref[$i] = xref[$i] " " NR  # add reference
  17.         }
  18.     }
  19. }
  20.  
  21. END {
  22.     for (i in xref)
  23.         print i ": ", xref[i]
  24. }
  25.  
  26.  
  27.  
  28.