facets 1.0.0 → 1.0.1

data/lib/facet/integer/times_collect.rb

@@ -1,39 +0,0 @@
-
-class Integer
-
-  # Like #times but returns a collection of the yield results.
-  #
-  #   a = 3.times_collect { |i| "#{i+1}" }
-  #   a => [ "1", "2", "3" ]
-  #
-  def times_collect(&yld)
-    a = []; self.times{ |i| a << yld.call(i) }
-    a
-  end
-
-  alias_method :times_map, :times_collect
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCInteger < Test::Unit::TestCase
-
-    def test_times_collect
-      a = 4
-      b = a.times_collect{ |i| i*2 }
-      assert_equal( [0,2,4,6], b )
-    end
-
-  end
-
-=end

data/lib/facet/integer/times_map.rb

@@ -1,2 +0,0 @@
-# stub
-require 'facet/integer/times_collect.rb'

data/lib/facet/kernel.rb

@@ -1,65 +0,0 @@
-require 'nano/kernel/__class__'
-require 'nano/kernel/__meta__'
-require 'nano/kernel/as'
-require 'nano/kernel/assign_from'
-require 'nano/kernel/assign_with'
-require 'nano/kernel/autoreload'
-require 'nano/kernel/autoreload_glob'
-require 'nano/kernel/bool'
-require 'nano/kernel/bug'
-require 'nano/kernel/call_stack'
-require 'nano/kernel/called'
-require 'nano/kernel/complete'
-require 'nano/kernel/constant'
-require 'nano/kernel/copy'
-require 'nano/kernel/deep_copy'
-require 'nano/kernel/demo'
-require 'nano/kernel/eigenclass'
-require 'nano/kernel/false'
-require 'nano/kernel/fn'
-require 'nano/kernel/generate_method_name'
-require 'nano/kernel/get_by_id'
-require 'nano/kernel/here'
-require 'nano/kernel/in'
-require 'nano/kernel/instance_assign'
-require 'nano/kernel/instvar'
-require 'nano/kernel/is'
-require 'nano/kernel/maybe'
-require 'nano/kernel/me'
-require 'nano/kernel/meta'
-require 'nano/kernel/metaclass'
-require 'nano/kernel/method'
-require 'nano/kernel/method_name'
-require 'nano/kernel/methods'
-require 'nano/kernel/nack'
-require 'nano/kernel/new'
-require 'nano/kernel/object_class'
-require 'nano/kernel/object_hexid'
-require 'nano/kernel/op_esc'
-require 'nano/kernel/own'
-require 'nano/kernel/p'
-require 'nano/kernel/require_all'
-require 'nano/kernel/require_esc'
-require 'nano/kernel/require_facet'
-require 'nano/kernel/require_local'
-require 'nano/kernel/resc'
-require 'nano/kernel/returning'
-require 'nano/kernel/send_as'
-require 'nano/kernel/set_from'
-require 'nano/kernel/set_with'
-require 'nano/kernel/silence_warnings'
-require 'nano/kernel/silently'
-require 'nano/kernel/singleton'
-require 'nano/kernel/superior'
-require 'nano/kernel/supermethod'
-require 'nano/kernel/this'
-require 'nano/kernel/to_b'
-require 'nano/kernel/to_bool'
-require 'nano/kernel/true'
-require 'nano/kernel/unuri'
-require 'nano/kernel/uri'
-require 'nano/kernel/val'
-require 'nano/kernel/warn_with_line'
-require 'nano/kernel/with_accessor'
-require 'nano/kernel/with_reader'
-require 'nano/kernel/with_writer'

data/lib/facet/kernel/__DIR__.rb

@@ -1,11 +0,0 @@
-
-module Kernel
-
-  # Similar to __FILE__ and __LINE__, __DIR__ provides 
-  # the directory path to the current executing script.
-
-  def __DIR__
-    (/^(.+)?:\d+/ =~ caller[0]) ? File.dirname($1) : nil
-  end
-
-end

data/lib/facet/kernel/__class__.rb

@@ -1,31 +0,0 @@
-
-class Object
-
-  # Defines core method __class__ as an alias of class.
-  # This allows you to use #class as your own method, without
-  # loosing the ability to determine the object's class.
-  #
-  alias_method( :__class__, :class )
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test__class__
-      assert_equal( self.class, self.__class__ )
-    end
-
-  end
-
-=end

data/lib/facet/kernel/__meta__.rb

@@ -1,28 +0,0 @@
-begin
-  require 'calibre/functor'
-rescue LoadError
-  require 'facets/support/functor'
-end
-
-class Object
-
-  # Returns a Functor that allows one to call any
-  # Kernel method bound to self.
-  #
-  #   class A
-  #     def object_id ; "OBTUSE" ; end
-  #   end
-  #
-  #   c = C.new
-  #   c.object_id             #=> "OBTUSE"
-  #   c.__meta__.object_id    #=> 6664875832
-  #
-  def __meta__
-    @__meta__ ||= Functor.new do |meth, *args|  # &blk|
-      Kernel.instance_method(meth).bind(self).call(*args) # ,&blk)
-    end
-  end
-
-  alias_method :meta, :__meta__  # should this even be available?
-
-end

data/lib/facet/kernel/adhoc.rb

@@ -1,11 +0,0 @@
-
-#
-# It is what it is.
-#
-#                       -- transonoma
-
-module Kernel
-  def adhoc
-    (class << self; self; end)
-  end
-end

data/lib/facet/kernel/as.rb

