facets 2.3.0 → 2.4.0

data/lib/core/facets/module/clone_removing.rb

@@ -1 +0,0 @@
-require 'facets/module/clone.rb'

data/lib/core/facets/module/clone_renaming.rb

@@ -1 +0,0 @@
-require 'facets/module/clone.rb'

data/lib/core/facets/module/clone_using.rb

@@ -1 +0,0 @@
-require 'facets/module/clone.rb'

data/lib/core/facets/module/conflict.rb

@@ -1 +0,0 @@
-require 'facets/module/traits.rb'

data/lib/core/facets/module/dirname.rb

@@ -1 +0,0 @@
-require 'facets/module/name.rb'

data/lib/core/facets/module/include.rb

@@ -1,179 +0,0 @@
-class Module
-
-  # An alias for #include.
-  #
-  #   class X
-  #     is Enumerable
-  #   end
-  #
-  #   CREDIT: Trans
-
-  #alias_method :is, :include
-
-  def is(*mods)
-    mods.each do |mod|
-      if mod.const_defined?(:Self)
-        extend mod::Self
-        # pass it along if module
-        if instance_of?(Module)
-          const_set(:Self, Module.new) unless const_defined?(:Self)
-          const_get(:Self).send(:include, mod::Self)
-        end
-      end
-    end
-    include(*mods)
-  end
-
-  # Expirmental idea for #is.
-  #
-  # If the module has #append_function_function
-  # defined, this will use that instead of #include.
-  #
-  #   def is(*modules)
-  #     module.each do { |m|
-  #       if m.respond_to?(:append_feature_function)
-  #         send(m.append_feature_function,m)
-  #       else
-  #         include m
-  #       end
-  #     end
-  #   end
-
-  # An alias for #extend.
-  #
-  #   class X
-  #     can Forwardable
-  #   end
-  #
-  # BTW, why if Forwardable an -able? It's not a mixin!
-
-  alias_method :can, :extend
-
-  # Is a given class or module an ancestor of this
-  # class or module?
-  #
-  #  class X ; end
-  #  class Y < X ; end
-  #
-  #   Y.is?(X)  #=> true
-  #
-  #   CREDIT: Trans
-
-  def is?(base)
-    ancestors.slice(1..-1).include?( base )
-  end
-
-  # 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
-
-  # Alias for #===. This provides a verbal method
-  # for inquery.
-  #
-  #   s = "HELLO"
-  #   s.class? String   #=> true
-  #
-  #   CREDIT: Trans
-
-  alias_method :class?, :===
-
-  # DEPRECATED
-  #   # Both includes and extends a module.
-  #   #
-  #   #   NOTE: If #include and/or #extend returned thier modules then
-  #   #         one could just do:
-  #   #
-  #   #             extend(*include(M1, M2, ...))
-  #   #
-  #   #   CREDIT: Trans
-  #
-  #   def include_and_extend(*mods)
-  #     include *mods
-  #     extend *mods
-  #   end
-
-  # Include module and apply module_fuction to the
-  # included methods.
-  #
-  #   CREDIT: Trans
-
-  def include_function_module *mod
-    include(*mod)
-    module_function(*mod.collect{|m| m.private_instance_methods & m.methods(false)}.flatten)
-  end
-
-  # NOTE: include_as is now in more library namespace.rb.
-
-  # A macro for dynamic modules.
-  #
-  #    TODO: This method ecourages a bad practice, and should not be used.
-  #          It's here because Nitro uses it, but eventually it will be deprecated.
-  #
-  #  CREDIT: George Moschovitis
-
-  def on_included(code)
-    tag = caller[0].split(' ').first.split(/\/|\\/).last.gsub(/:|\.|\(|\)/, '_')
-    old = "__included_#{tag}"
-    module_eval %{
-      class << self
-        alias_method :#{old}, :included
-        def included(base)
-          #{old}(base)
-          #{code}
-        end
-      end
-    }
-  end
-
-end
-
-
-module Kernel
-
-  # Convenience alias for #is_a? to go along with #is.
-  #
-  #   TODO: Somewhat confusing with Module#is?, should this be deprecated?
-
-  alias_method :is?, :is_a?
-
-end
-
-
-
-# demonstration
-
-=begin demo
-
-  module T
-    def t ; p self ; end
-    def r ; p self ; end
-    def q ; super ; end
-  end
-
-  class N
-    def q ; puts "ho" ; end
-  end
-
-  class X < N
-    include_as :test => T
-
-    def n ; p test ; end
-    def m ; test.t ; end
-    def o ; test.r ; end
-  end
-
-  x = X.new
-  x.n
-  x.m
-  x.o
-  x.q
-
-=end

