mack-facets 0.8.1 → 0.8.2

data/lib/gems/facets-2.4.5/lib/core/facets/enumerable/sum.rb

@@ -0,0 +1,16 @@
+module Enumerable
+
+  # Uses #+ to sum the enumerated elements.
+  #
+  #   [1,2,3].sum  #=> 6
+  #   [3,3,3].sum  #=> 9
+
+  def sum(identity = 0, &block)
+    if block_given?
+      map(&block).sum
+    else
+      inject{ |sum, element| sum + element } || identity
+    end
+  end
+
+end

data/lib/gems/facets-2.4.5/lib/core/facets/enumerable/uniq_by.rb

@@ -0,0 +1,18 @@
+module Enumerable
+
+  # Like #uniq, but determines uniqueness based on a given block.
+  #
+  #   (-5..5).to_a.uniq_by {|i| i*i }
+  #
+  # produces
+  #
+  #   [-5, -4, -3, -2, -1, 0]
+  #
+  #   CREDIT: ?
+
+  def uniq_by #:yield:
+    h = {}; inject([]) {|a,x| h[yield(x)] ||= a << x}
+  end
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/exception.rb

@@ -0,0 +1,6 @@
+dir, base = *File.split(__FILE__)
+base = base.chomp('.rb')
+Dir[File.join(dir, base, '*')].each do |lib|
+  require "facets/#{base}/#{File.basename(lib)}"
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/exception/detail.rb

