facets 0.7.2 → 0.9.0

data/lib/facet/enumerable/%25.rb

@@ -1,15 +0,0 @@
-require 'facet/enumerable/every'
-module Enumerable
-  # Very nice, concise alias shorthand for #every.
-  #
-  #   require 'facet/enumerable/every'
-  #
-  #   a = [1,2,3]
-  #   b = [4,5]
-  #
-  #   p a.% + 3       => [4,5,6]
-  #   p a.% + b       => [5,7]
-  #   p a.%.+(b,2)    => [[5,7],[3,4,5]]
-  #
-  alias_method( :%, :every )
-end 

data/lib/facet/enumerable/%2A%2A.rb

@@ -1,13 +0,0 @@
-require 'facet/enumerable/cross'
-module Enumerable
-  # Operator alias for cross-product.
-  #
-  #   require 'facet/enumerable/cross'
-  #
-  #   a = [1,2] ** [4,5]
-  #   a  #=> [[1, 4],[1, 5],[2, 4],[2, 5]]
-  #
-  def **(enum)
-    Enumerable.cross(self, enum)
-  end
-end 

data/lib/facet/enumerable/none%3F.rb

@@ -1,28 +0,0 @@
-#--
-# Credit goes to Gavin Sinclair.
-#++
-module Enumerable
-  #
-  # Enumerable#none? is the logical opposite of the builtin method Enumerable#any?.  It
-  # returns +true+ if and only if _none_ of the elements in the collection satisfy the
-  # predicate.
-  #
-  # If no predicate is provided, Enumerable#none? returns +true+ if and only if _none_ of the
-  # elements have a true value (i.e. not +nil+ or +false+).
-  #
-  #   require 'facet/enumerable/none?'
-  #
-  #   [].none?                      # true
-  #   [nil].none?                   # true
-  #   [5,8,9].none?                 # false
-  #   (1...10).none? { |n| n < 0 }  # true
-  #   (1...10).none? { |n| n > 0 }  # false
-  #
-  def none?  # :yield: e
-    if block_given?
-      not self.any? { |e| yield e }
-    else
-      not self.any?
-    end
-  end
-end 

data/lib/facet/enumerable/one%3F.rb

@@ -1,35 +0,0 @@
-#--
-# Credit goes to Gavin Sinclair.
-#++
-module Enumerable
-  #
-  # Enumerable#one? returns +true+ if and only if <em>exactly one</em> element in the
-  # collection satisfies the given predicate.
-  #
-  # If no predicate is provided, Enumerable#one? returns +true+ if and only if <em>exactly
-  # one</em> element has a true value (i.e. not +nil+ or +false+).
-  #
-  #   require 'facet/enumerable/one?'
-  #
-  #   [].one?                      # false
-  #   [nil].one?                   # false
-  #   [5].one?                     # true
-  #   [5,8,9].one?                 # false
-  #   (1...10).one? { |n| n == 5 } # true
-  #   (1...10).one? { |n| n < 5 }  # false
-  #
-  def one?  # :yield: e
-    matches = 0
-    if block_given?
-      self.each do |e|
-        if yield(e)
-          matches += 1
-          return false if matches > 1
-        end
-      end
-      return (matches == 1)
-    else
-      one? { |e| e }
-    end
-  end
-end

data/lib/facet/enumerable/per.rb

@@ -1,5 +0,0 @@
-require 'facet/enumerable/every'
-module Enumerable
-  # Alias for #every.
-  alias_method( :per, :every )
-end 

data/lib/facet/enumerable/to_hash.rb

@@ -1,15 +0,0 @@
-module Enumerable
-  # Produces a hash from an Array with index for keys.
-  #
-  #   require 'facet/array/to_hash'
-  #
-  #   a1 = [ :a, :b ]
-  #   a1.to_hash  #=> { 0=>:a, 1=>:b }
-  #
-  def to_hash
-    h = {}
-    each_with_index{|e,i| h[i] = e }
-    h
-  end
-end
-

data/lib/facet/expect.rb

