tools/MSG_visualization/trace2fig.pl

   1 #!/usr/bin/perl -w
   2 use strict;
   3 #use Data::Dumper;
   4 use XFig;
   5
   6 my($grid_Y_size)=225; # xfig
   7 my($grid_X_size)=225; # xfig
   8
   9 sub read_cat {
  10     my(%Cat);
  11     my($filename)=@_;
  12     my($line);
  13
  14     open INPUT, $filename;
  15
  16     while (defined($line=<INPUT>)) {
  17         chomp $line;
  18         if($line =~ /^7\s/) {
  19             my($event,$date,$id,$type,$father,@name) = split(/\s+/,$line);
  20
  21             $Cat{$id}{name}="@name ";
  22             $Cat{$id}{name}=~s/\"//g;
  23             $Cat{$id}{father}=$father;
  24             $Cat{$id}{type}=$type;
  25             $Cat{$id}{date}=$date;
  26         }
  27     }
  28     close INPUT;
  29     return \%Cat;
  30 }
  31
  32
  33 sub read_event {
  34     my($filename,$Cat)=@_;
  35     my($line);
  36
  37     open INPUT, $filename;
  38
  39     while (defined($line=<INPUT>)) {
  40         chomp $line;
  41         if($line =~ /^11\s/) {
  42             my($event,$date,$type,$id,$state) = split(/\s+/,$line);
  43             push @{$$Cat{$id}{state}}, [$date,$state];
  44         }
  45         if($line =~ /^12\s/) {
  46             my($event,$date,$type,$id) = split(/\s+/,$line);
  47             push @{$$Cat{$id}{state}}, [$date];
  48         }
  49     }
  50     close INPUT;
  51 }
  52
  53 sub read_link {
  54     my($filename)=@_;
  55     my($line);
  56     my(%link);
  57
  58     open INPUT, $filename;
  59
  60     while (defined($line=<INPUT>)) {
  61         chomp $line;
  62         if($line =~ /^16\s/) {
  63             my($event,$date,$type,$father,$channel,$src,$key) = split(/\s+/,$line);
  64             $link{$key}{src}=$src;
  65             $link{$key}{src_date}=$date;
  66         }
  67         if($line =~ /^17\s/) {
  68             my($event,$date,$type,$father,$channel,$dst,$key) = split(/\s+/,$line);
  69             $link{$key}{dst}=$dst;
  70             $link{$key}{dst_date}=$date;
  71         }
  72     }
  73     close INPUT;
  74     return \%link;
  75 }
  76
  77
  78 sub build_cat_tree {
  79     my($root,$Cat)=@_;
  80     my(@childs)=();
  81     my($cat);
  82
  83     foreach $cat (keys %$Cat) {
  84         if($$Cat{$cat}{father} eq $root) {
  85             push @childs, build_cat_tree($cat,$Cat);
  86         }
  87 #       print "$$Cat{$cat}{name}\t\t $Cat{$cat}{father}\n";
  88     }
  89
  90     return [$root,@childs];
  91 }
  92
  93 sub build_cat_list {
  94     my($tree,$cat_list)=@_;
  95     my($root) = shift @$tree;
  96     my($u);
  97
  98     push @$cat_list,$root;
  99
 100     foreach $u (@$tree) {
 101         build_cat_list($u,$cat_list);
 102     }
 103     unshift @$tree, $root;
 104 }
 105
 106
 107 sub set_cat_position {
 108     my($Cat,$cat_list)=@_;
 109     my($i)=0;
 110     my($cat);
 111     foreach $cat (@$cat_list) {
 112         $$Cat{$cat}{Y_min} = $i;
 113         $$Cat{$cat}{Y_max} = $i+1;
 114         $i++;
 115     }
 116 }
 117
 118 sub create_fig {
 119     my($filename)=shift;
 120     my($fig)=new XFig;
 121     $fig->{object} = 'compound'; # Compound
 122     $fig->{elements} = [];
 123     $fig->{version} = 3.2;
 124     $fig->{orientation}   = 'Landscape';
 125     $fig->{justification} = 'Center';
 126     $fig->{units}         = 'Metric';
 127     $fig->{papersize}     = 'A4';
 128     $fig->{magnification} = '100.00';
 129     $fig->{multiplepage}  = 'Single';
 130     $fig->{transparent}   = '-2';
 131     $fig->{resolution}    = '1200';
 132     $fig->{coordsystem}   = '2';
 133     $fig->{filename}   = $filename;
 134     return $fig;
 135 }
 136
 137 sub draw_cat {
 138     my($fig,$Cat,$Link)=@_;
 139     my($cat,$e,$link);
 140     foreach $cat (keys %$Cat) {
 141         next unless (defined($$Cat{$cat}{Y_min}) &&
 142                      defined($$Cat{$cat}{Y_max}));
 143         my($text) = new XFig ('text');
 144         $text->{'text'} = $$Cat{$cat}{name};
 145         $text->{'y'} = ($$Cat{$cat}{Y_min}+$$Cat{$cat}{Y_max})/2*$grid_Y_size+68;
 146         $fig->add ($text);
 147     }
 148     foreach $cat (keys %$Cat) {
 149         next unless (defined($$Cat{$cat}{Y_min}) &&
 150                      defined($$Cat{$cat}{Y_max}));
 151         my(@states)=();
 152         my($e);
 153         foreach $e (@{$$Cat{$cat}{state}}) {
 154             my($new_date,$state) = ($$e[0],$$e[1]);
 155             if(defined($state)) {
 156                 push @states, $e;
 157             } else {
 158                 my($old_event) = pop @states;
 159                 my($old_date) = $$old_event[0];
 160                 $state = $$old_event[1];
 161
 162                 my($line) = new XFig ('polyline');
 163
 164                 $line->{'subtype'} = 1;  # line
 165                 $line->{'points'} = [ [$old_date*$grid_X_size, $$Cat{$cat}{Y_min}*$grid_Y_size],
 166                                       [$new_date*$grid_X_size, $$Cat{$cat}{Y_min}*$grid_Y_size],
 167                                       [$new_date*$grid_X_size, $$Cat{$cat}{Y_max}*$grid_Y_size],
 168                                       [$old_date*$grid_X_size, $$Cat{$cat}{Y_max}*$grid_Y_size] ];
 169                 $line->{'areafill'} = 20;
 170                 if($state eq "S") {
 171                     $line->{'fillcolor'} = 1;
 172                 } elsif ($state eq "E") {
 173                     $line->{'fillcolor'} = 2;
 174                 } elsif ($state eq "B") {
 175                     $line->{'fillcolor'} = 3;
 176                 } elsif ($state eq "C") {
 177                     $line->{'fillcolor'} = 4;
 178                 }
 179                 $fig->add ($line);
 180             }
 181         }
 182     }
 183
 184     foreach $link (keys %$Link) {
 185         my($line) = new XFig ('polyline');
 186         my($src_date)=$$Link{$link}{src_date};
 187         my($src)=$$Link{$link}{src};
 188         my($dst_date)=$$Link{$link}{dst_date};
 189         my($dst)=$$Link{$link}{dst};
 190         $line->{'subtype'} = 1;  # line
 191
 192         $line->{'points'} = [ [$src_date*$grid_X_size,
 193                                ($$Cat{$src}{Y_min}+$$Cat{$src}{Y_max})/2*$grid_Y_size],
 194                               [$dst_date*$grid_X_size,
 195                                ($$Cat{$dst}{Y_min}+$$Cat{$dst}{Y_max})/2*$grid_Y_size] ];
 196         $line->{'forwardarrow'} = ['1', '1', '1.00', '60.00', '120.00'];
 197         $fig->add ($line);
 198     }
 199 }
 200
 201 sub main {
 202     my($Cat) = read_cat($ARGV[0]);
 203     my($cat_tree)=build_cat_tree("0",$Cat);
 204     read_event($ARGV[0],$Cat);
 205     my($Link)=read_link($ARGV[0]);
 206 #    print Dumper($cat_tree);
 207 #    print Dumper($Cat);
 208     my($cat_list)=[];
 209     build_cat_list($cat_tree,$cat_list);
 210     shift @$cat_list;
 211     shift @$cat_list;
 212     print "@$cat_list \n";
 213
 214     set_cat_position($Cat,$cat_list);
 215
 216     my($fig)=create_fig("toto.fig");
 217     draw_cat($fig,$Cat,$Link);
 218     $fig->writefile ();
 219     system "fig2dev -L pdf toto.fig toto.pdf";
 220 }
 221
 222 main;