@@ -0,0 +1,19 @@
+class Exception
+
+  # Pretty string output of exception/error
+  # object useful for helpful debug messages.
+  #
+  # Input:
+  # The Exception/StandardError object
+  #
+  # Output:
+  # The pretty printed string
+  #
+  #  CREDIT: George Moschovitis
+
+  def detail
+    return %{#{message}\n  #{backtrace.join("\n  ")}\n  LOGGED FROM: #{caller[0]}}
+  end
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/exception/suppress.rb

@@ -0,0 +1,21 @@
+class Exception
+
+  # Supress errors while executing a block, with execptions.
+  #
+  #  CREDIT: Trans
+  #  CREDIT: David Heinemeier Hansson
+
+  def self.suppress(*exception_classes)
+    exception_classes.each do |e|
+      unless e < self
+        raise ArgumentError, "exception #{e} not a subclass of #{self}"
+      end
+    end
+    begin yield
+    rescue Exception => e
+      raise unless exception_classes.any? { |cls| e.kind_of?(cls) }
+    end
+  end
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/file.rb

@@ -0,0 +1,6 @@
+dir, base = *File.split(__FILE__)
+base = base.chomp('.rb')
+Dir[File.join(dir, base, '*')].each do |lib|
+  require "facets/#{base}/#{File.basename(lib)}"
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/file/append.rb

@@ -0,0 +1,14 @@
+class File
+
+  # Append to a file.
+  #
+  #   CREDIT: George Moschovitis
+
+  def self.append( file, str )
+    File.open( file, 'ab' ) { |f|
+      f << str
+    }
+  end
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/file/create.rb

@@ -0,0 +1,21 @@
+class File
+
+  # Creates a new file, or overwrites an existing file,
+  # and writes a string into it. Can also take a block
+  # just like File#open, which is yielded _after_ the
+  # string is writ.
+  #
+  #   str = 'The content for the file'
+  #   File.create('myfile.txt', str)
+  #
+  #   CREDIT: George Moschovitis
+
+  def self.create(path, str='', &blk)
+    open(path, 'wb') do |f|
+      f << str
+      blk.call(f) if blk
+    end
+  end
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/file/null.rb

@@ -0,0 +1,21 @@
+class File
+
+  # Platform dependent null device.
+  #
+  #   CREDIT: Daniel Burger
+
+  def self.null
+    case RUBY_PLATFORM
+    when /mswin/i
+      'NUL'
+    when /amiga/i
+      'NIL:'
+    when /openvms/i
+      'NL:'
+    else
+      '/dev/null'
+    end
+  end
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/file/read.rb

@@ -0,0 +1,41 @@
+class File
+
+  # Cleans up a filename to ensure it will work on filesystem.
+  #
+  #  CREDIT: George Moschovitis
+
+  def self.sanitize(filename)
+    filename = File.basename(filename.gsub("\\", "/")) # work-around for IE
+    filename.gsub!(/[^a-zA-Z0-9\.\-\+_]/,"_")
+    filename = "_#{filename}" if filename =~ /^\.+$/
+    filename
+  end
+
+  # Read in a file as binary data.
+  #
+  #  CREDIT: George Moschovitis
+
+  def self.read_binary(fname)
+    open(fname, 'rb') {|f|
+      return f.read
+    }
+  end
+
+  # Reads in a file, removes blank lines and remarks
+  # (lines starting with '#') and then returns
+  # an array of all the remaining lines.
+  #
+  #   CREDIT: Trans
+
+  def self.read_list(filepath, chomp_string='')
+    farr = nil
+    farr = read(filepath).split("\n")
+    farr.collect! { |line|
+      l = line.strip.chomp(chomp_string)
+      (l.empty? or l[0,1] == '#') ? nil : l
+    }
+    farr.compact
+  end
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/file/rewrite.rb

@@ -0,0 +1,88 @@
+class File
+
+  # Opens a file as a string and writes back the string to the file at
+  # the end of the block.
+  #
+  # Returns the number of written bytes or +nil+ if the file wasn't
+  # modified.
+  #
+  # Note that the file will even be written back in case the block
+  # raises an exception.
+  #
+  # Mode can either be "b" or "+" and specifies to open the file in
+  # binary mode (no mapping of the plattform's newlines to "\n" is
+  # done) or to append to it.
+  #
+  #   # Reverse contents of "message"
+  #   File.rewrite("message") { |str| str.reverse }
+  #
+  #   # Replace "foo" by "bar" in "binary"
+  #   File.rewrite("binary", "b") { |str| str.gsub("foo", "bar") }
+  #
+  # IMPORTANT: The old version of this method required in place modification
+  # of the file string. The new version will write whatever the block
+  # returns instead!!!
+  #
+  #  CREDIT: George Moschovitis
+  #
+  def self.rewrite(name, mode = "") #:yield:
+    unless block_given?
+      raise(ArgumentError, "Need to supply block to File.rewrite")
+    end
+
+    if mode.is_a?(Numeric) then
+      flag, mode = mode, ""
+      mode += "b" if flag & File::Constants::BINARY != 0
+      mode += "+" if flag & File::Constants::APPEND != 0
+    else
+      mode.delete!("^b+")
+    end
+
+    old_str = open(name, "r#{mode}") { |file| file.read } #rescue ""
+    old_str = old_str.clone
+
+    begin
+      new_str = yield(old_str)
+    ensure
+      if old_str != new_str
+        open(name, "w#{mode}") { |file| file.write(new_str) }
+      end
+    end
+  end
+
+  # In place version of #rewrite. This version of method requires that the
+  # string be modified in place within the block.
+  #
+  #   # Reverse contents of "message"
+  #   File.rewrite("message") { |str| str.reverse! }
+  #
+  #   # Replace "foo" by "bar" in "binary"
+  #   File.rewrite("binary", "b") { |str| str.gsub!("foo", "bar") }
+  #
+  def self.rewrite!(name, mode = "") #:yield:
+    unless block_given?
+      raise(ArgumentError, "Need to supply block to File.rewrite")
+    end
+
+    if mode.is_a?(Numeric) then
+      flag, mode = mode, ""
+      mode += "b" if flag & File::Constants::BINARY != 0
+      mode += "+" if flag & File::Constants::APPEND != 0
+    else
+      mode.delete!("^b+")
+    end
+
+    old_str = open(name, "r#{mode}") { |file| file.read } #rescue ""
+    new_str = old_str.clone
+
+    begin
+      yield(new_str)
+    ensure
+      if old_str != new_str
+        open(name, "w#{mode}") { |file| file.write(str) }
+      end
+    end
+  end
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/file/rootname.rb

@@ -0,0 +1,33 @@
+class File
+
+  # Returns onlt the first portion of the directory of
+  # a file path name.
+  #
+  #   File.rootname('lib/jump.rb')  #=> 'lib'
+  #   File.rootname('/jump.rb')     #=> '/'
+  #   File.rootname('jump.rb')      #=> '.'
+  #
+  #   CREDIT: Trans
+  #
+  def self.rootname(path)
+    # this should be fairly robust
+    path_re = Regexp.new('[' + Regexp.escape(File::Separator + %q{\/}) + ']')
+
+    head, tail = path.split(path_re, 2)
+    return '.' if path == head
+    return '/' if head.empty?
+    return head
+  end
+
+  #def self.rootname( file_name )
+  #  i = file_name.index('/')
+  #  if i
+  #    r = file_name[0...i]
+  #    r == '' ? '/' : r
+  #  else
+  #    '.'
+  #  end
+  #end
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/file/split_root.rb

@@ -0,0 +1,10 @@
+class File
+
+  #
+  def self.split_root(path)
+    path_re = Regexp.new('[' + Regexp.escape(File::Separator + %q{\/}) + ']')
+    path.split(path_re, 2)
+  end
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/file/write.rb

@@ -0,0 +1,22 @@
+# DEPRECATE
+require 'facets/file/create'
+require 'facets/file/append'
+require 'facets/file/writelines'
+
+class File
+
+  # Writes the given data to the given path and closes the file.  This is
+  # done in binary mode, complementing <tt>IO.read</tt> in standard Ruby.
+  #
+  # Returns the number of bytes written.
+  #
+  #   CREDIT: Gavin Sinclair
+
+  def self.write(path, data)
+    File.open(path, "wb") do |file|
+      return file.write(data)
+    end
+  end
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/file/writelines.rb

@@ -0,0 +1,24 @@
+class File
+
+  # Writes the given array of data to the given path and closes the file.
+  # This is done in binary mode, complementing <tt>IO.readlines</tt> in
+  # standard Ruby.
+  #
+  # Note that +readlines+ (the standard Ruby method) returns an array of lines
+  # <em>with newlines intact</em>, whereas +writelines+ uses +puts+, and so
+  # appends newlines if necessary.  In this small way, +readlines+ and
+  # +writelines+ are not exact opposites.
+  #
+  # Returns +nil+.
+  #
+  #   CREDIT: Noah Gibbs
+  #   CREDIT: Gavin Sinclair
+
+  def self.writelines(path, data)
+    File.open(path, "wb") do |file|
+      file.puts(data)
+    end
+  end
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/filetest.rb

@@ -0,0 +1,6 @@
+dir, base = *File.split(__FILE__)
+base = base.chomp('.rb')
+Dir[File.join(dir, base, '*')].each do |lib|
+  require "facets/#{base}/#{File.basename(lib)}"
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/filetest/root.rb

@@ -0,0 +1,17 @@
+module FileTest
+
+  module_function
+
+  # Is the specified directory the root directory?
+  #
+  #  CREDIT: Jeffrey Schwab
+
+  def root?(dir=nil)
+    pth = File.expand_path(dir||Dir.pwd)
+    return true if pth == '/'
+    return true if pth =~ /^(\w:)?\/$/
+    false
+  end
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/float.rb

@@ -0,0 +1,6 @@
+dir, base = *File.split(__FILE__)
+base = base.chomp('.rb')
+Dir[File.join(dir, base, '*')].each do |lib|
+  require "facets/#{base}/#{File.basename(lib)}"
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/float/round.rb

@@ -0,0 +1,2 @@
+require 'facets/numeric/round'
+

data/lib/gems/facets-2.4.5/lib/core/facets/functor.rb

@@ -0,0 +1,77 @@
+# = Functor
+#
+# = Synopsis
+#
+# By definition a Functor is simply a first class method, but these are common
+# in the form of Method and Proc. So for Ruby a Functor is a bit more specialized
+# as a Higher-order function or Metafunction. Essentally, a Functor can vary
+# its behavior accorrding to the operation applied to it.
+#
+#   f = Functor.new { |op, x| x.send(op, x) }
+#   f + 1  #=> 2
+#   f + 2  #=> 4
+#   f + 3  #=> 6
+#   f * 1  #=> 1
+#   f * 2  #=> 4
+#   f * 3  #=> 9
+#
+# == Author
+#
+# * Thomas Sawyer
+#
+# == History
+#
+# * 2006-11-04 trans Deprecated #functor_function, renamed to #to_proc.
+# * 2006-11-04 trans All methods are now private except __ and #binding.
+#
+# == Todo
+#
+# * Consider renaming Functor to... ?
+#
+# == Copying
+#
+# Copyright (c) 2004 Thomas Sawyer
+#
+# Ruby License
+#
+# This module is free software. You may use, modify, and/or redistribute this
+# software under the same terms as Ruby.
+#
+# This program is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE.
+
+
+# By definition a Functor is simply a first class method, but these are common
+# in the form of Method and Proc. So for Ruby a Functor is a more specialized
+# as a Higher-order function or Metafunction. Essentally, a Functor can vary
+# its behavior accorrding to the operation applied to it.
+#
+#   f = Functor.new { |op, x| x.send(op, x) }
+#   f + 1  #=> 2
+#   f + 2  #=> 4
+#   f + 3  #=> 6
+#   f * 1  #=> 1
+#   f * 2  #=> 4
+#   f * 3  #=> 9
+#
+class Functor
+
+  # Privatize all methods except vital methods and #binding.
+  private(*instance_methods.select { |m| m !~ /(^__|^binding$)/ })
+
+  def initialize(&function)
+    @function = function
+  end
+
+  def to_proc
+    @function
+  end
+
+  # Any action against the functor is processesd by the function.
+  def method_missing(op, *args, &blk)
+    @function.call(op, *args, &blk)
+  end
+
+end
+