@@ -1,91 +0,0 @@
-
-begin
-  require 'calibre/functor.rb'
-rescue LoadError
-  require 'facet/functor.rb'
-end
-
-module Kernel
-
-  # Returns a Functor that allows one to call any parent method directly.
-  #
-  #   class A
-  #     def x ; 1 ; end
-  #   end
-  #
-  #   class B < A
-  #     def x ; 2 ; end
-  #   end
-  #
-  #   class C < B
-  #     def x ; as(A).x ; end
-  #   end
-  #
-  #   C.new.x  #=> 1
-  #
-  def as( klass=nil, &blk )
-    selfclass = Kernel.instance_method(:class).bind(self).call
-    klass ||= selfclass.superclass
-    if selfclass.ancestors.include?(klass)
-      Functor.new do |meth, *args|  # &blk|
-        klass.instance_method(meth).bind(self).call(*args) # ,&blk)
-      end
-    else
-      raise ArgumentError, "#{klass} is not an ancestor"
-    end
-  end
-
-=begin
-  def as( role, &blk )
-    unless role.is_a?(Class)
-      role = self.class.const_get( role )
-    end
-    @roles ||= {}
-    @roles[role] ||= role.allocate
-    robj = @roles[role]
-    robj.assign_from( self )
-    result = robj.instance_eval( &blk )
-    self.assign_from( robj )  # w/o this much like namespaces
-    result
-  end
-=end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-    class A
-      def x; "A.x"; end
-      def y; "A.y"; end
-    end
-    class B < A
-      def x; "B.x" end
-      def y; "B.y" end
-    end
-    class C < B
-      def x; "C.x"; end
-      def y; as.x ; end
-    end
-
-    def setup
-      @c = C.new
-    end
-
-    def test_as
-      assert_equal("B.x", @c.y)
-      assert_equal("C.x", @c.x)
-    end
-  end
-
-=end

data/lib/facet/kernel/assign_from.rb

@@ -1,82 +0,0 @@
-require 'facet/kernel/assign_with'
-
-class Object
-
-  # Set instance vars using another object.
-  #
-  #   class O
-  #     attr_accessor :d
-  #     def initialize( a, b, c, d)
-  #       @a = a
-  #       @b = b
-  #       @c = c
-  #       @d = d
-  #     end
-  #   end
-  #   o1 = O.new(1,2,3,4)
-  #   o2 = O.new(0,0,0,0)
-  #
-  #   o2.assign_from( o1, '@a', '@b', '@c', '@d' )
-  #   o2.instance_eval{ @a }  #=> 1
-  #   o2.instance_eval{ @b }  #=> 2
-  #   o2.instance_eval{ @c }  #=> 3
-  #   o2.instance_eval{ @d }  #=> 4
-  #
-  # See also #assign_with.
-  #
-  def assign_from(obj, *fields)
-    force = false
-    case fields.last
-    when true, false, nil
-      force = fields.pop
-    end
-
-    unless fields.empty?
-      fields.each do |k|
-        var = k.to_s
-        var = var.slice(0,1) == '@' ? var : "@#{var}"
-        if obj.instance_variables.include?(var)
-          self.instance_variable_set( var, obj.instance_variable_get(var) )
-        end
-      end
-    else
-      if force
-        fields = obj.instance_variables
-      else
-        fields = instance_variables | obj.instance_variables
-      end
-      fields.each do |var|
-        instance_variable_set( var, obj.instance_variable_get(var) )
-      end
-    end
-    return
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_assign_from
-      o = Object.new
-      o.instance_eval{ @z=0; @a=1; @b=2 } #; @@a=3 }
-      assign_from( o, "z", "@a", "@b" ) #, "@@a" )
-      assert_equal( 1, @a )
-      assert_equal( 2, @b )
-      #assert_equal( 3, @@a )
-    end
-
-  end
-
-=end

data/lib/facet/kernel/assign_with.rb

@@ -1,75 +0,0 @@
-require 'facet/kernel/instance_assign'
-require 'facet/kernel/assign_from'
-
-class Object
-
-  # Set setter methods and/or vars using a hash (or assoc array).
-  # #assign_with is a meta-programming method, which allows you to
-  # use a hash to do any kind of variable assignment and/or setting:
-  #
-  # For example, assuming that there is an accessor defined as <tt>d</tt>:
-  #
-  #   assign_with( '@a'=>1, '@@b'=>2, '$c'=>3, 'd'=>4 )
-  #   @a   #=> 1
-  #   @@b  #=> 2
-  #   $c   #=> 3
-  #   d    #=> 4
-  #
-  # Note that while the global variable is strictly unnecessary,
-  # it works for completeness sake.
-  #
-  # NOTE This proabably should be called instance_assign_with given
-  # it's nature. We'll consider that in the future.
-  #
-  def assign_with(*args)
-    harg = args.last.is_a?(Hash) ? args.pop : {}
-
-    unless args.empty?
-      # if not assoc array, eg. [ [], [], ... ]
-      # preserves order of opertation
-      unless args[0].is_a?(Array)
-        i = 0; a = []
-        while i < args.size
-          a << [ args[i], args[i+1] ]
-          i += 2
-        end
-        args = a
-      end
-    end
-
-    args.each do |k,v|
-      instance_assign( k, v )
-    end
-
-    harg.each do |k,v|
-      instance_assign( k, v )
-    end
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_assign_with
-      ahash = { "z"=>0, "@a"=>1, "@b"=>2 } #, "@@a"=>3 }
-      assign_with( ahash )
-      assert_equal( 0, @z )
-      assert_equal( 1, @a )
-      assert_equal( 2, @b )
-      #assert_equal( 3, @@a )
-    end
-
-  end
-
-=end