data/lib/core/facets/module/include_and_extend.rb

@@ -1 +0,0 @@
-require 'facets/module/include.rb'

data/lib/core/facets/module/include_as.rb

@@ -1 +0,0 @@
-require 'facets/module/include.rb'

data/lib/core/facets/module/include_function_module.rb

@@ -1 +0,0 @@
-require 'facets/module/include.rb'

data/lib/core/facets/module/instance_method.rb

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

data/lib/core/facets/module/instance_method_defined.rb

@@ -1 +0,0 @@
-require 'facets/module/methods.rb'

data/lib/core/facets/module/integrate.rb

@@ -1 +0,0 @@
-require 'facets/module/modify.rb'

data/lib/core/facets/module/is.rb

@@ -1 +0,0 @@
-require 'facets/module/include.rb'

data/lib/core/facets/module/methods.rb

@@ -1,36 +0,0 @@
-class Module
-
-  # List all instance_methods, equivalent to
-  #
-  #   public_instance_methods +
-  #   protected_instance_methods +
-  #   private_instance_methods
-  #
-  #   CREDIT: Trans
-
-  def all_instance_methods(include_super=true)
-    public_instance_methods(include_super) +
-    protected_instance_methods(include_super) +
-    private_instance_methods(include_super)
-  end
-
-  # Query whether an instance method is defined for the module.
-  #
-  #   CREDIT: Gavin Sinclair
-  #   CREDIT: Noah Gibbs
-
-
-  def instance_method_defined?(meth)
-    instance_methods(true).find { |m| m == meth.to_s }
-  end
-
-  # Query whether a normal (singleton) method is defined for the module.
-  #
-  #   CREDIT: Gavin Sinclair
-  #   CREDIT: Noah Gibbs
-
-  def module_method_defined?(meth)
-    singleton_methods(true).find { |m| m == meth.to_s }
-  end
-
-end

data/lib/core/facets/module/modify.rb

@@ -1,173 +0,0 @@
-class Module
-
-  private
-
-  # Alias for remove_method.
-  alias_method :remove, :remove_method
-
-  # Alias for undef_method.
-  alias_method :nodef, :undef_method
-
-  public
-
-  # Using integrate is just like using include except the
-  # module included is a reconstruction of the one given
-  # altered by the commands given in the block.
-  #
-  # Convenient commands available are: #rename, #redef,
-  # #remove, #nodef and #wrap. But any module method
-  # can be used.
-  #
-  #   module W
-  #     def q ; "q" ; end
-  #     def y ; "y" ; end
-  #   end
-  #
-  #   class X
-  #     integrate W do
-  #       nodef :y
-  #     end
-  #   end
-  #
-  #   x = X.new
-  #   x.q  #=> "q"
-  #   x.y  #=> missing method error
-  #
-  # This is like #revisal, but #revisal only
-  # returns the reconstructred module. It does not
-  # include it.
-  #
-  #   CREDIT: Trans
-
-  def integrate(mod, &block)
-    #include mod.revisal( &blk )
-    m = Module.new{ include mod }
-    m.class_eval(&block)
-    include m
-  end
-
-  # Return a new module based on another.
-  # This includes the original module into the new one.
-  #
-  #   CREDIT: Trans
-
-  def revisal(&blk)
-    base = self
-    nm = Module.new{ include base }
-    nm.class_eval(&blk)
-    nm
-  end
-
-  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!"
-  #
-  #   CREDIT: Trans
-
-  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
-
-  alias_method :redef, :redefine_method
-
-  # Redirect methods to other methods. This simply
-  # defines methods by the name of a hash key which
-  # calls the method with the name of the hash's value.
-  #
-  #   class Example
-  #     redirect_method :hi => :hello, :hey => :hello
-  #     def hello(name)
-  #       puts "Hello, #{name}."
-  #     end
-  #   end
-  #
-  #   e = Example.new
-  #   e.hello("Bob")    #=> "Hello, Bob."
-  #   e.hi("Bob")       #=> "Hello, Bob."
-  #   e.hey("Bob")      #=> "Hello, Bob."
-  #
-  # The above class definition is equivalent to:
-  #
-  #   class Example
-  #     def hi(*args)
-  #       hello(*args)
-  #     end
-  #     def hey(*args)
-  #       hello(*args)
-  #     end
-  #     def hello
-  #       puts "Hello"
-  #     end
-  #   end
-  #
-  #   CREDIT: Trans
-
-  def redirect_method( method_hash )
-    method_hash.each do |targ,adv|
-      define_method(targ) { |*args| send(adv,*args) }
-    end
-  end
-
-  alias_method :redirect, :redirect_method
-
-  # Aliases a method and undefines the original.
-  #
-  #   rename_method( :to_method, :from_method  )
-  #
-  #   CREDIT: Trans
-
-  def rename_method( to_sym, from_sym )
-    raise ArgumentError, "method #{from_sym} does not exist" unless method_defined?( from_sym )
-    alias_method( to_sym, from_sym )
-    undef_method( from_sym )
-  end
-
-  alias_method :rename, :rename_method
-
-  # Don't think we should bother making this private.
-  # That sort of defeats some of the AOP usefulness of this.
-  public #private
-
-  # Creates a new method wrapping the previous of
-  # the same name. Reference to the old method
-  # is passed into the new definition block
-  # as the first parameter.
-  #
-  #   wrap_method( sym ) { |old_meth, *args|
-  #     old_meth.call
-  #     ...
-  #   }
-  #
-  # Keep in mind that this can not be used to wrap methods
-  # that take a block.
-  #
-  #   CREDIT: Trans
-
-  def wrap_method( sym, &blk )
-    old = instance_method(sym)
-    define_method(sym) { |*args| blk.call(old.bind(self), *args) }
-  end
-
-  alias_method :wrap, :wrap_method
-
-end

