facets 2.6.0 → 2.7.0

data/lib/more/facets/1stclassmethod.rb

@@ -1,140 +0,0 @@
-# = First Class Methods
-#
-# Gives Ruby 1st class methods.
-#
-# Easy access to method as objects, and they retain state!
-#
-#   def hello
-#     puts "Hello World!"
-#   end
-#
-#   m1 = method!(:hello)   #=> <Method: #hello>
-#
-#   def m1.annotate
-#     "simple example"
-#   end
-#
-#   m2 = method!(:hello)
-#   m2.annotate  #=> "simple example"
-#
-# Easy access to method as objects, and they retain state!
-#
-#   module K
-#     def hello
-#       puts "Hello World!"
-#     end
-#   end
-#   p K.instance_method!(:hello)   #=> <UnboundMethod: #hello>
-#
-# CAUTION! This it is currently limited to the scope of the
-# current module/class.
-#
-# == Notes
-#
-# Should 1st Class Methods be part of Ruby proper?
-#
-# Perhaps the best solution would be using the notation
-# <tt>::ameth</tt>. This would require some minor changes
-# to Ruby, but with few backward incompatabilites if
-# parantheticals revert back to the actual method invocation.
-# Although this later stipulation means capitalized methods
-# would not be accessible in this way b/c they would intefere with
-# constant lookup. It's a trade off.
-#
-#                   Current           Proposed           Alternate
-#                   ----------------- ------------------ -------------------
-#     Foo.Bar()     method call       method call        method call
-#     Foo.Bar       method call       method call        method call
-#     Foo.bar()     method call       method call        method call
-#     Foo.bar       method call       method call        method call
-#     Foo::Bar()    method call       method call        1st class method
-#     Foo::Bar      constant lookup   constant lookup    constant lookup
-#     Foo::bar()    method call       method call        1st class method
-#     Foo::bar      method call       1st class method   1st class method
-#
-# Then again this dosen't address bound versus unbound.
-#
-# Which do you prefer?
-#
-# == Authors
-#
-# * Thomas Sawyer
-#
-# == Copying
-#
-# Copyright (c) 2005 Thomas Sawyer
-#
-# Ruby License
-#
-# This module is free software. You may use, modify, and/or redistribute this
-# software under the same terms as Ruby.
-#
-# This program is distributed in the hope that it will be useful, but WITHOUT
-# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
-# FOR A PARTICULAR PURPOSE.
-
-#
-module Kernel
-
-  # Easy access to method as objects, and they retain state!
-  #
-  #   def hello
-  #     puts "Hello World!"
-  #   end
-  #
-  #   m1 = method!(:hello)   #=> <Method: #hello>
-  #
-  #   def m1.annotate
-  #     "simple example"
-  #   end
-  #
-  #   m2 = method!(:hello)
-  #   m2.annotate  #=> "simple example"
-
-  def method!(s)
-    ( @__methods__ ||= {} )[s] ||= method(s)
-  end
-
-  private
-
-  # Returns the method object of the current method.
-  #--
-  # TODO Should there be a #this! ?
-  #++
-  def this
-    line = nil
-    caller(1).each do |line|
-      line = /\`([^\']+)\'/.match(line)
-      break if line
-    end
-    if line
-      name = line[1]
-      return method(name)
-    else
-      nil # ?
-    end
-  end
-
-end
-
-#
-class Module
-
-  # Easy access to method as objects, and they retain state!
-  #
-  #   module K
-  #     def hello
-  #       puts "Hello World!"
-  #     end
-  #   end
-  #   p K.instance_method!(:hello)   #=> <UnboundMethod: #hello>
-  #
-  # NOTE: This is limited to the scope of the current module/class.
-
-  def instance_method!(s)
-    #( @@__instance_methods__ ||= {} )[s] ||= instance_method(s)  # TODO when fixed
-    ( @__instance_methods__ ||= {} )[s] ||= instance_method(s)
-  end
-
-end
-

data/lib/more/facets/advisable.rb

@@ -1,162 +0,0 @@
-# = Advisable
-#
-# Add before, after and around advice in dynamic fashion.
-#
-# == Authors
-#
-# * TransAspect
-#
-# == Copying
-#
-# Copyright (c) 2007 Thomas Sawyer
-#
-# Ruby License
-#
-# This module is free software. You may use, modify, and/or redistribute this
-# software under the same terms as Ruby.
-#
-# This program is distributed in the hope that it will be useful, but WITHOUT
-# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
-# FOR A PARTICULAR PURPOSE.
-
-require 'facets/1stclassmethod'
-require 'facets/unboundmethod/arguments'
-
-# = Advisable
-#
-# Advisable provides a means of using before, after and
-# around adivce.
-
-module Advisable
-
-  def advice_before
-    @advice_before ||= {} #Hash.new{|h,k| h[k] = []}
-  end
-
-  def advice_after
-    @advice_after ||= {} #Hash.new{|h,k| h[k] = []}
-  end
-
-  def advice_around
-    @advice_around ||= {} #Hash.new{|h,k| h[k] = []}
-  end
-
-  def before(meth, &block)
-    name = "#{meth}:before#{block.object_id}"
-    define_method(name, &block)
-    (advice_before[meth.to_sym] ||= []) << name
-  end
-
-  def after(meth, &block)
-    name = "#{meth}:after#{block.object_id}"
-    define_method(name, &block)
-    (advice_after[meth.to_sym] ||= []) << name
-  end
-
-  def around(meth, &block)
-    name = "#{meth}:around#{block.object_id}"
-    define_method(name, &block)
-    (advice_around[meth.to_sym] ||= []) << name
-  end
-
-  # Advise a method.
-
-  def advise(meth)
-    #return false if defined?(meth_origin)
-    args = instance_method(meth).arguments
-
-    module_eval(<<-END, __FILE__, __LINE__)
-      alias_method '#{meth}_origin', '#{meth}'
-      def #{meth}(#{args})
-        target = method!('#{meth}_origin')
-
-        unless target.advised
-          ancs = self.class.ancestors.select{ |anc| anc.respond_to?(:advice_before) }
-          target.advice_before = ancs.collect{ |anc| anc.advice_before[:'#{meth}'] }
-          target.advice_after  = ancs.collect{ |anc| anc.advice_after[:'#{meth}'] }
-          target.advice_around = ancs.collect{ |anc| anc.advice_around[:'#{meth}'] }
-          target.advised = true
-        end
-
-        target.call_with_advice(self, *[#{args}])
-      end
-    END
-  end
-
-  #advise(:method_added)
-
-  #after :method_added do |meth|
-  #  advise(meth) unless defined?("#{meth}_orig")
-  #end
-
-  def method_added(meth)
-    return if meth == :method_added
-    @added_stack ||= []
-    return if @added_stack.last == meth
-    return if /_(origin)$/ =~ meth.to_s
-    return if /:(before|after|around)/ =~ meth.to_s
-    @added_stack << meth
-    #return if instance_methods(false).include?("#{meth}_orig")
-    advise(meth)
-    @added_stack.pop
-  end
-
-  # Extensions for Method class.
-
-  module Method
-
-    attr_accessor :advised
-
-    attr_reader :advice_before
-    attr_reader :advice_after
-    attr_reader :advice_around
-
-    def advised?
-      @advised
-    end
-
-    def advice_before=(set); @advice_before = set.flatten.compact; end
-    def advice_after=(set) ;  @advice_after = set.flatten.compact; end
-    def advice_around=(set); @advice_around = set.flatten.compact; end
-
-    # Call with advice.
-
-    def call_with_advice(obj, *args, &blk)
-      advice_before.each do |name|
-        #advice.call(*args, &blk)
-        obj.send(name, *args, &blk)
-      end
-
-      target = lambda{ call(*args, &blk) }
-      advice_around.each do |name|
-        target = lambda_target(obj, name, target, *args, &blk)
-      end
-      ret = target.call
-
-      advice_after.reverse_each do |name|
-        #advice.call(*args, &blk)
-        obj.send(name, *args, &blk)
-      end
-
-      return ret
-    end
-
-    private
-
-    # Using separate method for this prevents infinite loop.
-
-    def lambda_target(obj, name, target, *args, &blk)
-      lambda do
-        #advice.call(target, *args, &blk)
-        obj.send(name, target, *args, &blk)
-      end
-    end
-
-  end
-
-end
-
-class Method #:nodoc:
-  include Advisable::Method
-end
-

data/lib/more/facets/association.rb

@@ -1,210 +0,0 @@
-# = Association
-#
-# General binary association allows one object to be
-# associated with another. It has a variety of uses,
-# link-lists, simple ordered maps and mixed collections,
-# among them.
-#
-# == Usage
-#
-# Associations can be used to draw simple relationships.
-#
-#   :Apple >> :Fruit
-#   :Apple >> :Red
-#
-#   :Apple.associations #=> [ :Fruit, :Red ]
-#
-# It can also be used for simple lists of ordered pairs.
-#
-#   c = [ :a >> 1, :b >> 2 ]
-#   c.each { |k,v| puts "#{k} associated with #{v} }
-#
-# produces
-#
-#   a associated with 1
-#   b associated with 2
-#
-# == Limitations
-#
-# The method :>> is used to construct the association.
-# It is a rarely used method so it is generally available.
-# But you can't use an Association while extending
-# any of the following classes becuase they use #>> for
-# other things.
-#
-#   Bignum
-#   Fixnum
-#   Date
-#   IPAddr
-#   Process::Status
-#
-# == Author
-#
-# * Thomas Sawyer
-#
-# == License
-#
-#   Copyright (c) 2005 Thomas Sawyer
-#
-#   Ruby License
-#
-#   This module is free software. You may use, modify, and/or redistribute this
-#   software under the same terms as Ruby.
-#
-#   This program is distributed in the hope that it will be useful, but WITHOUT
-#   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
-#   FOR A PARTICULAR PURPOSE.
-
-
-# = Association
-#
-# General binary association allows one object to be
-# associated with another. It has a variety of uses,
-# link-lists, simple ordered maps and mixed collections,
-# among them.
-#
-# == Usage
-#
-# Associations can be used to draw simple relationships.
-#
-#   :Apple >> :Fruit
-#   :Apple >> :Red
-#
-#   :Apple.associations #=> [ :Fruit, :Red ]
-#
-# It can also be used for simple lists of ordered pairs.
-#
-#   c = [ :a >> 1, :b >> 2 ]
-#   c.each { |k,v| puts "#{k} associated with #{v} }
-#
-# produces
-#
-#   a associated with 1
-#   b associated with 2
-#
-# == Limitations
-#
-# The method :>> is used to construct the association.
-# It is a rarely used method so it is generally available.
-# But you can't use an Association while extending
-# any of the following classes becuase they use #>> for
-# other things.
-#
-#   Bignum
-#   Fixnum
-#   Date
-#   IPAddr
-#   Process::Status
-#
-# TODO: Should associations be singleton?
-
-class Association
-  include Comparable
-
-  class << self
-    # Store association references.
-    def reference
-      @reference ||= Hash.new{ |h,k,v| h[k]=[] }
-    end
-
-    def [](index, value)
-      new(index, value)
-    end
-
-    #def new(index, value)
-    #  lookup[[index, value]] ||= new(index, value)
-    #end
-
-    #def lookup
-    #  @lookup ||= {}
-    #end
-  end
-
-  attr_accessor :index
-  attr_accessor :value
-
-  def initialize(index, value=nil)
-    @index = index
-    @value = value
-
-    unless index.associations.include?(value)
-      index.associations << value
-    end
-  end
-
-  def <=>(assoc)
-    return -1 if self.value < assoc.value
-    return  1 if self.value > assoc.value
-    return  0 if self.value == assoc.value
-  end
-
-  def invert!
-    temp = @index
-    @index = @value
-    @value = temp
-  end
-
-  def to_s
-    return "#{index.to_s}#{value.to_s}"
-  end
-
-  def inspect
-    %{#{@index.inspect} >> #{@value.inspect}}
-  end
-
-  def to_ary
-    [ @index, @value ]
-  end
-
-  # Object extensions.
-  #
-  module Kernel
-
-    # Define an association with +self+.
-    def >>(to)
-      Association.new(self, to)
-    end
-
-    def associations
-      Association.reference[self]
-    end
-
-  end
-
-end
-
-class Object #:nodoc:
-  include Association::Kernel
-end
-
-
-#--
-# Setup the >> method in classes that use it already.
-#
-# This is a bad idea b/c it can cause backward compability issues.
-#
-# class Bignum
-#   alias_method( :rshift, :>>) if method_defined?(:>>)
-#   remove_method :>>
-# end
-#
-# class Fixnum
-#   alias_method( :rshift, :>>) if method_defined?(:>>)
-#   remove_method :>>
-# end
-#
-# class Date
-#   alias_method( :months_later, :>>) if method_defined?(:>>)
-#   remove_method :>>
-# end
-#
-# class IPAddr
-#   alias_method( :rshift, :>>) if method_defined?(:>>)
-#   remove_method :>>
-# end
-#
-# class Process::Status
-#   alias_method( :rshift, :>>) if method_defined?(:>>)
-#   remove_method :>>
-# end
-#++