facets 2.5.2 → 2.6.0

data/lib/more/facets/kernel/meta.rb

@@ -1,32 +0,0 @@
-require 'facets/functor'
-
-module Kernel
-
-  # Provides access to an object's metaclass (ie. singleton)
-  # by-passsing access provisions. So for example:
-  #
-  #   class X
-  #     meta.attr_accesser :a
-  #   end
-  #
-  #   X.a = 1
-  #   X.a #=> 1
-  #
-  # The fact that some class methods are private and thus inaccessable
-  # via use of metaclass, is really a problem with them being private --which
-  # is probably not really neccessary. Short of making them public though, thiere
-  # is this method or one could use the #instance functor.
-  #
-  # TODO: Don't see any reason this can't go into core, but there is
-  # a conflict with URI prior to 1.8.6, so it will have to wait.
-  #
-  # CREDIT: Trans
-
-  def meta
-    @_meta_functor ||= Functor.new do |op,*args|
-      (class << self; self; end).send(op,*args)
-    end
-  end
-
-end
-

data/lib/more/facets/prototype.rb

@@ -1,88 +0,0 @@
-# = Prototype
-#
-# Prototype-base Object-Oriented programming.
-#
-# == Copying
-#
-# Copyright (c) 2006, 2007 Thomas Sawyer
-
-
-# = Prototype
-#
-class Prototype
-
-  # New prototype object.
-
-  def initialize(&block)
-    @traits = []
-
-    instance_eval(&block)
-
-    h = {}
-    iv = instance_variables
-    iv.each { |k| h[k[1..-1].to_sym] = instance_eval{ instance_variable_get(k) } }
-    meta.class_eval do
-      h.each do |k,v|
-        case v
-        when Proc
-          #define_method(k){ |*args| v[*args] }
-          attr_reader k
-        else
-          attr_accessor k
-        end
-      end
-    end
-  end
-
-  def fn(&blk)
-    proc(&blk)
-  end
-
-  def new(o=nil)
-    return o.clone if o
-    return clone
-  end
-
-  def meta
-   (class << self; self; end)
-  end
-
-  def traits
-    @traits
-  end
-
-  def trait(obj)
-    traits << obj.new
-  end
-
-  def method_missing(s, *a, &b)
-    if trait = traits.find{ |t| t.method_defined?(s) }
-      trait.send(s,*a,&b)
-    else
-      super
-    end
-  end
-
-end
-
-
-module Kernel
-
-  def prototype(&block)
-    Prototype.new(&block)
-  end
-
-  #private
-
-  # Synonymous with #clone, this is an interesting
-  # method in that it promotes prototype-based Ruby.
-  # Now Classes aren't the only things that respond to #new.
-  #
-  #   "ABC".new  => "ABC"
-  #
-  def new(o=nil)
-    return o.clone if o
-    return clone
-  end
-
-end

data/lib/more/facets/rwdelegator.rb

@@ -1,74 +0,0 @@
-# = RWDelegator
-#
-# WARNING Highly expiremental code!
-#
-# Read from one object and write to another.
-#
-# == 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.
-
-# = RWDelegator
-#
-# WARNING Highly expiremental code!
-#
-# Read from one object and write to another.
-#
-class RWDelegator
-
-  def initialize( write, &read )
-    @read = read
-    @write = write
-
-    # ensure other classes can deduce equality.
-    read_class = @read.call.object_class
-    unless read_class.method_defined?(:eq_with_rwdelegator?)
-      read_class.class_eval %{
-        def eq_with_rwdelegator?( other )
-          if RWDelegator === other
-            other == self
-          else
-            eq_without_rwdelegator?(other)
-          end
-        end
-        alias_method :eq_without_rwdelegator?, :==
-        alias_method :==, :eq_with_rwdelegator?
-      }
-    end
-  end
-
-  def inspect
-    "#<#{object_class} #{@read.call.inspect}>"
-  end
-
-  def ==( other )
-    @read.call == other
-  end
-
-  def method_missing( meth, *args, &blk )
-    read = @read.call
-    ditto = read.dup
-    result = ditto.send( meth, *args, &blk )
-    if ditto != read
-      result = @write.send( meth, *args, &blk )
-    end
-    result
-  end
-
-end
-
-
-