rgl 0.2.2

data/TAGS

@@ -0,0 +1,209 @@
+
+lib/rgl/adjacency.rb,956
+module RGLRGL
16,586
+  class DirectedAdjacencyGraphDirectedAdjacencyGraph
17,597
+	def initialize(edgelist_class=Set)initialize
33,1091
+	def each_vertex(&b)each_vertex
39,1248
+	def each_adjacent(v, &b)	# :nodoc:each_adjacent
43,1305
+	def directed?; true; enddirected?
49,1470
+	def has_vertex?(v); @vertice_dict.has_key?(v); endhas_vertex?
53,1619
+	def has_edge? (u, v)has_edge?
60,1799
+	def add_vertex(v)add_vertex
67,1981
+	def add_edge (u,v)add_edge
72,2080
+	def remove_vertex(v)remove_vertex
79,2230
+	def remove_edge (u,v)remove_edge
87,2422
+	def basic_add_edge(u,v)basic_add_edge
93,2522
+  class AdjacencyGraph < DirectedAdjacencyGraphAdjacencyGraph
101,2812
+	def directed?; false; enddirected?
103,2885
+	def remove_edge (u,v)remove_edge
106,2936
+	def basic_add_edge(u,v)basic_add_edge
112,3044
+  module GraphGraph
119,3143
+	def to_adjacencyto_adjacency
122,3291
+	def reversereverse
132,3639
+	def to_undirectedto_undirected
144,4009
+
+lib/rgl/base.rb,1907
+  module EnumerableEnumerable
12,301
+	def inject(*argv)inject
13,321
+module EnumerableEnumerable
41,700
+  def lengthlength
48,892
+module RGLRGL
55,954
+  class NotDirectedError < RuntimeError; endNotDirectedError
56,965
+  class NotUndirectedError < RuntimeError; endNotUndirectedError
57,1010
+  class NoVertexError < IndexError; endNoVertexError
59,1058
+  class NoEdgeError < IndexError; endNoEdgeError
60,1098
+  module EdgeEdge
65,1327
+	class DirectedEdgeDirectedEdge
71,1651
+	  def initialize (a,b)initialize
80,1874
+	  def eql?(edge)eql?
86,2086
+	  def reversereverse
92,2216
+	  def to_sto_s
101,2504
+	  def to_a; [source,target]; endto_a
105,2589
+	class UnDirectedEdge < DirectedEdgeUnDirectedEdge
115,2894
+	  def eql?(edge)eql?
116,2931
+	  def hashhash
120,3021
+	  def to_s; "(#{source}=#{target})"; endto_s
125,3113
+  module GraphGraph
144,3938
+	def each_vertexeach_vertex
151,4151
+	def each_adjacent (v)each_adjacent
159,4401
+	def each_edge (&block)each_edge
171,4882
+	def each(&block); each_vertex(&block); endeach
184,5165
+	def directed?; false; enddirected?
187,5264
+	def has_vertex?(v); include?(v); end	# inherited from enumerablehas_vertex?
192,5490
+	def empty?; num_vertices.zero?; endempty?
197,5668
+	def vertices; to_a; endvertices
200,5781
+	def edge_class; directed? ? DirectedEdge : UnDirectedEdge; endedge_class
203,5871
+	def edgesedges
207,6079
+	def adjacent_vertices (v)adjacent_vertices
215,6239
+	def out_degree (v)out_degree
223,6451
+	def size # Why not in Enumerable?size
230,6560
+	def num_vertices; size; endnum_vertices
236,6732
+	def num_edges; r = 0; each_edge {|u,v| r +=1}; r; endnum_edges
239,6794
+	def to_sto_s
242,6927
+	def each_edge_auxeach_edge_aux
248,6973
+  module BidirectionalGraphBidirectionalGraph
272,7816
+	def each_in_neighbor (v)each_in_neighbor
279,8156
+	def in_degree (v)in_degree
286,8359
+	def degree (v)degree
294,8582
+
+lib/rgl/connected_components.rb,497
+module RGLRGL
7,233
+  module GraphGraph
8,244
+	def each_connected_componenteach_connected_component
17,641
+	class TarjanSccVisitor < DFSVisitorTarjanSccVisitor
34,1174
+	  def initialize(g)initialize
38,1314
+	  def handle_examine_vertex(v)handle_examine_vertex
48,1458
+	  def handle_finish_vertex(v)handle_finish_vertex
56,1606
+	  def num_compnum_comp
75,2151
+	  def min_discover_time(u,v)min_discover_time
81,2198
+	def strongly_connected_componentsstrongly_connected_components
118,3687
+
+lib/rgl/dot.rb,298
+module RGLRGL
10,239
+  module GraphGraph
11,250
+	def to_dot_graph( params = {} )to_dot_graph
15,428
+	def print_dotted_on (params = {}, s=$stdout)print_dotted_on
35,1076
+	def dotty( params = {} )dotty
41,1270
+	def write_to_graphic_file(fmt='png', dotfile="graph")write_to_graphic_file
51,1530
+
+lib/rgl/graphxml.rb,340
+module RGLRGL
15,594
+  module GraphXMLGraphXML
22,893
+	class MutableGraphParserMutableGraphParser
23,911
+	  def initialize(graph)initialize
26,992
+	  def tag_start(name, attrs)tag_start
30,1042
+	def MutableGraph.append_features(includingClass)append_features
41,1229
+	  def includingClass.from_graphxml (source)from_graphxml
45,1350
+
+lib/rgl/implicit.rb,681
+module RGLRGL
19,702
+  class ImplicitGraphImplicitGraph
20,713
+	def initializeinitialize
32,1102
+	def directed?; @directed; enddirected?
40,1337
+	def each_vertex (&block)	# :nodoc:each_vertex
42,1370
+	def each_adjacent (v, &block) # :nodoc:each_adjacent
46,1444
+	def each_edge (&block) # :nodoc:each_edge
50,1527
+	def vertex_iterator (&block)vertex_iterator
60,1811
+	def adjacent_iterator (&block)adjacent_iterator
69,2127
+	def edge_iterator (&block)edge_iterator
76,2367
+  module GraphGraph
81,2433
+	def vertices_filtered_by (&filter)vertices_filtered_by
105,3129
+	def edges_filtered_by (&filter)edges_filtered_by
124,3675
+	def implicit_graphimplicit_graph
141,4120
+
+lib/rgl/mutable.rb,484
+module RGLRGL
3,20
+  module MutableGraphMutableGraph
6,121
+	def add_vertex(v); raise NotImplementedError; endadd_vertex
11,266
+	def add_edge(u, v); raise NotImplementedError; endadd_edge
20,692
+	def add_vertices (*a)add_vertices
23,790
+	def add_edges (*edges)add_edges
30,1010
+	def remove_vertex(v); raise NotImplementedError; endremove_vertex
39,1365
+	def remove_edge(u, v); raise NotImplementedError; endremove_edge
46,1653
+	def remove_vertices (*a)remove_vertices
50,1798
+
+lib/rgl/rdot.rb,1615
+module DOTDOT
9,242
+    def change_tab( t )change_tab
16,420
+    class DOTSimpleElementDOTSimpleElement
81,1613
+        def initialize( params = {} )initialize
84,1669
+        def to_sto_s
88,1778
+    class DOTElement < DOTSimpleElementDOTElement
94,1897
+        def initialize( params = {}, option_list = [] )initialize
98,2005
+        def each_optioneach_option
109,2419
+        def each_option_paireach_option_pair
113,2497
+    class DOTPort < DOTSimpleElementDOTPort
126,2856
+        def initialize( params = {} )initialize
129,2931
+        def to_sto_s
133,3068
+    class DOTNode < DOTElementDOTNode
139,3200
+        def initialize( params = {}, option_list = NODE_OPTS )initialize
142,3247
+        def each_porteach_port
147,3424
+        def push ( thing )push
155,3564
+        def poppop
159,3637
+        def to_s( t = '' )to_s
163,3689
+    class DOTSubgraph < DOTElementDOTSubgraph
188,4604
+        def initialize( params = {}, option_list = GRAPH_OPTS )initialize
192,4675
+        def each_nodeeach_node
198,4887
+        def push( thing )push
206,5034
+        def poppop
210,5106
+        def to_s( t = '' )to_s
214,5158
+    class DOTDigraph < DOTSubgraphDOTDigraph
231,5663
+        def initialize( params = {}, option_list = GRAPH_OPTS )initialize
232,5698
+    class DOTEdge < DOTElementDOTEdge
239,5879
+        def initialize( params = {}, option_list = EDGE_OPTS )initialize
241,5943
+		def edge_link; '--'; endedge_link
247,6177
+        def to_s( t = '' )to_s
248,6204
+	class DOTDirectedEdge < DOTEdgeDOTDirectedEdge
258,6557
+	  def edge_link; '->'; endedge_link
259,6590
+
+lib/rgl/topsort.rb,447
+module RGLRGL
3,25
+  class TopsortIteratorTopsortIterator
14,503
+	def initialize(g)initialize
16,550
+	def set_to_begin					# :nodoc:set_to_begin
21,602
+	def basic_forward					# :nodoc:basic_forward
36,924
+	def at_beginning?; true; end		# :nodoc: FIXMEat_beginning?
45,1091
+	def at_end?; @waiting.empty?; end	# :nodoc:at_end?
46,1138
+  module GraphGraph
49,1190
+	def topsort_iteratortopsort_iterator
51,1235
+	def acyclic?acyclic?
57,1425
+
+lib/rgl/transitiv_closure.rb,127
+module RGLRGL
9,334
+  module GraphGraph
10,345
+	def transitive_closure_floyd_warshaltransitive_closure_floyd_warshal
16,665
+
+lib/rgl/traversal.rb,1708
+module RGLRGL
14,546
+  module GraphWrapper					# :nodoc:GraphWrapper
15,557
+	def initialize(graph); @graph = graph; endinitialize
19,658
+  module GraphIteratorGraphIterator
24,863
+  module GraphVisitorGraphVisitor
59,2225
+	def initialize(graph)initialize
64,2335
+	def resetreset
70,2432
+	def finished_vertex? vfinished_vertex?
75,2546
+	def attach_distance_map(map=Hash.new(0))attach_distance_map
87,2937
+		def handle_tree_edge(u,v)handle_tree_edge
90,3015
+		def distance_to_root(v)distance_to_root
96,3141
+	def follow_edge?(u,v)		# :nodoc:follow_edge?
103,3261
+	def self.def_event_handler(m)def_event_handler
108,3355
+		def handle_#{m}(#{params})handle_
111,3446
+		def set_#{m}_event_handler(&b)set_
114,3553
+  class BFSIteratorBFSIterator
137,4373
+	def initialize(graph, start=graph.detect{|x| true})initialize
143,4535
+	def at_beginning?; @color_map.size == 1; end # :nodoc:at_beginning?
150,4727
+	def at_end?; @waiting.empty?; endat_end?
153,4823
+	def set_to_beginset_to_begin
156,4932
+	def basic_forward					# :nodoc:basic_forward
162,5098
+	def next_vertex	()					# :nodoc:next_vertex
186,5696
+  module GraphGraph
192,5804
+	def bfs_iterator (v=self.detect {|x| true})bfs_iterator
194,5867
+	def bfs_search_tree_from(v)bfs_search_tree_from
201,6151
+  class DFSIterator < BFSIteratorDFSIterator
218,6699
+	def next_vertexnext_vertex
219,6733
+  class DFSVisitorDFSVisitor
235,7372
+  module GraphGraph
241,7469
+	def dfs_iterator (v=self.detect {|x| true})dfs_iterator
243,7532
+	def depth_first_search (vis = DFSVisitor.new(self),&b)depth_first_search
250,7787
+	def depth_first_visit (u, vis = DFSVisitor.new(self), &b)depth_first_visit
261,8079
+  def acyclic?acyclic?
285,8775

