luquet-ruby-graphviz 0.9.5

data/bin/ruby2gv

@@ -0,0 +1,194 @@
+#!/usr/bin/env ruby
+# Copyright (C) 2005, 2006, 2007 Gregoire Lejeune <gregoire.lejeune@free.fr>
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA
+
+require 'getoptlong'
+require 'graphviz'
+require "graphviz/constants"
+require 'rbconfig'
+
+DEBUG = false
+
+class Rb2Gv
+  REQUIRE = /^\s*require\s*("|')([^\1]*)(\1)/
+
+  def initialize( xGVPath )
+    @oGraph = GraphViz::new( "G", :path => xGVPath )
+    @oGraph['size'] = '10,10'
+    @hxNodes = Hash::new( )
+    @hxEdge = Hash::new( )
+  end
+  
+  public
+  def parse( xFile )
+    @hxNodes[xFile] = gv_newNode( xFile )
+    puts "+ Node #{xFile}" if DEBUG
+
+    parseFile( xFile, nil, xFile )
+  end
+
+  def out( xFormat = "dot", xFile = nil )
+    if xFile.nil? == true
+      @oGraph.output( "output" => xFormat )
+    else
+      @oGraph.output( "output" => xFormat, "file" => xFile )
+    end
+  end
+  
+  private
+  def gv_newNode( xNode, xShape = "box", xColor = nil )
+    xNodeName = xNode.gsub( /[^a-zA-Z0-9]/, "_" )
+    if xColor.nil? == true
+      @oGraph.add_node( xNodeName, "label" => xNode, "shape" => xShape )
+    else
+      @oGraph.add_node( xNodeName, "label" => xNode, "shape" => xShape, "style" => "filled", "color" => xColor )
+    end
+  end
+  
+  def getLibraryPath( xLib, xExt = "rb" )
+    xPath = [ "libexecdir", "libdir", "sitedir", "rubylibdir", "sitelibdir", "archdir", "sitedir", "sitearchdir" ]
+    xRbLib = with_config( xLib+'lib', xLib)
+    if /\.(rb|so)$/.match( xRbLib )
+      xRbFile = xRbLib
+    else
+      xRbFile = xRbLib + "." + xExt
+    end
+    
+    xPath.each do |xDir|
+      xCurrentPath = Config::expand( Config::CONFIG[xDir] )
+      xFileFound = File.join( xCurrentPath, xRbFile )
+      if File.exist?( xFileFound )
+        return xFileFound
+      end
+    end
+
+    return nil
+  end
+  
+  def parseFile( xFile, xFromFile = nil, xLib = nil )
+  
+    if xFromFile.nil? == false
+      puts "Parse #{xFile} required in #{xFromFile} :" if DEBUG
+    else
+      puts "Parse #{xFile} :" if DEBUG
+    end
+
+    fp = open( xFile, 'r' )
+    xData = fp.read()
+    fp.close
+    
+    xData.each do |xLine|
+      if lxLineMatch = REQUIRE.match( xLine )
+        xRequiredLib = lxLineMatch[2]
+        
+        if @hxNodes.has_key?( xRequiredLib ) == false
+          puts "  + Node #{xRequiredLib}" if DEBUG
+
+          xRequiredFile = getLibraryPath( xRequiredLib )
+          if xRequiredFile.nil? == false
+            @hxNodes[xRequiredLib] = gv_newNode( xRequiredLib )
+            parseFile( xRequiredFile, xFile, xRequiredLib )
+          else
+            if getLibraryPath( xRequiredLib, "so" ).nil? == false
+              @hxNodes[xRequiredLib] = gv_newNode( xRequiredLib, "ellipse" )
+            else
+              @hxNodes[xRequiredLib] = gv_newNode( xRequiredLib, "ellipse", "red" )
+            end
+          end
+
+        end
+        
+        puts "  + Edge #{xLib} -> #{xRequiredLib}" if DEBUG
+        @oGraph.add_edge( @hxNodes[xLib], @hxNodes[xRequiredLib] )
+
+      end
+    end
+    
+  end
+
+end
+
+def usage 
+  puts "usage: ruby2gv.rb [-Tformat] [-ofile] [-h] [-V] script"
+  puts "-T, --output-format format    Output format (default: PNG)"
+  puts "-o, --output-file file        Output file (default: STDOUT)"
+  puts "-p, --path                    Graphviz path"
+  puts "-V, --version                 Show version"
+  puts "-h, --help                    Show this usage message"
+end
+
+def version
+  puts "Ruby2GraphViz v#{Constants::RGV_VERSION}, (c)2005 Gregoire Lejeune <gregoire.lejeune@free.fr>"
+  puts ""
+  puts "This program is free software; you can redistribute it and/or modify"
+  puts "it under the terms of the GNU General Public License as published by"
+  puts "the Free Software Foundation; either version 2 of the License, or"
+  puts "(at your option) any later version."
+  puts ""
+  puts "This program is distributed in the hope that it will be useful,"
+  puts "but WITHOUT ANY WARRANTY; without even the implied warranty of"
+  puts "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the"
+  puts "GNU General Public License for more details."
+  puts ""
+  puts "You should have received a copy of the GNU General Public License"
+  puts "along with this program; if not, write to the Free Software"
+  puts "Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA"
+end
+
+xOutFormat = "png"
+xOutFile = nil
+xGVPath = nil
+
+oOpt = GetoptLong.new(
+  ['--output-format', '-T', GetoptLong::REQUIRED_ARGUMENT],
+  ['--output-file',   '-o', GetoptLong::REQUIRED_ARGUMENT],
+  ['--path',          '-p', GetoptLong::REQUIRED_ARGUMENT],
+  ['--help',          '-h', GetoptLong::NO_ARGUMENT],
+  ['--version',       '-V', GetoptLong::NO_ARGUMENT]
+)
+
+begin
+  oOpt.each_option do |xOpt, xValue|
+    case xOpt
+      when '--output-format'
+        xOutFormat = xValue
+      when '--output-file'
+        xOutFile = xValue
+      when '--path'
+        xGVPath = xValue
+      when '--help'
+        usage( )
+        exit
+      when '--version'
+        version( )
+        exit
+    end
+  end
+rescue GetoptLong::InvalidOption => e
+  usage( )
+  exit
+end
+
+xFile = ARGV[0]
+
+if xFile.nil? == true
+  usage( )
+  exit
+end
+
+o = Rb2Gv::new( xGVPath )
+o.parse( xFile )
+o.out( xOutFormat, xOutFile )

data/examples/HTML-Labels.rb

@@ -0,0 +1,20 @@
+$:.unshift( "../lib" );
+require "graphviz"
+
+g = GraphViz::new( "structs" )
+
+g.node["shape"] = "plaintext"
+
+g.add_node( "HTML" )
+
+g.add_node( "struct1", "html" => '<TABLE BORDER="0" CELLBORDER="1" CELLSPACING="0">  <TR><TD>left</TD><TD PORT="f1">mid dle</TD><TD PORT="f2">right</TD></TR> </TABLE>>]; struct2 [label=< <TABLE BORDER="0" CELLBORDER="1" CELLSPACING="0">  <TR><TD PORT="f0">one</TD><TD>two</TD></TR> </TABLE>')
+
+g.add_node( "struct2", "html" => '<TABLE BORDER="0" CELLBORDER="1" CELLSPACING="0">  <TR><TD PORT="f0">one</TD><TD>two</TD></TR> </TABLE>' )
+g.add_node( "struct3", "html" => '<TABLE BORDER="0" CELLBORDER="1" CELLSPACING="0" CELLPADDING="4">  <TR>  <TD ROWSPAN="3">hello<BR/>world</TD>  <TD COLSPAN="3">b</TD>  <TD ROWSPAN="3">g</TD>  <TD ROWSPAN="3">h</TD>  </TR>  <TR>  <TD>c</TD><TD PORT="here">d</TD><TD>e</TD>  </TR>  <TR>  <TD COLSPAN="3">f</TD>  </TR> </TABLE>' )
+
+g.add_edge( "struct1:f1", "struct2:f0" )
+g.add_edge( "struct1:f2", "struct3:here" )
+
+g.add_edge( "HTML", "struct1" )
+
+g.output( :path => '/usr/local/bin/', :png => "#{$0}.png" )

data/examples/arrowhead.rb

@@ -0,0 +1,97 @@
+#!/usr/bin/ruby
+
+$:.unshift( "../lib" );
+require "graphviz"
+
+g = nil
+if ARGV[0]
+  g = GraphViz::new( "G", "path" => ARGV[0] )
+else
+  g = GraphViz::new( "G" )
+end
+
+g["rankdir"] = "LR"
+g.node["shape"] = "ellipse"
+g.edge["arrowhead"] = "normal"
+
+[
+"box", 
+"boxbox", 
+"lbox", 
+"lboxlbox", 
+"rbox", 
+"rboxrbox", 
+"olbox", 
+"olboxolbox", 
+"orbox", 
+"orboxorbox", 
+"obox", 
+"oboxobox", 
+"crow", 
+"crowcrow", 
+"lcrow", 
+"lcrowlcrow", 
+"rcrow", 
+"rcrowrcrow", 
+"diamond", 
+"diamonddiamond", 
+"ldiamond", 
+"ldiamondldiamond", 
+"rdiamond", 
+"rdiamondrdiamond", 
+"oldiamond", 
+"oldiamondoldiamond", 
+"ordiamond", 
+"ordiamondordiamond", 
+"odiamond", 
+"odiamondodiamond", 
+"dot", 
+"dotdot", 
+"odot", 
+"odotodot", 
+"inv", 
+"invinv", 
+"linv", 
+"linvlinv", 
+"rinv", 
+"rinvrinv", 
+"olinv", 
+"olinvolinv", 
+"orinv", 
+"orinvorinv", 
+"oinv", 
+"oinvoinv", 
+"none", 
+"nonenone", 
+"normal", 
+"normalnormal", 
+"lnormal", 
+"lnormallnormal", 
+"rnormal", 
+"rnormalrnormal", 
+"olnormal", 
+"olnormalolnormal", 
+"ornormal", 
+"ornormalornormal", 
+"onormal", 
+"onormalonormal", 
+"tee", 
+"teetee", 
+"ltee", 
+"lteeltee", 
+"rtee", 
+"rteertee", 
+"vee", 
+"veevee", 
+"lvee", 
+"lveelvee", 
+"rvee", 
+"rveervee" 
+].each { |s|
+  p = "p_" << s
+  g.add_node( p, "shape" => "point" )
+  g.add_node( s )
+  g.add_edge( p, s, "arrowhead" => s )
+}
+
+g.output( :png => "#{$0}.png" )

data/examples/dot/cluster.dot

@@ -0,0 +1,31 @@
+digraph G {
+
+	subgraph cluster_0 {
+		style=filled;
+		color=lightgrey;
+		node [style=filled,color=white];
+		a0 -> a1;
+		a1 -> a2;
+		a2 -> a3;
+		label = "process #1";
+	}
+
+	subgraph cluster_1 {
+		node [style=filled];
+		b0 -> b1;
+		b1 -> b2;
+		b2 -> b3;
+		label = "process #2";
+		color=blue;
+	}
+	start -> a0;
+	start -> b0;
+	a1 -> b3;
+	b2 -> a3;
+	a3 -> a0;
+	a3 -> end;
+	b3 -> end;
+
+	start [shape=Mdiamond];
+	end [shape=Msquare];
+}

data/examples/dot/fsm.dot

@@ -0,0 +1,20 @@
+digraph finite_state_machine {
+	rankdir=LR;
+	size="8,5";
+	node [shape = doublecircle]; LR_0; LR_3; LR_4; LR_8;
+	node [shape = circle];
+	LR_0 -> LR_2 [ label = "SS(B)" ];
+	LR_0 -> LR_1 [ label = "SS(S)" ];
+	LR_1 -> LR_3 [ label = "S($end)" ];
+	LR_2 -> LR_6 [ label = "SS(b)" ];
+	LR_2 -> LR_5 [ label = "SS(a)" ];
+	LR_2 -> LR_4 [ label = "S(A)" ];
+	LR_5 -> LR_7 [ label = "S(b)" ];
+	LR_5 -> LR_5 [ label = "S(a)" ];
+	LR_6 -> LR_6 [ label = "S(b)" ];
+	LR_6 -> LR_5 [ label = "S(a)" ];
+	LR_7 -> LR_8 [ label = "S(b)" ];
+	LR_7 -> LR_5 [ label = "S(a)" ];
+	LR_8 -> LR_6 [ label = "S(b)" ];
+	LR_8 -> LR_5 [ label = "S(a)" ];
+}

data/examples/dot/genetic.dot

@@ -0,0 +1,118 @@
+graph ""
+   {
+   label="((+ (* (X) (- (- (X) (X)) (X))) (% (+ (X) (X)) (COS (- (X) (X))))) (EXP (* (X) (X))) (+ (% (EXP (SIN (+ (X) (X)))) (SIN (* (X) (EXP (* (X) (X)))))) (* (X) (X))) (% (EXP (% (X) (% (X) (X)))) (EXP (SIN (X)))))";
+
+   subgraph cluster01
+   {
+   label="(+ (* (X) (- (- (X) (X)) (X))) (% (+ (X) (X)) (COS (- (X) (X)))))";
+   n002 ;
+   n002 [label="+"] ;
+   n002 -- n003 ;
+   n003 [label="*"] ;
+   n003 -- n004 ;
+   n004 [label="X"] ;
+   n003 -- n005 ;
+   n005 [label="-"] ;
+   n005 -- n006 ;
+   n006 [label="-"] ;
+   n006 -- n007 ;
+   n007 [label="X"] ;
+   n006 -- n008 ;
+   n008 [label="X"] ;
+   n005 -- n009 ;
+   n009 [label="X"] ;
+   n002 -- n010 ;
+   n010 [label="%"] ;
+   n010 -- n011 ;
+   n011 [label="+"] ;
+   n011 -- n012 ;
+   n012 [label="X"] ;
+   n011 -- n013 ;
+   n013 [label="X"] ;
+   n010 -- n014 ;
+   n014 [label="COS"] ;
+   n014 -- n015 ;
+   n015 [label="-"] ;
+   n015 -- n016 ;
+   n016 [label="X"] ;
+   n015 -- n017 ;
+   n017 [label="X"] ;
+   }
+
+   subgraph cluster17
+   {
+   label="(EXP (* (X) (X)))";
+   n018 ;
+   n018 [label="EXP"] ;
+   n018 -- n019 ;
+   n019 [label="*"] ;
+   n019 -- n020 ;
+   n020 [label="X"] ;
+   n019 -- n021 ;
+   n021 [label="X"] ;
+   }
+
+   subgraph cluster21
+   {
+   label="(+ (% (EXP (SIN (+ (X) (X)))) (SIN (* (X) (EXP (* (X) (X)))))) (* (X) (X)))";
+   n022 ;
+   n022 [label="+"] ;
+   n022 -- n023 ;
+   n023 [label="%"] ;
+   n023 -- n024 ;
+   n024 [label="EXP"] ;
+   n024 -- n025 ;
+   n025 [label="SIN"] ;
+   n025 -- n026 ;
+   n026 [label="+"] ;
+   n026 -- n027 ;
+   n027 [label="X"] ;
+   n026 -- n028 ;
+   n028 [label="X"] ;
+   n023 -- n029 ;
+   n029 [label="SIN"] ;
+   n029 -- n030 ;
+   n030 [label="*"] ;
+   n030 -- n031 ;
+   n031 [label="X"] ;
+   n030 -- n032 ;
+   n032 [label="EXP"] ;
+   n032 -- n033 ;
+   n033 [label="*"] ;
+   n033 -- n034 ;
+   n034 [label="X"] ;
+   n033 -- n035 ;
+   n035 [label="X"] ;
+   n022 -- n036 ;
+   n036 [label="*"] ;
+   n036 -- n037 ;
+   n037 [label="X"] ;
+   n036 -- n038 ;
+   n038 [label="X"] ;
+   }
+
+   subgraph cluster38
+   {
+   label="(% (EXP (% (X) (% (X) (X)))) (EXP (SIN (X))))";
+   n039 ;
+   n039 [label="%"] ;
+   n039 -- n040 ;
+   n040 [label="EXP"] ;
+   n040 -- n041 ;
+   n041 [label="%"] ;
+   n041 -- n042 ;
+   n042 [label="X"] ;
+   n041 -- n043 ;
+   n043 [label="%"] ;
+   n043 -- n044 ;
+   n044 [label="X"] ;
+   n043 -- n045 ;
+   n045 [label="X"] ;
+   n039 -- n046 ;
+   n046 [label="EXP"] ;
+   n046 -- n047 ;
+   n047 [label="SIN"] ;
+   n047 -- n048 ;
+   n048 [label="X"] ;
+   }
+   }