user-tools/indent2dot

   1 #!/usr/bin/env perl
   2
   3 use Data::Dumper;
   4
   5 $\ = "\n";
   6
   7 while(<STDIN>)
   8 {
   9         /^(\s*)(.*)$/;
  10         my $indent_level = length $1;
  11         my $node = $2;
  12         my $related_node;
  13
  14         if($indent_level > $prev_indent_level)
  15         {
  16                 $parent_of_level{$indent_level} = $prev_node;
  17         }
  18
  19         $related_node = $parent_of_level{$indent_level};
  20
  21         if(defined $related_node)
  22         {
  23                 $relation{$node}->{$related_node} = 1;
  24         }
  25
  26         $prev_indent_level = $indent_level;
  27         $prev_node = $node;
  28 }
  29
  30
  31 $rankdir = $ENV{'INDENT2DOT_RANKDIR'} || 'LR';
  32
  33 print "digraph {";
  34 print "rankdir=$rankdir;";
  35 print "node [shape=box];";
  36
  37 for my $node (sort keys %relation)
  38 {
  39         for my $related_node (sort keys %{$relation{$node}})
  40         {
  41                 if($ENV{'INDENT2DOT_ASCENDENT_CHART'})
  42                 {
  43                         print "\"$node\" -> \"$related_node\";";
  44                 }
  45                 else
  46                 {
  47                         print "\"$related_node\" -> \"$node\";";
  48                 }
  49         }
  50 }
  51
  52 print "}";