home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / MAWK113.ZIP / mawk113 / msdos / examples / srcstat2.awk < prev    next >
Text File  |  1992-12-05  |  753b  |  29 lines
  1. # Ben Myers <0003571400@mcimail.com>
  2.  
  3. # Sum up number, line count, and sizes of SOURCE files in current directory
  4. # run with 
  5. #       bmawk -fsrcsize.awk workfile
  6. # or similar command syntax with your awk program
  7. # where workfile is a work file
  8. BEGIN {
  9. # redirection done by shelled command
  10. system("dir *.* >workfile")
  11. ssize = 0   # size accumulator
  12. slines = 0  # line counter
  13. scount = 0  # obj counter
  14. exit
  15. }
  16. END {
  17. # Now read workfile back in
  18.     while (getline < "workfile" > 0) {
  19.     if ($2 == "C" || $2 == "H" || $2 == "CPP" || $2 == "HPP")  {
  20.     filename = sprintf("%s.%s", $1, $2)
  21.     ssize += $3
  22.     while (getline < filename > 0) {slines++}
  23.     scount++
  24.     }
  25.     }
  26. print scount " files, " slines " lines, total size " ssize " bytes"
  27. system("del workfile")
  28. }
  29.