home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / pp / pp-6.0 / Tools / ppbm / pp-bench.awk < prev    next >
Encoding:
AWK Script  |  1991-11-24  |  779 b   |  53 lines
  1. #! /bin/sh
  2.  
  3. nawk '
  4. BEGIN { FS = "@" }
  5. NF > 1 {
  6.     if ($NF    == "T{") {
  7.         for (i = 1; i < NF; i++)
  8.             printf "%s@", $i
  9.         
  10.         while (getline > 0) {
  11.             if ($1 == "T}") {
  12.                 for (i = 2; i <= NF; i++)
  13.                     printf "@%s", $i
  14.                 break
  15.             }
  16.             else printf "%s ", $0
  17.         }
  18.         printf "\n"
  19.     }
  20.     else
  21.         print $0
  22. }
  23. ' $* |
  24. nawk '
  25. BEGIN { FS = "@"; OFS = "@"
  26. }
  27. NF == 1 { next }
  28. /tab\(/ { next }
  29. $1 == "Model" { next }
  30.     {
  31.         if ($1 == "\\^") $1 = last1
  32.         if ($2 == "\\^") $2 = last2
  33.         print $1, $2, $6, $7
  34.         last1 = $1
  35.         last2 = $2
  36.     }
  37. ' | sort -t@ +2nr |
  38. nawk '
  39. BEGIN {
  40.     print ".TS H"
  41.     print "tab(@);"
  42.     print "c s s s"
  43.     print "cfB cfB cfB cfB"
  44.     print "a a n l."
  45.     print "PP Benchmark Summary (sorted)"
  46.     print ".sp .5"
  47.     print "Model@Disc@M/s@Notes"
  48.     print ".TH"
  49.     print "="
  50. }
  51.     { print }
  52. END { print ".TE" }
  53.