facets 1.1.0 → 1.2.0

data/lib/facet/mathconstants.rb

@@ -0,0 +1 @@
+require 'facets/more/mathconstants.rb'

data/lib/facet/methodprobe.rb

@@ -0,0 +1 @@
+require 'facets/more/methodprobe.rb'

data/lib/facet/mock.rb

@@ -0,0 +1 @@
+require 'facets/more/mock.rb'

data/lib/facet/module.rb

@@ -1,40 +1 @@
-require 'facet/module/abstract'
-require 'facet/module/alias_module_function'
-require 'facet/module/ancestor'
-require 'facet/module/attr'
-require 'facet/module/attr_setter'
-require 'facet/module/attr_tester'
-require 'facet/module/basename'
-require 'facet/module/by_name'
-require 'facet/module/cattr_accessor'
-require 'facet/module/cattr_reader'
-require 'facet/module/cattr_writer'
-require 'facet/module/clone_removing'
-require 'facet/module/clone_renaming'
-require 'facet/module/clone_using'
-require 'facet/module/dirname'
-require 'facet/module/equate_on'
-require 'facet/module/generate_instance_method_name'
-require 'facet/module/include_as'
-require 'facet/module/initializer'
-require 'facet/module/instance_methods'
-require 'facet/module/integrate'
-require 'facet/module/is'
-require 'facet/module/memoize'
-require 'facet/module/modspace'
-require 'facet/module/namespace'
-require 'facet/module/nesting'
-require 'facet/module/redef'
-require 'facet/module/redefine_method'
-require 'facet/module/redirect'
-require 'facet/module/redirect_method'
-require 'facet/module/remove'
-require 'facet/module/rename'
-require 'facet/module/rename_method'
-require 'facet/module/revisal'
-require 'facet/module/shadow_all'
-require 'facet/module/shadow_method'
-require 'facet/module/sort_on'
-require 'facet/module/undef'
-require 'facet/module/wrap'
-require 'facet/module/wrap_method'
+require 'facets/core/module.rb'

data/lib/facet/module/abstract.rb

@@ -1,50 +1 @@
-# Creates a method that requires to be overridding.
-# If it not overridden and called upon a TypeError
-# will be raised.
-#
-#  class C
-#    abstract :a
-#  end
-#
-#  c = C.new
-#  c.a  #=> Error: undefined abstraction #a
-#
-class Module
-  def abstract( *sym )
-    sym.each { |s|
-      define_method( s ) { raise TypeError, "undefined abstraction ##{s}" }
-    }
-  end
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCModule < Test::Unit::TestCase
-
-    class Aq
-      abstract :q
-    end
-
-    def test_001
-      ac = Aq.new
-      assert_raises( TypeError ) { ac.q }
-    end
-
-    def test_002
-      ac = Class.new { abstract :q }.new
-      assert_raises( TypeError ) { ac.q }
-    end
-
-  end
-
-=end
+require 'facets/core/module/abstract.rb'

data/lib/facet/module/alias_module_function.rb

@@ -1,57 +1 @@
-class Module
-
-  private
-  # Alias a module function so that the alias is also
-  # a module function. The typical #alias_method 
-  # does not do this.
-  #
-  #   module Demo
-  #     module_function
-  #     def hello
-  #       "Hello"
-  #     end
-  #   end
-  #
-  #   Demo.hello    #=> Hello
-  #
-  #   module Demo
-  #     alias_module_function( :hi , :hello )
-  #   end
-  #
-  #   Demo.hi       #=> Hello
-  #
-  def alias_module_function( new, old )
-    alias_method( new, old )
-    module_function( new )
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCModule < Test::Unit::TestCase
-
-    module MockModule
-      # for alias_module_method
-      def x ; 33 ; end
-      module_function :x
-      alias_module_function :y, :x
-    end
-
-    def test_alias_module_function
-      assert_equal( 33, MockModule.y )
-      #assert_equal( 33, @m.send(:y) ) # use send b/c private
-    end
-
-  end
-
-=end
+require 'facets/core/module/alias_module_function.rb'

data/lib/facet/module/ancestor.rb

@@ -1,38 +1 @@
-
-class Module
-
-  # Is a given class or module an ancestor of
-  # this class or module?
-  #
-  #  class X ; end
-  #  class Y < X ; end
-  #
-  #   X.ancestor?(Y)
-  #
-  def ancestor?( mod )
-    ancestors.include? mod
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCModule < Test::Unit::TestCase
-
-    def test_ancestor
-      assert( self.class.ancestor?(::Test::Unit::TestCase) )
-    end
-
-  end
-
-=end
+require 'facets/core/module/ancestor.rb'

data/lib/facet/module/attr.rb

@@ -1,23 +1 @@
-
-class Module
-
-  # These a school of thought that says an attribute
-  # show always have a reader and a writer.
-  #
-  def attr(*args)
-    args.pop unless args.last.is_a?(Symbol) or args.last.is_a?(String)
-    attr_accessor *args
-    args.collect{ |a| [ "#{a}".to_sym, "#{a}=".to_sym ] }.flatten
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO
+require 'facets/core/module/attr.rb'

