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