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 ($graphnode, $nodestylers, $edgestylers) = @_;
  28   my $graph = eval { defined $graphnode->{DATA} } ? $graphnode->{DATA} : $graphnode;
  29
  30   # give unique numeric IDs to nodes, starting at 1
  31
  32   my $nodecount = 0;
  33   my %nodeids;
  34
  35   foreach my $node ($graph->get_nodes) {
  36     my $label = $node->{LABEL};
  37     unless (defined $nodeids{$label}) {
  38       $nodecount++;
  39       $nodeids{$label} = $nodecount;
  40     }
  41   }
  42
  43   # declare nodes
  44
  45   print '(nodes';
  46   for (my $i=1; $i<=$nodecount; $i++) {
  47     print " ", $i;
  48   }
  49   print ")\n";
  50
  51   # set node labels
  52
  53   print "(property 0 string \"viewLabel\"\n";
  54   print " (default \"\" \"\" )\n";
  55   foreach my $node (keys %nodeids) {
  56     print " (node $nodeids{$node} \"$node\")\n";
  57   }
  58   print ")\n";
  59
  60
  61   # simple edges
  62
  63   my $edgecount = 0;
  64
  65   foreach my $file ($graph->get_edge_origins) {
  66     foreach my $dest ($graph->get_dep_names_from($file)) {
  67       $edgecount++;
  68       print "(edge $edgecount ", $nodeids{$file}, ' ', $nodeids{$dest}, ")\n";
  69     }
  70   }
  71 }
  72
  73 sub wait {
  74 }
  75
  76 1;