data/examples/canvas.rb

@@ -0,0 +1,103 @@
+# From c.l.r SNIP IT: bond TkCanvas with RubyGraphLibrary
+# author: Phlip (see also
+# http://www.rubygarden.org/ruby?RubyAlgorithmPackage/TkCanvasSample) 
+# 
+# put a GraphViz graph into a TkCanvas, and make nodes
+# selectable. Illustrates a bug in GraphViz
+
+require 'rgl/graphxml'
+require 'rgl/adjacency'
+require 'rgl/dot'
+require 'tk'
+
+include RGL
+filename = ARGV[0]
+puts 'Displaying ' + filename
+
+# ruby canvas.rb north/g.10.8.graphml &
+# ruby canvas.rb north/g.12.8.graphml &
+# ruby canvas.rb north/g.14.9.graphml &
+
+File.open(filename) { |file|
+  graph = DirectedAdjacencyGraph.from_graphxml(file)      
+  graph.write_to_graphic_file('gif', filename)
+  graph.write_to_graphic_file('plain', filename)
+  root = TkRoot.new{title "Ex1"}
+  
+  canvas = TkCanvas.new(root)  {
+	width  400
+	height 600
+  }
+  canvas.pack()
+  ovals = []
+
+  TkcImage.new(canvas, 0, 0) {
+	anchor 'nw'
+	
+	image TkPhotoImage.new() {
+	  file filename + '.gif'
+	}
+  }
+
+  #  read the 'plain' file, and for each node put an invisible
+  #  oval over its image
+  
+  File.open(filename + '.plain')  {  |f|
+	graphLine = f.readline()
+	graphStats = graphLine.split()
+	graphHeight = graphStats[3].to_f()
+	nodeLine = f.readline()
+	fields = nodeLine.split()
+	
+	while fields[0] == 'node' 
+	  namer = fields[1]
+
+	  #  the following crud is because GraphViz has no system to 
+	  #  emit a "plain" format in pixels that exactly match the
+	  #  locations of objects in dot's raster output
+
+	  #  furtherless, the current GraphViz seems to be centering
+	  #  the raster output but not the 'plain' output. Hence on
+	  #  g.10.8.graphml the X fudge factor must be 45. >sigh<
+	  
+	  #  YMMV, based on your system's opinion of the size of an inch
+
+	  exx  = fields[2].to_f * 96 - 20 # 45
+	  why  = (graphHeight - fields[3].to_f()) * 96 - 20
+	  widt = fields[4].to_f() * 90
+	  hite = fields[5].to_f() * 90
+	  
+	  ov = TkcOval.new(canvas, exx, why, 
+					   exx + widt, why + hite)  {
+		state 'hidden'
+		width 4
+		outline 'green'
+		tags namer
+	  }
+	  ovals.push(ov)
+	  nodeLine = f.readline()
+	  fields = nodeLine.split()
+	end
+  }
+  lastOval = ovals[0]
+
+  #  at click time, search for an oval in range and display it
+  
+  canvas.bind('Button-1')  do |event|
+	x,y = canvas.canvasx(event.x), canvas.canvasy(event.y)
+	
+	ovals.each { |r|
+	  x1,y1,x2,y2 = r.coords()
+	  
+	  if x >= x1 and x <= x2 and y >= y1 and y <= y2 then
+		lastOval.configure('state' => 'hidden')
+		lastOval = r
+		lastOval.configure('state' => 'normal')
+		break
+	  end
+	}
+  end
+
+  Tk.mainloop
+}
+

