Changeset 28358 for gs2-extensions/parallel-building
- Timestamp:
- 2013-10-07T10:04:32+13:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/bin/script/generate_gantt.pl
r28189 r28358 56 56 { 57 57 &printUsage('Error! Not a directory: ' . $dir); 58 } 59 if ($dir =~ /(.*)[\\\/]$/) 60 { 61 $dir = $1; 58 62 } 59 63 &searchForTimingCSV($dir); … … 284 288 print HTMLOUT " <th>Fastest File:</th><td>" . &renderTime($fastest_file) . "</td>\n"; 285 289 print HTMLOUT " <th>Slowest File:</th><td>" . &renderTime($slowest_file) . "</td>\n"; 286 if ($data_locality > 0)287 {290 #if ($data_locality > 0) 291 #{ 288 292 print HTMLOUT " <th>Data Locality:</th><td>" . sprintf('%d%% [%d out of %d]', (($data_locality / $file_count) * 100), $data_locality, $file_count) . "</td>\n"; 289 }290 else291 {292 print HTMLOUT " <th>Data Locality:</th><td><i>Not Applicable</i></td>\n";293 }293 #} 294 #else 295 #{ 296 # print HTMLOUT " <th>Data Locality:</th><td><i>Not Applicable</i></td>\n"; 297 #} 294 298 print HTMLOUT "</tr>\n"; 295 299 … … 303 307 { 304 308 my $data = $timing_data->{$worker_id}; 305 print HTMLOUT renderLine($chart_width, $timing_data->{'M'}->{'S'}, $timing_data->{'M'}->{'E'}, 'worker', $worker_id . ' [' . $data->{'N'} . ']', $data->{'S'}, $data->{'E'}, $data->{'F'}, $data_locality);309 print HTMLOUT renderLine($chart_width, $timing_data->{'M'}->{'S'}, $timing_data->{'M'}->{'E'}, 'worker', $worker_id . ' [' . $data->{'N'} . ']', $data->{'S'}, $data->{'E'}, $data->{'F'}, 2); #$data_locality); 306 310 } 307 311 } … … 407 411 { 408 412 my ($table_width, $start, $end, $class, $tname, $tstart, $tend, $jobs, $data_locality) = @_; 409 &debugPrint("renderLine($table_width, $start, $end, $class, $tname, $tstart, $tend, <jobs> )");413 &debugPrint("renderLine($table_width, $start, $end, $class, $tname, $tstart, $tend, <jobs>, $data_locality)"); 410 414 # All timings need to be relative to 0 (relative start) 411 415 my $duration = $end - $start; … … 466 470 my $cpu_percent = int((($rpwidth / $jwidth) * 100) + 0.5); 467 471 $html .= '<div class="job" style="left:' . $jleft . 'px;width:' . $jwidth . 'px;'; 472 print "Data Locality? " . $data_locality . " DL? " . $jobs->{$jstart}->{'DL'} . "\n"; 468 473 if ($data_locality > 1 && $jobs->{$jstart}->{'DL'} != 1) 469 474 {
Note:
See TracChangeset
for help on using the changeset viewer.