GraphvizR 0.0.1

data/History.txt

@@ -0,0 +1,5 @@
+== 1.0.0 / 2007-02-11
+
+* 1 major enhancement
+  * Birthday!
+

data/Manifest.txt

@@ -0,0 +1,7 @@
+History.txt
+Manifest.txt
+README.txt
+Rakefile
+bin/graphviz_r
+lib/graphviz_r.rb
+test/test_graphviz_r.rb

data/README.txt

@@ -0,0 +1,73 @@
+GraphvizR
+    by ANDO Yasushi
+    http://blog.technohippy.net
+
+== DESCRIPTION:
+
+Generate Graphviz dot file.
+
+== FEATURES/PROBLEMS:
+  
+* Generate Graphviz dot file
+
+== SYNOPSYS:
+
+=== Command Line:
+
+  graphviz_r sample/record.rdot
+
+=== In Your Code:
+This ruby code:
+
+  gvr = GraphvizR.new 'sample'
+  gvr.graph [:label => 'example', :size => '1.5, 2.5'] 
+  gvr.beta [:shape => :box]                            
+  gvr.alpha >> gvr.beta
+  (gvr.beta >> gvr.delta) [:label => 'label1']
+  gvr.delta >> gvr.gamma
+  gvr.to_dot
+
+replies the dot code:
+  
+  digraph sample {
+    graph [label = "example", size = "1.5, 2.5"];
+    beta [shape = box];
+    alpha -> beta;
+    beta -> delta [label = "label1"];
+    delta -> gamma;
+  }
+
+To know more detail, please see test/test_graphviz_r.rb
+
+== REQUIREMENTS:
+
+* Check Graphviz specification
+
+== INSTALL:
+
+* sudo gem install graphviz_r
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2007 FIX
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+'Software'), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,15 @@
+# -*- ruby -*-
+
+require 'rubygems'
+require 'hoe'
+require './lib/graphviz_r.rb'
+
+Hoe.new('GraphvizR', GraphvizR::VERSION) do |p|
+  p.rubyforge_name = 'graphviz_r'
+  # p.summary = 'FIX'
+  # p.description = p.paragraphs_of('README.txt', 2..5).join("\n\n")
+  # p.url = p.paragraphs_of('README.txt', 0).first.split(/\n/)[1..-1]
+  p.changes = p.paragraphs_of('History.txt', 0..1).join("\n\n")
+end
+
+# vim: syntax=Ruby

data/bin/graphviz_r

@@ -0,0 +1,23 @@
+#!/usr/bin/env ruby
+require 'optparse'
+
+$:.unshift File.join(File.dirname(__FILE__), '../lib')
+require 'graphviz_r'
+
+# define options
+COMMAND_LINE = "#{$0} #{ARGV.join(' ')}"
+OPT = Array.new 2
+opt = OptionParser.new
+opt.on('-o <outfile>', 'Output filename'){|v| OPT[0] = v}
+opt.on('-T <format>', 'Image file format'){|v| OPT[1] = v}
+opt.on_tail('-v', '--version', 'Show version.'){puts opt.ver; exit}
+opt.banner = "Usage: graphviz_r [OPTIONS] RDOT_FILE"
+
+Version = GraphvizR::VERSION
+opt.parse! ARGV
+
+rdotfile = ARGV.shift
+rdot = File.read rdotfile
+gvr = GraphvizR.new File.basename(rdotfile).split('.')[0]
+gvr.instance_eval rdot
+gvr.output *OPT

data/lib/graphviz_r.rb

