roby 0.8.0 → 3.0.0

data/ext/graph/extconf.rb

@@ -1,7 +0,0 @@
-require 'mkmf'
-CONFIG['CC'] = "g++"
-dir_config 'boost'
-$LDFLAGS += "-module"
-
-create_makefile("roby_bgl")
-

data/ext/graph/graph.cc

@@ -1,575 +0,0 @@
-#include "graph.hh"
-#include <boost/bind.hpp>
-#include <functional>
-
-static ID id_rb_graph_map;
-
-typedef RubyGraph::vertex_iterator	vertex_iterator;
-typedef RubyGraph::vertex_descriptor	vertex_descriptor;
-typedef RubyGraph::edge_iterator	edge_iterator;
-typedef RubyGraph::edge_descriptor	edge_descriptor;
-
-using namespace boost;
-using namespace std;
-
-VALUE bglModule;
-VALUE bglGraph;
-VALUE bglReverseGraph;
-VALUE bglUndirectedGraph;
-VALUE bglVertex;
-
-/**********************************************************************
- *  BGL::Graph
- */
-
-template <typename descriptor> static 
-void graph_mark_object_property(RubyGraph& graph, descriptor object)
-{ 
-}
-
-static 
-void graph_mark(RubyGraph* graph) { 
-    { vertex_iterator it, end;
-	for (tie(it, end) = vertices(*graph); it != end; ++it)
-	{
-	    VALUE value = (*graph)[*it];
-	    if (! NIL_P(value))
-		rb_gc_mark(value); 
-	}
-    }
-
-    { edge_iterator it, end;
-	for (tie(it, end) = edges(*graph); it != end; ++it)
-	{
-	    VALUE value = (*graph)[*it].info;
-	    if (! NIL_P(value))
-		rb_gc_mark(value); 
-	}
-    }
-}
-
-static void graph_free(RubyGraph* graph) { delete graph; }
-static VALUE graph_alloc(VALUE klass)
-{
-    RubyGraph* graph = new RubyGraph;
-    VALUE rb_graph = Data_Wrap_Struct(klass, graph_mark, graph_free, graph);
-    return rb_graph;
-}
-
-/*
- * call-seq:
- *    graph.each_vertex { |vertex| ... }     => graph
- *
- * Iterates on all vertices in +graph+.
- */
-static
-VALUE graph_each_vertex(VALUE self)
-{
-    RubyGraph& graph = graph_wrapped(self);
-
-    vertex_iterator begin, end;
-    tie(begin, end) = vertices(graph);
-
-    for (vertex_iterator it = begin; it != end;)
-    {
-	VALUE vertex = graph[*it];
-	++it;
-	rb_yield(vertex);
-    }
-    return self;
-}
-
-/* call-seq:
- *    graph.size => vertex_count
- *
- * Returns the number of vertices in +graph+
- */
-static
-VALUE graph_size(VALUE self)
-{
-    RubyGraph& graph = graph_wrapped(self);
-
-    vertex_iterator begin, end;
-    tie(begin, end) = vertices(graph);
-
-    size_t count = 0;
-    for (vertex_iterator it = begin; it != end; ++it)
-	++count;
-    return UINT2NUM(count);
-}
-
-
-/*
- * call-seq:
- *  graph.insert(vertex)		    => graph
- *
- * Add +vertex+ in this graph.
- */
-static
-VALUE graph_insert(VALUE self, VALUE vertex)
-{
-    RubyGraph&	graph = graph_wrapped(self);
-    graph_map&  vertex_graphs = vertex_descriptor_map(vertex);
-
-    graph_map::iterator it;
-    bool inserted;
-    tie(it, inserted) = vertex_graphs.insert( make_pair(self, static_cast<void*>(0)) );
-    if (inserted)
-	it->second = add_vertex(vertex, graph);
-
-    return self;
-}
-
-/*
- * call-seq:
- *   graph.remove(vertex)		    => graph
- * 
- * Remove +vertex+ from this graph.
- */
-static
-VALUE graph_remove(VALUE self, VALUE vertex)
-{
-    RubyGraph&	graph = graph_wrapped(self);
-    graph_map&  vertex_graphs = vertex_descriptor_map(vertex);
-
-    graph_map::iterator it = vertex_graphs.find(self);
-    if (it == vertex_graphs.end())
-	return self;
-
-    clear_vertex(it->second, graph);
-    remove_vertex(it->second, graph);
-    vertex_graphs.erase(it);
-    return self;
-}
-
-/*
- * call-seq: graph.clear => graph
- *
- * Removes from graph all vertices that are in graph
- */
-static
-VALUE graph_clear(VALUE self)
-{
-    RubyGraph&	graph = graph_wrapped(self);
-
-    vertex_iterator begin, end;
-    tie(begin, end) = vertices(graph);
-    for (vertex_iterator it = begin; it != end; ++it)
-    {
-        VALUE vertex_value = graph[*it];
-        graph_map&  vertex_graphs = vertex_descriptor_map(vertex_value);
-
-        graph_map::iterator it = vertex_graphs.find(self);
-        vertex_graphs.erase(it);
-    }
-    graph.clear();
-    return self;
-}
-
-/*
- * call-seq:
- *  graph.include?(vertex)		    => true of false
- *
- * Returns true if +vertex+ is part of this graph.
- */
-static
-VALUE graph_include_p(VALUE self, VALUE vertex)
-{
-    bool includes;
-    tie(tuples::ignore, includes) = rb_to_vertex(vertex, self);
-    return includes ? Qtrue : Qfalse;
-}
-
-// Make sure that the Vertex object +vertex+ is present in +self+, and returns
-// its descriptor
-static vertex_descriptor graph_ensure_inserted_vertex(VALUE self, VALUE vertex)
-{
-    vertex_descriptor v; bool exists;
-    tie(v, exists) = rb_to_vertex(vertex, self);
-    if (! exists)
-    {
-	graph_insert(self, vertex);
-	tie(v, tuples::ignore) = rb_to_vertex(vertex, self);
-    }
-
-    return v;
-}
-
-/*
- * call-seq:
- *    graph.link(source, target, info)	    => graph
- *
- * Adds an edge from +source+ to +target+, with +info+ as property
- * Raises ArgumentError if the edge already exists.
- */
-static
-VALUE graph_link(VALUE self, VALUE source, VALUE target, VALUE info)
-{
-    RubyGraph& graph = graph_wrapped(self);
-
-    vertex_descriptor 
-	s = graph_ensure_inserted_vertex(self, source),
-	t = graph_ensure_inserted_vertex(self, target);
-
-    bool inserted = add_edge(s, t, EdgeProperty(info), graph).second;
-    if (! inserted)
-	rb_raise(rb_eArgError, "edge already exists");
-
-    return self;
-}
-
-/*
- * call-seq:
- *    graph.unlink(source, target, info)	    => graph
- *
- * Removes the edge from +source+ to +target+. Does nothing if the 
- * edge does not exist.
- */
-static
-VALUE graph_unlink(VALUE self, VALUE source, VALUE target)
-{
-    RubyGraph& graph = graph_wrapped(self);
-
-    vertex_descriptor s, t; bool exists;
-    tie(s, exists) = rb_to_vertex(source, self);
-    if (! exists) return self;
-    tie(t, exists) = rb_to_vertex(target, self);
-    if (! exists) return self;
-    remove_edge(s, t, graph);
-    return self;
-}
-
-/*
- * call-seq:
- *    graph.linked?(source, target)	    => true or false
- *
- * Checks if there is an edge from +source+ to +target+
- */
-static
-VALUE graph_linked_p(VALUE self, VALUE source, VALUE target)
-{
-    RubyGraph& graph = graph_wrapped(self);
-
-    vertex_descriptor s, t; bool exists;
-    tie(s, exists) = rb_to_vertex(source, self);
-    if (! exists) return Qfalse;
-    tie(t, exists) = rb_to_vertex(target, self);
-    if (! exists) return Qfalse;
-    return edge(s, t, graph).second ? Qtrue : Qfalse;
-}
-
-/*
- * call-seq:
- *    graph.each_edge { |source, target, info| ... }     => graph
- *
- * Iterates on all edges in this graph. +source+ and +target+ are the
- * edge vertices, +info+ is the data associated with the edge. See #link.
- */
-static
-VALUE graph_each_edge(VALUE self)
-{
-    RubyGraph& graph = graph_wrapped(self);
-
-    edge_iterator	  begin, end;
-    tie(begin, end) = edges(graph);
-
-    for (edge_iterator it = begin; it != end;)
-    {
-	VALUE from	= graph[source(*it, graph)];
-	VALUE to	= graph[target(*it, graph)];
-	VALUE data	= graph[*it].info;
-	++it;
-
-	rb_yield_values(3, from, to, data);
-    }
-    return self;
-}
-
-
-
-
-/**********************************************************************
- *  BGL::Vertex
- */
-
-static void vertex_free(graph_map* map) { delete map; }
-static void vertex_mark(graph_map* map)
-{
-    for (graph_map::iterator it = map->begin(); it != map->end(); ++it)
-	rb_gc_mark(it->first);
-}
-
-/* Returns the graph => descriptor map for +self+ */
-graph_map& vertex_descriptor_map(VALUE self)
-{
-    graph_map* map;
-    VALUE descriptors = rb_ivar_get(self, id_rb_graph_map);
-    if (RTEST(descriptors))
-    {
-	Data_Get_Struct(descriptors, graph_map, map);
-    }
-    else
-    {
-	map = new graph_map;
-	VALUE rb_map = Data_Wrap_Struct(rb_cObject, vertex_mark, vertex_free, map);
-	rb_ivar_set(self, id_rb_graph_map, rb_map);
-    }
-
-    return *map;
-}
-
-/*
- * call-seq:
- *	vertex.each_graph { |graph| ... }	    => self
- *
- * Iterates on all graphs this object is part of
- */
-static VALUE vertex_each_graph(VALUE self)
-{
-    graph_map& graphs = vertex_descriptor_map(self);
-    for (graph_map::iterator it = graphs.begin(); it != graphs.end();)
-    {
-	VALUE graph = it->first;
-	// increment before calling rb_yield since the block
-	// can call Graph#remove for instance
-	++it;
-	rb_yield(graph);
-    }
-    return self;
-}
-
-/*
- * call-seq:
- *  vertex.parent_object?(object[, graph])		=> true of false
- *
- * Checks if +object+ is a parent of +vertex+. If +graph+ is given,
- * check only in this graph. Otherwise, check in all graphs +vertex+
- * is part of.
- */
-static VALUE vertex_parent_p(int argc, VALUE* argv, VALUE self)
-{ 
-    VALUE rb_parent, rb_graph = Qnil;
-    rb_scan_args(argc, argv, "11", &rb_parent, &rb_graph);
-
-    if (! NIL_P(rb_graph))
-	return graph_linked_p(rb_graph, rb_parent, self);
-
-    graph_map::iterator it, end;
-    for (tie(it, end) = vertex_descriptors(self); it != end; ++it)
-    {
-	RubyGraph& graph     = graph_wrapped(it->first);
-	vertex_descriptor child = it->second;
-	vertex_descriptor parent; bool in_graph;
-	tie(parent, in_graph) = rb_to_vertex(rb_parent, it->first);
-
-	if (in_graph && edge(parent, child, graph).second)
-	    return Qtrue;
-    }
-    return Qfalse;
-}
-
-/*
- * call-seq:
- *	vertex.child_vertex?(object[, graph])		=> true or false
- *
- * Checks if +object+ is a child of +vertex+ in +graph+. If +graph+ is given,
- * check only in this graph. Otherwise, check in all graphs +vertex+ is part
- * of.
- */
-static VALUE vertex_child_p(int argc, VALUE* argv, VALUE self)
-{ 
-    swap(argv[0], self);
-    return vertex_parent_p(argc, argv, self);
-}
-
-/*
- * call-seq:
- *	vertex.related_vertex?(object[, graph])		=> true or false
- *
- * Checks if +object+ is a child or a parent of +vertex+ in +graph+.  If
- * +graph+ is given, check only in this graph. Otherwise, check in all graphs
- * +vertex+ is part of.
- */
-static VALUE vertex_related_p(int argc, VALUE* argv, VALUE self)
-{
-    if (vertex_parent_p(argc, argv, self) == Qtrue)
-	return Qtrue;
-    return vertex_child_p(argc, argv, self);
-}
-
-template <bool directed>
-static VALUE vertex_each_related(int argc, VALUE* argv, VALUE self)
-{
-    VALUE graph = Qnil;
-    rb_scan_args(argc, argv, "01", &graph);
-
-    if (NIL_P(graph))
-    {
-	set<VALUE> already_seen;
-	for_each_graph(self, bind(for_each_adjacent_uniq<RubyGraph, directed>, _1, _2, ref(already_seen)));
-    }
-    else
-    {
-	vertex_descriptor v; bool exists;
-	tie(v, exists) = rb_to_vertex(self, graph);
-	if (! exists)
-	    return self;
-
-	RubyGraph& g = graph_wrapped(graph);
-	for_each_value(details::vertex_range<RubyGraph, directed>::get(v, g), g, rb_yield);
-    }
-    return self;
-}
-
-/*
- * call-seq:
- *	vertex.each_parent_vertex([graph]) { |object| ... }	=> vertex
- *
- * Iterates on all parents of +vertex+. If +graph+ is given, only iterate on
- * the vertices that are parent in +graph+.
- */
-static VALUE vertex_each_parent(int argc, VALUE* argv, VALUE self)
-{ return vertex_each_related<false>(argc, argv, self); }
-
-/*
- * call-seq:
- *	vertex.each_child_vertex([graph]) { |child| ... }	=> vertex
- *
- * Iterates on all children of +vertex+. If +graph+ is given, iterates only on
- * the vertices which are a child of +vertex+ in +graph+
- */
-static VALUE vertex_each_child(int argc, VALUE* argv, VALUE self)
-{ return vertex_each_related<true>(argc, argv, self); }
-
-/*
- * call-seq:
- *	vertex.singleton_vertex? => true or false
- *
- * Returns true if the vertex is linked to no other vertex
- */
-static VALUE vertex_singleton_p(VALUE self)
-{
-    graph_map::iterator it, end;
-    for (tie(it, end) = vertex_descriptors(self); it != end; ++it)
-    {
-	RubyGraph& graph    = graph_wrapped(it->first);
-	vertex_descriptor v = it->second;
-	if (in_degree(v, graph) || out_degree(v, graph))
-	    return Qfalse;
-    }
-    return Qtrue;
-}
-
-/*
- * call-seq:
- *	vertex[child, graph]				    => info
- *
- * Get the data associated with the vertex => +child+ edge in +graph+.
- * Raises ArgumentError if there is no such edge.
- */
-static VALUE vertex_get_info(VALUE self, VALUE child, VALUE rb_graph)
-{
-    vertex_descriptor source, target; bool exists;
-
-    tie(source, exists) = rb_to_vertex(self, rb_graph);
-    if (! exists)
-	rb_raise(rb_eArgError, "self is not in graph");
-    tie(target, exists) = rb_to_vertex(child, rb_graph);
-    if (! exists)
-	rb_raise(rb_eArgError, "child is not in graph");
-
-    RubyGraph& graph = graph_wrapped(rb_graph);
-    edge_descriptor e;
-    tie(e, exists) = edge(source, target, graph);
-    if (! exists)
-	rb_raise(rb_eArgError, "no such edge in graph");
-
-    return graph[e].info;
-}
-
-/*
- * call-seq:
- *	vertex[child, graph] = new_value		    => new_value
- *
- * Sets the data associated with the vertex => +child+ edge in +graph+.
- * Raises ArgumentError if there is no such edge.
- */
-static VALUE vertex_set_info(VALUE self, VALUE child, VALUE rb_graph, VALUE new_value)
-{
-    vertex_descriptor source, target; bool exists;
-
-    tie(source, exists) = rb_to_vertex(self, rb_graph);
-    if (! exists)
-	rb_raise(rb_eArgError, "self is not in graph");
-    tie(target, exists) = rb_to_vertex(child, rb_graph);
-    if (! exists)
-	rb_raise(rb_eArgError, "child is not in graph");
-
-    RubyGraph& graph = graph_wrapped(rb_graph);
-    edge_descriptor e;
-    tie(e, exists) = edge(source, target, graph);
-    if (! exists)
-	rb_raise(rb_eArgError, "no such edge in graph");
-
-    return (graph[e].info = new_value);
-}
-
-
-/*
- * call-seq:
- *   vertex.root?([graph])
- *
- * Checks if +vertex+ is a root node in +graph+ (it has no parents), or if graph is not given, in all graphs 
- */
-static VALUE vertex_root_p(int argc, VALUE* argv, VALUE self)
-{ return vertex_has_adjacent<false>(argc, argv, self); }
-
-
-/*
- * call-seq:
- *   vertex.leaf?([graph])
- *
- * Checks if +vertex+ is a root node in +graph+ (it has no children), or if graph is not given, in all graphs 
- */
-static VALUE vertex_leaf_p(int argc, VALUE* argv, VALUE self)
-{ return vertex_has_adjacent<true>(argc, argv, self); }
-
-void Init_graph_algorithms();
-extern "C" void Init_roby_bgl()
-{
-    id_rb_graph_map = rb_intern("@__bgl_graphs__");
-
-    bglModule = rb_define_module("BGL");
-    bglGraph  = rb_define_class_under(bglModule, "Graph", rb_cObject);
-    rb_define_alloc_func(bglGraph, graph_alloc);
-
-    // Functions to manipulate BGL::Vertex objects in Graphs
-    rb_define_method(bglGraph, "size",    RUBY_METHOD_FUNC(graph_size), 0);
-    rb_define_method(bglGraph, "insert",    RUBY_METHOD_FUNC(graph_insert), 1);
-    rb_define_method(bglGraph, "remove",    RUBY_METHOD_FUNC(graph_remove), 1);
-    rb_define_method(bglGraph, "include?",  RUBY_METHOD_FUNC(graph_include_p), 1);
-    rb_define_method(bglGraph, "link",	    RUBY_METHOD_FUNC(graph_link), 3);
-    rb_define_method(bglGraph, "unlink",    RUBY_METHOD_FUNC(graph_unlink), 2);
-    rb_define_method(bglGraph, "linked?",   RUBY_METHOD_FUNC(graph_linked_p), 2);
-    rb_define_method(bglGraph, "each_vertex",	RUBY_METHOD_FUNC(graph_each_vertex), 0);
-    rb_define_method(bglGraph, "each_edge",	RUBY_METHOD_FUNC(graph_each_edge), 0);
-    rb_define_method(bglGraph, "clear",	RUBY_METHOD_FUNC(graph_clear), 0);
-
-    bglVertex = rb_define_module_under(bglModule, "Vertex");
-    rb_define_method(bglVertex, "related_vertex?",	RUBY_METHOD_FUNC(vertex_related_p), -1);
-    rb_define_method(bglVertex, "parent_vertex?",	RUBY_METHOD_FUNC(vertex_parent_p), -1);
-    rb_define_method(bglVertex, "child_vertex?",	RUBY_METHOD_FUNC(vertex_child_p), -1);
-    rb_define_method(bglVertex, "each_child_vertex",	RUBY_METHOD_FUNC(vertex_each_child), -1);
-    rb_define_method(bglVertex, "each_parent_vertex",	RUBY_METHOD_FUNC(vertex_each_parent), -1);
-    rb_define_method(bglVertex, "each_graph",		RUBY_METHOD_FUNC(vertex_each_graph), 0);
-    rb_define_method(bglVertex, "root?",		RUBY_METHOD_FUNC(vertex_root_p), -1);
-    rb_define_method(bglVertex, "leaf?",		RUBY_METHOD_FUNC(vertex_leaf_p), -1);
-    rb_define_method(bglVertex, "[]",			RUBY_METHOD_FUNC(vertex_get_info), 2);
-    rb_define_method(bglVertex, "[]=",			RUBY_METHOD_FUNC(vertex_set_info), 3);
-    rb_define_method(bglVertex, "singleton_vertex?",	RUBY_METHOD_FUNC(vertex_singleton_p), 0);
-
-    bglReverseGraph    = rb_define_class_under(bglGraph, "Reverse", rb_cObject);
-    bglUndirectedGraph = rb_define_class_under(bglGraph, "Undirected", rb_cObject);
-    Init_graph_algorithms();
-}
-