facets 2.9.2 → 2.9.3

data/src/core/facets/proc/bind.rb

@@ -1,24 +0,0 @@
-require 'facets/kernel/singleton_class'
-
-class Proc
-
-  # Bind a Proc to an object returning a Method.
-  #
-  # NOTE: This version comes from Rails. The old Facets
-  # version used thread.rb, but I no longer think
-  # the implementaiton is thread critical. Please
-  # make a bug report if this proves wrong.
-  #
-  def bind(object)
-    block, time = self, Time.now
-    method_name = "__bind_#{time.to_i}_#{time.usec}"
-    object.singleton_class.class_eval do
-      define_method(method_name, &block)
-      method = instance_method(method_name)
-      remove_method(method_name)
-      method
-    end.bind(object)
-  end
-
-end
-

data/src/core/facets/proc/bind_to.rb

@@ -1,17 +0,0 @@
-class Proc
-
-  # Bind a procedure to an object. This works
-  # wrapping instance_eval on the Proc object
-  # and then wrapping this in a new Proc.
-  #
-  #    a = [1,2,3]
-  #    p1 = Proc.new{ join(' ') }
-  #    p2 = p1.bind_to(a)
-  #    p2.call  #=> '1 2 3'
-  #
-  def bind_to(object)
-    Proc.new{object.instance_eval(&self)}
-  end
-
-end
-

data/src/core/facets/proc/compose.rb

@@ -1,42 +0,0 @@
-class Proc
-
-  # Returns a new proc that is the functional
-  # composition of two procs, in order.
-  #
-  #   a = lambda { |x| x + 4 }
-  #   b = lambda { |y| y / 2 }
-  #
-  #   a.compose(b).call(4)  #=> 6
-  #   b.compose(a).call(4)  #=> 4
-  #
-  # CREDIT: Dave
-
-  def compose(g)
-    raise ArgumentError, "arity count mismatch" unless arity == g.arity
-    lambda{ |*a| self[ *g[*a] ] }
-  end
-
-  # Operator for Proc#compose and Integer#times_collect/of.
-  #
-  #   a = lambda { |x| x + 4 }
-  #   b = lambda { |y| y / 2 }
-  #
-  #   (a * b).call(4)  #=> 6
-  #   (b * a).call(4)  #=> 4
-  #
-  # CREDIT: Dave
-
-  def *(x)
-    if Integer===x
-      # collect times
-      c = []
-      x.times{|i| c << call(i)}
-      c
-    else
-      # compose procs
-      lambda{|*a| self[x[*a]]}
-    end
-  end
-
-end
-

data/src/core/facets/proc/curry.rb

@@ -1,32 +0,0 @@
-class Proc
-
-  # Curry Proc object into new Proc object.
-  #
-  # TODO: Utilize Ruby 1.9's #curry method.
-
-  def curry(*args)
-    if args.empty?
-      idx = (0...arity).to_a
-    else
-      raise ArgumentError, "argument count is greater than prok.arity (#{args.size} > #{arity})" if args.size > arity
-      raise ArgumentError, "arguments must be unique indexes" if args.uniq != args
-      raise ArgumentError, "arguments must be indexes" if args.any?{ |a| !Fixnum===a }
-      idx = (0...arity).to_a
-      idx = args + (idx - args)
-    end
-
-    pro = self
-    rec = ''
-    idx.each do |i|
-      rec << "proc { |a#{i}| "
-    end
-    rec << "pro["
-    rec << (0...arity).to_a.collect{|i| "a#{i}"}.join(',')
-    rec << "]"
-    rec << "}" * arity
-
-    instance_eval rec
-  end
-
-end
-

data/src/core/facets/proc/partial.rb