data/lib/core/facets/module/modspace.rb

@@ -1 +0,0 @@
-require 'facets/module/name.rb'

data/lib/core/facets/module/module_load.rb

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

data/lib/core/facets/module/module_method.rb

@@ -1 +0,0 @@
-require 'facets/module/alias.rb'

data/lib/core/facets/module/module_method_defined.rb

@@ -1 +0,0 @@
-require 'facets/module/methods.rb'

data/lib/core/facets/module/module_require.rb

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

data/lib/core/facets/module/name.rb

@@ -1,122 +0,0 @@
-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: Gavin Sinclair
-
-  def by_name(name)
-    #result = Object.constant(name)
-    # TODO: Does self need to be Object in the following lines?
-    const  = name.to_s.dup
-    base   = const.sub!(/^::/, '') ? Object : ( self.kind_of?(Module) ? self : self.class )
-    result = const.split(/::/).inject(base){ |mod, subconst| mod.const_get(subconst) }
-
-    return result if result.kind_of?( Module )
-    raise ArgumentError, "#{name} is not a module or class"
-  end
-
-  # Returns the root name of the module/class.
-  #
-  #   module Example
-  #     class Demo
-  #     end
-  #   end
-  #
-  #   Demo.name       #=> Example::Demo
-  #   Demo.basename   #=> Demo
-  #
-  # For anonymous modules this will provide a basename
-  # based on Module#inspect.
-  #
-  #   m = Module.new
-  #   m.inspect       #=> "#<Module:0xb7bb0434>"
-  #   m.basename      #=> "Module_0xb7bb0434"
-  #
-  #   CREDIT: Trans
-
-  def basename
-    if name and not name.empty?
-      name.gsub(/^.*::/, '')
-    else
-      nil #inspect.gsub('#<','').gsub('>','').sub(':', '_')
-    end
-  end
-
-  # Returns the name of module's container module.
-  #
-  #   module Example
-  #     class Demo
-  #     end
-  #   end
-  #
-  #   Demo.name       #=> "Example::Demo"
-  #   Demo.dirname    #=> "Example"
-  #
-  # See also Module#basename.
-  #
-  #   CREDIT: Trans
-
-  def dirname
-    name[0...(name.rindex('::') || 0)]
-    #name.gsub(/::[^:]*$/, '')
-  end
-
-  # Returns the module's container module.
-  #
-  #   module Example
-  #     class Demo
-  #     end
-  #   end
-  #
-  #   Demo.modspace    #=> Example
-  #
-  # See also Module#basename.
-  #
-  #   CREDIT: Trans
-
-  def modspace
-    space = name[ 0...(name.rindex( '::' ) || 0)]
-    space.empty? ? Object : eval(space)
-  end
-
-  # Show a modules nesting in module namespaces.
-  #
-  #   A::B::C.nesting  #=> [ A, A::B ]
-  #
-  #   CREDIT: Trans
-
-  def nesting
-    n = []
-    name.split(/::/).inject(self) do |mod, name|
-      c = mod.const_get(name) ; n << c ; c
-    end
-    return n
-  end
-
-end