@@ -0,0 +1,249 @@
+class GraphvizR
+  VERSION = '0.0.1'
+
+  class Attributes
+    def initialize(name, dot)
+      @name = name
+      @dot = dot
+    end
+
+    def [](prop)
+      @dot.send :"#{@name}=", prop
+    end
+  end
+
+  class Node
+    attr_reader :prop, :name
+
+    def initialize(name, port, dot)
+      @name = name
+      @port = port || []
+      @dot = dot
+      @prop = {}
+
+      if !@port.empty? and @port[0].is_a? Array and @port[0][0].is_a? Hash
+        @dot[@name] = @port[0][0]
+      end
+    end
+
+    def >>(node)
+      prop = @prop.merge node.prop
+      edge = Edge.new(self, node, prop)
+      @dot.add_edge edge
+      edge
+    end
+
+    def [](prop)
+      @dot[@name] = prop
+      @prop.merge! prop
+      self
+    end
+
+    def <=>(other)
+      @name <=> other.name
+    end
+
+    def to_sym
+      self
+    end
+
+    def to_dot
+      name = @port.dup
+      name.unshift @name
+      name.map{|e| e.to_dot}.join(':')
+      #@name.to_dot
+    end
+  end
+
+  class Edge
+    def initialize(from, to, prop={})
+      @from = from
+      @to = to
+      @property = prop
+    end
+    
+    def [](prop)
+      @property.merge! prop
+    end
+
+    def node_to_dot(node)
+      node.is_a?(Array) ? node.map{|e| e.to_sym.to_dot}.join(':') : node.to_sym.to_dot
+    end
+
+    def to_dot
+      dot = "#{node_to_dot @from} -> #{node_to_dot @to}"
+      dot += " #{@property.to_dot}" unless @property.empty?
+      dot
+    end
+
+    def <=>(other)
+      to_dot <=> other.to_dot
+    end
+  end
+
+  def self.dot(name, prop)
+    GraphvizR.new(name, prop).to_dot
+  end
+
+  def initialize(name, prop={}, graph_type='digraph')
+    if name.is_a? Array
+      initialize(*name)
+    else
+      @name = name
+      @edges = []
+      @default_node_properties = {}
+      @node_properties = {}
+      @graph_properties = {}
+      @subgraphs = []
+      @graph_type = graph_type
+      interprete prop
+    end
+  end
+
+  def interprete(prop)
+    prop.each do |k, v|
+      case k
+      when :node_property, :node_properties
+        add_node_properties v
+      when :graph
+        @graph_properties.merge! v
+      when :label, :size, :color, :fillcolor, :style
+        @graph_properties[k] = v
+      when :node
+        @default_node_properties[k] = v
+      when :subgraphs
+        add_subgraph(v)
+      else
+        add_edge k, v
+      end
+    end
+  end
+
+  def add_node_properties(props)
+    @node_properties = props
+  end
+
+  def add_edge(from, to=nil)
+    if from.is_a? Hash
+      f = from.keys[0]
+      t = from[f]
+      p = to
+      @edges << Edge.new(f, t, p)
+    elsif to.nil? 
+      # from is Edge instance
+      @edges << from 
+    else
+      @edges << Edge.new(from, to)
+    end
+  end
+
+  def add_subgraph(graphs)
+    graphs.to_a.sort.each do |key_prop|
+      @subgraphs << self.class.new(key_prop[0], key_prop[1], 'subgraph')
+    end
+  end
+
+  def [](key, *args, &block)
+    if block
+      subgraph = self.class.new(key, {}, 'subgraph')
+      block.call subgraph
+      @subgraphs << subgraph
+    else
+      Node.new key, args, self
+    end
+  end
+
+  def []=(key, *args, &block)
+    @node_properties[key] = args[0]
+  end
+
+  [:label, :size, :color, :fillcolor, :style].each do |method|
+    define_method :"#{method}=" do |v|
+      @graph_properties[method] = v
+    end
+  end
+
+  def graph(*args)
+    if args.empty?
+      Attributes.new :graph, self
+    else
+      self.graph = args[0][0]
+    end
+  end
+
+  def graph=(prop)
+    @graph_properties.merge! prop
+  end
+
+  def to_dot
+    dot = "#{@graph_type} #{@name} {"
+    dot += "graph #{@graph_properties.to_dot};" unless @graph_properties.empty?
+    dot += @subgraphs.map{|e| e.to_dot}.join("\n") unless @subgraphs.empty?
+    dot += properties_to_dot(@default_node_properties) unless @default_node_properties.empty?
+    dot += properties_to_dot(@node_properties) unless @node_properties.empty?
+    dot += @edges.sort.map{|e| "#{e.to_dot};"}.join("\n")
+    dot += "}"
+    dot
+  end
+
+  def data(format='png')
+    gv = IO.popen "dot -q -T#{format || 'png'}", "w+"
+    gv.puts to_dot
+    gv.close_write
+    gv.read
+  ensure
+    gv.close
+  end
+
+  def output(filename=nil, format='png')
+    img = data(format)
+    File.open(filename || "#{@name}.#{format || 'png'}", "w+") do |file|
+      file.write img
+    end
+  end
+
+  def method_missing(name, *args, &block)
+    method = 
+    if name.to_s =~ /=$/
+      name = name.to_s[0..-2].to_sym
+      :"[]="
+    else
+      :"[]"
+    end
+    self.send(method, name, *args, &block)
+  end
+
+protected
+
+  def properties_to_dot(hash)
+    hash.to_a.sort.map{|e| "#{e[0]} #{e[1].to_dot};"}.join("\n")
+  end
+end
+
+class Number
+  def to_dot
+    to_s
+  end
+end
+
+class String
+  def to_dot
+    inspect
+  end
+end
+
+class Symbol
+  def to_dot
+    to_s
+  end
+
+  def <=>(other)
+    to_s <=> other.to_s
+  end
+end
+
+class Hash
+  def to_dot
+    "[#{to_a.sort.map{|e| "#{e[0].to_dot} = #{e[1].to_dot}"}.join(', ')}]"
+  end
+end