data/examples/codegraph

@@ -0,0 +1,238 @@
+#!/usr/bin/env ruby
+require 'ptools'
+require 'rgl/adjacency'
+require 'rgl/dot'
+require 'rgl/rdot'
+
+class FunctionGraph < RGL::DirectedAdjacencyGraph
+   attr_accessor :command
+   attr_accessor :funx
+   attr_accessor :lines
+   def initialize
+      super
+      @@lines = nil
+      @@funx = nil
+   end
+   def genFiles(graph, filelist, lang, exclude=[])
+      # test if the 'tobegenerated' files already exist
+      if (File.exist?('all.php') or File.exist?('php-funx'))
+         puts "Die Dateien 'all.php' oder 'php-funx' exitieren bereits."
+         puts "Bitte loeschen Sie sie manuel"
+         exit
+      end
+      # command to generate the necessary files
+      command = 'cat ' + filelist + ' | ruby -ne \' print unless /^#.*$/\' | 
+                 ruby -pe \'gsub(/#.*/," "); gsub(/".*"/,"")\' > all.php;
+                 ctags -x --php-kinds=f all.php | sort -n -k 3 | 
+                 ruby -pe \'gsub(/ function /,"\t"); gsub(/all.php/,"\t")\' | 
+                 cut -f 1,2 |ruby -pe \'gsub(/ {2,}/,"")\' > php-funx'
+      system(command)
+      funchash = Hash.new
+      file = open('php-funx')
+      file.read.split(/\n/).each {|f| 
+          thisfunc = f.split
+          funchash.store(thisfunc.last.to_i, thisfunc.first)
+      }
+      graph.lines = Array.new
+      graph.funx = Array.new
+      funchash.sort.each {|f|
+          next if exclude.include?(f.last)
+          graph.lines << f.first
+          graph.funx << f.last
+      } 
+      $filesize =  open('all.php').readlines.size
+   end
+      
+   def fill(filelist,lang,exclude=[])
+      # generate the necessary files and return the size (in number of lines)
+      # of the file with all definitions
+      genFiles(self,filelist,lang,exclude)
+      # scan the first function
+      funcbody = File.middle('all.php', lines[0]+1, lines[1]-1).to_s
+      add_vertex(funx.first)
+      funx.each {|func| 
+         if funcbody =~ /#{func} *\(/
+            add_func("#{funx.first}","#{func}")
+         end
+      }
+      # scan any other function except the last
+      (1...funx.size-1).each {|index|
+         add_vertex(funx[index])
+         funcbody = File.middle('all.php', lines[index]+1,lines[index+1]-1).to_s
+         funx.each {|func|
+            if funcbody =~ /#{func} *\(/
+               add_func("#{funx[index]}","#{func}")
+            end
+         }
+      }
+      # scan the last function
+      funcbody = File.middle('all.php', lines.last+1 , $filesize).to_s
+      add_vertex(funx.last)
+      funx.each {|func| 
+         if funcbody =~ /#{func} *\(/
+            add_func("#{funx.last}","#{func}")
+         end
+      }
+      system('rm all.php php-funx')
+
+      # add fallow function's knodes
+      funx.each {|func| 
+         if not has_vertex?(func)
+            add_edge("UNUSED CODE",func) 
+         end
+      }
+   end
+   def to_ps(filename)
+      if File.exist?(filename) 
+         system("rm #{filename}")
+      end
+      if File.exist?(filename+".dot") 
+         system("rm #{filename}.dot")
+      end
+      # create dot file
+      params = Hash['rankdir' => 'LR',
+                    'ranksep' => '2.0',
+                    'concentrate' => 'TRUE',
+                    'fontsize' => '10']
+      File.open("#{filename}.dot","w") {|f|
+         print_dotted_on(params,f)
+      }
+      system("dot -Tps -o #{filename} -Nshape=box #{filename}.dot")
+   end
+   def add_func(f,g)
+      add_edge(f,g)
+   end
+   def display
+      params = Hash['rankdir' => 'LR',
+                    'ranksep' => '2.0',
+                    'concentrate' => 'TRUE',
+                    'label' => 'LCWA',
+                    'fontsize' => '12']
+      dotty(params)
+   end
+   private :genFiles
+end
+
+class SingleFunctionGraph < FunctionGraph
+   attr_accessor  :func
+   def initialize(func)
+      @func = func
+      super()
+   end
+   def fill(filelist,lang,exclude=[])
+      genFiles(self,filelist,lang,exclude)
+      $scannedfunx = Array.new
+      scan(self, func)
+      system('rm all.php php-funx')
+   end
+   def scan(graph, f)
+      if ($scannedfunx.include?(f)) 
+      else
+         $scannedfunx << f
+         beginbody = graph.lines[graph.funx.index(f)]+1
+         if (graph.lines.size <= graph.funx.index(f)+1) 
+            endbody = $filesize
+         else 
+            endbody =  graph.lines[graph.funx.index(f)+1]-1
+         end
+         fbody = File.middle('all.php', beginbody, endbody).to_s
+         graph.funx.each {|g|
+            if fbody =~ /#{g} *\(/
+               graph.add_func(f,g)
+               scan(graph,g)
+            end
+         }
+      end
+   end
+   private :scan
+end
+
+# main script #################################################################
+require 'getoptlong'
+
+def show_usage
+puts <<-END
+Usage: #{__FILE__}: --help       guess what
+
+                    --source, -s take every $IMPSRC/lcwa/web_interface/*inc.php file 
+                                 to search in 
+                    --local, -l  take every $(pwd)/*.inc.php file for scanning
+                    
+                    --file-list, -F "<list>"
+                                 fill the graph with every function, 
+                                 that has a definiton inside the given files
+                    
+                    --function, -f <funcname>
+                                 take the given func as the root knode
+                    --exclude, -x "<list>"
+                                 exclude a list of functions from the graph
+                    --to-ps, -p <filename>
+                                 create a postscript file from the graph
+END
+end
+# option setting ---------------------------------------------------------------
+options = GetoptLong.new(
+   ['--help',      '-h', GetoptLong::NO_ARGUMENT],
+   ['--local',     '-l', GetoptLong::NO_ARGUMENT],
+   ['--source',    '-s', GetoptLong::NO_ARGUMENT],
+   ['--function',  '-f', GetoptLong::REQUIRED_ARGUMENT],
+   ['--file-list', '-F', GetoptLong::REQUIRED_ARGUMENT],
+   ['--to-ps',     '-p', GetoptLong::REQUIRED_ARGUMENT],
+   ['--exclude',   '-x', GetoptLong::REQUIRED_ARGUMENT]
+)
+options.ordering = GetoptLong::RETURN_IN_ORDER
+# the default options ----------------------------------------------------------
+filelist = ''
+mode = 'multiple'
+createPS = false
+filename = ''
+function = ''
+exclude = Array.new
+spaces = Array.new
+# option parsing ---------------------------------------------------------------
+options.each do |opt, arg|
+   case opt
+      when '--local'
+         filelist = './*inc.php'
+         spaces << filelist
+      when '--source'
+         filelist = '$IMPSRC/lcwa/web_interface/*inc.php'
+         spaces << filelist
+      when '--file-list'
+         filelist = arg
+         spaces << filelist
+      when '--function'
+         mode = 'single'
+         function = arg
+      when '--to-ps'
+         createPS = true
+         filename = arg
+      when '--exclude'
+         exclude = arg.split(/ /)
+      else
+         show_usage
+         exit
+   end
+end
+options.terminate
+# script controlling ###########################################################
+case mode
+   when 'single'
+      g = SingleFunctionGraph.new(function)
+   else
+      g = FunctionGraph.new
+end
+case spaces.size
+   when 1
+      g.fill(filelist,'php',exclude)
+   else
+      puts "Benutzen Sie entweder --local, --source oder --file-list <list>"
+      show_usage
+      exit
+end
+case createPS
+   when true
+      g.to_ps(filename)
+   else
+      g.display
+end