blob: 351af7844ed95d0823bbb8c54cee06fe340e29fb (
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
|
#!/usr/bin/perl
#
# Scrub the variable fields from the perf trace2 output to
# make testing easier.
use strict;
use warnings;
my $qpath = '\'[^\']*\'|[^ ]*';
my $col_depth=0;
my $col_thread=1;
my $col_event=2;
my $col_repo=3;
my $col_t_abs=4;
my $col_t_rel=5;
my $col_category=6;
my $col_rest=7;
# This code assumes that the trace2 data was written with bare
# turned on (which omits the "<clock> <file>:<line> | <parents>"
# prefix.
while (<>) {
my @tokens = split /\|/;
foreach my $col (@tokens) { $col =~ s/^\s+|\s+$//g; }
if ($tokens[$col_event] =~ m/^start/) {
# The 'start' message lists the contents of argv in $col_rest.
# On some platforms (Windows), argv[0] is *sometimes* a canonical
# absolute path to the EXE rather than the value passed in the
# shell script. Replace it with a placeholder to simplify our
# HEREDOC in the test script.
my $argv0;
my $argvRest;
$tokens[$col_rest] =~ s/^($qpath)\W*(.*)/_EXE_ $2/;
}
elsif ($tokens[$col_event] =~ m/cmd_path/) {
# Likewise, the 'cmd_path' message breaks out argv[0].
#
# This line is only emitted when RUNTIME_PREFIX is defined,
# so just omit it for testing purposes.
# $tokens[$col_rest] = "_EXE_";
goto SKIP_LINE;
}
elsif ($tokens[$col_event] =~ m/child_exit/) {
$tokens[$col_rest] =~ s/ pid:\d* / pid:_PID_ /;
}
elsif ($tokens[$col_event] =~ m/data/) {
if ($tokens[$col_category] =~ m/process/) {
# 'data' and 'data_json' events containing 'process'
# category data are assumed to be platform-specific
# and highly variable. Just omit them.
goto SKIP_LINE;
}
}
# t_abs and t_rel are either blank or a float. Replace the float
# with a constant for matching the HEREDOC in the test script.
if ($tokens[$col_t_abs] =~ m/\d/) {
$tokens[$col_t_abs] = "_T_ABS_";
}
if ($tokens[$col_t_rel] =~ m/\d/) {
$tokens[$col_t_rel] = "_T_REL_";
}
my $out;
$out = join('|', @tokens);
print "$out\n";
SKIP_LINE:
}
|
