luquet-ruby-graphviz 0.9.5

data/lib/graphviz/attrs.rb

@@ -0,0 +1,51 @@
+# Copyright (C) 2004, 2005, 2006, 2007, 2008 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
+
+class GraphViz
+  class Attrs
+    @data
+    @name
+    @attributs
+	  @graphviz
+    
+    attr_accessor :data
+
+    def initialize( gviz, name, attributs )
+      @name      = name
+      @attributs = attributs
+      @data      = Hash::new( )
+	    @graphviz  = gviz
+    end
+
+    def []( xKey )
+      if @data.key?( xKey.to_s ) == false
+        nil
+      end
+      @data[xKey.to_s]
+    end
+
+    def []=( xKey, xValue )
+      if @attributs.index( xKey.to_s ).nil? == true
+        raise ArgumentError, "#{@name} attribut '#{xKey.to_s}' invalid"
+      end
+      @data[xKey.to_s] = xValue.to_s
+
+      if @graphviz.nil? == false
+        @graphviz.set_position( @name, xKey.to_s, xValue.to_s )
+      end
+    end
+  end
+end

data/lib/graphviz/constants.rb

@@ -0,0 +1,246 @@
+# Copyright (C) 2004, 2005, 2006, 2007, 2008 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
+
+module Constants
+  RGV_VERSION = "0.9.4"
+  
+  ## Const: Output formats
+  FORMATS = [
+    "bmp",
+    "canon",
+    "dot", 
+    "xdot",
+    "cmap", 
+    "dia",
+    "eps",
+    "fig",
+    "gd",
+    "gd2",
+    "gif",
+    "gtk",
+    "hpgl", 
+    "ico",
+    "imap", 
+    "cmapx",
+    "imap_np", 
+    "cmapx_np",
+    "ismap", 
+    "jpeg", 
+    "jpg", 
+    "jpe", 
+    "mif", 
+    "mp",
+    "pcl", 
+    "pdf",
+    "pic", 
+    "plain", 
+    "plain-ext",
+    "png", 
+    "ps", 
+    "ps2",
+    "svg", 
+    "svgz",
+    "tga",
+    "tiff",
+    "tif",
+    "vml",
+    "vmlz",
+    "vrml", 
+    "vtx", 
+    "wbmp", 
+    "xlib", 
+    "none"
+  ]
+
+  ## Const: programs
+  PROGRAMS = [
+    "dot",
+    "neato",
+    "twopi",
+    "fdp",
+    "circo"
+  ]
+
+  ## Const: graphs type
+  GRAPHTYPE = [
+    "digraph",
+	  "graph"
+  ]
+
+  def self.getAttrsFor( x )
+    r = []
+    GENCS_ATTRS.each { |k,v|
+      r << k if /#{x}/.match( x.to_s ) and not r.include?( k )
+    }
+    r
+  end
+  
+  # E, N, G, S and C represent edges, nodes, the root graph, subgraphs and cluster subgraphs, respectively
+  GENCS_ATTRS = {
+    "Damping"             => "G",
+    "K"                   => "GC",
+    "URL"                 => "ENGC",
+    "arrowhead"           => "E",
+    "arrowsize"           => "E",
+    "arrowtail"           => "E",
+    "bb"                  => "G",
+    "bgcolor"             => "GC",
+#    "bottomlabel"         => "N",
+    "center"              => "G",
+    "charset"             => "G",
+    "clusterrank"         => "G",
+    "color"               => "ENC",
+    "colorscheme"         => "ENCG",
+    "comment"             => "ENG",
+    "compound"            => "G",
+    "concentrate"         => "G",
+    "constraint"          => "E",
+    "decorate"            => "E",
+    "defaultdist"         => "G",
+    "dim"                 => "G",
+    "dir"                 => "E",
+    "diredgeconstraints"  => "G",
+    "distortion"          => "N",
+    "dpi"                 => "G",
+    "edgeURL"             => "E",
+    "edgehref"            => "E",
+    "edgetarget"          => "E",
+    "edgetooltip"         => "E",
+    "epsilon"             => "G",
+    "esep"                => "G",
+    "fillcolor"           => "NC",
+    "fixedsize"           => "N",
+    "fontcolor"           => "ENGC",
+    "fontname"            => "ENGC",
+    "fontnames"           => "G",
+    "fontpath"            => "G",
+    "fontsize"            => "ENGC",
+    "group"               => "N",
+    "headURL"             => "E",
+    "headclip"            => "E",
+    "headhref"            => "E",
+    "headlabel"           => "E",
+    "headport"            => "E",
+    "headtarget"          => "E",
+    "headtooltip"         => "E",
+    "height"              => "N",
+    "href"                => "E",
+    "html"                => "N", # API extension
+    "image"               => "N",
+    "imagescale"          => "N",
+    "label"               => "ENGC",
+    "labelURL"            => "E",
+    "labelangle"          => "E",
+    "labeldistance"       => "E",
+    "labelfloat"          => "E",
+    "labelfontcolor"      => "E",
+    "labelfontname"       => "E",
+    "labelfontsize"       => "E",
+    "labelhref"           => "E",
+    "labeljust"           => "GC",
+    "labelloc"            => "GCN",
+    "labeltarget"         => "E",
+    "labeltooltip"        => "E",
+    "landscape"           => "G",
+    "layer"               => "EN",
+    "layers"              => "G",
+    "layersep"            => "G",
+    "len"                 => "E",
+    "levelsgap"           => "G",
+    "lhead"               => "E",
+    "lp"                  => "EGC",
+    "ltail"               => "E",
+    "margin"              => "NG",
+    "maxiter"             => "G",
+    "mclimit"             => "G",
+    "mindist"             => "G",
+    "minlen"              => "E",
+    "mode"                => "G",
+    "model"               => "G",
+    "mosek"               => "G",
+    "nodesep"             => "G",
+    "nojustify"           => "GCNE",
+    "normalize"           => "G",
+    "nslimit"             => "G",
+    "nslimit1"            => "G",
+    "ordering"            => "G",
+    "orientation"         => "NG",
+    "outputorder"         => "G",
+    "overlap"             => "G",
+    "pack"                => "G",
+    "packmode"            => "G",
+    "pad"                 => "G",
+    "page"                => "G",
+    "pagedir"             => "G",
+    "pencolor"            => "C",
+    "penwidth"            => "CNE",
+    "peripheries"         => "NC",
+    "pin"                 => "N",
+    "pos"                 => "EN",
+    "quantum"             => "G",
+    "rank"                => "S",
+    "rankdir"             => "G",
+    "ranksep"             => "G",
+    "ratio"               => "G",
+    "rects"               => "N",
+    "regular"             => "N",
+    "remincross"          => "G",
+    "resolution"          => "G",
+    "root"                => "GN",
+    "rotate"              => "G",
+    "samehead"            => "E",
+    "sametail"            => "E",
+    "samplepoints"        => "G",
+    "searchsize"          => "G",
+    "sep"                 => "G",
+    "shape"               => "N",
+    "shapefile"           => "N",
+    "showboxes"           => "ENG",
+    "sides"               => "N",
+    "size"                => "G",
+    "skew"                => "N",
+    "splines"             => "G",
+    "start"               => "G",
+    "style"               => "ENC",
+    "stylesheet"          => "G",
+    "tailURL"             => "E",
+    "tailclip"            => "E",
+    "tailhref"            => "E",
+    "taillabel"           => "E",
+    "tailport"            => "E",
+    "tailtarget"          => "E",
+    "tailtooltip"         => "E",
+    "target"              => "ENGC",
+    "tooltip"             => "NEC",
+#    "toplabel"            => "N",
+    "truecolor"           => "G",
+    "vertices"            => "N",
+    "viewport"            => "G",
+    "voro_margin"         => "G",
+    "weight"              => "E",
+    "width"               => "N",
+    "z"                   => "N"
+  }
+
+  ## Const: Graph attributs
+  GRAPHSATTRS = Constants::getAttrsFor( :G ) + Constants::getAttrsFor( :S ) + Constants::getAttrsFor( :C )
+
+  ## Const: Node attributs
+  NODESATTRS = Constants::getAttrsFor( :N )
+
+  ## Const: Edge attributs
+  EDGESATTRS = Constants::getAttrsFor( :E )
+end