@@ -1,192 +0,0 @@
-=begin rdoc
-
-= Expect
-
-Given an IO object, read data from that object and expect certain data.
-
-All expected data is expected in 'chains'.  When a message is received, it
-is compared to the pattern at the top of each chain.  If it matches one of
-the patterns, then all is well, but an error message is printed otherwise.
-
-A message can match patterns in more than one chain.
-
-== Synopsis
-
-  require 'carat/expect'
-
-  # to do
-
-== Legal
-
-Adopted from Ruby Treasures 0.4
-Copyright (C) 2002 Paul Brannan <paul@atdesk.com>
- 
-You may distribute this software under the same terms as Ruby (see the file
-COPYING that was distributed with this library).
-
-== History
-
-  $Id: expect.rb, v0.4 2004/11/30 transami Exp $
-
-=end
-
-class Expect
-public
-
-  VERSION = "0.4"
-
-  class UnmatchedMessage < Exception
-    attr_reader :msg
-
-    def initialize(msg)
-      @msg = msg
-      super("Message not matched: `#{msg}'")
-    end
-  end
-
-  class Timeout < Exception
-    attr_reader :chain
-    attr_reader :pattern
-
-    def initialize(chain, pattern)
-      @chain = chain
-      @pattern = pattern
-      
-      super("Timed out waiting for #{pattern.inspect} in chain #{chain.inspect}")
-    end
-  end
-
-  ##
-  # A special type of pattern that matches a list of patterns, separated
-  # by a given separator, in any order.
-  #
-  # Example:
-  # <pre>
-  #   # matches 'foo,bar' and 'bar,foo'
-  #   p = Expect::SeparatedPattern.new(['foo', 'bar'])
-  #   
-  #   e = Expect.new(nil, nil)
-  #   e.expect(p)
-  # </pre>
-  #
-  class SeparatedPattern
-    attr_accessor :separator
-
-    def initialize(message, separator = ',')
-      @message = message
-      @separator = separator
-    end
-
-    def ===(line)
-      message = @message.dup
-
-      # Iterate through each field to make sure it matches.  When
-      # we find a match, delete that field so we never check it
-      # again.
-      for field in fields do
-        message.each_index do |index|
-          if message[index] === field then
-            message.delete_at(index)
-          end
-        end
-      end
-
-      # If there are no more fields, then we deleted all of them,
-      # and we got a match
-      return message.length == 0
-    end
-  end
-
-  class DefaultChain
-  end
-
-  ##
-  # It is highly recommended that this be an immutable object.
-  #
-  attr_accessor :timeout
-
-  ##
-  # Create a new Expect_Test object.
-  #
-  # @param io_object an IO object to read from.
-  # @param reactor a reactor to use
-  #
-  def initialize(io_object, reactor)
-    @io_object = io_object
-    @reactor = reactor
-    @reactor.register_read(@io_object, method(:handle_event))
-    reset()
-  end
-
-  ##
-  # Reset the the ignore chain and all expect chains.
-  #
-  def reset()
-    @expect_chain = Hash.new
-    @ignore_chain = Array.new
-    @expects_left = 0
-  end
-
-  ##
-  # Expect a message matching pattern in a certain chain.
-  #
-  # @param pattern the pattern to expect.
-  # @param chain the chain in which to expect the message.
-  #
-  def expect(pattern, chain=DefaultChain)
-    @expect_chain[chain] ||= Array.new
-    @expect_chain[chain].push(pattern)
-    @expects_left += 1
-  end
-
-  ##
-  # Ignore a pattern in all chains.
-  #
-  # @param pattern the pattern to ignore.
-  #
-  def ignore(pattern)
-    @ignore_chain.push(pattern)
-  end
-
-  def run(timeout = nil)
-    return if @expects_left == 0
-    catch :expect_loop_done do
-      @reactor.run_event_loop(timeout)
-      for key, chain in @expect_chain do
-        next if chain.length == 0
-        raise Timeout.new(key, chain.first)
-      end
-      # TODO: What does it mean if we got here?
-    end
-  end
-
-  def handle_event(io_object)
-    handle_line(io_object.gets())
-  end
-
-  def handle_line(line)
-    line.chomp!()
-
-    # Check each element in the ignore chain
-    for pattern in @ignore_chain do
-      return if pattern === line
-    end
-
-    # Check the first element of each expect chain to see if
-    # the message matches
-    match = false
-    for key, chain in @expect_chain do
-      next if chain.length == 0
-      if chain.first() === line then
-        chain.shift()
-        @expects_left -= 1
-        match = true
-      end
-    end
-
-    throw :expect_loop_done if @expects_left == 0
-
-    raise UnmatchedMessage.new(line) if match == false
-  end
-end
-

