home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / ncurses-1.9.9e-src.tgz / tar.out / fsf / ncurses / test / tracemunch < prev    next >
Text File  |  1996-09-28  |  2KB  |  99 lines
  1. #!/usr/bin/perl
  2. #
  3. # tracemunch -- compactify ncurses trace logs
  4. #
  5. # The error logs produced by ncurses with tracing enabled can be very tedious
  6. # to wade through.  This script helps by compacting runs of log lines that
  7. # can be conveniently expressed as higher-level operations.
  8. #
  9. # ($Id: tracemunch,v 1.2 1995/10/06 15:02:37 esr Exp $)
  10.  
  11. $putattr="PutAttrChar\\('(.)' = 0x.., {A_NORMAL}\\) at \\(([0-9]+), ([0-9]+)\\)";
  12. $waddnstr="waddnstr\\(0x([0-9a-f]+),\"([^\"]+)\",[0-9]+\\) called {A_NORMAL}";
  13.  
  14. sub transaddr
  15. {
  16.     $arg = $_[0];
  17.  
  18.     $arg =~ s/$curscr/curscr/ if ($curscr);
  19.     $arg =~ s/$newscr/newscr/ if ($newscr);
  20.     $arg =~ s/$stdscr/stdscr/ if ($stdscr);
  21.  
  22.     return $arg;
  23. }
  24.  
  25. while (<STDIN>)
  26. {
  27. CLASSIFY: {
  28.     # Transform window pointer addresses so it's easier to compare logs
  29.         $awaiting = "curscr" if ($_ =~ /creating curscr/);
  30.         $awaiting = "newscr" if ($_ =~ /creating newscr/);
  31.         $awaiting = "stdscr" if ($_ =~ /creating stdscr/);
  32.     if ($awaiting && $_ =~ /newwin: returned window is 0x([0-9a-f]+)/)
  33.     {
  34.         $curscr = "0x$1" if ($awaiting eq "curscr");
  35.         $newscr = "0x$1" if ($awaiting eq "newscr");
  36.         $stdscr = "0x$1" if ($awaiting eq "stdscr");
  37.         $awaiting = "";
  38.     }
  39.  
  40.     # Compactify runs of PutAttrChar calls (TR_CHARPUT)
  41.     if ($_ =~ /$putattr/)
  42.     {
  43.         $putattr_chars = $1;
  44.         $starty = $2;
  45.         $startx = $3;
  46.         while (<STDIN>)
  47.         {
  48.             if ($_ =~ /$putattr/) {
  49.                 $putattr_chars .= $1;
  50.             } else {
  51.                 last;
  52.             }
  53.         }
  54.         print "RUN of PutAttrChar()s: \"$putattr_chars\" from ${starty}, ${startx}\n";
  55.         redo CLASSIFY;
  56.     }
  57.  
  58.     # Compactify runs of waddnstr calls (TR_CALLS)
  59.     if ($_ =~ /$waddnstr/)
  60.     {
  61.         $waddnstr_chars = $2;
  62.         $winaddr = $1;
  63.         while (<STDIN>)
  64.         {
  65.             if ($_ =~ /$waddnstr/ && $1 eq $winaddr) {
  66.                 $waddnstr_chars .= $2;
  67.             } else {
  68.                 last;
  69.             }
  70.         }
  71.         $winaddstr = &transaddr($winaddr);
  72.         print "RUN of waddnstr()s: $winaddr, \"$waddnstr_chars\"\n";
  73.         redo CLASSIFY;
  74.     }
  75.  
  76.     # More transformations can go here
  77.  
  78.     # Repeated runs of anything
  79.     $anyline = &transaddr($_);
  80.     $repeatcount = 1;
  81.     while (<STDIN>) {
  82.         if (&transaddr($_) eq $anyline) {
  83.         $repeatcount++;
  84.         } else {
  85.         last;
  86.         }
  87.     }
  88.     if ($repeatcount > 1) {
  89.         print "${repeatcount} REPEATS OF $anyline";
  90.     } else {
  91.         print $anyline
  92.     }
  93.     redo CLASSIFY if $_;
  94.  
  95.     } # :CLASSIFY
  96. }
  97.  
  98. # tracemunch ends here
  99.