@@ -1,33 +0,0 @@
-require 'facets/na'
-
-class Proc
-
-  # Convert a Proc object into new partial Proc object.
-  #
-  #   a = proc { |a,b,c| a+b+c }
-  #   b = a.partial(NA,2,NA)
-  #   b[1,3] #=> 6
-  #
-  # Note, the #__ method, which used to be used in stay of NA,
-  # has been deprecated.
-  #
-  #--
-  #   a = proc { |a,b,c| a+b+c }
-  #   b = a.partial(__,2,__)
-  #   b[1,3] #=> 6
-  #++
-  #
-  # This method is similar to Proc#curry.
-  #
-  # CREDT Trans
-
-  def partial(*args)
-    Proc.new do |*spice|
-      result = args.collect do |a|
-        NA == a ? spice.pop : a
-      end
-      call(*result)
-    end
-  end
-
-end

data/src/core/facets/proc/to_method.rb

@@ -1,38 +0,0 @@
-require 'facets/proc/bind'
-require 'facets/kernel/singleton_class'
-
-class Proc
-
-  # Convert Proc to method.
-  #
-  #   object = Object.new
-  #
-  #   function = lambda { |x| x + 1 }
-  #
-  #   function.to_method(object, 'foo')
-  #
-  #   object.foo(1)  #=> 2
-  #
-  def to_method(object, name=nil)
-    ##object = object || eval("self", self)
-    block, time = self, Time.now
-    method_name = name || "__bind_#{time.to_i}_#{time.usec}"
-    begin
-      object.singleton_class.class_eval do
-        define_method(method_name, &block)
-        method = instance_method(method_name)
-        remove_method(method_name) unless name
-        method
-      end.bind(object)
-    rescue TypeError
-      object.class.class_eval do
-        define_method(method_name, &block)
-        method = instance_method(method_name)
-        remove_method(method_name) unless name
-        method
-      end.bind(object)
-    end
-  end
-
-end
-

data/src/core/facets/proc/update.rb

@@ -1,9 +0,0 @@
-class Proc
-
-  # Use a Proc as an observable.
-  #
-  # CREDIT: Tim Pease
-
-  alias_method :update, :call
-
-end

data/src/core/facets/process.rb

@@ -1,20 +0,0 @@
-# Require all Process core extensions.
-
-if RUBY_VERSION < '1.9'
-<%=
-  path = __FILE__.chomp('.rb')
-  base = File.basename(path)
-  Dir[File.join(path, '*.rb')].map do |lib|
-    %Q{  require "facets/#{base}/#{File.basename(lib)}"}
-  end.sort.join("\n")
-%>
-else
-<%=
-  path = __FILE__.chomp('.rb')
-  base = File.basename(path)
-  Dir[File.join(path, '*.rb')].map do |lib|
-    %Q{  require_relative "#{base}/#{File.basename(lib)}"}
-  end.sort.join("\n")
-%>
-end
-

data/src/core/facets/process/daemon.rb

@@ -1,32 +0,0 @@
-module Process
-
-  # Turns the current script into a daemon process
-  # that detaches from the console. It can be shut
-  # down with a TERM signal.
-  #
-  # CREDIT: David Heinemeier Hansson
-
-  def self.daemon(nochdir=nil, noclose=nil)
-    exit if fork # Parent exits, child continues.
-    Process.setsid # Become session leader.
-    exit if fork # Zap session leader. See [1].
-
-    unless nochdir
-      Dir.chdir "/" # Release old working directory.
-    end
-
-    File.umask 0000 # Ensure sensible umask. Adjust as needed.
-
-    unless noclose
-      STDIN.reopen "/dev/null" # Free file descriptors and
-      STDOUT.reopen "/dev/null", "a" # point them somewhere sensible.
-      STDERR.reopen '/dev/null', 'a'
-    end
-
-    trap("TERM") { exit }
-
-    return 0
-  end unless respond_to?(:daemon)
-
-end
-

data/src/core/facets/range.rb

@@ -1,20 +0,0 @@
-# Require all Range core extensions.
-
-if RUBY_VERSION < '1.9'
-<%=
-  path = __FILE__.chomp('.rb')
-  base = File.basename(path)
-  Dir[File.join(path, '*.rb')].map do |lib|
-    %Q{  require "facets/#{base}/#{File.basename(lib)}"}
-  end.sort.join("\n")
-%>
-else
-<%=
-  path = __FILE__.chomp('.rb')
-  base = File.basename(path)
-  Dir[File.join(path, '*.rb')].map do |lib|
-    %Q{  require_relative "#{base}/#{File.basename(lib)}"}
-  end.sort.join("\n")
-%>
-end
-