data/lib/graphviz/dot.treetop

@@ -0,0 +1,97 @@
+grammar Dot
+	rule graph
+		space type:("graph" / "digraph") blank name:string space cluster:cluster space <GraphViz::Parser::Graph>
+	end
+
+	rule cluster
+		"{" content:(preference / node / edge / subgraph / rank)* "}" <GraphViz::Parser::Cluster>
+	end
+
+	rule preference
+		graph_preference / named_graph_preference / node_preference / edge_preference
+	end
+
+	rule graph_preference
+		space key:name blank "=" blank value:string separator <GraphViz::Parser::GraphPreference>
+	end
+
+	rule named_graph_preference
+		space "graph" blank options:options? separator  <GraphViz::Parser::NamedGraphPreference>
+	end
+
+	rule node_preference
+		space "node" blank options:options? separator <GraphViz::Parser::NodePreference>
+	end
+
+	rule edge_preference
+		space "edge" blank options:options? separator <GraphViz::Parser::EdgePreference>
+	end
+
+	rule node
+		space name:string blank options:options? separator <GraphViz::Parser::Node>
+	end
+
+	rule edge
+		direct_edge / undirect_edge
+	end
+
+	rule direct_edge
+		space node_one:string blank "->" blank node_two:string blank other_nodes:("->" blank next_node:string blank)* options:options? separator <GraphViz::Parser::Edge>
+	end
+
+	rule undirect_edge
+		space node_one:string blank "--" blank node_two:string blank other_nodes:("--" blank next_node:string blank)* options:options? separator <GraphViz::Parser::Edge>
+	end
+
+	rule subgraph
+	  space "subgraph" blank name:string space cluster:cluster space <GraphViz::Parser::Subgraph>
+	end
+
+	rule options
+		"[" space (name blank "=" blank string comma space)* name blank "=" blank string space "]" <GraphViz::Parser::Options>
+	end
+
+	rule string
+		name / quoted_string
+	end
+
+	rule comma
+		space ","
+	end
+
+	rule separator
+		blank ";" space
+	end
+
+	rule quoted_string
+		'"' [^"]* '"'
+	end
+
+	rule name
+		[a-zA-Z0-9_\.]+
+	end
+
+	rule blank
+		[\ \t]*
+	end
+
+	rule space
+    [\s\n\r\t]*
+  end
+
+	rule newline
+		CR LF
+	end
+
+	rule CR
+    [\r]?
+	end
+
+	rule LF
+		[\n]?
+	end
+
+  rule rank
+    space cluster:cluster space <GraphViz::Parser::Rank>
+  end
+end

data/lib/graphviz/edge.rb

@@ -0,0 +1,130 @@
+# Copyright (C) 2004, 2005, 2006, 2007, 2008 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 'graphviz/attrs'
+require 'graphviz/constants'
+
+class GraphViz
+  class Edge
+    include Constants
+    @xNodeOne
+    @xNodeTwo
+    @oAttrEdge
+    @oGParrent
+
+    # 
+    # Create a new edge
+    # 
+    # In:
+    # * vNodeOne : First node
+    # * vNodeTwo : Second node
+    # * oGParrent : Graph 
+    #
+    def initialize( vNodeOne, vNodeTwo, oGParrent = nil )
+	    if vNodeOne.class == String
+        @xNodeOne = vNodeOne
+	    else
+        @xNodeOne = vNodeOne.name
+	    end
+	  
+	    if vNodeTwo.class == String
+        @xNodeTwo = vNodeTwo
+	    else
+        @xNodeTwo = vNodeTwo.name
+	    end
+	    
+	    @oGParrent = oGParrent
+
+      @oAttrEdge = GraphViz::Attrs::new( nil, "edge", EDGESATTRS )
+    end
+
+    # 
+    # Set value +xAttrValue+ to the edge attribut +xAttrName+
+    # 
+	  def []=( xAttrName, xAttrValue )
+      xAttrValue = xAttrValue.to_s if xAttrValue.class == Symbol
+      @oAttrEdge[xAttrName.to_s] = xAttrValue
+    end
+
+    # 
+    # Get the value of the node attribut +xAttrName+
+    # 
+    def []( xAttrName )
+      @oAttrEdge[xAttrName.to_s].clone
+    end
+    
+    def <<( oNode ) #:nodoc:
+      n = @oGParrent.get_node(@xNodeTwo)
+      
+      GraphViz::commonGraph( oNode, n ).add_edge( n, oNode )
+    end
+    alias :> :<< #:nodoc:
+    alias :- :<< #:nodoc:
+    alias :>> :<< #:nodoc:
+    
+    #
+    # Set edge attributs
+    #
+    # Example :
+    #   e = graph.add_edge( ... )
+    #   ...
+    #   e.set { |_e|
+    #     _e.color = "blue"
+    #     _e.fontcolor = "red"
+    #   }
+    # 
+    def set( &b )
+      yield( self )
+    end
+    
+    # Add edge options
+    # use edge.<option>=<value> or edge.<option>( <value> )
+    def method_missing( idName, *args, &block ) #:nodoc:
+      xName = idName.id2name
+      
+      self[xName.gsub( /=$/, "" )]=args[0]
+    end
+    
+	  def output( oGraphType ) #:nodoc:
+	    xLink = " -> "
+	    if oGraphType == "graph"
+	      xLink = " -- "
+	    end
+	  
+	    #xNodeNameOne = @xNodeOne.clone
+	    #xNodeNameOne = '"' << xNodeNameOne << '"' if xNodeNameOne.match( /^[a-zA-Z_]+[a-zA-Z0-9_\.]*$/ ).nil?
+	    xNodeNameOne = GraphViz.escape(@xNodeOne)
+	    
+	    #xNodeNameTwo = @xNodeTwo.clone
+	    #xNodeNameTwo = '"' << xNodeNameTwo << '"' if xNodeNameTwo.match( /^[a-zA-Z_]+[a-zA-Z0-9_\.]*$/ ).nil?
+	    xNodeNameTwo = GraphViz.escape(@xNodeTwo)
+      
+      xOut = xNodeNameOne + xLink + xNodeNameTwo
+      xAttr = ""
+      xSeparator = ""
+      @oAttrEdge.data.each do |k, v|
+        xAttr << xSeparator + k + " = " + GraphViz.escape(v, true)
+        xSeparator = ", "
+      end
+      if xAttr.length > 0
+        xOut << " [" + xAttr + "]"
+      end
+      xOut + ";"
+
+      return( xOut )
+	  end
+  end
+end