facets 0.9.0 → 1.0.0

data/lib/facet/nilclass/include.rb

@@ -1 +1,32 @@
-require 'nano/nilclass/include.rb'
+
+class NilClass
+
+  # Allows <tt>nil</tt> to respond to #include? method.
+  # Alwasy returns <tt>nil</tt>.
+  #
+  #  nil.include?("abc")   #=> nil
+  #
+  def include?(*args); nil; end
+
+end
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TCNilClass < Test::Unit::TestCase
+
+    def test_include?
+      assert_equal( nil, nil.include? )
+    end
+
+  end
+
+=end

data/lib/facet/nilclass/length.rb

@@ -1 +1,2 @@
-require 'nano/nilclass/length.rb'
+# stub
+require 'facet/nilclass/size'

data/lib/facet/nilclass/op_fetch.rb

@@ -1 +1,37 @@
-require 'nano/nilclass/op_fetch.rb'
+
+class NilClass
+
+  # Allows <tt>nil</tt> to respond to #[].
+  # Always returns nil.
+  #
+  #  nil[]   #=> nil
+  #
+  def [](*args)
+    nil
+  end
+
+end
+
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TCNilClass < Test::Unit::TestCase
+
+    def test_op_fetch
+      assert_equal( nil, nil[] )
+      assert_equal( nil, nil[1] )
+      assert_equal( nil, nil[1,2,3] )
+    end
+
+  end
+
+=end

data/lib/facet/nilclass/size.rb

@@ -1 +1,44 @@
-require 'nano/nilclass/size.rb'
+
+class NilClass
+
+  # Allows <tt>nil</tt> to respond to #size.
+  # Always returns <tt>0</tt>.
+  #
+  #  nil.size   #=> 0
+  #
+  def size; 0; end
+
+  # Allows <tt>nil</tt> to respond to #length.
+  # Always returns <tt>0</tt>.
+  #
+  #  nil.length   #=> 0
+  #
+  def length; 0; end
+
+end
+
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TC_NilClass < Test::Unit::TestCase
+
+    def test_length
+      assert_equal( 0, nil.length )
+    end
+
+    def test_size
+      assert_equal( 0, nil.size )
+    end
+
+  end
+
+=end

data/lib/facet/nilclass/to_f.rb

@@ -1 +1,32 @@
-require 'nano/nilclass/to_f.rb'
+
+class NilClass
+
+  # Returns zero float, similar to #to_i.
+  #
+  #  nil.to_f   #=> 0.0
+  #
+  def to_f; 0.0; end
+
+end
+
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TCNilClass < Test::Unit::TestCase
+
+    def test_to_f
+      assert_equal( 0.0, nil.to_f )
+    end
+
+  end
+
+=end

data/lib/facet/nilclass/to_h.rb

@@ -1 +1,33 @@
-require 'nano/nilclass/to_h.rb'
+
+class NilClass
+
+  # Allows <tt>nil</tt> to create an empty hash,
+  # similar to #to_a and #to_s.
+  #
+  #  nil.to_h    #=> {}
+  #
+  def to_h; {}; end
+
+end
+
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TCNilClass < Test::Unit::TestCase
+
+    def test_to_h
+      assert_equal( {}, nil.to_h )
+    end
+
+  end
+
+=end

data/lib/facet/numeric.rb

@@ -1 +1,5 @@
-require 'nano/numeric.rb'
+require 'nano/numeric/ceil_multiple'
+require 'nano/numeric/distance'
+require 'nano/numeric/pred'
+require 'nano/numeric/succ'
+require 'nano/numeric/to_b'

data/lib/facet/numeric/ceil_multiple.rb

@@ -1 +1,40 @@
-require 'nano/numeric/ceil_multiple.rb'
+#--
+# Credit goes to George Moschovitis
+#++
+
+class Numeric
+
+  # Returns the multiple ceil of a number.
+  def ceil_multiple(multiple)
+    # gmosx: to_f is needed!
+    # gmosx: IS THERE a more optimized way to do this?
+    return ((self.to_f/multiple).ceil*multiple)
+  end
+
+end
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TCNumeric < Test::Unit::TestCase
+
+    def test_ceil_multiple
+      assert_equal( 12.3, 12.3.ceil_multiple(0.1) )
+      assert_equal( 12.4, 12.31.ceil_multiple(0.1) )
+      assert_equal( 13, 12.3.ceil_multiple(1) )
+      assert_equal( 13, 12.31.ceil_multiple(1) )
+      assert_equal( 20, 12.3.ceil_multiple(10) )
+      assert_equal( 20, 12.31.ceil_multiple(10) )
+    end
+
+  end
+
+=end

data/lib/facet/numeric/pred.rb

@@ -1 +1,2 @@
-require 'nano/numeric/pred.rb'
+# stub
+require 'facet/numeric/succ'

