facets 0.9.0 → 1.0.0

data/lib/nano/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/nano/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/nano/kernel/__meta__.rb

@@ -1,57 +0,0 @@
-
-# MetaFunctor Class provides a way to do psuedo-namspaces
-# This is useful for a number of methods, especailly __meta__.
-# This is similar to class in Mega but is included here
-# to remove dependency.
-
-class MetaFunctor
-  # remove all non-essential methods
-  EXCLUDE = /^(__|instance|null$|inspect$)/
-  class << self
-    def hide(name)
-      if method_defined?(name) and name !~ EXCLUDE
-        undef_method( name )
-      end
-    end
-  end
-  instance_methods.each { |m| hide(m) }
-
-  # primary functionality
-  def initialize(&func)
-    @func = func
-  end
-  def method_missing(op, *args)
-    @func.call(op, *args)
-  end
-
-  # prevent new methods from being added
-  class << self
-    def method_added( name )
-      hide( name )
-    end
-  end
-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__ ||= MetaFunctor.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/nano/kernel/as.rb

@@ -1,87 +0,0 @@
-
-require 'nano/kernel/meta'
-
-class Object
-
-  # 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)
-      MetaFunctor.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/nano/kernel/assign_from.rb

@@ -1,82 +0,0 @@
-require 'nano/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/nano/kernel/assign_with.rb

@@ -1,75 +0,0 @@
-require 'nano/kernel/instance_assign'
-require 'nano/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

data/lib/nano/kernel/autoreload.rb

@@ -1,46 +0,0 @@
-#--
-# Copied from Wee 0.8.0
-# Autoreload (c) 2004 Michael Neumann.
-#++
-
-module Kernel
-
-  #--
-  # TODO
-  #++
-  def autoreload(check_interval=10)
-    Thread.new(Time.now) { |start_time|
-      file_mtime = {}
-      loop {
-        sleep check_interval 
-        $LOADED_FEATURES.each { |feature|
-          $LOAD_PATH.each { |lp|
-            file = File.join(lp, feature)
-            if (File.exists?(file) and
-              File.stat(file).mtime > (file_mtime[file] || start_time))
-              file_mtime[file] = File.stat(file).mtime
-              STDERR.puts "reload #{ file }"
-              begin
-                load(file)
-              rescue Exception => e
-                STDERR.puts e.inspect
-              end
-            end
-          }
-        }
-      }
-    }
-  end
-
-end
-
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO