facets 1.0.0 → 1.0.1

data/lib/facet/ostruct/__table__.rb

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

data/lib/facet/ostruct/__update__.rb

@@ -1,45 +0,0 @@
-
-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

data/lib/facet/ostruct/op_fetch.rb

@@ -1,40 +0,0 @@
-
-require 'ostruct'
-
-class OpenStruct
-
-  # Access a value in the OpenStruct by key, like a Hash.
-  # This increases OpenStruct's "duckiness".
-  #
-  #   o = OpenStruct.new
-  #   o.t = 4
-  #   o['t']  #=> 4 
-  #
-  def [](key)
-    key = key.to_sym unless key.is_a?(Symbol)
-    @table[key]
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCOpenStruct < Test::Unit::TestCase
-
-    def test_op_fetch
-      o = OpenStruct.new( { :a => 1 } )
-      assert_equal( 1, o[:a] )
-    end
-
-  end
-
-=end

data/lib/facet/ostruct/op_store.rb

@@ -1,42 +0,0 @@
-
-require 'ostruct'
-
-class OpenStruct
-
-  # Set a value in the OpenStruct by key, like a Hash.
-  #
-  #   o = OpenStruct.new
-  #   o['t'] = 4
-  #   o.t  #=> 4 
-  #
-  def []=(key,val)
-    raise TypeError, "can't modify frozen #{self.class}", caller(1) if self.frozen?
-    key = key.to_sym unless key.is_a?(Symbol)
-    @table[key]=val
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCOpenStruct < Test::Unit::TestCase
-
-    def test_op_store
-      o = OpenStruct.new( { :a => 1 } )
-      assert_nothing_raised { o[:b] = 2 }
-      assert_equal( 2, o.b )
-    end
-
-  end
-
-=end

data/lib/facet/ostruct/to_h.rb

@@ -1,8 +0,0 @@
-
-class OpenStruct
-
-  def to_h
-    @table
-  end
-
-end

data/lib/facet/pathname.rb

@@ -1,2 +0,0 @@
-require 'nano/pathname/ascend'
-require 'nano/pathname/descend'

data/lib/facet/pathname/ascend.rb

@@ -1,22 +0,0 @@
-require 'pathname'
-
-class Pathname
-
-  # Already included in 1.8.4+ version of Ruby
-  if not instance_methods.include?(:ascend)
-
-    # Calls the _block_ for every successive parent directory of the
-    # directory path until the root (absolute path) or +.+ (relative path)
-    # is reached.
-    def ascend(inclusive=false,&block) # :yield:
-      cur_dir = self
-      yield( cur_dir.cleanpath ) if inclusive
-      until cur_dir.root? or cur_dir == Pathname.new(".")
-        cur_dir = cur_dir.parent
-        yield cur_dir
-      end
-    end
-
-  end
-
-end

data/lib/facet/pathname/descend.rb

@@ -1,20 +0,0 @@
-require 'pathname'
-
-class Pathname
-
-  # Already included in 1.8.4+ version of Ruby
-  if ! instance_methods.include?(:descend)
-
-    # Calls the _block_ for every successive subdirectory of the
-    # directory path from the root (absolute path) unitl +.+
-    # (relative path) is reached.
-    def descend()
-      @path.scan(%r{[^/]*/?})[0...-1].inject('') do |path, dir|
-        yield Pathname.new(path << dir)
-      path
-      end
-    end
-
-  end
-
-end

data/lib/facet/proc.rb

@@ -1,3 +0,0 @@
-require 'nano/proc/compose'
-require 'nano/proc/op_mul'
-require 'nano/proc/to_method'

data/lib/facet/proc/compose.rb

@@ -1,62 +0,0 @@
-#--
-# Thanks dave!
-#++
-class Proc
-
-  # Returns a new proc that is the functional
-  # compostion of two procs, in order.
-  #
-  #  a = lambda { |x| x + 4 }
-  #  b = lambda { |y| y / 2 }
-  #
-  #  a.compose(b).call(4)  #=> 6
-  #  b.compase(a).call(4)  #=> 4
-  #
-  def compose(other)
-    raise ArgumentError, "arity count mismatch" unless arity == other.arity
-    #proc{ |*a| self.call(other.call(*a)) }
-    proc{ |*a| self.call(*other.call(*a)) }
-  end
-
-  # Operator for compose.
-  #
-  #  a = lambda { |x| x + 4 }
-  #  b = lambda { |y| y / 2 }
-  #
-  #  (a * b).call(4)  #=> 6
-  #  (b * a).call(4)  #=> 4
-  #
-  alias_method( :*, :compose )
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCProc < Test::Unit::TestCase
-
-    def test_compose
-      a = lambda { |x| x + 4 }
-      b = lambda { |y| y / 2 }
-      assert_equal( 6, (a.compose(b)).call(4) )
-      assert_equal( 4, (b.compose(a)).call(4) )
-    end
-
-    def test_compose_op
-      a = lambda { |x| x + 4 }
-      b = lambda { |y| y / 2 }
-      assert_equal( 6, (a * b).call(4) )
-      assert_equal( 4, (b * a).call(4) )
-    end
-
-  end
-
-=end

