blob: 7cc4de392a051e68d438c19c0a179b2b47b3c4ae (
plain)
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
|
#!/usr/bin/perl
#
# Scrub the variable fields from the normal trace2 output to
# make testing easier.
use strict;
use warnings;
my $float = '[0-9]*\.[0-9]+([eE][-+]?[0-9]+)?';
# This code assumes that the trace2 data was written with bare
# turned on (which omits the "<clock> <file>:<line>" prefix.
while (<>) {
# Various messages include an elapsed time in the middle
# of the message. Replace the time with a placeholder to
# simplify our HEREDOC in the test script.
s/elapsed:$float/elapsed:_TIME_/g;
my $line = $_;
# we expect:
# start <argv0> [<argv1> [<argv2> [...]]]
#
# where argv0 might be a relative or absolute path, with
# or without quotes, and platform dependent. Replace argv0
# with a token for HEREDOC matching in the test script.
if ($line =~ m/^start/) {
$line =~ /^start\s+(.*)/;
my $argv = $1;
$argv =~ m/(\'[^\']*\'|[^ ]+)\s+(.*)/;
my $argv_0 = $1;
my $argv_rest = $2;
print "start _EXE_ $argv_rest\n";
}
elsif ($line =~ 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.
# print "cmd_path _EXE_\n";
}
elsif ($line =~ m/^cmd_ancestry/) {
# 'cmd_ancestry' is not implemented everywhere, so for portability's
# sake, skip it when parsing normal.
#
# print "$line";
}
else {
print "$line";
}
}
|
