Starting to work on a MSG-specific Paje substitute.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@2387 48e7efb5-ca39-0410-a469-dd3cf9ba447f

diff --git a/tools/MSG_visualization/trace2fig.pl b/tools/MSG_visualization/trace2fig.pl
new file mode 100755 (executable)
index 0000000..839f3a7
--- /dev/null
+++ b/tools/MSG_visualization/trace2fig.pl
@@ -0,0 +1,115 @@
+#!/usr/bin/perl -w
+use strict;
+use Data::Dumper;
+use XFig;
+
+my($grid_size)=225; # xfig 
+
+
+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 build_cat_tree {
+    my($root,$Cat)=@_;
+    my(@childs)=();
+    my($cat);
+
+    foreach $cat (keys %$Cat) {
+       if($$Cat{$cat}{father} eq $root) {
+           push @childs, build_cat_tree($cat,$Cat);
+       }
+#      print "$$Cat{$cat}{name}\t\t $Cat{$cat}{father}\n";
+    }
+    
+    return [$root,@childs];
+}
+
+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 set_cat_position {
+    my($Cat,$cat_list)=@_;
+    my($i)=0;
+    my($cat);
+    foreach $cat (@$cat_list) {
+       $$Cat{$cat}{X_min} = $i;
+       $$Cat{$cat}{X_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 main {
+    my($Cat) = read_cat($ARGV[0]);
+    my($cat_tree)=build_cat_tree("0",$Cat);
+#    print Dumper($cat_tree);
+    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");
+    my($cat);
+    foreach $cat (@$cat_list) {
+       my($text) = new XFig ('text');
+       $text->{'text'} = $cat;
+       $text->{'y'} = ($$Cat{$cat}{X_min}+$$Cat{$cat}{X_max})/2*$grid_size+68;
+       $fig->add ($text);
+    }
+    $fig->writefile ();
+}
+
+main;