home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c100 / 1.ddi / SNAV0111.ZIP / COUNT.AWK < prev    next >
Encoding:
Text File  |  1990-04-16  |  667 b   |  20 lines
  1. procedure used to count number of lines in snav code, as appearing
  2. in file contents.prn.
  3.  
  4. 1. file count.bat:
  5.   for %%f in (snav*.hpp) do awk -f count1.awk %%f  >count.dat
  6.   for %%f in (snav*.cpp) do awk -f count1.awk %%f >>count.dat
  7.   for %%f in (demo*.hpp) do awk -f count1.awk %%f >>count.dat
  8.   for %%f in (demo*.cpp) do awk -f count1.awk %%f >>count.dat
  9.   awk -f count2.awk count.dat
  10.  
  11. 2. file count1.awk:
  12.   $1 ~ /^\/\*/ , $0 ~ /\*\// {crems++}
  13.   $1 ~ /^\/\// {cpprems++}
  14.   $1 == "" {blanks++}
  15.   END {printf "%32s %04d %04d\n",FILENAME,NR,NR-cpprems-crems-blanks}
  16.  
  17. 2. file count2.awk:
  18.   {numtot+=$2; numgood+=$3}
  19.   END {print numtot OFS numgood}
  20.