lib/graphincludes/renderer/tulip.pm

   1 # This file is part of the DEPS/graph-includes package
   2 #
   3 # (c) 2005,2006 Yann Dirson <ydirson@altern.org>
   4 # Distributed under version 2 of the GNU GPL.
   5
   6 package graphincludes::renderer::tulip;
   7
   8 use warnings;
   9 use strict;
  10
  11 use base qw(graphincludes::renderer);
  12 use Hash::Util qw(lock_keys);
  13
  14 use graphincludes::params;
  15
  16 sub new {
  17   my $class = shift;
  18   my $self = {};
  19
  20   bless ($self, $class);
  21   lock_keys (%$self);
  22   return $self;
  23 }
  24
  25 sub printgraph {
  26   my $self = shift;
  27   my ($graph, $nodestylers, $edgestylers) = @_;
  28
  29   # give unique numeric IDs to nodes, starting at 1
  30
  31   my $nodecount = 0;
  32   my %nodeids;
  33
  34   foreach my $node ($graph->get_nodes) {
  35     my $label = $node->{LABEL};
  36     unless (defined $nodeids{$label}) {
  37       $nodecount++;
  38       $nodeids{$label} = $nodecount;
  39     }
  40   }
  41
  42   # declare nodes
  43
  44   print '(nodes';
  45   for (my $i=1; $i<=$nodecount; $i++) {
  46     print " ", $i;
  47   }
  48   print ")\n";
  49
  50   # set node labels
  51
  52   print "(property 0 string \"viewLabel\"\n";
  53   print " (default \"\" \"\" )\n";
  54   foreach my $node (keys %nodeids) {
  55     print " (node $nodeids{$node} \"$node\")\n";
  56   }
  57   print ")\n";
  58
  59
  60   # simple edges
  61
  62   my $edgecount = 0;
  63
  64   foreach my $file ($graph->get_edge_origins) {
  65     foreach my $dest ($graph->get_dep_names_from($file)) {
  66       $edgecount++;
  67       print "(edge $edgecount ", $nodeids{$file}, ' ', $nodeids{$dest}, ")\n";
  68     }
  69   }
  70 }
  71
  72 sub wait {
  73 }
  74
  75 1;