tools/MSG_visualization/trace2fig.pl

   1 #!/usr/bin/perl -w
   2
   3 # Copyright (c) 2006-2007, 2014. The SimGrid Team.
   4 # All rights reserved.
   5
   6 # This program is free software; you can redistribute it and/or modify it
   7 # under the terms of the license (GNU LGPL) which comes with this package.
   8
   9 use strict;
  10 #use Data::Dumper;
  11 use XFig;
  12 use POSIX;
  13
  14 my($grid_Y_size)=225;
  15 my($grid_X_size)=100550; # Can be changed to improve readability in
  16                          # function of the total execution time
  17
  18 my($color_suspended)=1;
  19 my($color_compute)=2;
  20 my($color_wait_for_recpt)=3;
  21 my($color_communicate)=4;
  22
  23 # Determine the order of the colors in the legend
  24 my(@color_list)=($color_compute,$color_communicate,$color_wait_for_recpt,$color_suspended);
  25
  26
  27
  28
  29 sub read_cat {
  30     my(%Cat);
  31     my($filename)=@_;
  32     my($line);
  33
  34     open INPUT, $filename;
  35
  36     while (defined($line=<INPUT>)) {
  37         chomp $line;
  38         if($line =~ /^7\s/) {
  39             my($event,$date,$id,$type,$father,@name) = split(/\s+/,$line);
  40
  41             $Cat{$id}{name}="@name ";
  42             $Cat{$id}{name}=~s/\"//g;
  43             $Cat{$id}{father}=$father;
  44             $Cat{$id}{type}=$type;
  45             $Cat{$id}{date}=$date;
  46         }
  47     }
  48     close INPUT;
  49     return \%Cat;
  50 }
  51
  52
  53 sub read_event {
  54     my($filename,$Cat)=@_;
  55     my($line);
  56
  57     open INPUT, $filename;
  58
  59     while (defined($line=<INPUT>)) {
  60         chomp $line;
  61         if($line =~ /^11\s/) {
  62             my($event,$date,$type,$id,$state) = split(/\s+/,$line);
  63             push @{$$Cat{$id}{state}}, [$date,$state];
  64         }
  65         if($line =~ /^12\s/) {
  66             my($event,$date,$type,$id) = split(/\s+/,$line);
  67             push @{$$Cat{$id}{state}}, [$date];
  68         }
  69     }
  70     close INPUT;
  71 }
  72
  73 sub read_link {
  74     my($filename)=@_;
  75     my($line);
  76     my(%link);
  77
  78     open INPUT, $filename;
  79
  80     while (defined($line=<INPUT>)) {
  81         chomp $line;
  82         if($line =~ /^16\s/) {
  83             my($event,$date,$type,$father,$channel,$src,$key,$trash) = split(/\t+/,$line);
  84             my($numkey)=hex "$key";
  85             while (defined($link{$numkey})) {$numkey++;}
  86             $link{$numkey}{src}=$src;
  87             $link{$numkey}{src_date}=$date;
  88
  89         }
  90         if($line =~ /^17\s/) {
  91             my($event,$date,$type,$father,$channel,$dst,$key,$trash) = split(/\t+/,$line);
  92             my($numkey)=hex "$key";
  93             while (defined($link{$numkey}{dst})) {$numkey++;}
  94             $link{$numkey}{dst}=$dst;
  95             $link{$numkey}{dst_date}=$date;
  96         }
  97     }
  98     close INPUT;
  99     return \%link;
 100 }
 101
 102
 103 sub build_cat_tree {
 104     my($root,$Cat)=@_;
 105     my(@childs)=();
 106     my($cat);
 107
 108     foreach $cat (keys %$Cat) {
 109         if($$Cat{$cat}{father} eq $root) {
 110             push @childs, build_cat_tree($cat,$Cat);
 111         }
 112 #       print "$$Cat{$cat}{name}\t\t $Cat{$cat}{father}\n";
 113     }
 114
 115     return [$root,@childs];
 116 }
 117
 118 sub build_cat_list {
 119     my($tree,$cat_list)=@_;
 120     my($root) = shift @$tree;
 121     my($u);
 122
 123     push @$cat_list,$root;
 124
 125     foreach $u (@$tree) {
 126         build_cat_list($u,$cat_list);
 127     }
 128     unshift @$tree, $root;
 129 }
 130
 131
 132 sub cat_sorting_function {
 133     my($cat1,$cat2,$Cat)=@_;
 134     if (!defined($$Cat{$cat1}{state})) {
 135         if (!defined($$Cat{$cat2}{state})) {
 136             return 0;
 137         } else {
 138             return 1;
 139         }
 140     }
 141
 142     if (!defined($$Cat{$cat2}{state})) {
 143         return -1;
 144     }
 145
 146     my($comp) = $$Cat{$$Cat{$cat1}{'father'}}{'name'} cmp $$Cat{$$Cat{$cat2}{'father'}}{'name'};
 147     if ($comp == 0) {
 148         return $$Cat{$cat1}{'name'} cmp $$Cat{$cat2}{'name'};
 149     } else {
 150         return $comp;
 151     }
 152 }
 153
 154 sub update_host_Y {
 155     my($host,$i) = @_;
 156     if (!defined($$host{'Y_min_host'})) {
 157         $$host{'Y_min_host'} = $i;
 158     } else {
 159         if ($$host{'Y_min_host'} > $i) {
 160             $$host{'Y_min_host'} = $i;
 161         }
 162     }
 163     if (!defined($$host{'Y_max_host'})) {
 164         $$host{'Y_max_host'} = $i+1;
 165     } else {
 166         if ($$host{'Y_max_host'} < $i+1) {
 167             $$host{'Y_max_host'} = $i+1;
 168         }
 169     }
 170 }
 171
 172 sub set_cat_position {
 173     my($Cat,$cat_list)=@_;
 174     my($i)=0;
 175     my($cat);
 176     foreach $cat (sort {cat_sorting_function($a,$b,$Cat)} @$cat_list) {
 177         if(defined($$Cat{$cat}{state})) {
 178             update_host_Y($$Cat{$$Cat{$cat}{'father'}},$i);
 179             $$Cat{$cat}{Y_min} = $i;
 180             $$Cat{$cat}{Y_max} = $i+1;
 181             $i++;
 182         }
 183     }
 184 }
 185
 186 sub create_fig {
 187     my($filename)=shift;
 188     my($fig)=new XFig;
 189     $fig->{object} = 'compound'; # Compound
 190     $fig->{elements} = [];
 191     $fig->{version} = 3.2;
 192     $fig->{orientation}   = 'Landscape';
 193     $fig->{justification} = 'Center';
 194     $fig->{units}         = 'Metric';
 195     $fig->{papersize}     = 'A4';
 196     $fig->{magnification} = '100.00';
 197     $fig->{multiplepage}  = 'Single';
 198     $fig->{transparent}   = '-2';
 199     $fig->{resolution}    = '1200';
 200     $fig->{coordsystem}   = '2';
 201     $fig->{filename}   = $filename;
 202     return $fig;
 203 }
 204
 205 sub draw_cat {
 206     my($fig,$Cat,$Link)=@_;
 207     my($cat,$e,$link);
 208     my($max_string_length)=0;
 209     foreach $cat (keys %$Cat) {
 210         next unless (defined($$Cat{$cat}{Y_min}) &&
 211                      defined($$Cat{$cat}{Y_max}));
 212         my($text) = new XFig ('text');
 213 #       $text->{'text'} = "$$Cat{$$Cat{$cat}{father}}{name}"."$$Cat{$cat}{name}";
 214         my($printed_name)= $$Cat{$cat}{name};
 215         $printed_name =~ s/\d+ \(0\)\s*$//;
 216         if (length($printed_name) > $max_string_length) {
 217             $max_string_length = length($printed_name);
 218         }
 219         $text->{'text'} = "$printed_name";
 220         $text->{'y'} = ($$Cat{$cat}{Y_min}+$$Cat{$cat}{Y_max})/2*$grid_Y_size+68;
 221         $text->{'x'} = -100;
 222         $text->{'subtype'} = 2;
 223         $fig->add ($text);
 224     }
 225
 226     my($max_date)=0;
 227     foreach $cat (keys %$Cat) {
 228         next unless (defined($$Cat{$cat}{Y_min}) &&
 229                      defined($$Cat{$cat}{Y_max}));
 230         my(@states)=();
 231         my($e);
 232         foreach $e (@{$$Cat{$cat}{state}}) {
 233             my($new_date,$state) = ($$e[0],$$e[1]);
 234             if ($new_date > $max_date) {
 235                 $max_date = $new_date;
 236             }
 237             if(defined($state)) {
 238                 push @states, $e;
 239             } else {
 240                 my($old_event) = pop @states;
 241                 my($old_date) = $$old_event[0];
 242                 $state = $$old_event[1];
 243
 244 # LM: I added the next line because of "undefined values"...
 245 # normally, I think that this should not happen, but this part of code
 246 # is a bit too cryptic to me
 247                 next unless (defined($state));
 248
 249                 my($line) = new XFig ('polyline');
 250
 251                 $line->{'depth'} = 50;  # line
 252                 $line->{'subtype'} = 1;  # line
 253                 $line->{'points'} = [ [$old_date*$grid_X_size, $$Cat{$cat}{Y_min}*$grid_Y_size],
 254                                       [$new_date*$grid_X_size, $$Cat{$cat}{Y_min}*$grid_Y_size],
 255                                       [$new_date*$grid_X_size, $$Cat{$cat}{Y_max}*$grid_Y_size],
 256                                       [$old_date*$grid_X_size, $$Cat{$cat}{Y_max}*$grid_Y_size],
 257                                       [$old_date*$grid_X_size, $$Cat{$cat}{Y_min}*$grid_Y_size] ];
 258                 $line->{'areafill'} = 20;
 259                 if($state eq "S") {
 260                     $line->{'fillcolor'} = $color_suspended;
 261                 } elsif ($state eq "E") {
 262                     $line->{'fillcolor'} = $color_compute;
 263                 } elsif ($state eq "B") {
 264                     $line->{'fillcolor'} = $color_wait_for_recpt;
 265                 } elsif ($state eq "C") {
 266                     $line->{'fillcolor'} = $color_communicate;
 267                 }
 268                 $fig->add ($line);
 269             }
 270         }
 271     }
 272
 273     foreach $link (keys %$Link) {
 274         my($line) = new XFig ('polyline');
 275         my($src_date)=$$Link{$link}{src_date};
 276         my($src)=$$Link{$link}{src};
 277         my($dst_date)=$$Link{$link}{dst_date};
 278         my($dst)=$$Link{$link}{dst};
 279         $line->{'subtype'} = 1;  # line
 280
 281         print STDERR "$link: $src ($src_date) -> $dst ($dst_date)\n";
 282
 283         print STDERR "$$Cat{$src}{name} -> $$Cat{$dst}{name}\n";
 284         $line->{'points'} = [ [$src_date*$grid_X_size,
 285                                ($$Cat{$src}{Y_min}+$$Cat{$src}{Y_max})/2*$grid_Y_size],
 286                               [$dst_date*$grid_X_size,
 287                                ($$Cat{$dst}{Y_min}+$$Cat{$dst}{Y_max})/2*$grid_Y_size] ];
 288         $line->{'forwardarrow'} = ['1', '1', '1.00', '60.00', '120.00'];
 289         $fig->add ($line);
 290     }
 291
 292
 293
 294 # Host visualization
 295
 296     my($max_Y)= 0;
 297
 298     my($index_fill)=0;
 299     my($width_of_one_letter)=80;
 300     my($min_x_for_host)=-400 - $max_string_length*$width_of_one_letter;
 301     my($host_text_x)= $min_x_for_host + 200;
 302
 303     foreach $cat (keys %$Cat) {
 304         next unless (defined($$Cat{$cat}{Y_min_host}) &&
 305                      defined($$Cat{$cat}{Y_max_host}));
 306         my($line) = new XFig ('polyline');
 307
 308         $line->{'depth'} = 150;
 309         $line->{'subtype'} = 1;  # line
 310         $line->{'points'} = [ [$min_x_for_host, $$Cat{$cat}{Y_min_host}*$grid_Y_size],
 311                               [$max_date*$grid_X_size+150, $$Cat{$cat}{Y_min_host}*$grid_Y_size],
 312                               [$max_date*$grid_X_size+150, $$Cat{$cat}{Y_max_host}*$grid_Y_size],
 313                               [$min_x_for_host, $$Cat{$cat}{Y_max_host}*$grid_Y_size] ];
 314         $line->{'areafill'} = 4+3*($index_fill % 2);
 315         $line->{'fillcolor'} = 0;
 316         $line->{'thickness'} = 0;
 317         $index_fill++;
 318         $fig->add ($line);
 319
 320         my($text) = new XFig ('text');
 321         $text->{'text'} = "$$Cat{$cat}{name}";
 322         $text->{'angle'} = 3.14159265/2;
 323         $text->{'x'} = $host_text_x;
 324         $text->{'y'} = ($$Cat{$cat}{Y_min_host}+$$Cat{$cat}{Y_max_host})/2*$grid_Y_size;
 325         $text->{'subtype'} = 1;
 326         $text->{'font_size'} = 30;
 327         $fig->add ($text);
 328
 329         if ($max_Y<$$Cat{$cat}{Y_max_host}) {
 330             $max_Y = $$Cat{$cat}{Y_max_host};
 331         }
 332     }
 333
 334 # Legend:
 335     my($i)=1;
 336     my($color);
 337     foreach $color (@color_list) {
 338         my($min_x)=0;
 339         my($min_Y)=($max_Y+1)*$grid_Y_size;
 340         my($width)=1700;
 341         my($height)=$grid_Y_size;
 342
 343         my($line) = new XFig ('polyline');
 344
 345         $line->{'depth'} = 50;
 346         $line->{'subtype'} = 1;  # line
 347         $line->{'points'} = [ [$min_x,$min_Y + ($i-1)*$height ],
 348                               [$min_x + $width,$min_Y + ($i-1)*$height],
 349                               [$min_x + $width,$min_Y+$height + ($i-1)*$height],
 350                               [$min_x,$min_Y+$height + ($i-1)*$height],
 351                               [$min_x,$min_Y+ ($i-1)*$height]];
 352         $line->{'areafill'} = 20;
 353         $line->{'fillcolor'} = $color;
 354         $fig->add ($line);
 355
 356         my($text) = new XFig ('text');
 357
 358         if ($color==$color_suspended) {
 359             $text->{'text'} = "Suspended";
 360         }
 361         if ($color==$color_compute) {
 362             $text->{'text'} = "Computing";
 363         }
 364         if ($color==$color_wait_for_recpt) {
 365             $text->{'text'} = "Waiting for reception";
 366         }
 367         if ($color==$color_communicate) {
 368             $text->{'text'} = "Communicating";
 369         }
 370
 371         $text->{'y'} = $min_Y + ($i-0.5)*$height +68;
 372         $text->{'x'} = 50;
 373         $text->{'subtype'} = 0;
 374         $fig->add ($text);
 375         $i++;
 376     }
 377
 378 # Time axis
 379
 380     my($line) = new XFig ('polyline');
 381     $line->{'depth'} = 0;
 382     $line->{'subtype'} = 1;  # line
 383     $line->{'points'} = [ [0,0],[$max_date * $grid_X_size+150,0] ];
 384     $line->{'forwardarrow'} = ['1', '1', '1.00', '60.00', '120.00'];
 385     $fig->add ($line);
 386
 387     my($digits)=POSIX::floor(log($max_date)/log(10));
 388     my($exponent) = 10**$digits;
 389     my($mantissa)= $max_date / $exponent;
 390     my($incr);
 391     if ($mantissa<2) {
 392         $incr = $exponent/10;
 393     } elsif ($mantissa<5) {
 394         $incr = $exponent/4;
 395     } else {
 396         $incr = $exponent/2;
 397     }
 398
 399     print "$max_date $digits $exponent $mantissa $incr\n";
 400     my($x);
 401     for($x=0; $x < $max_date; $x += $incr) {
 402         print "$x\n";
 403         $line = new XFig ('polyline');
 404         $line->{'depth'} = 0;
 405         $line->{'subtype'} = 1;  # line
 406         $line->{'points'} = [ [$x * $grid_X_size,0],[$x * $grid_X_size, -100] ];
 407         $line->{'forwardarrow'} = 0;
 408         $fig->add ($line);
 409
 410         my($text) = new XFig ('text');
 411         $text->{'text'} = "$x";
 412         $text->{'y'} = -200;
 413         $text->{'x'} = $x * $grid_X_size;
 414         $text->{'subtype'} = 1;
 415         $fig->add ($text);
 416     }
 417
 418 # Empty line so that the text of the time axis can be seen on the pdf
 419     $line = new XFig ('polyline');
 420     $line->{'depth'} = 999;
 421     $line->{'subtype'} = 1;  # line
 422     $line->{'thickness'} = 0;
 423     $line->{'points'} = [ [0,0],[0, -400] ];
 424     $fig->add ($line);
 425
 426 }
 427
 428 sub main {
 429     my($Cat) = read_cat($ARGV[0]);
 430     my($cat_tree)=build_cat_tree("0",$Cat);
 431     read_event($ARGV[0],$Cat);
 432     my($Link)=read_link($ARGV[0]);
 433 #    print Dumper($cat_tree);
 434 #    print Dumper($Cat);
 435     my($cat_list)=[];
 436     build_cat_list($cat_tree,$cat_list);
 437     shift @$cat_list;
 438     shift @$cat_list;
 439 #    print "@$cat_list \n";
 440     set_cat_position($Cat,$cat_list);
 441
 442
 443     my($fig)=create_fig("toto.fig");
 444     draw_cat($fig,$Cat,$Link);
 445     $fig->writefile ();
 446     system "fig2dev -L pdf toto.fig toto.pdf";
 447 }
 448
 449 main;