data/src/core/facets/range/combine.rb

@@ -1,47 +0,0 @@
-class Range
-
-  # Combine ranges.
-  #
-  #   (1..2).combine(2..4)   #=> [1..4]
-  #   (1..2).combine(3..4)   #=> [1..2, 3..4]
-  #
-  # TODO: Incorporate end-sentinal inclusion vs. exclusion.
-  #
-  # CREDIT: Trans
-
-  def combine(*intervals)
-    Range.combine(self, *intervals)
-  end
-
-  # Combine intervals.
-  #
-  #   Range.combine(1..2, 2..4)   #=> [1..4]
-  #   Range.combine(1..2, 3..4)   #=> [1..2, 3..4]
-  #
-  # CREDIT: Trans
-
-  def self.combine(*intervals)
-    intype = intervals.first.class
-    result = []
-
-    intervals = intervals.collect do |i|
-      [i.first, i.last]
-    end
-
-    intervals.sort.each do |(from, to)|  #inject([]) do |result,
-      if result.empty? or from > result.last[1]
-        result << [from, to]
-      elsif to > result.last[1]
-        result.last[1] = to
-      end
-      #result
-    end
-
-    if intype <= Range
-      result.collect{ |i| ((i.first)..(i.last)) }
-    else
-      result
-    end
-  end
-
-end

data/src/core/facets/range/overlap.rb

@@ -1,12 +0,0 @@
-class Range
-
-  # Do two ranges overlap?
-  #
-  # CREDIT: Daniel Schierbeck, Brandon Keepers
-
-  def overlap?(other)
-    include?(other.first) or other.include?(first)
-  end
-
-end
-

data/src/core/facets/range/to_r.rb

@@ -1,26 +0,0 @@
-class Range
-
-  # A thing really should know itself.
-  # This simply returns _self_.
-  #
-  # CREDIT: Trans
-
-  def to_r
-    self
-  end
-
-  # 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.
-  #
-  # CREDIT: Trans
-
-  def to_range
-    self
-  end
-
-end
-

data/src/core/facets/range/umbrella.rb

@@ -1 +0,0 @@
-require 'facets/range/within'

data/src/core/facets/range/within.rb

@@ -1,64 +0,0 @@
-class Range
-
-  # Uses the Range#umbrella method to determine
-  # if another Range is _anywhere_ within this Range.
-  #
-  #   (1..3).within?(0..4)  #=> true
-  #
-  # CREDIT: Trans
-
-  def within?(rng)
-    case rng.umbrella(self)
-    when [0,0], [-1,0], [0,-1], [-1,-1]
-      return true
-    else
-      return false
-    end
-  end
-
-  # 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]
-  #
-  # CREDIT: Trans, Chris Kappler
-
-  def umbrella(r)
-    s = first <=> r.first
-    e = r.last <=> last
-
-    if e == 0
-      if r.exclude_end? and exclude_end?
-        e = r.max <=> max
-      else
-        e = (r.exclude_end? ? 0 : 1) <=> (exclude_end? ? 0 : 1)
-      end
-    end
-
-    return s,e
-  end
-
-end

data/src/core/facets/regexp.rb

@@ -1,20 +0,0 @@
-# Require all Regexp core extensions.
-
-if RUBY_VERSION < '1.9'
-<%=
-  path = __FILE__.chomp('.rb')
-  base = File.basename(path)
-  Dir[File.join(path, '*.rb')].map do |lib|
-    %Q{  require "facets/#{base}/#{File.basename(lib)}"}
-  end.sort.join("\n")
-%>
-else
-<%=
-  path = __FILE__.chomp('.rb')
-  base = File.basename(path)
-  Dir[File.join(path, '*.rb')].map do |lib|
-    %Q{  require_relative "#{base}/#{File.basename(lib)}"}
-  end.sort.join("\n")
-%>
-end
-