 Algorithmique Numérique Distribuée Public GIT Repository
 author Frederic Suter Mon, 7 Mar 2016 11:08:00 +0000 (12:08 +0100) committer Frederic Suter Mon, 7 Mar 2016 11:08:00 +0000 (12:08 +0100)

index db2676b..f3c5e3f 100755 (executable)
@@ -24,7 +24,6 @@ \$col_underline  = "\033[04m";

# Customize colors here...
-#
\$col_default = \$col_ltgray;
my (@coltab) = (
\$col_green,                    \$col_yellow,
@@ -39,7 +38,6 @@ my (@coltab) = (
my %pid;

# Get options
-#
while ((\$_ = \$ARGV) =~ /^-/) {
shift;
if (/-location/i) {
index 2ac7c85..bac9ced 100755 (executable)
@@ -14,8 +14,7 @@ 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(\$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;
@@ -25,9 +24,6 @@ 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);

-
-
-
my(%Cat);
my(\$filename)=@_;
@@ -51,7 +47,6 @@ sub read_cat {
return \%Cat;
}

-
my(\$filename,\$Cat)=@_;
my(\$line);
}

-
sub build_cat_tree {
my(\$root,\$Cat)=@_;
my(@childs)=();
@@ -113,7 +107,6 @@ sub build_cat_tree {
}
#      print "\$\$Cat{\$cat}{name}\t\t \$Cat{\$cat}{father}\n";
}
-
return [\$root,@childs];
}

@@ -130,7 +123,6 @@ sub build_cat_list {
unshift @\$tree, \$root;
}

-
sub cat_sorting_function {
my(\$cat1,\$cat2,\$Cat)=@_;
if (!defined(\$\$Cat{\$cat1}{state})) {
@@ -227,8 +219,7 @@ sub draw_cat {

my(\$max_date)=0;
foreach \$cat (keys %\$Cat) {
-       next unless (defined(\$\$Cat{\$cat}{Y_min}) &&
-                    defined(\$\$Cat{\$cat}{Y_max}));
+       next unless (defined(\$\$Cat{\$cat}{Y_min}) && defined(\$\$Cat{\$cat}{Y_max}));
my(@states)=();
my(\$e);
foreach \$e (@{\$\$Cat{\$cat}{state}}) {
@@ -244,8 +235,7 @@ sub draw_cat {
\$state = \$\$old_event;

# 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
+# 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');
@@ -291,10 +281,7 @@ sub draw_cat {
}

-
-
# Host visualization
-
my(\$max_Y)= 0;

my(\$index_fill)=0;
@@ -303,8 +290,7 @@ sub draw_cat {
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}));
+       next unless (defined(\$\$Cat{\$cat}{Y_min_host}) && defined(\$\$Cat{\$cat}{Y_max_host}));
my(\$line) = new XFig ('polyline');

\$line->{'depth'} = 150;
@@ -378,7 +364,6 @@ sub draw_cat {
}

# Time axis
-
my(\$line) = new XFig ('polyline');
\$line->{'depth'} = 0;
\$line->{'subtype'} = 1;  # line
@@ -424,7 +409,6 @@ sub draw_cat {
\$line->{'thickness'} = 0;
\$line->{'points'} = [ [0,0],[0, -400] ];
-
}

sub main {
@@ -440,7 +424,6 @@ sub main {
shift @\$cat_list;
#    print "@\$cat_list \n";
set_cat_position(\$Cat,\$cat_list);
-

my(\$fig)=create_fig("toto.fig");