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. 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. |
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.) |
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# |
56# % tracediff m5.opt --opt1 '--opt2|--opt3' --opt4 |
57# would compare these two runs: 58# m5.opt --opt1 --opt2 --opt4 59# m5.opt --opt1 --opt3 --opt4 60# |
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 |
69# run only). 70# |
71# The '-n' argument to tracediff allows you to preview the two 72# generated command lines without running them. 73# |
74 75use FindBin; 76 |
77$dryrun = 0; 78 79if (@ARGV >= 1 && $ARGV[0] eq '-n') { 80 $dryrun = 1; 81 shift @ARGV; |
82} 83 |
84if (@ARGV < 1) { 85 die "Usage: tracediff [-n] \"sim1|sim2\" [common-arg \"arg1|arg2\" ...]\n"; 86} 87 |
88foreach $arg (@ARGV) { |
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 } |
103 } |
104 105 push @cmd1, $a1; 106 push @cmd2, $a2; |
107} 108 |
109 110if ($dryrun) { 111 print "CMD1: ", join(' ', @cmd1), "\n"; 112 print "CMD2: ", join(' ', @cmd2), "\n"; 113 exit(0); 114} 115 |
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 --- |