data/lib/facet/file/split_all.rb

@@ -1,17 +0,0 @@
-class File
-  # Splits a file path into an array of individual path components.
-  # This differs from <tt>File.split</tt>, which divides the path into
-  # only two parts, directory path and basename.
-  #
-  #   require 'facet/file/split_all'
-  #
-  #   split_all("a/b/c") =>  ['a', 'b', 'c']
-  #
-  def self.split_all(path)
-    head, tail = File.split(path)
-    return [tail] if head == '.' || tail == '/'
-    return [head, tail] if head == '/'
-    return split_all(head) + [tail]
-  end
-end
-

data/lib/facet/file/write.rb

@@ -1,14 +0,0 @@
-# Copyright (c) 2005 George Moschovitis <gm@navel.gr>
-
-class File
-	# Dumps a string to a file.
-	#
-	#		require 'facet/file/write'
-	#
-	#		str = 'The content for the file'
-	#		File.write('myfile.txt', str)
-	#
-	def self.write(path, str)
-		File.open(path, 'w') { |f| f << str }		
-	end
-end

data/lib/facet/fileutils-slicers.rb

@@ -1,4 +0,0 @@
-
-require 'facet/fileutils/head'
-require 'facet/fileutils/body'
-require 'facet/fileutils/tail'

data/lib/facet/float-rounding.rb

@@ -1,7 +0,0 @@
-
-# :title: Rounding Facets
-
-require 'facet/float/round_off'
-require 'facet/float/round_at'
-require 'facet/float/round_to'
-require 'facet/float/approx'

data/lib/facet/float/approx%3F.rb

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

data/lib/facet/float/round_off.rb

@@ -1,12 +0,0 @@
-
-class Float
-  # Alias for #round. This is used by both the 
-  # improved #round method and #round_to.
-  alias_method :round_off, :round
-end
-
-class Numeric
-  # To properly support Float's rounding methods,
-  # Numeric must also be augmented.
-  alias_method :round_off, :round
-end

data/lib/facet/hash/%3C%3C.rb

@@ -1,5 +0,0 @@
-class Hash
-  # Alias shorthand for #update.
-  alias_method( :<<, :update )
-end
-

data/lib/facet/hash/%5B%5D%3D.rb

@@ -1,22 +0,0 @@
-class Hash 
-  # Add slicing to element assignment operator.
-  #
-  #   require "facet/hash/slice-op"
-  #
-  #   h = {:a=>1, :b=>2, :c=>3}
-  #
-  #   h[:a] = 9              #=> 9
-  #   h                      #=> {:a=>9, :b=>2, :c=>3}
-  #
-  #   h[:a, :c] = [10,11]    #=> [10,11]
-  #   h                      #=> {:a=>10, :b=>2, :c=>11}
-  #
-  def []=( *args )
-    if args.length <= 2
-      return store( *args )
-    end
-    aVals = args.pop
-    aVals = [aVals] unless aVals.kind_of?( Array )
-    args.each_index{ |i| store( args[i], aVals[i] ) }
-  end
-end

data/lib/facet/hash/%5B%5D.rb

@@ -1,20 +0,0 @@
-require 'facet/hash/at'
-class Hash
-  # Adds slicing to Hash#[]. If more than one key arguments
-  # is given to <tt>Hash#[]</tt>, the return value will be 
-  # an array of the corresponding values.
-  #
-  #   require "facet/hash/slice-op"
-  # 
-  #   h = { :a => 1, :b => 2, :c => 3 }
-  #   h[:a]            #=> 1
-  #   h[:a, :b]        #=> [1,2]
-  #
-  def []( *sliceKeys )
-    if sliceKeys.length == 1
-      return at( sliceKeys[0] )
-    else
-      return values_at( *sliceKeys )
-    end
-  end
-end