data/test/test_graphviz_r.rb

@@ -0,0 +1,209 @@
+# ref. http://homepage3.nifty.com/kaku-chan/graphviz/index.html
+
+require 'test/unit'
+require 'graphviz_r'
+
+class TestGraphvizR < Test::Unit::TestCase
+  def test_string_to_dot
+    assert_equal '"str"', "str".to_dot
+  end
+
+  def test_symbol_to_dot
+    assert_equal "sym", :sym.to_dot
+  end
+
+  def test_hash_to_dot
+    assert_equal '[k1 = v1, k2 = "v2"]', {:k1 => :v1, :k2 => "v2"}.to_dot
+  end
+
+  def test_basic
+    dot = GraphvizR.dot(:sample, 
+                        :graph => {:size => "1.5, 2.5"},
+                        :label => 'example',
+                        :node_properties => {
+                          :beta => {:shape => :box},
+                        },
+                        :alpha => :beta,
+                        {:alpha => :gamma} => {:label => 'label1'},
+                        :beta => :delta,
+                        :delta => 'size'
+                        )
+    assert_equal <<-end_of_string.gsub(/\s/, ''), dot.gsub(/\s/, '')
+digraph sample {
+  graph [label = "example", size = "1.5, 2.5"];
+  beta [shape = box];
+  alpha -> beta;
+  alpha -> gamma [label = "label1"];
+  beta -> delta;
+  delta -> size;
+}
+    end_of_string
+  end
+
+  #dot.graph = {:label => 'example', :size => '1.5, 2.5'}
+  #dot.beta = {:shape => :box}
+  #dot.graph[:label => 'example', :size => '1.5, 2.5']
+  #dot.beta[:shape => :box]
+  def test_basic_dynamic
+    dot = GraphvizR.new 'sample'
+    dot.graph [:label => 'example', :size => '1.5, 2.5'] 
+    dot.beta [:shape => :box]                            
+    dot.alpha >> dot.beta
+    (dot.alpha >> dot.gamma) [:label => 'label1']
+    (dot.beta >> dot.delta) [:label => 'label2']
+    dot.delta >> dot[:size]
+
+    assert_equal <<-end_of_string.gsub(/\s/, ''), dot.to_dot.gsub(/\s/, '')
+digraph sample {
+  graph [label = "example", size = "1.5, 2.5"];
+  beta [shape = box];
+  alpha -> beta;
+  alpha -> gamma [label = "label1"];
+  beta -> delta [label = "label2"];
+  delta -> size;
+}
+    end_of_string
+  end
+
+  def test_record
+    dot = GraphvizR.dot(:sample, 
+                        :graph => {:size => "1.5, 2.5"},
+                        :node => {:shape => :record},
+                        :node_properties => {
+                          :node1 => {:label => "<p_left> left|<p_center>center|<p_right> right"},
+                          :node2 => {:label => "left|center|right"}
+                        },
+                        :node1 => :node2,
+                        [:node1, :p_left] => :node2,
+                        :node2 => [:node1, :p_center],
+                        {:node2 => [:node1, :p_right]} => {:label => 'record'}
+                        )
+    assert_equal <<-end_of_string.gsub(/\s/, ''), dot.gsub(/\s/, '')
+digraph sample {
+  graph [size = "1.5, 2.5"];
+  node [shape = record];
+  node1 [label = "<p_left> left|<p_center>center|<p_right> right"];
+  node2 [label = "left|center|right"];
+  node1 -> node2;
+  node1:p_left -> node2;
+  node2 -> node1:p_center;
+  node2 -> node1:p_right [label = "record"];
+}
+    end_of_string
+  end
+
+  #dot.size = '1.5, 2.5'
+  #dot.node = {:shape => :record}
+  #d dot.node1 = {:label => "<p_left> left|<p_center>center|<p_right> right"}
+  #dot.node2 = {:label => "left|center|right"}
+  def test_record_dynamic
+    dot = GraphvizR.new 'sample'
+    dot.graph [:size => '1.5, 2.5']
+    dot.node [:shape => :record]
+    dot.node1 [:label => "<p_left> left|<p_center>center|<p_right> right"]
+    dot.node2 [:label => "left|center|right"]
+    dot.node1 >> dot.node2
+    dot.node1(:p_left) >> dot.node2
+    dot.node2 >> dot.node1(:p_center)
+    (dot.node2 >> dot.node1(:p_right)) [:label => 'record']
+
+    assert_equal <<-end_of_string.gsub(/\s/, ''), dot.to_dot.gsub(/\s/, '')
+digraph sample {
+  graph [size = "1.5, 2.5"];
+  node [shape = record];
+  node1 [label = "<p_left> left|<p_center>center|<p_right> right"];
+  node2 [label = "left|center|right"];
+  node1 -> node2;
+  node1:p_left -> node2;
+  node2 -> node1:p_center;
+  node2 -> node1:p_right [label = "record"];
+}
+    end_of_string
+  end
+
+  def test_subgraph
+    dot = GraphvizR.dot(:sample, 
+                        :subgraphs => {
+                          :cluster0 => {
+                            :color => :blue,
+                            :style => :bold,
+                            :label => "area 0",
+                            {:a => :b} => {},
+                            :a => :c
+                          },
+                          :cluster1 => {
+                            :fillcolor => "#cc9966",
+                            :style => :filled,
+                            :label => "area 1",
+                            [:d] => :e,
+                            :d => :f
+                          }
+                        },
+                        :b => :d,
+                        {:c => :d} => {:ltail => :cluster0},
+                        {:c => :f} => {:lhead => :cluster1},
+                        {:a => :f} => {:ltail => :cluster0, :lhead => :cluster1}
+                        )
+    assert_equal <<-end_of_string.gsub(/\s/, ''), dot.gsub(/\s/, '')
+digraph sample {
+  subgraph cluster0 {
+    graph [color = blue, label ="area 0", style = bold];
+    a -> b;
+    a -> c;
+  }
+  subgraph cluster1 {
+    graph [fillcolor = "#cc9966", label = "area 1", style = filled];
+    d -> e;
+    d -> f;
+  }
+  a -> f [lhead = cluster1, ltail = cluster0];
+  b -> d;
+  c -> d [ltail = cluster0];
+  c -> f [lhead = cluster1];
+}
+    end_of_string
+  end
+
+  #c0.color = :blue
+  #c0.label = 'area 0'
+  #c0.style = :bold
+  #c1.fillcolor = '#cc9966'
+  #c1.label = 'area 1'
+  #c1.style = :filled
+  def test_subgrpah_dynamic
+    dot = GraphvizR.new 'sample'
+    dot.cluster0 do |c0|
+      c0.graph [:color => :blue, :label => 'area 0', :style => :bold]
+      c0.a >> c0.b
+      c0.a >> c0.c
+    end
+    dot.cluster1 do |c1|
+      c1.graph [:fillcolor => '#cc9966', :label => 'area 1', :style => :filled]
+      c1.d >> c1.e
+      c1.d >> c1.f
+    end
+    (dot.a >> dot.f) [:lhead => :cluster1, :ltail => :cluster0]
+    dot.b >> dot.d
+    (dot.c >> dot.d) [:ltail => :cluster0]
+    (dot.c >> dot.f) [:lhead => :cluster1]
+
+    assert_equal <<-end_of_string.gsub(/\s/, ''), dot.to_dot.gsub(/\s/, '')
+digraph sample {
+  subgraph cluster0 {
+    graph [color = blue, label ="area 0", style = bold];
+    a -> b;
+    a -> c;
+  }
+  subgraph cluster1 {
+    graph [fillcolor = "#cc9966", label = "area 1", style = filled];
+    d -> e;
+    d -> f;
+  }
+  a -> f [lhead = cluster1, ltail = cluster0];
+  b -> d;
+  c -> d [ltail = cluster0];
+  c -> f [lhead = cluster1];
+}
+    end_of_string
+  end
+end

