Algorithmique Numérique Distribuée Public GIT Repository
 author alegrand Mon, 29 Jan 2007 10:51:33 +0000 (10:51 +0000) committer alegrand Mon, 29 Jan 2007 10:51:33 +0000 (10:51 +0000)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@3083 48e7efb5-ca39-0410-a469-dd3cf9ba447f

index 6b07413..bb381b5 100755 (executable)
while (defined(\$line=<INPUT>)) {
chomp \$line;
if(\$line =~ /^16\s/) {
-           my(\$event,\$date,\$type,\$father,\$channel,\$src,\$key) = split(/\s+/,\$line);
+           my(\$event,\$date,\$type,\$father,\$channel,\$src,\$key) = split(/\t+/,\$line);
}
if(\$line =~ /^17\s/) {
-           my(\$event,\$date,\$type,\$father,\$channel,\$dst,\$key) = split(/\s+/,\$line);
+           my(\$event,\$date,\$type,\$father,\$channel,\$dst,\$key) = split(/\t+/,\$line);
}
@@ -143,7 +143,7 @@ sub draw_cat {
next unless (defined(\$\$Cat{\$cat}{Y_min}) &&
defined(\$\$Cat{\$cat}{Y_max}));
my(\$text) = new XFig ('text');
-       \$text->{'text'} = \$\$Cat{\$cat}{name};
+       \$text->{'text'} = "\$\$Cat{\$\$Cat{\$cat}{father}}{name}"."\$\$Cat{\$cat}{name}";
\$text->{'y'} = (\$\$Cat{\$cat}{Y_min}+\$\$Cat{\$cat}{Y_max})/2*\$grid_Y_size+68;
}
@@ -163,6 +163,7 @@ sub draw_cat {

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],
@@ -191,6 +192,9 @@ sub draw_cat {