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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
#!/usr/local/bin/perl
# (C) Hans Wolfgang Loidl, July 1995
##############################################################################
# Time-stamp: <Thu Oct 26 1995 18:40:10 Stardate: [-31]6498.68 hwloidl>
#
# Usage: gr2RTS [options] <sim-file>
#
# Options:
# -o <file> ... write output to <file>
# -h ... help; print this text.
# -v ... verbose mode.
#
##############################################################################
# ----------------------------------------------------------------------------
# Command line processing and initialization
# ----------------------------------------------------------------------------
require "getopts.pl";
&Getopts('hvo:');
do process_options();
if ( $opt_v ) {
do print_verbose_message ();
}
# ----------------------------------------------------------------------------
# The real thing
# ----------------------------------------------------------------------------
open(INPUT,"<$input") || die "Couldn't open input file $input";
open(OUTPUT,"| sort -n > $output") || die "Couldn't open output file $output";
#do skip_header();
$tot_total_rt = 0;
$tot_rt = 0;
$line_no = 0;
while (<INPUT>) {
next if /^--/; # Comment lines start with --
next if /^\s*$/; # Skip empty lines
$line_no++;
@fields = split(/[:,]/,$_);
$has_end = 0;
foreach $elem (@fields) {
foo : {
$pe = $1, $end = $2 , last foo if $elem =~ /^\s*PE\s+(\d+)\s+\[(\d+)\].*$/;
$tn = $1, $has_end = 1 , last foo if $elem =~ /^\s*END\s+(\w+).*$/;
# $tn = $1 , last foo if $elem =~ /^\s*TN\s+(\w+).*$/;
$sn = $1 , last foo if $elem =~ /^\s*SN\s+(\d+).*$/;
$start = $1 , last foo if $elem =~ /^\s*ST\s+(\d+).*$/;
$is_global = $1 , last foo if $elem =~ /^\s*EXP\s+(T|F).*$/;
$bbs = $1 , last foo if $elem =~ /^\s*BB\s+(\d+).*$/;
$ha = $1 , last foo if $elem =~ /^\s*HA\s+(\d+).*$/;
$rt = $1 , last foo if $elem =~ /^\s*RT\s+(\d+).*$/;
$bt = $1, $bc = $2 , last foo if $elem =~ /^\s*BT\s+(\d+)\s+\((\d+)\).*$/;
$ft = $1, $fc = $2 , last foo if $elem =~ /^\s*FT\s+(\d+)\s+\((\d+)\).*$/;
$lsp = $1 , last foo if $elem =~ /^\s*LS\s+(\d+).*$/;
$gsp = $1 , last foo if $elem =~ /^\s*GS\s+(\d+).*$/;
$my = $1 , last foo if $elem =~ /^\s*MY\s+(T|F).*$/;
}
}
next unless $has_end == 1;
$total_rt = $end - $start;
$tot_total_rt += $total_rt;
$tot_rt += $rt;
print OUTPUT "$rt\n";
$sum_rt += $rt;
$max_rt = $rt if $rt > $max_rt;
}
close INPUT;
close OUTPUT;
# Hack to fake a filter
if ( $output eq $filter_output ) {
system "cat $output";
system "rm $output";
}
exit 0;
# ---------------------------------------------------------------------------
sub process_options {
if ( $opt_h ) {
open(ME,$0) || die "Can't open myself ($0)";
$n = 0;
while (<ME>) {
last if $_ =~ /^$/;
print $_;
$n++;
}
close(ME);
# system "cat $0 | awk 'BEGIN { n = 0; } \
# /^$/ { print n; \
# exit; } \
# { n++; }'"
exit ;
}
$input = $#ARGV == -1 ? "-" : $ARGV[0] ;
if ( $#ARGV != 0 ) {
#print "Usage: gran-extr [options] <sim-file>\n";
#print "Use -h option to get details\n";
#exit 1;
}
$filter_output = $ENV{'TMPDIR'} . "./,gr2RTS-out";
if ( $opt_o ) {
$output = $opt_o;
} else {
if ( $input eq "-" ) {
$output = $filter_output;
} else {
$output = $input; # "RTS";
$output =~ s/\.gr$/.rts/g;
} #
}
}
# ----------------------------------------------------------------------------
sub print_verbose_message {
print "Input file: $input\t Output file: $output\n";
}
# ----------------------------------------------------------------------------
|
