Logo AND Algorithmique Numérique Distribuée

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