home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / MAWK113.ZIP / mawk113 / msdos / examples / winexe.awk < prev    next >
Text File  |  1992-12-05  |  4KB  |  107 lines
  1. # Ben Myers <0003571400@mcimail.com>
  2.  
  3. # Sum up segment sizes of all Windows EXEs in current directory
  4. # requires DOS 5.0 and Borland TDUMP
  5. # run with
  6. #       awk -fwinexe.awk work1
  7. # where work1 is a work file
  8. # You must have at least one filename as an arg, else awk will want to read
  9. # from con:, hence the requirement for work1
  10. BEGIN {
  11. # redirection done by shelled command
  12. system("del workfile.$%$") # Will probably cause a File Not Found message
  13. # Generate a list of EXEs
  14. system("dir *.exe /b > workfile.$%$")
  15. while (getline < "workfile.$%$" > 0) {
  16. # TDUMP keeps on piping to the workfile
  17. system("tdump " $1 ">> " ARGV[1])
  18. }
  19. module_name = "" # initialize
  20. # Now read workfile back, processing lines that:
  21. # 1. contain EXE file name
  22. # 2. contain segment type
  23. # Print EXE name and stats for each segment type processed
  24. # When there is a new EXE name, print summary for EXE just processed
  25. j = 1
  26. while (getline < ARGV[1] > 0) {
  27. # module name
  28. if($1 == "Display" && $2 == "of" && $3 == "File") {
  29. # Print program summary for all but last program
  30. if(module_name != "") { Print_Summary() }
  31. otcount = 0 # text segment counter
  32. odcount = 0 # data segment counter
  33. otsize = 0  # text size accumulator
  34. odsize = 0  # data size accumulator
  35. module_name = $4 }
  36. # File Size
  37. if($1 == "DOS" && $2 == "File" && $3 == "Size") {
  38. # 6+ digit file size with leading left paren
  39. DOS_Size = substr($5,2,7)
  40. # file size < 6 digits
  41. if(DOS_Size == 0 || DOS_Size == "") { DOS_Size = $6 }
  42. }
  43. # CODE segment
  44. if($1 == "Segment" && $2 == "Type:" && $3 =="CODE") {
  45. decval = hexdec(substr($7,1,4))
  46. otsize += decval
  47. # printf ("%12s CODE %4s %7u\n", module_name, $7, decval)
  48. otcount++ }
  49. # DATA segment
  50. if($1 == "Segment" && $2 == "Type:" && $3 =="DATA") {
  51. decval = hexdec(substr($7,1,4))
  52. odsize += decval
  53. # printf ("%12s DATA %4s %7u\n", module_name, $7, decval)
  54. odcount++ }
  55. } # while
  56. } # end of BEGIN section
  57. # no main loop at all!
  58. END {
  59. # print record for last program
  60. Print_Summary()
  61. # delete work files
  62. system("del "ARGV[1])
  63. system("del workfile.$%$")
  64. }  # end of END section
  65.  
  66. # No scanf in awk, so convert hex string x to decimal the hard way
  67. function hexdec (x) {
  68. result = 0
  69. for (i=1; i<=length(x); i++) {
  70. thechar = substr(x,i,1)
  71. # digits 0-9 and lower case hex produced by TDUMP
  72. # use brute force
  73. if (thechar == "0") {result = result*16}
  74. if (thechar == "1") {result = result*16 + 1}
  75. if (thechar == "2") {result = result*16 + 2}
  76. if (thechar == "3") {result = result*16 + 3}
  77. if (thechar == "4") {result = result*16 + 4}
  78. if (thechar == "5") {result = result*16 + 5}
  79. if (thechar == "6") {result = result*16 + 6}
  80. if (thechar == "7") {result = result*16 + 7}
  81. if (thechar == "8") {result = result*16 + 8}
  82. if (thechar == "9") {result = result*16 + 9}
  83. if (thechar == "a") {result = result*16 + 10}
  84. if (thechar == "b") {result = result*16 + 11}
  85. if (thechar == "c") {result = result*16 + 12}
  86. if (thechar == "d") {result = result*16 + 13}
  87. if (thechar == "e") {result = result*16 + 14}
  88. if (thechar == "f") {result = result*16 + 15}
  89. if (thechar == "A") {result = result*16 + 10}
  90. if (thechar == "B") {result = result*16 + 11}
  91. if (thechar == "C") {result = result*16 + 12}
  92. if (thechar == "D") {result = result*16 + 13}
  93. if (thechar == "E") {result = result*16 + 14}
  94. if (thechar == "F") {result = result*16 + 15}
  95. } # for (i=1;i<length(x);i++)
  96. return result
  97. } # function hexdec (x)
  98.  
  99. function Print_Summary () {
  100. # zero segment counts mean non-Windows EXE, so don't print
  101. if (otcount+otcount != 0) {
  102. printf ("%12s - %10.0f bytes\n", module_name, DOS_Size)
  103. printf ("%5.0f TEXT segments with %10.0f bytes\n", otcount, otsize)
  104. printf ("%5.0f DATA segments with %10.0f bytes\n", odcount, odsize)
  105. }
  106. }
  107.