data/lib/facet/module/attr_setter.rb

@@ -1,48 +1 @@
-#--
-# TODO Perhaps need to make a check against overriding Megas annotated version.
-#++
-
-class Module
-
-  # Create an attribute method for both getting
-  # and setting an instance variable.
-  #
-  #   attr_setter :a
-  #
-  # _is equivalent to_
-  #
-  #   def a(*args)
-  #     if args.size > 0
-  #       @a = args[0]
-  #       self
-  #     else
-  #       @a
-  #     end
-  #   end
-  #
-  def attr_setter(*args)
-
-    make = {}
-    args.each { |a|
-      make["#{a}".to_sym] = %{
-        def #{a}(*args)
-          args.size > 0 ? ( @#{a}=args[0] ; self ) : @#{a}
-        end
-      }
-    }
-    module_eval( make.values.join("\n") )
-
-    return make.keys
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO
+require 'facets/core/module/attr_setter.rb'

data/lib/facet/module/attr_tester.rb

@@ -1,56 +1 @@
-require 'facet/kernel/nack'
-
-class Module
-
-  # Create an tester attribute. This creates two methods for
-  # each given variable name. One is used to test
-  # the attribute and the other is used to set or toggle it.
-  #
-  #   attr_switch :a
-  #
-  # is equivalent to
-  #
-  #   def a?
-  #     @a ? true : @a
-  #   end
-  #
-  #   def a!(switch=nack)
-  #     if switch == nack
-  #       @a = ! @a
-  #     else
-  #       @a = @a ? switch : @a
-  #       self
-  #     end
-  #   end
-  #
-  def attr_tester(*args)
-    make = {}
-    args.each { |a|
-      make["#{a}?".to_sym] = %{ def #{a}?; @#{a} ? true : @#{a}; end }
-      make["#{a}!".to_sym] = %{
-        def #{a}!(switch=nack)
-          if switch==nack
-            @#{a} = !@#{a}
-          else
-            @#{a} = @#{a} ? switch : @#{a}
-            self
-          end
-        end
-      }
-    }
-    module_eval make.values.join("\n")
-
-    return make.keys
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO
+require 'facets/core/module/attr_tester.rb'

data/lib/facet/module/basename.rb

@@ -1,39 +1 @@
-class Module
-
-  # Returns the root name of the module/class.
-  #
-  #   module Example
-  #     class Demo
-  #     end
-  #   end
-  #
-  #   Demo.name       #=> Example::Demo
-  #   Demo.basename   #=> Demo
-  #
-  def basename
-    self.name.gsub(/^.*::/, '')
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCModule < Test::Unit::TestCase
-
-    def test_basename
-      assert_equal( "TestCase", ::Test::Unit::TestCase.basename )
-    end
-
-  end
-
-=end
+require 'facets/core/module/basename.rb'

data/lib/facet/module/by_name.rb

@@ -1,68 +1 @@
-
-require 'facet/kernel/constant'
-
-class Module
-
-  # <em>Note: the following documentation uses "class" because it's more common, but it
-  # applies to modules as well.</em>
-  #
-  # Given the _name_ of a class, returns the class itself (i.e. instance of Class).  The
-  # dereferencing starts at Object.  That is,
-  #
-  #   Class.by_name("String")
-  #
-  # is equivalent to
-  #
-  #   Object.const_get("String")
-  #
-  # The parameter _name_ is expected to be a Symbol or String, or at least to respond to
-  # <tt>to_str</tt>.
-  #
-  # An ArgumentError is raised if _name_ does not correspond to an existing class.  If _name_
-  # is not even a valid class name, the error you'll get is not defined.
-  #
-  # Examples:
-  #
-  #   Class.by_name("String")             # -> String
-  #   Class.by_name("::String")           # -> String
-  #   Class.by_name("Process::Sys")       # -> Process::Sys
-  #   Class.by_name("GorillaZ")           # -> (ArgumentError)
-  #
-  #   Class.by_name("Enumerable")         # -> Enumerable
-  #   Module.by_name("Enumerable")        # -> Enumerable
-  #
-  #--
-  # Credit for this goes to Gavin Sinclair
-  #++
-  def by_name(name)
-    result = Object.constant(name)
-    return result if result.kind_of?( Module )
-    raise ArgumentError, "#{name} is not a module or class"
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCModule < Test::Unit::TestCase
-
-    def test_by_name
-      c = ::Test::Unit::TestCase.name
-      assert_equal( ::Test::Unit::TestCase, Module.by_name(c) )
-      c = "Test::Unit::TestCase"
-      assert_equal( ::Test::Unit::TestCase, Class.by_name(c) )
-    end
-
-  end
-
-=end
+require 'facets/core/module/by_name.rb'