+++ /dev/null
-#!/usr/bin/env perl
-
-# Copyright (c) 2006-2020. The SimGrid Team.
-# All rights reserved.
-
-# This program is free software; you can redistribute it and/or modify it
-# under the terms of the license (GNU LGPL) which comes with this package.
-
-use strict;
-use warnings;
-
-#use Data::Dumper;
-use XFig;
-use POSIX;
-
-my($grid_Y_size)=225;
-my($grid_X_size)=100550; # Can be changed to improve readability in function of the total execution time
-
-my($color_suspended)=1;
-my($color_compute)=2;
-my($color_wait_for_recpt)=3;
-my($color_communicate)=4;
-
-# Determine the order of the colors in the legend
-my(@color_list)=($color_compute,$color_communicate,$color_wait_for_recpt,$color_suspended);
-
-sub read_cat {
- my(%Cat);
- my($filename)=@_;
- my($line);
-
- open INPUT, $filename;
-
- while (defined($line=<INPUT>)) {
- chomp $line;
- if($line =~ /^7\s/) {
- my($event,$date,$id,$type,$father,@name) = split(/\s+/,$line);
-
- $Cat{$id}{name}="@name ";
- $Cat{$id}{name}=~s/\"//g;
- $Cat{$id}{father}=$father;
- $Cat{$id}{type}=$type;
- $Cat{$id}{date}=$date;
- }
- }
- close INPUT;
- return \%Cat;
-}
-
-sub read_event {
- my($filename,$Cat)=@_;
- my($line);
-
- open INPUT, $filename;
-
- while (defined($line=<INPUT>)) {
- chomp $line;
- if($line =~ /^11\s/) {
- my($event,$date,$type,$id,$state) = split(/\s+/,$line);
- push @{$$Cat{$id}{state}}, [$date,$state];
- }
- if($line =~ /^12\s/) {
- my($event,$date,$type,$id) = split(/\s+/,$line);
- push @{$$Cat{$id}{state}}, [$date];
- }
- }
- close INPUT;
-}
-
-sub read_link {
- my($filename)=@_;
- my($line);
- my(%link);
-
- open INPUT, $filename;
-
- while (defined($line=<INPUT>)) {
- chomp $line;
- if($line =~ /^16\s/) {
- my($event,$date,$type,$father,$channel,$src,$key,$trash) = split(/\t+/,$line);
- my($numkey)=hex "$key";
- while (defined($link{$numkey})) {$numkey++;}
- $link{$numkey}{src}=$src;
- $link{$numkey}{src_date}=$date;
-
- }
- if($line =~ /^17\s/) {
- my($event,$date,$type,$father,$channel,$dst,$key,$trash) = split(/\t+/,$line);
- my($numkey)=hex "$key";
- while (defined($link{$numkey}{dst})) {$numkey++;}
- $link{$numkey}{dst}=$dst;
- $link{$numkey}{dst_date}=$date;
- }
- }
- close INPUT;
- return \%link;
-}
-
-sub build_cat_tree {
- my($root,$Cat)=@_;
- my(@children)=();
- my($cat);
-
- foreach $cat (keys %$Cat) {
- if($$Cat{$cat}{father} eq $root) {
- push @children, build_cat_tree($cat,$Cat);
- }
-# print "$$Cat{$cat}{name}\t\t $Cat{$cat}{father}\n";
- }
- return [$root,@children];
-}
-
-sub build_cat_list {
- my($tree,$cat_list)=@_;
- my($root) = shift @$tree;
- my($u);
-
- push @$cat_list,$root;
-
- foreach $u (@$tree) {
- build_cat_list($u,$cat_list);
- }
- unshift @$tree, $root;
-}
-
-sub cat_sorting_function {
- my($cat1,$cat2,$Cat)=@_;
- if (!defined($$Cat{$cat1}{state})) {
- if (!defined($$Cat{$cat2}{state})) {
- return 0;
- } else {
- return 1;
- }
- }
-
- if (!defined($$Cat{$cat2}{state})) {
- return -1;
- }
-
- my($comp) = $$Cat{$$Cat{$cat1}{'father'}}{'name'} cmp $$Cat{$$Cat{$cat2}{'father'}}{'name'};
- if ($comp == 0) {
- return $$Cat{$cat1}{'name'} cmp $$Cat{$cat2}{'name'};
- } else {
- return $comp;
- }
-}
-
-sub update_host_Y {
- my($host,$i) = @_;
- if (!defined($$host{'Y_min_host'})) {
- $$host{'Y_min_host'} = $i;
- } else {
- if ($$host{'Y_min_host'} > $i) {
- $$host{'Y_min_host'} = $i;
- }
- }
- if (!defined($$host{'Y_max_host'})) {
- $$host{'Y_max_host'} = $i+1;
- } else {
- if ($$host{'Y_max_host'} < $i+1) {
- $$host{'Y_max_host'} = $i+1;
- }
- }
-}
-
-sub set_cat_position {
- my($Cat,$cat_list)=@_;
- my($i)=0;
- my($cat);
- foreach $cat (sort {cat_sorting_function($a,$b,$Cat)} @$cat_list) {
- if(defined($$Cat{$cat}{state})) {
- update_host_Y($$Cat{$$Cat{$cat}{'father'}},$i);
- $$Cat{$cat}{Y_min} = $i;
- $$Cat{$cat}{Y_max} = $i+1;
- $i++;
- }
- }
-}
-
-sub create_fig {
- my($filename)=shift;
- my($fig)=new XFig;
- $fig->{object} = 'compound'; # Compound
- $fig->{elements} = [];
- $fig->{version} = 3.2;
- $fig->{orientation} = 'Landscape';
- $fig->{justification} = 'Center';
- $fig->{units} = 'Metric';
- $fig->{papersize} = 'A4';
- $fig->{magnification} = '100.00';
- $fig->{multiplepage} = 'Single';
- $fig->{transparent} = '-2';
- $fig->{resolution} = '1200';
- $fig->{coordsystem} = '2';
- $fig->{filename} = $filename;
- return $fig;
-}
-
-sub draw_cat {
- my($fig,$Cat,$Link)=@_;
- my($cat,$e,$link);
- my($max_string_length)=0;
- foreach $cat (keys %$Cat) {
- next unless (defined($$Cat{$cat}{Y_min}) &&
- defined($$Cat{$cat}{Y_max}));
- my($text) = new XFig ('text');
-# $text->{'text'} = "$$Cat{$$Cat{$cat}{father}}{name}"."$$Cat{$cat}{name}";
- my($printed_name)= $$Cat{$cat}{name};
- $printed_name =~ s/\d+ \(0\)\s*$//;
- if (length($printed_name) > $max_string_length) {
- $max_string_length = length($printed_name);
- }
- $text->{'text'} = "$printed_name";
- $text->{'y'} = ($$Cat{$cat}{Y_min}+$$Cat{$cat}{Y_max})/2*$grid_Y_size+68;
- $text->{'x'} = -100;
- $text->{'subtype'} = 2;
- $fig->add ($text);
- }
-
- my($max_date)=0;
- foreach $cat (keys %$Cat) {
- next unless (defined($$Cat{$cat}{Y_min}) && defined($$Cat{$cat}{Y_max}));
- my(@states)=();
- my($e);
- foreach $e (@{$$Cat{$cat}{state}}) {
- my($new_date,$state) = ($$e[0],$$e[1]);
- if ($new_date > $max_date) {
- $max_date = $new_date;
- }
- if(defined($state)) {
- push @states, $e;
- } else {
- my($old_event) = pop @states;
- my($old_date) = $$old_event[0];
- $state = $$old_event[1];
-
-# LM: I added the next line because of "undefined values"...
-# normally, I think that this should not happen, but this part of code is a bit too cryptic to me
- next unless (defined($state));
-
- my($line) = new XFig ('polyline');
-
- $line->{'depth'} = 50; # line
- $line->{'subtype'} = 1; # line
- $line->{'points'} = [ [$old_date*$grid_X_size, $$Cat{$cat}{Y_min}*$grid_Y_size],
- [$new_date*$grid_X_size, $$Cat{$cat}{Y_min}*$grid_Y_size],
- [$new_date*$grid_X_size, $$Cat{$cat}{Y_max}*$grid_Y_size],
- [$old_date*$grid_X_size, $$Cat{$cat}{Y_max}*$grid_Y_size],
- [$old_date*$grid_X_size, $$Cat{$cat}{Y_min}*$grid_Y_size] ];
- $line->{'areafill'} = 20;
- if($state eq "S") {
- $line->{'fillcolor'} = $color_suspended;
- } elsif ($state eq "E") {
- $line->{'fillcolor'} = $color_compute;
- } elsif ($state eq "B") {
- $line->{'fillcolor'} = $color_wait_for_recpt;
- } elsif ($state eq "C") {
- $line->{'fillcolor'} = $color_communicate;
- }
- $fig->add ($line);
- }
- }
- }
-
- foreach $link (keys %$Link) {
- my($line) = new XFig ('polyline');
- my($src_date)=$$Link{$link}{src_date};
- my($src)=$$Link{$link}{src};
- my($dst_date)=$$Link{$link}{dst_date};
- my($dst)=$$Link{$link}{dst};
- $line->{'subtype'} = 1; # line
-
- print STDERR "$link: $src ($src_date) -> $dst ($dst_date)\n";
-
- print STDERR "$$Cat{$src}{name} -> $$Cat{$dst}{name}\n";
- $line->{'points'} = [ [$src_date*$grid_X_size,
- ($$Cat{$src}{Y_min}+$$Cat{$src}{Y_max})/2*$grid_Y_size],
- [$dst_date*$grid_X_size,
- ($$Cat{$dst}{Y_min}+$$Cat{$dst}{Y_max})/2*$grid_Y_size] ];
- $line->{'forwardarrow'} = ['1', '1', '1.00', '60.00', '120.00'];
- $fig->add ($line);
- }
-
-# Host visualization
- my($max_Y)= 0;
-
- my($index_fill)=0;
- my($width_of_one_letter)=80;
- my($min_x_for_host)=-400 - $max_string_length*$width_of_one_letter;
- my($host_text_x)= $min_x_for_host + 200;
-
- foreach $cat (keys %$Cat) {
- next unless (defined($$Cat{$cat}{Y_min_host}) && defined($$Cat{$cat}{Y_max_host}));
- my($line) = new XFig ('polyline');
-
- $line->{'depth'} = 150;
- $line->{'subtype'} = 1; # line
- $line->{'points'} = [ [$min_x_for_host, $$Cat{$cat}{Y_min_host}*$grid_Y_size],
- [$max_date*$grid_X_size+150, $$Cat{$cat}{Y_min_host}*$grid_Y_size],
- [$max_date*$grid_X_size+150, $$Cat{$cat}{Y_max_host}*$grid_Y_size],
- [$min_x_for_host, $$Cat{$cat}{Y_max_host}*$grid_Y_size] ];
- $line->{'areafill'} = 4+3*($index_fill % 2);
- $line->{'fillcolor'} = 0;
- $line->{'thickness'} = 0;
- $index_fill++;
- $fig->add ($line);
-
- my($text) = new XFig ('text');
- $text->{'text'} = "$$Cat{$cat}{name}";
- $text->{'angle'} = 3.14159265/2;
- $text->{'x'} = $host_text_x;
- $text->{'y'} = ($$Cat{$cat}{Y_min_host}+$$Cat{$cat}{Y_max_host})/2*$grid_Y_size;
- $text->{'subtype'} = 1;
- $text->{'font_size'} = 30;
- $fig->add ($text);
-
- if ($max_Y<$$Cat{$cat}{Y_max_host}) {
- $max_Y = $$Cat{$cat}{Y_max_host};
- }
- }
-
-# Legend:
- my($i)=1;
- my($color);
- foreach $color (@color_list) {
- my($min_x)=0;
- my($min_Y)=($max_Y+1)*$grid_Y_size;
- my($width)=1700;
- my($height)=$grid_Y_size;
-
- my($line) = new XFig ('polyline');
-
- $line->{'depth'} = 50;
- $line->{'subtype'} = 1; # line
- $line->{'points'} = [ [$min_x,$min_Y + ($i-1)*$height ],
- [$min_x + $width,$min_Y + ($i-1)*$height],
- [$min_x + $width,$min_Y+$height + ($i-1)*$height],
- [$min_x,$min_Y+$height + ($i-1)*$height],
- [$min_x,$min_Y+ ($i-1)*$height]];
- $line->{'areafill'} = 20;
- $line->{'fillcolor'} = $color;
- $fig->add ($line);
-
- my($text) = new XFig ('text');
-
- if ($color==$color_suspended) {
- $text->{'text'} = "Suspended";
- }
- if ($color==$color_compute) {
- $text->{'text'} = "Computing";
- }
- if ($color==$color_wait_for_recpt) {
- $text->{'text'} = "Waiting for reception";
- }
- if ($color==$color_communicate) {
- $text->{'text'} = "Communicating";
- }
-
- $text->{'y'} = $min_Y + ($i-0.5)*$height +68;
- $text->{'x'} = 50;
- $text->{'subtype'} = 0;
- $fig->add ($text);
- $i++;
- }
-
-# Time axis
- my($line) = new XFig ('polyline');
- $line->{'depth'} = 0;
- $line->{'subtype'} = 1; # line
- $line->{'points'} = [ [0,0],[$max_date * $grid_X_size+150,0] ];
- $line->{'forwardarrow'} = ['1', '1', '1.00', '60.00', '120.00'];
- $fig->add ($line);
-
- my($digits)=POSIX::floor(log($max_date)/log(10));
- my($exponent) = 10**$digits;
- my($mantissa)= $max_date / $exponent;
- my($incr);
- if ($mantissa<2) {
- $incr = $exponent/10;
- } elsif ($mantissa<5) {
- $incr = $exponent/4;
- } else {
- $incr = $exponent/2;
- }
-
- print "$max_date $digits $exponent $mantissa $incr\n";
- my($x);
- for($x=0; $x < $max_date; $x += $incr) {
- print "$x\n";
- $line = new XFig ('polyline');
- $line->{'depth'} = 0;
- $line->{'subtype'} = 1; # line
- $line->{'points'} = [ [$x * $grid_X_size,0],[$x * $grid_X_size, -100] ];
- $line->{'forwardarrow'} = 0;
- $fig->add ($line);
-
- my($text) = new XFig ('text');
- $text->{'text'} = "$x";
- $text->{'y'} = -200;
- $text->{'x'} = $x * $grid_X_size;
- $text->{'subtype'} = 1;
- $fig->add ($text);
- }
-
-# Empty line so that the text of the time axis can be seen on the pdf
- $line = new XFig ('polyline');
- $line->{'depth'} = 999;
- $line->{'subtype'} = 1; # line
- $line->{'thickness'} = 0;
- $line->{'points'} = [ [0,0],[0, -400] ];
- $fig->add ($line);
-}
-
-sub main {
- my($Cat) = read_cat($ARGV[0]);
- my($cat_tree)=build_cat_tree("0",$Cat);
- read_event($ARGV[0],$Cat);
- my($Link)=read_link($ARGV[0]);
-# print Dumper($cat_tree);
-# print Dumper($Cat);
- my($cat_list)=[];
- build_cat_list($cat_tree,$cat_list);
- shift @$cat_list;
- shift @$cat_list;
-# print "@$cat_list \n";
- set_cat_position($Cat,$cat_list);
-
- my($fig)=create_fig("toto.fig");
- draw_cat($fig,$Cat,$Link);
- $fig->writefile ();
- system "fig2dev -L pdf toto.fig toto.pdf";
-}
-
-main;