Lines Matching full:my
28 my $header = 0;
31 my $text = << "EOM";
39 my $std=shift;
53 my %start;
54 my %end;
55 my %type;
56 my $done = 0;
57 my $maxtime = 0;
58 my $firsttime = 99999;
59 my $count = 0;
60 my %pids;
61 my %pidctr;
63 my $headerstep = 20;
64 my $xheader = 15;
65 my $yheader = 25;
66 my $cyheader = 0;
69 my $line = $_;
71 my $func = $2;
86 my $pid = $2;
87 my $func;
114 my $pid = $2;
115 my $func = "wait_" . $pid . "_" . $pidctr{$pid};
141 my $version = `uname -a`;
142 my $date = `date`;
148 my @styles;
163 my $style_wait = "fill:rgb(128,128,128);fill-opacity:0.5;stroke-width:0;stroke:rgb(0,0,0)";
165 my $mult = 1950.0 / ($maxtime - $firsttime);
166 my $threshold2 = ($maxtime - $firsttime) / 120.0;
167 my $threshold = $threshold2/10;
168 my $stylecounter = 0;
169 my %rows;
170 my $rowscount = 1;
171 my @initcalls = sort { $start{$a} <=> $start{$b} } keys(%start);
173 foreach my $key (@initcalls) {
174 my $duration = $end{$key} - $start{$key};
177 my ($s, $s2, $s3, $e, $w, $y, $y2, $style);
178 my $pid = $pids{$key};
215 my $time = $firsttime;
216 my $step = ($maxtime - $firsttime) / 15;
218 my $s3 = ($time - $firsttime) * $mult;
219 my $tm = int($time * 100) / 100.0;