view scripts/bsv-trace.pl @ 36:99519a031813 pygar svn.37

[svn r37] moved the server into audioCorePipeline
author punk
date Tue, 04 May 2010 18:54:54 -0400
parents 90197e3375e2
children
line wrap: on
line source
1 #!/usr/bin/perl -w
2 #==========================================================================
3 # bsc-trace.pl
4 #
5 # Author : Christopher Batten (cbatten@mit.edu)
6 # Date : April 12, 2005
7 #
8 (our $usageMsg = <<'ENDMSG') =~ s/^\#//gm;
9 #
10 # Simple script which converts bsv "one-per-line" trace output into
11 # a more compact and readable column format.
12 #
13 ENDMSG
15 use strict "vars";
16 use warnings;
17 no warnings("once");
18 use Getopt::Long;
19 use File::Basename;
21 #--------------------------------------------------------------------------
22 # Command line processing
23 #--------------------------------------------------------------------------
25 our %opts;
27 sub usage()
28 {
30 print "\n";
31 print " Usage: bsc-trace.pl <format-file> [trace-file]\n";
32 print "\n";
33 print " Options:\n";
34 print " --help print this message\n";
35 print " <format-str> format string\n";
36 print " [trace-file] output trace from BSV simulation (default is STDIN)\n";
37 print "$usageMsg";
39 exit();
40 }
42 sub processCommandLine()
43 {
45 $opts{"help"} = 0;
47 Getopt::Long::GetOptions( \%opts, 'help|?' ) or usage();
49 ($opts{"format"} = shift(@ARGV)) or usage();
50 ($opts{"trace-file"} = shift(@ARGV)) or ($opts{"trace-file"} = "-");
51 $opts{"help"} and usage();
53 }
55 #--------------------------------------------------------------------------
56 # Main
57 #--------------------------------------------------------------------------
59 sub main()
60 {
62 processCommandLine();
63 require $opts{"format"};
65 my $cycle = 0;
66 my %traceHash;
68 my $traceFile = $opts{"trace-file"};
69 open( FIN, "<$traceFile" ) or die("Could not open BSV trace file ($traceFile)!");
71 print " processor-state [ icache ] [ dcache ] [ mem-arb ] executed-instruction\n";
73 my $labelLine = $settings::labelString;
74 foreach my $tag ( keys %settings::headers){
75 my $theLabel = $settings::headers{$tag};
76 $labelLine =~ s/{$tag}/$theLabel/;
77 }
78 print " $labelLine\n";
80 while ( my $line = <FIN> ) {
82 if ( $line =~ /^ => Cycle =\s+(\d+)$/ ) {
84 my $tempTraceLine = $settings::traceString;
85 foreach my $tag ( keys %settings::fields ) {
87 my $theTraceString = $traceHash{$tag};
88 my $theEmptyString = $settings::fields{$tag};
90 # Substitute the trace field in ...
91 if ( defined($theTraceString) ) {
93 # If the trace string is shorter than the empty string then
94 # add some spaces at the end so things line up ...
95 my $theTraceStringLen = length($theTraceString);
96 my $theEmptyStringLen = length($theEmptyString);
97 if ( $theTraceStringLen < $theEmptyStringLen ) {
98 $theTraceString .= (" "x ($theEmptyStringLen-$theTraceStringLen));
99 }
101 $tempTraceLine =~ s/{$tag}/$theTraceString/;
103 }
105 # Substitute the empty field in ...
106 else {
107 $tempTraceLine =~ s/{$tag}/$theEmptyString/;
108 }
110 }
112 print " CYC: ".sprintf("%4d",$cycle)." $tempTraceLine\n";
114 $cycle = $1;
115 %traceHash = ();
116 }
117 elsif ( $line =~ /^ => (\S+) (.*)$/ ) {
118 $traceHash{$1} = $2;
119 }
120 else {
121 print $line;
122 }
124 }
125 close( FIN );
127 }
129 main();