facets 1.0.0 → 1.0.1

data/lib/facet/module.rb

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

data/lib/facet/module/abstract.rb

@@ -1,50 +0,0 @@
-# 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

data/lib/facet/module/alias_module_function.rb

@@ -1,57 +0,0 @@
-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

data/lib/facet/module/ancestor.rb

@@ -1,38 +0,0 @@
-
-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

data/lib/facet/module/attr.rb

@@ -1,23 +0,0 @@
-
-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}", :"#{a}=" ] }.flatten
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO

data/lib/facet/module/attr_setter.rb

@@ -1,48 +0,0 @@
-#--
-# :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}"] = %{
-        def #{a}(*args)
-          args.size > 0 ? ( @#{a}=args[0] ; self ) : @#{a}
-        end
-      }
-    }
-    module_eval( make.values.join("\n") )
-
-    return make.keys
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO

data/lib/facet/module/attr_tester.rb

@@ -1,56 +0,0 @@
-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}?"] = %{ def #{a}?; @#{a} ? true : @#{a}; end }
-      make[:"#{a}!"] = %{
-        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

data/lib/facet/module/basename.rb

@@ -1,39 +0,0 @@
-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

data/lib/facet/module/by_name.rb

@@ -1,68 +0,0 @@
-
-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

data/lib/facet/module/cattr_accessor.rb

@@ -1,141 +0,0 @@
-#--
-# Credit goes to DHH.
-#++
-
-class Module
-
-  # Creates a class-variable attr_reader that can
-  # be accessed both on an instance and class level.
-  #
-  #   class MyClass
-  #     @@a = 10
-  #     cattr_reader :a
-  #   end
-  #
-  #   MyClass.a           #=> 10
-  #   MyClass.new.a       #=> 10
-  #
-  def cattr_reader(*syms)
-    hsyms = ( syms.last.is_a?(Hash) ? syms.pop : {} )
-    hsyms.update( Hash[*(syms.zip([nil]*syms.size).flatten)] )
-    hsyms.each_pair do |sym, val|
-      class_eval <<-EOS
-        if ! defined? @@#{sym}
-          @@#{sym} = val
-        end
-        def self.#{sym}
-          @@#{sym}
-        end
-        def #{sym}
-          self.class.#{sym}
-        end
-      EOS
-    end
-    return hsyms.keys
-  end
-
-  # Creates a class-variable attr_writer that can
-  # be accessed both on an instance and class level.
-  #
-  #   class MyClass
-  #     cattr_writer :a
-  #     def a
-  #       @@a
-  #     end
-  #   end
-  #
-  #   MyClass.a = 10
-  #   MyClass.a            #=> 10
-  #   MyClass.new.a = 29
-  #   MyClass.a            #=> 29
-  #
-  def cattr_writer(*syms)
-    hsyms = ( syms.last.is_a?(Hash) ? syms.pop : {} )
-    hsyms.update( Hash[*(syms.zip([nil]*syms.size).flatten)] )
-    hsyms.each_pair do |sym, val|
-      class_eval <<-EOS
-        if ! defined? @@#{sym}
-          @@#{sym} = val
-        end
-        def self.#{sym}=(obj)
-          @@#{sym} = obj
-        end
-        def #{sym}=(obj)
-          self.class.#{sym}=(obj)
-        end
-      EOS
-    end
-    return hsyms.keys
-  end
-
-  # Creates a class-variable attr_accessor that can
-  # be accessed both on an instance and class level.
-  #
-  #   class MyClass
-  #     cattr_accessor :a
-  #   end
-  #
-  #   MyClass.a = 10
-  #   MyClass.a           #=> 10
-  #   mc = MyClass.new
-  #   mc.a                #=> 10
-  #
-  def cattr_accessor(*syms)
-    m = []
-    m.concat( cattr_reader(*syms) )
-    m.concat( cattr_writer(*syms) )
-    m
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCModule < Test::Unit::TestCase
-
-    class MockObject
-      def initialize
-        @@a = 10
-      end
-      def b ; @@b ; end
-    end
-
-    def test_cattr_reader
-      assert_nothing_raised {
-        MockObject.class_eval { cattr_reader :a }
-      }
-      t = MockObject.new
-      assert_equal( 10, t.a )
-    end
-
-    def test_cattr_writer
-      assert_nothing_raised {
-        MockObject.class_eval { cattr_writer :b }
-      }
-      t = MockObject.new
-      t.b = 5
-      assert_equal( 5, t.b )
-    end
-
-    def test_cattr_accessor
-      assert_nothing_raised {
-        MockObject.class_eval { cattr_accessor :c }
-      }
-      t = MockObject.new
-      t.c = 50
-      assert_equal( 50, t.c )
-    end
-
-  end
-
-=end