1#! /usr/bin/env perl
2# Copyright (c) 2003-2006 The Regents of The University of Michigan
3# All rights reserved.
4#
5# Redistribution and use in source and binary forms, with or without
6# modification, are permitted provided that the following conditions are
7# met: redistributions of source code must retain the above copyright
8# notice, this list of conditions and the following disclaimer;
9# redistributions in binary form must reproduce the above copyright
10# notice, this list of conditions and the following disclaimer in the
11# documentation and/or other materials provided with the distribution;
12# neither the name of the copyright holders nor the names of its
13# contributors may be used to endorse or promote products derived from
14# this software without specific prior written permission.
15#
16# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
17# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
18# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
19# A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
20# OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
21# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
22# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
26# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27#
28# Authors: Steve Reinhardt
29
30# Script to simplify using rundiff on trace outputs from two
31# invocations of m5.
32#
33# ******Note that you need to enable some trace flags in the args in order
34# to do anything useful!******
35#
36# Script arguments are handled uniformly as follows:
37# - If the argument does not contain a '|' character, it is appended
38# to both command lines.
39# - If the argument has a '|' character in it, the text on either side
40# of the '|' is appended to the respective command lines. Note that
41# you'll have to quote the arg or escape the '|' with a backslash
42# so that the shell doesn't think you're doing a pipe.
43#
| 1#! /usr/bin/env perl
2# Copyright (c) 2003-2006 The Regents of The University of Michigan
3# All rights reserved.
4#
5# Redistribution and use in source and binary forms, with or without
6# modification, are permitted provided that the following conditions are
7# met: redistributions of source code must retain the above copyright
8# notice, this list of conditions and the following disclaimer;
9# redistributions in binary form must reproduce the above copyright
10# notice, this list of conditions and the following disclaimer in the
11# documentation and/or other materials provided with the distribution;
12# neither the name of the copyright holders nor the names of its
13# contributors may be used to endorse or promote products derived from
14# this software without specific prior written permission.
15#
16# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
17# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
18# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
19# A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
20# OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
21# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
22# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
26# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27#
28# Authors: Steve Reinhardt
29
30# Script to simplify using rundiff on trace outputs from two
31# invocations of m5.
32#
33# ******Note that you need to enable some trace flags in the args in order
34# to do anything useful!******
35#
36# Script arguments are handled uniformly as follows:
37# - If the argument does not contain a '|' character, it is appended
38# to both command lines.
39# - If the argument has a '|' character in it, the text on either side
40# of the '|' is appended to the respective command lines. Note that
41# you'll have to quote the arg or escape the '|' with a backslash
42# so that the shell doesn't think you're doing a pipe.
43#
|
44# For example:
45#
46# % tracediff m5.opt --opt1 "--opt2|--opt3" --opt4
47# would compare these two runs:
48# m5.opt --opt1 --opt2 --opt4
49# m5.opt --opt1 --opt3 --opt4
50#
51# If you want to compare two different simulator binaries, put a '|'
52# in the first script argument ("path1/m5.opt|path2/m5.opt"). If you
53# want to add arguments to one run only, just put a '|' in with text
54# only on one side ("--onlyOn1|"). You can do this with multiple
55# arguments together too ("|-a -b -c" adds three args to the second
56# run only).
57#
58
59if (@ARGV < 2) {
60 die "Usage: tracediff \"sim1|sim2\" [common-arg \"arg1|arg2\" ...]\n";
61}
62
63foreach $arg (@ARGV) {
64 @pair = split('\|', $arg, -1); # -1 enables null trailing fields
65 if ($#pair > 0) {
66 push @cmd1, $pair[0];
67 push @cmd2, $pair[1];
68 } else {
69 push @cmd1, $arg;
70 push @cmd2, $arg;
71 }
72}
73
74# First two args are the two simulator binaries to compare
75$sim1 = shift @cmd1;
76$sim2 = shift @cmd2;
77
78# Everything else is a simulator arg.
79$args1 = join(' ', @cmd1);
80$args2 = join(' ', @cmd2);
81
| 48# For example:
49#
50# % tracediff m5.opt --opt1 "--opt2|--opt3" --opt4
51# would compare these two runs:
52# m5.opt --opt1 --opt2 --opt4
53# m5.opt --opt1 --opt3 --opt4
54#
55# If you want to compare two different simulator binaries, put a '|'
56# in the first script argument ("path1/m5.opt|path2/m5.opt"). If you
57# want to add arguments to one run only, just put a '|' in with text
58# only on one side ("--onlyOn1|"). You can do this with multiple
59# arguments together too ("|-a -b -c" adds three args to the second
60# run only).
61#
62
63if (@ARGV < 2) {
64 die "Usage: tracediff \"sim1|sim2\" [common-arg \"arg1|arg2\" ...]\n";
65}
66
67foreach $arg (@ARGV) {
68 @pair = split('\|', $arg, -1); # -1 enables null trailing fields
69 if ($#pair > 0) {
70 push @cmd1, $pair[0];
71 push @cmd2, $pair[1];
72 } else {
73 push @cmd1, $arg;
74 push @cmd2, $arg;
75 }
76}
77
78# First two args are the two simulator binaries to compare
79$sim1 = shift @cmd1;
80$sim2 = shift @cmd2;
81
82# Everything else is a simulator arg.
83$args1 = join(' ', @cmd1);
84$args2 = join(' ', @cmd2);
85
|