metadata

@@ -0,0 +1,58 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.0
+specification_version: 1
+name: GraphvizR
+version: !ruby/object:Gem::Version 
+  version: 0.0.1
+date: 2007-02-14 00:00:00 +09:00
+summary: The author was too lazy to write a summary
+require_paths: 
+  - lib
+email: ryand-ruby@zenspider.com
+homepage: http://www.zenspider.com/ZSS/Products/GraphvizR/
+rubyforge_project: graphviz_r
+description: The author was too lazy to write a description
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+    - 
+      - ">"
+      - !ruby/object:Gem::Version 
+        version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+post_install_message: 
+authors: 
+  - Ryan Davis
+files: 
+  - History.txt
+  - Manifest.txt
+  - README.txt
+  - Rakefile
+  - bin/graphviz_r
+  - lib/graphviz_r.rb
+  - test/test_graphviz_r.rb
+test_files: 
+  - test/test_graphviz_r.rb
+rdoc_options: []
+extra_rdoc_files: []
+executables: 
+  - graphviz_r
+extensions: []
+requirements: []
+dependencies: 
+  - !ruby/object:Gem::Dependency 
+    name: hoe
+    version_requirement: 
+    version_requirements: !ruby/object:Gem::Version::Requirement 
+      requirements: 
+        - 
+          - ">="
+          - !ruby/object:Gem::Version 
+            version: 1.1.6
+      version: