facets 1.0.0 → 1.0.1

data/lib/facet/module/integrate.rb

@@ -1,51 +0,0 @@
-
-require 'facet/module/rename'
-require 'facet/module/redef'
-require 'facet/module/remove'
-require 'facet/module/undef'
-require 'facet/module/wrap'
-
-#require 'facet/module/revisal'
-
-class Module
-
-  def integrate( mod, &blk )
-    #include mod.revisal( &blk )
-    m = Module.new { include mod }
-    m.class_eval &blk
-    include m 
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-
-=begin testing
-
-  require 'test/unit'
-
-  class TCModule < Test::Unit::TestCase
-    module M
-      def x ; 1 ; end
-    end
-    class C
-      integrate M do
-        rename :y, :x
-      end
-    end
-
-    def test_integrate
-      c = C.new
-      assert_raises( NoMethodError ) { c.x }
-      assert_equal( 1, c.y )
-    end
-  end
-
-=end

data/lib/facet/module/is.rb

@@ -1,34 +0,0 @@
-require 'facet/kernel/is'
-
-class Module
-
-  # An alias for #include.
-  #
-  # class X
-  #   is Enumerable
-  # end
-  #
-  alias_method :is, :include
-
-  # Is a given class or module an ancestor of
-  # this class or module?
-  #
-  #  class X ; end
-  #  class Y < X ; end
-  #
-  #   Y.is?(X)  #=> true
-  #
-  def is?( base )
-    ancestors.slice(1..-1).include?( base )
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO

data/lib/facet/module/memoize.rb

@@ -1,95 +0,0 @@
-#--
-# Credit goes to Robert Feldt.
-#++
-
-class Module
-
-  # Directive for making your functions faster by trading
-  # space for time. When you "memoize" a method/function
-  # its results are cached so that later calls with the
-  # same arguments returns results in the cache instead
-  # of recalculating them.
-  #
-  #   class T
-  #     def initialize(a)
-  #       @a = a
-  #     end
-  #     def a
-  #       "#{@a ^ 3 + 4}"
-  #     end
-  #     memoize :a
-  #   end
-  #
-  #   t = T.new
-  #   t.a.__id__ == t.a.__id__  #=> true
-  #
-  def memoize(*meths)
-    @_MEMOIZE_CACHE ||= Hash.new
-    meths.each do |meth|
-      mc = @_MEMOIZE_CACHE[meth] = Hash.new
-      old = instance_method(meth)
-      new = proc do |*args|
-        if mc.has_key? args
-          mc[args]
-        else
-          mc[args] = old.bind(self).call(*args)
-        end
-      end
-      send(:define_method, meth, &new)
-    end
-  end
-
-end
-
-# This allows memoize to work in main and instance scope too.
-#--
-# Would this be good to have? Will need to modify for instance level, if so.
-#++
-#def memoize(*args)
-#  self.class.memoize(*args)
-#end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class T
-    def initialize(a)
-      @a = a
-    end
-    def a
-      "#{@a ^ 3 + 4}"
-    end
-    memoize :a
-  end
-
-  # test
-
-  class TC_Memoize < Test::Unit::TestCase
-
-    def setup
-      @t = T.new(2)
-    end
-
-    def test_memoize_01
-      assert_equal( @t.a, @t.a )
-    end
-
-    def test_memoize_02
-      assert_equal( @t.a.__id__, @t.a.__id__ )
-    end
-
-    def test_memoize_03
-      assert_equal( @t.a.__id__, @t.a.__id__ )
-    end
-
-  end
-
-=end

data/lib/facet/module/modspace.rb

@@ -1,43 +0,0 @@
-#require 'facet/module/dirname'
-#require 'facet/kernel/constant'
-
-class Module
-
-  # Returns the module's container module.
-  #
-  #   module Example
-  #     class Demo
-  #     end
-  #   end
-  #
-  #   Demo.modspace    #=> Example
-  #
-  # See also Module#basename.
-  #
-  def modspace
-    eval self.name[ 0...self.name.rindex( '::' ) ]
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCModule < Test::Unit::TestCase
-
-    def test_modspace
-      assert_equal( Test::Unit, Test::Unit::TestCase.modspace )
-      assert_equal( ::Test::Unit, ::Test::Unit::TestCase.modspace )
-    end
-
-  end
-
-=end

data/lib/facet/module/namespace.rb

@@ -1,61 +0,0 @@
-
-require 'delegate'
-
-class Module
-
-  # Create a seperated method namespace.
-  #
-  #   module T
-  #     def t ; "HERE" ; end
-  #   end
-  #
-  #   class X
-  #     namespace :test { include T }
-  #     def t ; test.t ; end
-  #   end
-  #
-  #   X.new.t  #=> "HERE"
-  #
-  # NOTE: This is not as functional as it ought be in that
-  # the instance variables of the object are not accessible
-  # within the namespace.
-  def namespace( name, &blk )
-    s = self
-    c = Class.new(SimpleDelegator, &blk)
-    c.class_eval { define_method(:initialize) { |s| super(s) } }
-    self.class_eval {
-      define_method( name ) {
-        instance_variable_set( "@#{name}",  instance_variable_get( "@#{name}" ) || c.new(s) )
-      }
-    }
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCModule < Test::Unit::TestCase
-
-    class MockObject
-      namespace(:hope) {
-        def watch ; 'watch' ; end
-      }
-    end
-
-    def test_namespace
-      m = MockObject.new
-      assert_equal( 'watch', m.hope.watch )
-    end
-
-  end
-
-=end

data/lib/facet/module/nesting.rb

@@ -1,45 +0,0 @@
-#--
-# Special thanks to Mauricio Fernandez
-#   parent = Object.const_get(mod.to_s.sub(/::[^:]+\z/, ""))
-#++
-
-class Module
-
-  def nesting
-    n = []
-    name.split(/::/).inject(self){ |mod, name| c = mod.const_get(name) ; n << c ; c }
-    return n
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCModule < Test::Unit::TestCase
-
-    module M
-      module N
-        class C
-          def n
-            self.class.nesting
-          end
-        end
-      end
-    end
-
-    def test_nesting
-      assert_equal( [TCModule, M, M::N, M::N::C], M::N::C.new.n )
-    end
-
-  end
-
-=end

data/lib/facet/module/redef.rb

@@ -1,31 +0,0 @@
-require 'facet/module/redefine_method'
-
-class Module
-  private
-  alias_method( :redef, :redefine_method )
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCModule < Test::Unit::TestCase
-
-    def fixture_method_b; "b"; end
-
-    redef( :fixture_method_b ) { "x" }
-
-    def test_redef
-      assert_equal( "x", fixture_method_b )
-    end
-
-  end
-
-=end

data/lib/facet/module/redefine_method.rb

@@ -1,57 +0,0 @@
-
-class Module
-
-  private
-
-  # Creates a new method for a pre-existing method.
-  #
-  # If _aka_ is given, then the method being redefined will
-  # first be aliased to this name.
-  #
-  #   class Greeter
-  #     def hello ; "Hello" ; end
-  #   end
-  #
-  #   Greeter.new.hello   #=> "Hello"
-  #
-  #   class Greeter
-  #     redefine_method( :hello, :hi ) do
-  #       hi + ", friend!"
-  #     end
-  #   end
-  #
-  #   Greeter.new.hello   #=> "Hello, friend!"
-  #
-  def redefine_method( sym, aka=nil, &blk )
-    raise ArgumentError, "method does not exist" unless method_defined?( sym )
-    alias_method( aka, sym ) if aka
-    undef_method( sym )
-    define_method( sym, &blk )
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCModule < Test::Unit::TestCase
-
-    def fixture_method; "a"; end
-
-    redefine_method( :fixture_method ) { nil }
-
-    def test_redefine_method
-      assert_equal( nil, fixture_method )
-    end
-
-  end
-
-=end

data/lib/facet/module/redirect.rb

@@ -1,30 +0,0 @@
-require 'facet/module/redirect_method'
-class Module
-  private
-  alias_method :redirect, :redirect_method
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCModule < Test::Unit::TestCase
-
-    def red1 ; 1 ; end
-
-    redirect :red2 => :red1
-
-    def test_redirect
-      assert_equal( 1, red2 )
-    end
-
-  end
-
-=end