red_grape 0.0.7 → 0.0.8

data/bin/redgrape

@@ -2,15 +2,15 @@
 $: << File.expand_path('../../lib', __FILE__)
 
 require 'optparse'
-require 'red_grape/graph_store'
-require 'red_grape/irg'
+require 'red_grape/tools/graph_store'
+require 'red_grape/tools/irg'
 require 'red_grape/version'
 
 # interprete options
 ::Version = RedGrape::VERSION
 COMMAND_LINE = "#{$0} #{ARGV.join(' ')}"
 OPT = {
-  port:RedGrape::GraphStore::DEFAULT_PORT
+  port:RedGrape::Tools::GraphStore::DEFAULT_PORT
 }
 opts = OptionParser.new
 opts.on('-p', '--port <port number>', 
@@ -20,7 +20,7 @@ opts.on_tail('-h', '--help', 'Show this message.'){puts(opts.help); exit}
 opts.order! ARGV
 
 # start
-RedGrape::IRG.start(OPT[:port]) do
+RedGrape::Tools::IRG.start(OPT[:port]) do
   puts <<-EOS
          T
        oOOOo

data/bin/trellis

@@ -2,14 +2,14 @@
 $: << File.expand_path('../../lib', __FILE__)
 
 require 'optparse'
-require 'red_grape/graph_store'
+require 'red_grape/tools/graph_store'
 require 'red_grape/version'
 
 # interprete options
 ::Version = RedGrape::VERSION
 COMMAND_LINE = "#{$0} #{ARGV.join(' ')}"
 OPT = {
-  port:RedGrape::GraphStore::DEFAULT_PORT,
+  port:RedGrape::Tools::GraphStore::DEFAULT_PORT,
   dbfile:'dbfile.bin'
 }
 opts = OptionParser.new
@@ -23,7 +23,7 @@ opts.order! ARGV
 
 # start
 Signal.trap :INT, 'EXIT'
-RedGrape::GraphStore.start(OPT[:port], OPT[:dbfile]) do
+RedGrape::Tools::GraphStore.start(OPT[:port], OPT[:dbfile]) do
   puts <<-EOS
   +=================+
   |  +     T     +  |

data/lib/ext/array_ext.rb

@@ -3,7 +3,8 @@ class Array
     loops = context.loops
     map! do |e| 
       context.loops = loops
-      pipe.pass e._, context # TODO
+      #pipe.pass e._, context # TODO
+      pipe.pass e, context # TODO
     end
     context.loops = loops
     normalize_for_graph

data/lib/ext/object_ext.rb

@@ -1,16 +1,9 @@
+require 'red_grape/pipe/underscore_pipe'
+
 class Object
+  include RedGrape::Pipe::Underscore
+
   def pass_through(pipe, context)
     pipe.pass self, context
   end
-
-  def _
-    ret = self.dup
-    ret.extend RedGrape::Pipe::Out
-    ret.extend RedGrape::Pipe::OutE
-    ret.extend RedGrape::Pipe::In
-    ret.extend RedGrape::Pipe::SideEffect
-    ret.extend RedGrape::Pipe::As
-    ret.extend RedGrape::Pipe::Fill
-    ret
-  end
 end

data/lib/red_grape/edge.rb

@@ -2,6 +2,9 @@ require 'red_grape/element'
 
 module RedGrape
   class Edge < Element
+    include RedGrape::Pipe::OutV
+    include RedGrape::Pipe::InV
+
     attr_reader :id, :source, :target, :label
 
     def initialize(graph, id, source, target, label, opts={})

data/lib/red_grape/graph.rb

@@ -5,6 +5,8 @@ require 'red_grape/serializer/graphml_serializer'
 
 module RedGrape
   class Graph
+    UID = nil
+
     include RedGrape::Pipe::V
     include RedGrape::Pipe::E
 
@@ -115,6 +117,7 @@ module RedGrape
     end
 
     def add_vertex(id, v=nil)
+      id = uid(@vertices.keys) unless id
       if v
         if v.is_a? Hash
           id = id.to_s
@@ -154,6 +157,7 @@ module RedGrape
     end
 
     def add_edge(id, from, to, label, opts={})
+      id = uid(@edges.keys) unless id
       if id.is_a? Edge
         raise ArgumentError.new "#{id.id} already exists." if @edges[id.id]
         @edges[id.id] = id
@@ -227,6 +231,15 @@ module RedGrape
       obj
     end
 
+    def uid(denies=[]) # :nodoc:
+      id = "##{Time.now.to_i}-#{rand(10000)}"
+      if denies.include? id
+        uid denies
+      else
+        id
+      end
+    end
+
     def to_s
       "redgrape[vertices:#{@vertices.size} edges:#{@edges.size}]"
     end

data/lib/red_grape/pipe/base.rb

@@ -2,6 +2,16 @@ require 'red_grape/pipe/context'
 
 module RedGrape
   module Pipe
+    class Pipelines # TODO: Arrayのpass_throughが邪魔して使えないので・・・
+      def initialize(pipes)
+        @pipes = pipes
+      end
+
+      def take(context)
+        @pipes.map {|p| p.take(context)}
+      end
+    end
+
     @@auto_take = false
 
     def self.auto_take
@@ -26,6 +36,12 @@ module RedGrape
         self.class.name.split('::').last.sub(/Pipe$/, '')
       end
 
+      def first_pipe
+        pipe = self
+        pipe = pipe.prev until pipe.first?
+        pipe
+      end
+
       def first?
         not @prev.kind_of? RedGrape::Pipe::Base
       end
@@ -38,9 +54,9 @@ module RedGrape
         not @value.nil?
       end
 
-      def take
+      def take(context=Context.new)
         if first?
-          context = Context.new
+          #context = Context.new
           val = @prev.pass_through self, context
           if context.aggregating?
             context.resume_from_aggregating
@@ -53,6 +69,7 @@ module RedGrape
           @prev.take
         end
       end
+      alias [] take
 
       def pass_next(context, pushed_obj, next_obj=nil, &block)
         next_obj ||= pushed_obj
@@ -74,6 +91,8 @@ module RedGrape
         Pipe.auto_take ? take.to_s : super
       end
 
+      def to_ary; nil end # TODO: i dont know why.
+
       def to_a
         pipe = self
         ret = [pipe.pipe_name]
@@ -112,8 +131,10 @@ module RedGrape
       end
 
       def method_missing(name, *args, &block)
+        #auto_take = name =~ /(.*)!$/ # TODO
+        #name = $1
         class_name = "#{name.to_s.sub(/^./){$&.upcase}.gsub(/_(.)/){$1.upcase}}Pipe"
-        args.unshift block if block
+        args.unshift block if block # 引数の数は変わるので、blockは必ず1番目に追加しておく
         pipe_class =
           if Pipe.const_defined? class_name
             eval "RedGrape::Pipe::#{class_name}"

data/lib/red_grape/pipe/context.rb

@@ -88,12 +88,6 @@ module RedGrape
 
       def eval(args={}, &block)
         args.each {|k, v| self.send "#{k}=", v}
-        if @it
-          # so aggressive way...
-          def @it.loops=(l); @loops = l end
-          def @it.loops; @loops end
-          @it.loops = @loops
-        end
         instance_eval(&block)
       end
     end

data/lib/red_grape/pipe/copy_split_pipe.rb

@@ -0,0 +1,22 @@
+require 'red_grape/pipe/context'
+
+module RedGrape
+  module Pipe
+    class CopySplitPipe < Pipe::Base
+      def initialize(prev, *opts, &block)
+        super
+        @opts2 = @opts.dup # TODO: bug!
+      end
+
+      def pass(obj, context)
+        #pipelines = self.opts
+        pipelines = @opts2.map do |pipeline| # TODO: opts2??
+          pipe = pipeline.first_pipe
+          pipe.prev = obj
+          pipe
+        end
+        pass_next context, Pipelines.new(pipelines)
+      end
+    end
+  end
+end

data/lib/red_grape/pipe/exhaust_merge_pipe.rb

@@ -0,0 +1,12 @@
+require 'red_grape/pipe/context'
+
+module RedGrape
+  module Pipe
+    class ExhaustMergePipe < Pipe::Base
+      def pass(obj, context)
+        pass_next context, obj.take(context)
+      end
+    end
+  end
+end
+

data/lib/red_grape/pipe/in_e_pipe.rb

@@ -0,0 +1,26 @@
+require 'red_grape/pipe/base'
+
+module RedGrape
+  module Pipe
+    module InE
+      def in_e(*opts)
+        InEPipe.new self, *opts
+      end
+      alias inE in_e
+    end
+
+    class InEPipe < Pipe::Base
+      def pass(obj, context)
+        label = self.opts.first
+        label = nil if label.is_a?(Array) && label.empty? # TODO
+        edges = if label
+            obj.in_edges.dup.find_all{|e| e.label == label}
+          else
+            obj.in_edges.dup
+          end
+        pass_next context, obj, edges
+      end
+    end
+  end
+end
+

data/lib/red_grape/pipe/in_v_pipe.rb

@@ -2,6 +2,13 @@ require 'red_grape/pipe/base'
 
 module RedGrape
   module Pipe
+    module InV
+      def in_v(*opts)
+        InVPipe.new self, *opts
+      end
+      alias inV in_v
+    end
+
     class InVPipe < Pipe::Base
       def pass(obj, context)
         target = obj.target

data/lib/red_grape/pipe/loop_pipe.rb

@@ -3,8 +3,14 @@ require 'red_grape/pipe/base'
 module RedGrape
   module Pipe
     class LoopPipe < Pipe::Base
+      LoopContext = Struct.new :loops, :path, :object
+
       def pass(obj, context)
-        condition, label = *self.opts
+        if self.opts.first.is_a? Proc
+          loop_condition, label = *self.opts
+        else
+          label, loop_condition, emit_condition = *self.opts
+        end
 
         anchor_pipe = self;
         case label
@@ -18,11 +24,16 @@ module RedGrape
           raise 'label should be an integer or a string.'
         end
         context.loops += 1
-        if context.eval :it => obj, &condition
+        it = LoopContext.new context.loops, context.history, obj
+        if context.eval :it => it, &loop_condition
           obj.pass_through anchor_pipe, context
         else
           context.loops = 1
-          pass_next context, nil, obj
+          if emit_condition && !context.eval(:it => it, &emit_condition)
+            nil
+          else
+            pass_next context, nil, obj
+          end
         end
       end
     end

data/lib/red_grape/pipe/out_v_pipe.rb

@@ -0,0 +1,19 @@
+require 'red_grape/pipe/base'
+
+module RedGrape
+  module Pipe
+    module OutV
+      def out_v(*opts)
+        OutVPipe.new self, *opts
+      end
+      alias outV out_v
+    end
+
+    class OutVPipe < Pipe::Base
+      def pass(obj, context)
+        source = obj.source
+        pass_next context, obj, source
+      end
+    end
+  end
+end

data/lib/red_grape/pipe/underscore_pipe.rb

@@ -0,0 +1,17 @@
+require 'red_grape/pipe/base'
+
+module RedGrape
+  module Pipe
+    module Underscore
+      def _(*opts)
+        UnderscorePipe.new self.dup, *opts#
+      end
+    end
+
+    class UnderscorePipe < Pipe::Base
+      def pass(obj, context)
+        obj.pass_through self.next, context
+      end
+    end
+  end
+end

data/lib/red_grape/tools/graph_store.rb

@@ -0,0 +1,68 @@
+require 'drb/drb'
+require 'red_grape'
+
+module RedGrape
+  module Tools
+    class GraphStore
+      DEFAULT_PORT = 28282
+
+      class << self
+        def start(port=nil, filename=nil, &block)
+          self.new(filename).start port, &block
+        end
+
+        def uri(port=nil)
+          "druby://localhost:#{port || DEFAULT_PORT}"
+        end
+
+        def open(port=nil)
+          DRbObject.new_with_uri(uri port)
+        end
+      end
+
+      def initialize(filename=nil)
+        @filename = filename
+        @graphs =
+          if @filename && File.exist?(@filename)
+            File.open @filename, 'r' do |file|
+              Marshal.load file
+            end
+          else
+            {tinker:RedGrape::Graph.create_tinker_graph}
+          end
+      end
+
+      def graphs
+        @graphs.keys.sort
+      end
+
+      def graph(key)
+        self[key]
+      end
+
+      def put_graph(key, graph)
+        self[key] = graph
+      end
+
+      def [](key)
+        @graphs[key.to_sym]
+      end
+
+      def []=(key, graph)
+        @graphs[key.to_sym] = graph
+      end
+
+      def start(port=nil, &block)
+        at_exit do
+          File.open @filename, 'w' do |file|
+            Marshal.dump @graphs, file
+          end if @filename
+        end
+
+        DRb.start_service self.class.uri(port), self
+        block.call if block
+        sleep
+      end
+    end
+  end
+end

data/lib/red_grape/tools/irg.rb

@@ -0,0 +1,70 @@
+require 'drb/drb'
+require 'irb'
+require 'irb/completion'
+require 'red_grape'
+require 'red_grape/tools/graph_store'
+
+module RedGrape
+  module Tools
+    class IRG
+      module Help
+        module_function
+        def redgrape?(key=nil)
+          case key
+          when NilClass
+            puts help_message
+            :OK
+          when 'pipe', 'pipes', :pipe, :pieps
+            puts pipe_help_message
+            :OK
+          else
+            puts '?'
+            :NG
+          end
+        end
+
+        def help_message
+          <<-EOS
+Subcommands:
+  redgrape? :pipe         : list all pipes.
+          EOS
+  #redgrape? '[pipe name]' : describe the given pipe.
+        end
+
+        def pipe_help_message
+          pipes = RedGrape::Pipe.constants.map(&:to_s).select{|p| 
+            p =~ /.*Pipe$/}.map{|p| underscore p.sub(/Pipe$/, '')}
+          "Available pipes:\n  #{pipes.sort.join ', '}"
+        end
+
+        def underscore(str)
+          str.sub(/^[A-Z]/){|p| p.downcase}.gsub(/([a-z])([A-Z])/){"#{$1}_#{$2.downcase}"}
+        end
+
+        def camelcase(str)
+          str.sub(/^[a-z]/){|p| p.upcase}.gsub(/_([a-z])/){"#{$1.upcase}"}
+        end
+      end
+
+      class << self
+        def start(port=nil, &block)
+          self.new.start port, &block
+        end
+      end
+
+      def start(port=nil, &block)
+        Kernel.module_eval %Q{
+          def redgrape?(key=nil)
+            RedGrape::IRG::Help.redgrape? key
+          end
+          alias rg? redgrape?
+        }
+
+        RedGrape.set_auto_take
+        $store = RedGrape::Tools::GraphStore.open port if port
+        block.call if block
+        IRB.start
+      end
+    end
+  end
+end

data/lib/red_grape/version.rb

@@ -1,3 +1,3 @@
 module RedGrape
-  VERSION = "0.0.7"
+  VERSION = "0.0.8"
 end

data/lib/red_grape/vertex.rb

@@ -5,6 +5,7 @@ module RedGrape
     include RedGrape::Pipe::Out
     include RedGrape::Pipe::OutE
     include RedGrape::Pipe::In
+    include RedGrape::Pipe::InE
     include RedGrape::Pipe::SideEffect
     include RedGrape::Pipe::As
     include RedGrape::Pipe::Fill

data/lib/red_grape.rb

@@ -2,26 +2,30 @@ require 'ext/nil_class_ext'
 require 'ext/object_ext'
 require 'ext/array_ext'
 require 'red_grape/version'
-require 'red_grape/pipe/in_pipe'
-require 'red_grape/pipe/out_pipe'
-require 'red_grape/pipe/property_pipe'
-require 'red_grape/pipe/paths_pipe'
+require 'red_grape/pipe/aggregate_pipe'
+require 'red_grape/pipe/as_pipe'
+require 'red_grape/pipe/back_pipe'
+require 'red_grape/pipe/cap_pipe'
+require 'red_grape/pipe/copy_split_pipe'
+require 'red_grape/pipe/except_pipe'
+require 'red_grape/pipe/exhaust_merge_pipe'
+require 'red_grape/pipe/fill_pipe'
 require 'red_grape/pipe/filter_pipe'
-require 'red_grape/pipe/transform_pipe'
-require 'red_grape/pipe/side_effect_pipe'
+require 'red_grape/pipe/group_count_pipe'
+require 'red_grape/pipe/has_pipe'
 require 'red_grape/pipe/if_then_else_pipe'
-require 'red_grape/pipe/back_pipe'
-require 'red_grape/pipe/as_pipe'
+require 'red_grape/pipe/in_pipe'
+require 'red_grape/pipe/in_e_pipe'
+require 'red_grape/pipe/in_v_pipe'
 require 'red_grape/pipe/loop_pipe'
-require 'red_grape/pipe/has_pipe'
+require 'red_grape/pipe/out_pipe'
 require 'red_grape/pipe/out_e_pipe'
-require 'red_grape/pipe/in_v_pipe'
-require 'red_grape/pipe/aggregate_pipe'
-require 'red_grape/pipe/except_pipe'
+require 'red_grape/pipe/out_v_pipe'
+require 'red_grape/pipe/property_pipe'
+require 'red_grape/pipe/paths_pipe'
 require 'red_grape/pipe/retain_pipe'
-require 'red_grape/pipe/fill_pipe'
-require 'red_grape/pipe/group_count_pipe'
-require 'red_grape/pipe/cap_pipe'
+require 'red_grape/pipe/side_effect_pipe'
+require 'red_grape/pipe/transform_pipe'
 require 'red_grape/pipe/v_pipe'
 require 'red_grape/pipe/e_pipe'
 require 'red_grape/graph'

data/test/test_graph.rb

@@ -138,6 +138,13 @@ class GraphTest < Test::Unit::TestCase
     assert v3.in_edges.map(&:id).include?(e23.id)
   end
 
+  def test_auto_index
+    g = RedGrape::Graph.new
+    g.add_vertex RedGrape::Graph::UID, name:'ando'
+    assert_equal 1, g.vertex.size
+    assert_not_nil g.vertex.first.id
+  end
+
   def test_remove_edge
     g = RedGrape::Graph.new
     v1 = g.add_vertex 1

data/test/test_traversal_patterns.rb

@@ -85,5 +85,16 @@ class TraversalPatternsTest < Test::Unit::TestCase
     assert_equal RedGrape::Vertex, path[2].class
     assert_equal RedGrape::Edge, path[3].class
     assert_equal RedGrape::Vertex, path[4].class
+
+    #assert_equal 70307, v89.out.loop(1, proc{it.loops < 4}).take.size #=> OK
+    #assert_equal 71972, v89.out.loop(1, proc{it.loops < 4}, proc{true}).take.size #=> 70307
+    #assert_equal 582, v89.out.loop(1, proc{it.loops < 4}, proc{it.object.id == '89'}).take.size #=> 564
+  end
+
+  # https://github.com/tinkerpop/gremlin/wiki/Split-Merge-Pattern
+  def test_split_marge
+    v1 = @graph.vertex 1
+    #assert_equal ['ripple', 27, 'lop', 32], v1.out('knows').copy_split(_.out('created').name, _.age).fair_merge.take # TODO: not yet
+    assert_equal [27, 'ripple', 'lop', 32], v1.out('knows').copy_split(_.out('created').name, _.age).exhaust_merge.take
   end
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: red_grape
 version: !ruby/object:Gem::Version
-  version: 0.0.7
+  version: 0.0.8
   prerelease: 
 platform: ruby
 authors:
@@ -9,11 +9,11 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2012-06-11 00:00:00.000000000 Z
+date: 2012-06-14 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: nokogiri
-  requirement: &70127387275840 !ruby/object:Gem::Requirement
+  requirement: &70196102597160 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ! '>='
@@ -21,7 +21,7 @@ dependencies:
         version: '0'
   type: :runtime
   prerelease: false
-  version_requirements: *70127387275840
+  version_requirements: *70196102597160
 description: RedGrape is an in-memory graph database written in ruby. I made this
   in order to learn how graph databases work so that please do not use this for any
   serious purpose.
@@ -49,8 +49,6 @@ files:
 - lib/red_grape/edge.rb
 - lib/red_grape/element.rb
 - lib/red_grape/graph.rb
-- lib/red_grape/graph_store.rb
-- lib/red_grape/irg.rb
 - lib/red_grape/path_group.rb
 - lib/red_grape/pipe/aggregate_pipe.rb
 - lib/red_grape/pipe/as_pipe.rb
@@ -58,26 +56,33 @@ files:
 - lib/red_grape/pipe/base.rb
 - lib/red_grape/pipe/cap_pipe.rb
 - lib/red_grape/pipe/context.rb
+- lib/red_grape/pipe/copy_split_pipe.rb
 - lib/red_grape/pipe/e_pipe.rb
 - lib/red_grape/pipe/except_pipe.rb
+- lib/red_grape/pipe/exhaust_merge_pipe.rb
 - lib/red_grape/pipe/fill_pipe.rb
 - lib/red_grape/pipe/filter_pipe.rb
 - lib/red_grape/pipe/group_count_pipe.rb
 - lib/red_grape/pipe/has_pipe.rb
 - lib/red_grape/pipe/if_then_else_pipe.rb
+- lib/red_grape/pipe/in_e_pipe.rb
 - lib/red_grape/pipe/in_pipe.rb
 - lib/red_grape/pipe/in_v_pipe.rb
 - lib/red_grape/pipe/loop_pipe.rb
 - lib/red_grape/pipe/out_e_pipe.rb
 - lib/red_grape/pipe/out_pipe.rb
+- lib/red_grape/pipe/out_v_pipe.rb
 - lib/red_grape/pipe/paths_pipe.rb
 - lib/red_grape/pipe/property_pipe.rb
 - lib/red_grape/pipe/retain_pipe.rb
 - lib/red_grape/pipe/side_effect_pipe.rb
 - lib/red_grape/pipe/transform_pipe.rb
+- lib/red_grape/pipe/underscore_pipe.rb
 - lib/red_grape/pipe/v_pipe.rb
 - lib/red_grape/property_description.rb
 - lib/red_grape/serializer/graphml_serializer.rb
+- lib/red_grape/tools/graph_store.rb
+- lib/red_grape/tools/irg.rb
 - lib/red_grape/version.rb
 - lib/red_grape/vertex.rb
 - red_grape.gemspec

data/lib/red_grape/graph_store.rb

@@ -1,66 +0,0 @@
-require 'drb/drb'
-require 'red_grape'
-
-module RedGrape
-  class GraphStore
-    DEFAULT_PORT = 28282
-
-    class << self
-      def start(port=nil, filename=nil, &block)
-        self.new(filename).start port, &block
-      end
-
-      def uri(port=nil)
-        "druby://localhost:#{port || DEFAULT_PORT}"
-      end
-
-      def open(port=nil)
-        DRbObject.new_with_uri(uri port)
-      end
-    end
-
-    def initialize(filename=nil)
-      @filename = filename
-      @graphs =
-        if @filename && File.exist?(@filename)
-          File.open @filename, 'r' do |file|
-            Marshal.load file
-          end
-        else
-          {tinker:RedGrape::Graph.create_tinker_graph}
-        end
-    end
-
-    def graphs
-      @graphs.keys.sort
-    end
-
-    def graph(key)
-      self[key]
-    end
-
-    def put_graph(key, graph)
-      self[key] = graph
-    end
-
-    def [](key)
-      @graphs[key.to_sym]
-    end
-
-    def []=(key, graph)
-      @graphs[key.to_sym] = graph
-    end
-
-    def start(port=nil, &block)
-      at_exit do
-        File.open @filename, 'w' do |file|
-          Marshal.dump @graphs, file
-        end if @filename
-      end
-
-      DRb.start_service self.class.uri(port), self
-      block.call if block
-      sleep
-    end
-  end
-end

data/lib/red_grape/irg.rb

@@ -1,68 +0,0 @@
-require 'drb/drb'
-require 'irb'
-require 'irb/completion'
-require 'red_grape'
-require 'red_grape/graph_store'
-
-module RedGrape
-  class IRG
-    module Help
-      module_function
-      def redgrape?(key=nil)
-        case key
-        when NilClass
-          puts help_message
-          :OK
-        when 'pipe', 'pipes', :pipe, :pieps
-          puts pipe_help_message
-          :OK
-        else
-          puts '?'
-          :NG
-        end
-      end
-
-      def help_message
-        <<-EOS
-Subcommands:
-  redgrape? :pipe         : list all pipes.
-        EOS
-  #redgrape? '[pipe name]' : describe the given pipe.
-      end
-
-      def pipe_help_message
-        pipes = RedGrape::Pipe.constants.map(&:to_s).select{|p| 
-          p =~ /.*Pipe$/}.map{|p| underscore p.sub(/Pipe$/, '')}
-        "Available pipes:\n  #{pipes.sort.join ', '}"
-      end
-
-      def underscore(str)
-        str.sub(/^[A-Z]/){|p| p.downcase}.gsub(/([a-z])([A-Z])/){"#{$1}_#{$2.downcase}"}
-      end
-
-      def camelcase(str)
-        str.sub(/^[a-z]/){|p| p.upcase}.gsub(/_([a-z])/){"#{$1.upcase}"}
-      end
-    end
-
-    class << self
-      def start(port=nil, &block)
-        self.new.start port, &block
-      end
-    end
-
-    def start(port=nil, &block)
-      Kernel.module_eval %Q{
-        def redgrape?(key=nil)
-          RedGrape::IRG::Help.redgrape? key
-        end
-        alias rg? redgrape?
-      }
-
-      RedGrape.set_auto_take
-      $store = RedGrape::GraphStore.open port if port
-      block.call if block
-      IRB.start
-    end
-  end
-end