facets 1.0.0 → 1.0.1

data/lib/facet/fileutils/whereis.rb

@@ -1,76 +0,0 @@
-#--
-# Credit goes to Daniel J. Berger, via PTools.
-#++
-require 'fileutils'
-
-module FileUtils
-
-  module_function
-
-  if defined?(Win32Exts)
-    Win32Exts ||= %w{.exe .com .bat}
-  else
-    Win32Exts = %w{.exe .com .bat}
-  end
-
-  # In block form, yields each ((*program*)) within ((*path*)).  In non-block
-  # form, returns an array of each ((*program*)) within ((*path*)).  Returns
-  # (({nil})) if not found.
-  #
-  # On the MS Windows platform, it looks for executables ending with .exe,
-  # .bat and .com, which you may optionally include in the program name.
-  #
-  #    File.whereis("ruby") -> ['/usr/local/bin/ruby','/opt/bin/ruby']
-  #
-  def whereis(prog, path=ENV['PATH']) #:yield:
-    dirs = []
-    path.split(File::PATH_SEPARATOR).each{|dir|
-        # Windows checks against specific extensions
-        if File::ALT_SEPARATOR
-          if prog.include?('.')
-              f = File.join(dir,prog)
-              if File.executable?(f) && !File.directory?(f)
-                if block_given?
-                    yield f.gsub(/\//,'\\')
-                else
-                    dirs << f.gsub(/\//,'\\')
-                end
-              end
-          else
-              Win32Exts.find_all{|ext|
-                f = File.join(dir,prog+ext)
-                if File.executable?(f) && !File.directory?(f)
-                    if block_given?
-                      yield f.gsub(/\//,'\\')
-                    else
-                      dirs << f.gsub(/\//,'\\')
-                    end
-                end
-              }
-          end
-        else
-          f = File.join(dir,prog)
-          # Avoid /usr/lib/ruby, for example
-          if File.executable?(f) && !File.directory?(f)
-              if block_given?
-                yield f
-              else
-                dirs << f
-              end
-          end
-        end
-    }
-    dirs.empty? ? nil : dirs
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO

data/lib/facet/fileutils/which.rb

@@ -1,117 +0,0 @@
-#--
-# Credit goes to Daniel J. Berger, via PTools.
-#++
-
-require 'fileutils'
-
-module FileUtils
-
-  module_function
-
-  if defined?(Win32Exts)
-    Win32Exts ||= %w{.exe .com .bat}
-  else
-    Win32Exts = %w{.exe .com .bat}
-  end
-
-  # Looks for the first occurrence of _program_ within _path_.
-  #
-  # On the MS Windows platform, it looks for executables ending with .exe,
-  # .bat and .com, which you may optionally include in the program name.
-  # Returns <tt>nil</tt> if not found.
-  #
-  #--
-  # The which() method was adopted from Daniel J. Berger, via PTools 
-  # which in in turn was adopted fromt the FileWhich code posted by 
-  # Michael Granger on http://www.rubygarden.org.
-  #++
-  def which(prog, path=ENV['PATH'])
-    path.split(File::PATH_SEPARATOR).each {|dir|
-      # Windows checks against specific extensions
-      if File::ALT_SEPARATOR
-        ext = Win32Exts.find{|ext|
-          if prog.include?('.') # Assume extension already included
-            f = File.join(dir,prog)
-          else
-            f = File.join(dir,prog+ext)
-          end
-          File.executable?(f) && !File.directory?(f) 
-        }
-        if ext
-          # Use backslashes, not forward slashes
-          if prog.include?('.') # Assume extension already included
-            f = File.join( dir, prog ).gsub(/\//,'\\')
-          else
-            f = File.join( dir, prog + ext ).gsub(/\//,'\\')
-          end
-          return f
-        end
-      else
-        f = File.join(dir,prog)
-        # Avoid /usr/lib/ruby, for example
-        if File.executable?(f) && !File.directory?(f)
-          return File::join( dir, prog )
-        end
-      end
-    }
-    nil
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-  require 'rbconfig'
-
-  # FIND TEST DIRECTORY
-  paths = File.expand_path(File.dirname(__FILE__)).split('/')
-  paths.size.downto(1) do |i|
-    f = (paths.slice(0..i)+['test']).join('/')
-    $TESTDIR = File.join(f,'FIXTURE') if File.directory?(f)
-  end
-  raise unless $TESTDIR
-
-  class TC_FileUtils_Which < Test::Unit::TestCase
-    include Config
-
-    def setup
-      @workdir = Dir.getwd
-      @thisdir = $TESTDIR
-
-      @expected_ruby_exe = File.join( CONFIG['bindir'], CONFIG['ruby_install_name'] )
-      if File::ALT_SEPARATOR
-          @expected_ruby_exe.gsub!(/\//,'\\')
-          @expected_ruby_exe += ".exe"
-      end
-    end
-
-    def test_method
-      assert_respond_to( FileUtils, :which )
-    end
-
-    # which
-
-    def test_which
-      Dir.chdir @thisdir
-      begin
-        ruby_exe = nil
-        assert_nothing_raised { ruby_exe = FileUtils.which(CONFIG['ruby_install_name']) }
-        assert_equal(@expected_ruby_exe, ruby_exe)
-        assert_equal(nil, FileUtils.which("blahblah"))
-      ensure
-        Dir.chdir @workdir
-      end
-    end
-
-  end
-
-=end

data/lib/facet/float.rb

@@ -1,3 +0,0 @@
-require 'nano/float/approx'
-require 'nano/float/round_at'
-require 'nano/float/round_to'

data/lib/facet/float/approx.rb

@@ -1,42 +0,0 @@
-require 'facet/float/round_to'
-
-class Float
-  # Determines if another number is approximately equal
-  # within a given _n_th degree. Defaults to 100ths
-  # if the degree is not specified.
-  def approx?( x, n=0.01 )
-    return(self == x) if n == 0
-    self.round_to(n) == x.to_f.round_to(n)
-  end
-end
-
-class Numeric
-  # To properly support Float#approx?,
-  # Numeric must also be augmented.
-  def approx?(*args)
-    self.to_f.approx?(*args)
-  end
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCFloat < Test::Unit::TestCase
-
-    def test_approx?
-      f = 10.006
-      assert( f.approx?(10.01) )
-      assert( f.approx?(10, 0.1) )
-    end
-
-  end
-
-=end

data/lib/facet/float/round_at.rb

@@ -1,72 +0,0 @@
-
-class Float
-  alias_method :round_off, :round
-
-  # Rounds to the given decimal position.
-  #
-  #   4.555.round_at(0)  #=> 5.0
-  #   4.555.round_at(1)  #=> 4.6
-  #   4.555.round_at(2)  #=> 4.56
-  #   4.555.round_at(3)  #=> 4.555
-  #
-  def round_at( d ) #d=0
-    (self * (10.0 ** d)).round_off.to_f / (10.0 ** d)
-  end
-end
-
-class Numeric
-  # To properly support Float's rounding methods,
-  # Numeric must also be augmented.
-  def round_at(*args)
-    self.to_f.round_at(*args)
-  end
-end
-
-class Integer
-  # To properly support Float's rounding methods,
-  # Integer must also be augmented.
-  def round_at(*args)
-    self.to_f.round_at(*args)
-  end
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCFloat < Test::Unit::TestCase
-
-    def setup
-      @f0 = [ 0, 10, 15, 105 ]
-      @f1 = [ 10.1, 10.01, 10.9, 10.09, 10.5, 10.05, 10.49 ]
-    end
-
-    def test_round_at_arg1
-      fr = @f0.collect{ |f| f.round_at(1) }
-      assert_equal( [0,10,15,105], fr )
-      fr = @f1.collect { |f| f.round_at(1) }
-      assert_equal( [10.1,10.0,10.9,10.1,10.5,10.1,10.5], fr )
-    end
-
-    def test_round_at_arg2
-      fr = @f0.collect { |f| f.round_at(2) }
-      assert_equal( [0,10,15,105], fr )
-      fr = @f1.collect { |f| f.round_at(2) }
-      assert_equal( [10.1,10.01,10.9,10.09,10.5,10.05,10.49], fr )
-    end
-
-    def test_round_off
-      assert_equal( 1.0, 1.2.round_off )
-      assert_equal( 2.0, 1.8.round_off )
-    end
-
-  end
-
-=end

data/lib/facet/float/round_to.rb

@@ -1,73 +0,0 @@
-
-class Float
-  alias_method :round_off, :round
-
-  # Rounds to the nearest _n_th degree.
-  #
-  #   4.555.round_to(1)     #=> 5.0
-  #   4.555.round_to(0.1)   #=> 4.6
-  #   4.555.round_to(0.01)  #=> 4.56
-  #   4.555.round_to(0)     #=> 4.555
-  #
-  def round_to( n ) #n=1
-    return self if n == 0
-    (self * (1.0 / n)).round_off.to_f / (1.0 / n)
-  end
-end
-
-class Numeric
-  # To properly support Float's rounding methods,
-  # Numeric must also be augmented.
-  def round_to(*args)
-    self.to_f.round_to(*args)
-  end
-end
-
-class Integer
-  # To properly support Float's rounding methods,
-  # Integer must also be augmented.
-  def round_to(*args)
-    self.to_f.round_to(*args)
-  end
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCFloat < Test::Unit::TestCase
-
-    def setup
-      @f0 = [ 0, 10, 15, 105 ]
-      @f1 = [ 10.1, 10.01, 10.9, 10.09, 10.5, 10.05, 10.49 ]
-    end
-
-    def test_round_to_arg1
-      fr = @f0.collect { |f| f.round_to(0.1) }
-      assert_equal( [0,10,15,105], fr )
-      fr = @f1.collect { |f| f.round_to(0.1) }
-      assert_equal( [10.1,10.0,10.9,10.1,10.5,10.1,10.5], fr )
-    end
-
-    def test_round_to_arg10
-      fr = @f0.collect { |f| f.round_to(10) }
-      assert_equal( [0,10,20,110], fr )
-      fr = @f1.collect { |f| f.round_to(10) }
-      assert_equal( [10,10,10,10,10,10,10], fr )
-    end
-
-    def test_round_off
-      assert_equal( 1.0, 1.2.round_off )
-      assert_equal( 2.0, 1.8.round_off )
-    end
-
-  end
-
-=end

data/lib/facet/hash.rb

@@ -1,40 +0,0 @@
-require 'nano/hash/alias'
-require 'nano/hash/assert_has_keys'
-require 'nano/hash/assert_has_only_keys'
-require 'nano/hash/at'
-require 'nano/hash/collate'
-require 'nano/hash/delete_unless'
-require 'nano/hash/each'
-require 'nano/hash/each_with_index'
-require 'nano/hash/each_with_key'
-require 'nano/hash/graph'
-require 'nano/hash/has_keys'
-require 'nano/hash/has_only_keys'
-require 'nano/hash/inverse'
-require 'nano/hash/join'
-require 'nano/hash/keys_to_iv'
-require 'nano/hash/keys_to_s'
-require 'nano/hash/keys_to_sym'
-require 'nano/hash/op_fetch'
-require 'nano/hash/op_lshift'
-require 'nano/hash/op_store'
-require 'nano/hash/rand_key'
-require 'nano/hash/rand_pair'
-require 'nano/hash/rand_value'
-require 'nano/hash/replace_each'
-require 'nano/hash/self/zipnew'
-require 'nano/hash/shuffle'
-require 'nano/hash/slice'
-require 'nano/hash/stringify_keys'
-require 'nano/hash/swap'
-require 'nano/hash/swapkey'
-require 'nano/hash/symoblize_keys'
-require 'nano/hash/to_h'
-require 'nano/hash/to_ostruct'
-require 'nano/hash/to_ostruct_recurse'
-require 'nano/hash/traverse'
-require 'nano/hash/update_each'
-require 'nano/hash/update_keys'
-require 'nano/hash/update_values'
-require 'nano/hash/variablize_keys'
-require 'nano/hash/weave'

data/lib/facet/hash/alias.rb

@@ -1,54 +0,0 @@
-#--
-# Credit goes to Gavin Sinclair.
-#++
-class Hash
-
-  # Modifies the receiving Hash so that the value previously referred to by 
-  # _oldkey_ is also referenced by _newkey_; _oldkey_ is retained in the Hash.
-  # If _oldkey_ does not exist as a key in the Hash, no change is effected.
-  #
-  # Returns a reference to the Hash.
-  #
-  #   foo = { :name=>'Gavin', 'wife'=>:Lisa }
-  #   foo.alias!('name',:name)     => { :name=>'Gavin', 'name'=>'Gavin', 'wife'=>:Lisa }
-  #
-  #   foo = { :name=>'Gavin', 'wife'=>:Lisa }
-  #   foo.alias!('spouse','wife')  => { :name=>'Gavin', 'wife'=>:Lisa, 'spouse'=>:Lisa }
-  #
-  #   foo = { :name=>'Gavin', 'wife'=>:Lisa }
-  #   foo.alias!('bar','foo')      => { :name=>'Gavin', 'wife'=>:Lisa }
-  #
-  # Note that if the _oldkey_ is reassigned, the reference will no longer exist,
-  # and the _newkey_ will remain as it was.
-  def alias!( newkey, oldkey )
-    self[newkey] = self[oldkey] if self.has_key?(oldkey)
-    self
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCHash < Test::Unit::TestCase
-
-    def test_alias!
-      foo = { 'a'=>1, 'b'=>2 }
-      assert_equal( { 'a'=>1, 'b'=>2, 'c'=>2 }, foo.alias!('c','b') )
-      foo = { 'a'=>1, 'b'=>2 }
-      assert_equal( { :a=>1, 'a'=>1, 'b'=>2 }, foo.alias!(:a,'a') )
-      foo = { :a=>1, :b=>2 }
-      assert_equal( { :a=>1, :b=>2 }, foo.alias!('bar','foo') )
-    end
-
-  end
-
-=end