tracediff (4018:77a084a042bb) | tracediff (5725:61c838ecc225) |
---|---|
1#! /usr/bin/env perl 2# Copyright (c) 2003-2007 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; --- 14 unchanged lines hidden (view full) --- 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 | 1#! /usr/bin/env perl 2# Copyright (c) 2003-2007 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; --- 14 unchanged lines hidden (view full) --- 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. | 31# invocations of m5. Takes a common m5 command line with embedded 32# alternatives and executes the two alternative commands in separate 33# subdirectories with output piped to rundiff. |
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. | 34# 35# ******Note that you need to enable some trace flags in the args in order 36# to do anything useful!****** 37# 38# Script arguments are handled uniformly as follows: 39# - If the argument does not contain a '|' character, it is appended 40# to both command lines. 41# - If the argument has a '|' character in it, the text on either side 42# of the '|' is appended to the respective command lines. Note that 43# you'll have to quote the arg or escape the '|' with a backslash 44# so that the shell doesn't think you're doing a pipe. |
45# - Arguments with '#' characters are split at those characters, 46# processed for alternatives ('|'s) as independent terms, then 47# pasted back into a single argument (without the '#'s). (Sort of 48# inspired by the C preprocessor '##' token pasting operator.) |
|
43# 44# In other words, the arguments should look like the command line you 45# want to run, with "|" used to list the alternatives for the parts 46# that you want to differ between the two runs. 47# 48# For example: 49# | 49# 50# In other words, the arguments should look like the command line you 51# want to run, with "|" used to list the alternatives for the parts 52# that you want to differ between the two runs. 53# 54# For example: 55# |
50# % tracediff m5.opt --opt1 "--opt2|--opt3" --opt4 | 56# % 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# | 57# would compare these two runs: 58# m5.opt --opt1 --opt2 --opt4 59# m5.opt --opt1 --opt3 --opt4 60# |
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 | 61# % tracediff 'path1|path2#/m5.opt' --opt1 --opt2 62# would compare these two runs: 63# path1/m5.opt --opt1 --opt2 64# path2/m5.opt --opt1 --opt2 65# 66# If you want to add arguments to one run only, just put a '|' in with 67# text only on one side ('--onlyOn1|'). You can do this with multiple 68# arguments together too ('|-a -b -c' adds three args to the second |
60# run only). 61# | 69# run only). 70# |
71# The '-n' argument to tracediff allows you to preview the two 72# generated command lines without running them. 73# |
|
62 63use FindBin; 64 | 74 75use FindBin; 76 |
65if (@ARGV < 2) { 66 die "Usage: tracediff \"sim1|sim2\" [common-arg \"arg1|arg2\" ...]\n"; | 77$dryrun = 0; 78 79if (@ARGV >= 1 && $ARGV[0] eq '-n') { 80 $dryrun = 1; 81 shift @ARGV; |
67} 68 | 82} 83 |
84if (@ARGV < 1) { 85 die "Usage: tracediff [-n] \"sim1|sim2\" [common-arg \"arg1|arg2\" ...]\n"; 86} 87 |
|
69foreach $arg (@ARGV) { | 88foreach $arg (@ARGV) { |
70 @pair = split('\|', $arg, -1); # -1 enables null trailing fields 71 if ($#pair > 0) { 72 push @cmd1, $pair[0]; 73 push @cmd2, $pair[1]; 74 } else { 75 push @cmd1, $arg; 76 push @cmd2, $arg; | 89 $a1 = $a2 = ''; 90 @subargs = split('#', $arg, -1); 91 foreach $subarg (@subargs) { 92 @pair = split('\|', $subarg, -1); # -1 enables null trailing fields 93 if (@pair == 1) { 94 $a1 .= $subarg; 95 $a2 .= $subarg; 96 } elsif (@pair == 2) { 97 $a1 .= $pair[0]; 98 $a2 .= $pair[1]; 99 } else { 100 print 'Parse error: too many |s in ', $arg, '\n'; 101 exit(1); 102 } |
77 } | 103 } |
104 105 push @cmd1, $a1; 106 push @cmd2, $a2; |
|
78} 79 | 107} 108 |
109 110if ($dryrun) { 111 print "CMD1: ", join(' ', @cmd1), "\n"; 112 print "CMD2: ", join(' ', @cmd2), "\n"; 113 exit(0); 114} 115 |
|
80# First two args are the two simulator binaries to compare 81$sim1 = shift @cmd1; 82$sim2 = shift @cmd2; 83 84# Everything else is a simulator arg. 85$args1 = join(' ', @cmd1); 86$args2 = join(' ', @cmd2); 87 --- 27 unchanged lines hidden --- | 116# First two args are the two simulator binaries to compare 117$sim1 = shift @cmd1; 118$sim2 = shift @cmd2; 119 120# Everything else is a simulator arg. 121$args1 = join(' ', @cmd1); 122$args2 = join(' ', @cmd2); 123 --- 27 unchanged lines hidden --- |