facets 1.0.3 → 1.1.0

data/packages/core/lib/facet/array.rb

@@ -1,33 +0,0 @@
-require 'facet/array/at_rand'
-require 'facet/array/body'
-require 'facet/array/delete_unless'
-require 'facet/array/delete_values'
-require 'facet/array/delete_values_at'
-require 'facet/array/each_with_key'
-require 'facet/array/first'
-require 'facet/array/foot'
-require 'facet/array/head'
-require 'facet/array/last'
-require 'facet/array/last_index'
-require 'facet/array/merge'
-require 'facet/array/mid'
-require 'facet/array/middle'
-require 'facet/array/op_fetch'
-require 'facet/array/op_store'
-require 'facet/array/pick'
-require 'facet/array/pos'
-require 'facet/array/pull'
-require 'facet/array/rand_index'
-require 'facet/array/rand_subset'
-require 'facet/array/range'
-require 'facet/array/rotate'
-require 'facet/array/select'
-require 'facet/array/shuffle'
-require 'facet/array/slap'
-require 'facet/array/store'
-require 'facet/array/tail'
-require 'facet/array/thru'
-require 'facet/array/to_b'
-require 'facet/array/to_h'
-require 'facet/array/to_hash'
-require 'facet/array/unzip'

data/packages/core/lib/facet/class.rb

@@ -1,5 +0,0 @@
-require 'facet/class/by_name'
-require 'facet/class/descendents'
-require 'facet/class/remove_descendents'
-require 'facet/class/remove_subclasses'
-require 'facet/class/subclasses'

data/packages/core/lib/facet/class/unix_path.rb

@@ -1,32 +0,0 @@
-
-class Class
-
-  # Converts a class name to a unix path
-  #   
-  #   My::ClassName.unix_path => "/my/class_name"
-  #
-  def unix_path # inspired by facet/string/underscore
-    '/' + name.gsub(/([A-Z]+)([A-Z])/,'\1_\2').gsub(/([a-z])([A-Z])/,'\1_\2').gsub('::','/').downcase
-  end
-end
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCClass < Test::Unit::TestCase
-
-    def test_method_name
-      assert_equal( Test::Unit::TestCase.method_name, '/test/unit/test_case' )
-    end
-
-  end
-
-=end
-                                 

data/packages/core/lib/facet/enumerable.rb

@@ -1,38 +0,0 @@
-require 'facet/enumerable/collect_with_counter'
-require 'facet/enumerable/collect_with_index'
-require 'facet/enumerable/commonality'
-require 'facet/enumerable/compact_collect'
-require 'facet/enumerable/compact_map'
-require 'facet/enumerable/cross'
-require 'facet/enumerable/each_by'
-require 'facet/enumerable/each_combination'
-require 'facet/enumerable/each_pair'
-require 'facet/enumerable/each_permutation'
-require 'facet/enumerable/each_slice'
-require 'facet/enumerable/each_unique_pair'
-require 'facet/enumerable/each_with_counter'
-require 'facet/enumerable/elementwise'
-require 'facet/enumerable/entropy'
-require 'facet/enumerable/every'
-require 'facet/enumerable/ew'
-require 'facet/enumerable/filter_collect'
-require 'facet/enumerable/filter_map'
-require 'facet/enumerable/find_collisions'
-require 'facet/enumerable/frequency'
-require 'facet/enumerable/graph'
-require 'facet/enumerable/ideal_entropy'
-require 'facet/enumerable/map_with_counter'
-require 'facet/enumerable/map_with_index'
-require 'facet/enumerable/none'
-require 'facet/enumerable/nonuniq'
-require 'facet/enumerable/occur'
-require 'facet/enumerable/one'
-require 'facet/enumerable/op_pow'
-require 'facet/enumerable/partition_by'
-require 'facet/enumerable/probability'
-require 'facet/enumerable/project'
-require 'facet/enumerable/self/combinations'
-require 'facet/enumerable/self/cross'
-require 'facet/enumerable/to_h'
-require 'facet/enumerable/uniq_by'
-require 'facet/enumerable/where'

data/packages/core/lib/facet/enumerable/project.rb

@@ -1,11 +0,0 @@
-#--
-# :credit: Sean O'Halpin
-#++
-
-module Enumerable
-
-  def project(&block)
-    self.map{|x| x.instance_eval(&block) }
-  end
-
-end

data/packages/core/lib/facet/enumerable/where.rb

@@ -1,12 +0,0 @@
-#--
-# :credit: Sean O'Halpin
-#++
-
-module Enumerable
-
-  def where(&block)
-    self.select{|x| x.instance_eval(&block) }
-  end
-
-end
-

data/packages/core/lib/facet/integer.rb

@@ -1,8 +0,0 @@
-require 'facet/integer/even'
-require 'facet/integer/fact'
-require 'facet/integer/factorial'
-require 'facet/integer/multiple'
-require 'facet/integer/odd'
-require 'facet/integer/ordinal'
-require 'facet/integer/times_collect'
-require 'facet/integer/times_map'

data/packages/core/lib/facet/kernel.rb

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

data/packages/core/lib/facet/kernel/generate_method_name.rb