data/lib/facet/proc/op_mul.rb

@@ -1,2 +0,0 @@
-# stub
-require 'facet/proc/compose'

data/lib/facet/proc/to_method.rb

@@ -1,74 +0,0 @@
-
-#--
-# Credit for #to_method goes to Forian Gross (flgr).
-#--
-
-require 'thread'
-
-class Proc
-
-  MethodMutexes = Hash.new do |hash, key|
-    hash[key] = Mutex.new
-  end
-
-  # Creates a local method based on a Proc.
-  def to_method(name=nil)
-    name ||= "!to_method_temp#{self.id}"
-    recv = eval("self", self)
-    klass = recv.class
-    MethodMutexes[klass => name].synchronize do
-      begin
-        klass.send(:define_method, name, &self)
-        return recv.method(name)
-      ensure
-        klass.send(:remove_method, name) if not name
-      end
-    end
-  end
-
-end
-
-=begin
-  # Alternate. I assume this is less "safe" then the above.
-  def to_method
-      # get the object that this proc is bound to
-    obj = eval 'self', self.binding
-      # get the virtual class for the object
-    obj_class = class << obj; self; end
-    proc = self
-      # define the method. A normally invalid method name was chosen to minimize
-      # the chance of a collision. Store the newly created method away.
-    obj_class.instance_eval{define_method(:" ", &proc)}
-    method = obj.method(:" ")
-      # remove the method, and return it.
-    obj_class.instance_eval{remove_method(:" ")}
-    method
-  end
-=end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCProc < Test::Unit::TestCase
-
-    def test_to_method
-      a = 2
-      tproc = proc { |x| x + a }  
-      tmethod = tproc.to_method(:tryit)
-      assert_equal( 3, tmethod.call(1) )
-      assert_respond_to( self, :tryit )
-      assert_equal( 3, tryit(1) )
-    end
-
-  end
-
-=end

data/lib/facet/range.rb

@@ -1,4 +0,0 @@
-require 'nano/range/to_r'
-require 'nano/range/to_range'
-require 'nano/range/umbrella'
-require 'nano/range/within'

data/lib/facet/range/to_r.rb

@@ -1,32 +0,0 @@
-class Range
-
-  # A thing really should know itself.
-  # This simply returns _self_.
-  def to_r
-    self
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCRange < Test::Unit::TestCase
-
-    def test_to_r
-      a = (0..10)
-      assert_equal( a, a.to_r )
-    end
-
-  end
-
-=end

data/lib/facet/range/to_range.rb

@@ -1,36 +0,0 @@
-class Range
-
-  # A thing really should know itself.
-  # This simply returns _self_.
-  #
-  # Note: This does not internally effect the Ruby
-  # interpretor such that it can coerce Range-like
-  # objects into a Range.
-  def to_range
-    self
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCRange < Test::Unit::TestCase
-
-    def test_to_range
-      a = (0..10)
-      assert_equal( a, a.to_range )
-    end
-
-  end
-
-=end

data/lib/facet/range/umbrella.rb

@@ -1,67 +0,0 @@
-class Range
-
-  # Returns a two element array of the relationship
-  # between two Ranges.
-  #
-  # Diagram:
-  #
-  #     Relationship     Returns
-  #
-  #   self |-----------|
-  #   r    |-----------|    [0,0]
-  #
-  #   self |-----------|
-  #   r     |---------|     [-1,-1]
-  #
-  #   self  |---------|
-  #   r    |-----------|    [1,1]
-  #
-  #   self |-----------|
-  #   r     |----------|    [-1,0]
-  #
-  #   self |-----------|
-  #   r     |-----------|   [-1,1]
-  #
-  #   etc.
-  #
-  # Example:
-  #
-  #   (0..3).umbrella(1..2)  #=>  [-1,-1]
-  #
-  def umbrella(r)
-    s = self.first <=> r.first
-    e = r.last <=> self.last
-    return s,e
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCRange < Test::Unit::TestCase
-
-    def test_umbrella
-      assert_equal( [1,1], (3..6).umbrella(2..7) )
-      assert_equal( [0,1], (3..6).umbrella(3..7) )
-      assert_equal( [-1,1], (3..6).umbrella(4..7) )
-      assert_equal( [1,0], (3..6).umbrella(2..6) )
-      assert_equal( [0,0], (3..6).umbrella(3..6) )
-      assert_equal( [-1,0], (3..6).umbrella(4..6) )
-      assert_equal( [1,-1], (3..6).umbrella(2..5) )
-      assert_equal( [0,-1], (3..6).umbrella(3..5) )
-      assert_equal( [-1,-1], (3..6).umbrella(4..5) )
-    end
-
-  end
-
-=end