data/lib/facet/numeric/succ.rb

@@ -1 +1,69 @@
-require 'nano/numeric/succ.rb'
+
+class Numeric
+
+  # Allows #succ to take _n_ increments.
+  #
+  #   3.succ(2)  #=> 5
+  #
+  def succ(n=nil)
+    n ||= 1
+    self + n
+  end
+
+  # Provides #pred as the opposite of #succ.
+  #
+  #   3.pred(2)  #=> 1
+  #
+  def pred(n=nil)
+    n ||= 1
+    self - n
+  end
+
+end
+
+
+class Integer
+
+  # This is needed to allow Integer to look back to
+  # its Numeric ancestor for the new definition of #succ.
+  #if instance_methods(false).include?( :succ )
+    remove_method( :succ )
+  #end
+
+end
+
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TCNumeric < Test::Unit::TestCase
+
+    def test_pred
+      assert_equal(  3,  4.pred )
+      assert_equal( -3, -2.pred )
+      assert_equal(  2,  4.pred(2) )
+      assert_equal( -4, -2.pred(2) )
+      assert_equal(  6,  4.pred(-2) )
+      assert_equal(  0, -2.pred(-2) )
+    end
+
+    def test_succ
+      assert_equal(  5,  4.succ )
+      assert_equal( -1, -2.succ )
+      assert_equal(  6,  4.succ(2) )
+      assert_equal(  0, -2.succ(2) )
+      assert_equal(  2,  4.succ(-2) )
+      assert_equal( -4, -2.succ(-2) )
+    end
+
+  end
+
+=end

data/lib/facet/numeric/to_b.rb

@@ -1 +1,38 @@
-require 'nano/numeric/to_b.rb'
+
+class Numeric
+
+  # Provides a boolean interpretation of self.
+  # If self == 0 then false else true.
+  #
+  #   0.to_b    #=> false
+  #   1.to_b    #=> true
+  #   2.3.to_b  #=> true
+  #
+  def to_b
+    self == 0 ? false : true
+  end
+
+end
+
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TCNumeric < Test::Unit::TestCase
+
+    def test_to_b
+      assert_equal( false, 0.to_b )
+      assert_equal( true, 1.to_b )
+    end
+
+  end
+
+=end

data/lib/facet/ostruct.rb

@@ -1 +0,0 @@
-require 'nano/ostruct.rb'

data/lib/facet/ostruct/__merge__.rb

@@ -1 +1,52 @@
-require 'nano/ostruct/__merge__.rb'
+
+require 'ostruct'
+require 'facet/ostruct/__update__'
+
+class OpenStruct
+
+  # Merge hash data creating a new OpenStruct object.
+  #
+  #   o = OpenStruct.new
+  #   o.ostruct_merge { :a => 2 }
+  #   o.a  #=> 2
+  #
+  def __merge__( other )
+    o = dup
+    o.__update__( other )
+    o
+  end
+
+end
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TC_OpenStruct < Test::Unit::TestCase
+
+    def test_merge_1
+      o = OpenStruct.new( { :a => 1 } )
+      h = { :b => 2 }
+      q = o.__merge__( h )
+      assert_equal( 1, q.a )
+      assert_equal( 2, q.b )
+    end
+
+    def test_merge_2
+      o1 = OpenStruct.new( { :a => 1 } )
+      o2 = OpenStruct.new( { :b => 2 } )
+      q = o1.__merge__( o2 )
+      assert_equal( 1, q.a )
+      assert_equal( 2, q.b )
+    end
+
+  end
+
+=end

data/lib/facet/ostruct/__table__.rb

@@ -1 +1,17 @@
-require 'nano/ostruct/__table__.rb'
+
+class OpenStruct
+  # Provides public access to the inner table.
+  def __table__
+    @table
+  end
+end
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# TODO
+

data/lib/facet/ostruct/__update__.rb

@@ -1 +1,45 @@
-require 'nano/ostruct/__update__.rb'
+
+require 'ostruct'
+require 'facet/hash/to_h'
+require 'facet/ostruct/to_h'
+
+class OpenStruct
+
+  # Insert/update hash data on the fly.
+  #
+  #   o = OpenStruct.new
+  #   o.ostruct_update { :a => 2 }
+  #   o.a  #=> 2
+  #
+  def __update__( other )
+    hash = other.to_h
+    for k,v in hash
+      @table[k.to_sym] = v
+    end
+  end
+
+end
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TCOpenStruct < Test::Unit::TestCase
+
+    def test_update
+      o = OpenStruct.new( { :a => 1 } )
+      h = { :b => 2 }
+      assert_nothing_raised { o.__update__( h ) }
+      assert_equal( 2, o.b )
+    end
+
+  end
+
+=end