@@ -1,39 +0,0 @@
-
-module Kernel
-
-  # Generates a new symbol that is unique among the
-  # method names of the object. If a name argument
-  # is given, it will generate a similar name.
-  #
-  #   Class.generate_method_name( :class ) => :_clast_
-  #
-  def generate_method_name( name='a' )
-    s = name.to_s
-    while self.respond_to?( "_#{s}_" )
-      s = s.succ
-    end
-    return :"_#{s}_"
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_generate_method_name
-      assert_equal( :_foo_, @t.generate_method_name( :foo ) )
-    end
-
-  end
-
-=end

data/packages/core/lib/facet/module/attr.rb

@@ -1,23 +0,0 @@
-
-class Module
-
-  # These a school of thought that says an attribute
-  # show always have a reader and a writer.
-  #
-  def attr(*args)
-    args.pop unless args.last.is_a?(Symbol) or args.last.is_a?(String)
-    attr_accessor *args
-    args.collect{ |a| [ :"#{a}", :"#{a}=" ] }.flatten
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO

data/packages/core/lib/facet/module/attr_setter.rb

@@ -1,48 +0,0 @@
-#--
-# :TODO: Perhaps need to make a check against overriding Megas annotated version.
-#++
-
-class Module
-
-  # Create an attribute method for both getting
-  # and setting an instance variable.
-  #
-  #   attr_setter :a
-  #
-  # _is equivalent to_
-  #
-  #   def a(*args)
-  #     if args.size > 0
-  #       @a = args[0]
-  #       self
-  #     else
-  #       @a
-  #     end
-  #   end
-  #
-  def attr_setter(*args)
-
-    make = {}
-    args.each { |a|
-      make[:"#{a}"] = %{
-        def #{a}(*args)
-          args.size > 0 ? ( @#{a}=args[0] ; self ) : @#{a}
-        end
-      }
-    }
-    module_eval( make.values.join("\n") )
-
-    return make.keys
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO

data/packages/core/lib/facet/module/attr_tester.rb

@@ -1,56 +0,0 @@
-require 'facet/kernel/nack'
-
-class Module
-
-  # Create an tester attribute. This creates two methods for
-  # each given variable name. One is used to test
-  # the attribute and the other is used to set or toggle it.
-  #
-  #   attr_switch :a
-  #
-  # is equivalent to
-  #
-  #   def a?
-  #     @a ? true : @a
-  #   end
-  #
-  #   def a!(switch=nack)
-  #     if switch == nack
-  #       @a = ! @a
-  #     else
-  #       @a = @a ? switch : @a
-  #       self
-  #     end
-  #   end
-  #
-  def attr_tester(*args)
-    make = {}
-    args.each { |a|
-      make[:"#{a}?"] = %{ def #{a}?; @#{a} ? true : @#{a}; end }
-      make[:"#{a}!"] = %{
-        def #{a}!(switch=nack)
-          if switch==nack
-            @#{a} = !@#{a}
-          else
-            @#{a} = @#{a} ? switch : @#{a}
-            self
-          end
-        end
-      }
-    }
-    module_eval make.values.join("\n")
-
-    return make.keys
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO

data/packages/core/lib/facet/module/generate_instance_method_name.rb

@@ -1,47 +0,0 @@
-
-class Module
-
-  # Generates a new symbol that is unique among the
-  # inctance methods of the class/module. If a name
-  # argument is given, it will generate a similar name.
-  #
-  #   Class.generate_instance_method_name( :class ) => :_clast_
-  #
-  def generate_instance_method_name( name='a' )
-    s = name.to_s
-    while self.method_defined?( "_#{s}_" )
-      s = s.succ
-    end
-    return :"_#{s}_"
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCModule < Test::Unit::TestCase
-
-    class MockObject
-      def a ; end
-      def b ; end
-      def c ; end
-      def _c ; end
-    end
-
-    def test_generate_instance_method_name
-      assert_nothing_raised { MockObject.generate_instance_method_name(:b) }
-    end
-
-  end
-
-=end

data/packages/core/lib/facet/module/initializer.rb

@@ -1,65 +0,0 @@
-
-class Module
-
-  # Automatically create an initializer assigning the given 
-  # arguments.
-  #
-  #   class MyClass
-  #     initializer(:a, "b", :c)
-  #   end
-  #
-  # _is equivalent to_
-  #
-  #   class MyClass
-  #     def initialize(a, b, c)
-  #       @a,@b,@c = a,b,c
-  #     end
-  #   end
-  #
-  # Downside: Initializers defined like this can't take blocks.
-  # This can be fixed when Ruby 1.9 is out.
-  #
-  # The initializer will not raise an Exception when the user
-  # does not supply a value for each instance variable. In that
-  # case it will just set the instance variable to nil. You can
-  # assign default values or raise an Exception in the block.
-  #
-  def initializer(*attributes, &block)
-    define_method(:initialize) do |*args|
-      attributes.zip(args) do |sym, value|
-        instance_variable_set(:"@#{sym}", value)
-      end
-
-      instance_eval(&block) if block
-    end
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCModule < Test::Unit::TestCase
-
-    def test_attr_initializer
-      cc = Class.new
-      cc.class_eval {
-        initializer :ai
-        attr_reader :ai
-      }
-      c = cc.new(10)
-      assert_equal( 10, c.ai )
-    end
-
-  end
-
-=end