ruby-nuggets 0.7.4 → 0.7.5

data/README

@@ -2,7 +2,7 @@
 
 == VERSION
 
-This documentation refers to ruby-nuggets version 0.7.4
+This documentation refers to ruby-nuggets version 0.7.5
 
 
 == DESCRIPTION

data/lib/nuggets/all.rb

@@ -25,12 +25,12 @@
 ###############################################################################
 #++
 
-base = File.dirname(__FILE__)
-base_re = Regexp.escape(base)
+base = ::File.dirname(__FILE__)
+base_re = ::Regexp.escape(base)
 
-Dir[File.join(base, %w[* ** *.rb])].sort.each { |path|
+::Dir[::File.join(base, %w[* ** *.rb])].sort.each { |path|
   next if path =~ /_mixin\.rb\z/
 
-  ext_re = Regexp.escape(File.extname(path))
+  ext_re = ::Regexp.escape(::File.extname(path))
   require path.sub(/#{base_re}(.*)#{ext_re}/, 'nuggets\1')
 }

data/lib/nuggets/all_mixins.rb

@@ -25,10 +25,10 @@
 ###############################################################################
 #++
 
-base = File.dirname(__FILE__)
-base_re = Regexp.escape(base)
+base = ::File.dirname(__FILE__)
+base_re = ::Regexp.escape(base)
 
-Dir[File.join(base, %w[* ** *_mixin.rb])].sort.each { |path|
-  ext_re = Regexp.escape(File.extname(path))
+::Dir[::File.join(base, %w[* ** *_mixin.rb])].sort.each { |path|
+  ext_re = ::Regexp.escape(::File.extname(path))
   require path.sub(/#{base_re}(.*)#{ext_re}/, 'nuggets\1')
 }

data/lib/nuggets/array/flatten_once.rb

@@ -36,7 +36,7 @@ class Array
     flat = []
 
     each { |element|
-      if element.is_a?(Array)
+      if element.is_a?(::Array)
         flat += element
       else
         flat << element

data/lib/nuggets/array/format.rb

@@ -42,17 +42,17 @@ class Array
   # _str_; empty string if _str_ is empty.
   def %(args)
     opts = { :sep => ', ' }
-    opts.update(pop) if last.is_a?(Hash)
+    opts.update(pop) if last.is_a?(::Hash)
 
     default = lambda { |n|
       ['%s'] * n * opts[:sep]
     }
 
     case args
-      when String
+      when ::String
         return (first || default[1]) % args unless
           args.nil? || args.empty?
-      when Array
+      when ::Array
         i = 0
         [*args].comb { |x|
           return (self[i] || default[x.size]) % x unless

data/lib/nuggets/array/only.rb

@@ -36,7 +36,7 @@ class Array
   #
   # Idea stolen from Gavin Sinclair's Ruby Extensions Project.
   def only(relax = size == 1)
-    raise IndexError, 'not a single-element array' unless relax
+    raise ::IndexError, 'not a single-element array' unless relax
     first
   end
 
@@ -48,7 +48,7 @@ if $0 == __FILE__
 
     begin
       p a.only
-    rescue IndexError => err
+    rescue ::IndexError => err
       warn err
     end
 

data/lib/nuggets/array/rand.rb

@@ -32,7 +32,7 @@ class Array
   #
   # Randomly pick an item from _array_.
   def rand
-    at(Kernel.rand(size))
+    at(::Kernel.rand(size))
   end
 
 end

data/lib/nuggets/array/shuffle.rb

@@ -33,7 +33,7 @@ class Array
   # Shuffles _array_ in random order. Select a different shuffling algorithm:
   # <tt>Array.send(:alias_method, :shuffle, :shuffle_kfy)</tt>.
   def shuffle
-    sort_by { Kernel.rand }
+    sort_by { ::Kernel.rand }
   end
 
   # call-seq:
@@ -114,7 +114,7 @@ if $0 == __FILE__
   max = algorithms.max(:length)
 
   algorithms.each { |algorithm|
-    score = Hash.new { |h, k| h[k] = 0 }
+    score = ::Hash.new { |h, k| h[k] = 0 }
 
     n.times {
       score[a.send(algorithm)] += 1

data/lib/nuggets/array/standard_deviation_mixin.rb

@@ -41,7 +41,7 @@ module Nuggets
   # Calculates the {standard deviation}[http://en.wikipedia.org/wiki/Standard_deviation]
   # of the values in _array_.
   def standard_deviation(&block)
-    Math.sqrt(variance(&block))
+    ::Math.sqrt(variance(&block))
   end
 
   alias_method :std, :standard_deviation

data/lib/nuggets/array/to_hash.rb

@@ -44,17 +44,17 @@ class Array
   #   %w[a b c d].to_h            #=> { "a" => "b", "c" => "d" }
   #   %w[a b c d].to_h(1)         #=> { "a" => 1, "b" => 1, "c" => 1, "d" => 1 }
   #   %w[a b].to_h { |e| e * 2 }  #=> { "a" => "aa", "b" => "bb" }
-  def to_hash(value = default = Object.new)
+  def to_hash(value = default = true)
     hash = {}
 
     if block_given?
-      raise ArgumentError, "both block and value argument given" if default.nil?
+      raise ::ArgumentError, 'both block and value argument given' unless default
 
       each { |element| hash[element] = yield element }
-    elsif default.nil?
+    elsif !default
       each { |element| hash[element] = value }
     else
-      return Hash[*flatten_once]
+      return ::Hash[*flatten_once]
     end
 
     hash

data/lib/nuggets/enumerable/agrep.rb

@@ -27,12 +27,12 @@
 
 begin
   require 'rubygems'
-rescue LoadError
+rescue ::LoadError
 end
 
 begin
   require 'amatch'
-rescue LoadError
+rescue ::LoadError
   warn "Couldn't load amatch..." if $VERBOSE
 end
 
@@ -55,11 +55,11 @@ module Enumerable
   # - The cost for individual error types (substitution, insertion, deletion)
   #   cannot be adjusted.
   def agrep(pattern, distance = 0)
-    raise 'Amatch not available!' unless defined?(Amatch)
+    raise 'Amatch not available!' unless defined?(::Amatch)
 
-    pattern = pattern.source if pattern.is_a?(Regexp)
+    pattern = pattern.source if pattern.is_a?(::Regexp)
 
-    amatch  = Amatch::Levenshtein.new(pattern)
+    amatch  = ::Amatch::Levenshtein.new(pattern)
     matches = select { |obj| amatch.search(obj.to_s) <= distance }
 
     block_given? ? matches.map { |match| yield match } : matches

data/lib/nuggets/enumerable/all_any_extended.rb

@@ -37,7 +37,7 @@ module Enumerable
   # Adds the ability to pass an +object+ instead of a block, which will then
   # be tested against each item in _enum_ according to +operator+, defaulting
   # to <tt>:===</tt>.
-  def all?(object = default = Object.new, operator = :===, &block)
+  def all?(object = default = true, operator = :===, &block)
     _nuggets_original_all?(&_block_for_all_any_extended(object, default, operator, &block))
   end
 
@@ -48,7 +48,7 @@ module Enumerable
   # Adds the ability to pass an +object+ instead of a block, which will then
   # be tested against each item in _enum_ according to +operator+, defaulting
   # to <tt>:===</tt>.
-  def any?(object = default = Object.new, operator = :===, &block)
+  def any?(object = default = true, operator = :===, &block)
     _nuggets_original_any?(&_block_for_all_any_extended(object, default, operator, &block))
   end
 
@@ -56,8 +56,8 @@ module Enumerable
 
   # Common argument processing for extended versions of #all? and #any?.
   def _block_for_all_any_extended(object, default, operator, &block)
-    if default.nil?
-      raise ArgumentError, "both block and object argument given", caller(1) if block
+    unless default
+      raise ::ArgumentError, 'both block and object argument given', caller(1) if block
       lambda { |*a| object.send(operator, *a) }
     else
       block
@@ -70,18 +70,18 @@ if $0 == __FILE__
   e = %w[quux quuux quix]
   p e
 
-  p e.all?(String)
-  p e.any?(Numeric)
+  p e.all?(::String)
+  p e.any?(::Numeric)
 
   e = [:one, 'c', nil, 88]
   p e
 
-  p e.all?(Object)
-  p e.any?(NilClass)
+  p e.all?(::Object)
+  p e.any?(::NilClass)
 
   begin
-    e.any?(NilClass) { |i| i.nil? }
-  rescue ArgumentError => err
+    e.any?(::NilClass) { |i| i.nil? }
+  rescue ::ArgumentError => err
     puts "#{err.backtrace.first}: #{err} (#{err.class})"
   end
 

data/lib/nuggets/enumerable/minmax.rb

@@ -42,7 +42,7 @@ module Enumerable
   # to +by+ (which may be a symbol/string that is sent to each value, or a proc
   # that receives each value as parameter).
   def minmax_by(meth, by)
-    _by = by.is_a?(Proc) ? by : lambda { |i| i.send(by) }
+    _by = by.is_a?(::Proc) ? by : lambda { |i| i.send(by) }
     send(meth) { |a, b| _by[a] <=> _by[b] }
   end
 
@@ -73,7 +73,7 @@ module Enumerable
     #m = minmax_by(meth, what)
     #what.is_a?(Proc) ? what[m] : m.send(what)
 
-    _what = what.is_a?(Proc) ? what : lambda { |i| i.send(what) }
+    _what = what.is_a?(::Proc) ? what : lambda { |i| i.send(what) }
     map { |i| _what[i] }.send(meth)
 
     # Benchmark (:max, :length; enum.size = 20, N = 100_000):

data/lib/nuggets/env/set_mixin.rb

@@ -42,8 +42,8 @@ module Nuggets
     self.clear if clear
 
     env.each { |key, value|
-      key = key.to_s.upcase unless key.is_a?(String)
-      value = value.to_s unless value.is_a?(String)
+      key = key.to_s.upcase unless key.is_a?(::String)
+      value = value.to_s unless value.is_a?(::String)
 
       self[key] = value
     }

data/lib/nuggets/env/user_encoding_mixin.rb

@@ -27,7 +27,7 @@
 
 begin
   require 'win32console'
-rescue LoadError
+rescue ::LoadError
 end
 
 module Nuggets
@@ -42,8 +42,8 @@ module Nuggets
     self['ENCODING'] || begin
       lang = self['LANG']
       lang[/\.(.*)/, 1] if lang
-    end || if defined?(Win32::Console)
-      "CP#{Win32::Console.InputCP}"
+    end || if defined?(::Win32::Console)
+      "CP#{::Win32::Console.InputCP}"
     elsif ::File::ALT_SEPARATOR
       cp = %x{chcp}[/:\s*(.*?)\./, 1]
       "CP#{cp}" if cp

data/lib/nuggets/env/user_home_mixin.rb

@@ -41,7 +41,7 @@ module Nuggets
 
     begin
       ::File.expand_path('~')
-    rescue ArgumentError
+    rescue ::ArgumentError
       default
     end
   end

data/lib/nuggets/file/which_mixin.rb

@@ -31,7 +31,7 @@ module Nuggets
   class File
     module WhichMixin
 
-  DEFAULT_EXTENSIONS = [RbConfig::CONFIG['EXEEXT']]
+  DEFAULT_EXTENSIONS = [::RbConfig::CONFIG['EXEEXT']]
 
   # call-seq:
   #   File.which(executable[, extensions]) => aString or +nil+
@@ -44,7 +44,7 @@ module Nuggets
   def which(executable, extensions = DEFAULT_EXTENSIONS)
     extensions |= ['']
 
-    if env = ENV['PATH']
+    if env = ::ENV['PATH']
       dirs = env.split(self::PATH_SEPARATOR)
       dirs.map! { |dir| expand_path(dir) }
     end

data/lib/nuggets/hash/at.rb

@@ -38,7 +38,7 @@ class Hash
     return {} if empty?
 
     key = case what
-      when Integer
+      when ::Integer
         keys[what]
       else
         block_given? ? keys.send(*what) { |*a| yield(*a) } : keys.send(*what)

data/lib/nuggets/hash/insert.rb

@@ -35,7 +35,7 @@ class Hash
   # overwriting. Uses default Hash#merge or block for merging.
   def insert(other, &block)
     block ||= lambda { |key, old_val, new_val|
-      old_val.is_a?(Hash) && new_val.is_a?(Hash) ?
+      old_val.is_a?(::Hash) && new_val.is_a?(::Hash) ?
         old_val.merge(new_val, &block) : new_val
     }
 

data/lib/nuggets/hash/nest_mixin.rb

@@ -50,7 +50,7 @@ module Nuggets
   #   hash[:foo][:bar][:b] = { :x => 0, :y => 3 }
   #   hash
   #   #=> {:foo=>{:bar=>{:b=>{:y=>3, :x=>0}, :a=>{:y=>2, :x=>1}}}}
-  def nest(depth = 0, value = default = Object.new)
+  def nest(depth = 0, value = default = true)
     if depth.zero?
       if default
         if block_given?

data/lib/nuggets/hash/only.rb

@@ -36,7 +36,7 @@ class Hash
   # Returns the only key/value pair of _hash_. Raises an IndexError if _hash_'s
   # size is not 1, unless parameter +true+ is passed.
   def only(relax = size == 1, split = false)
-    raise IndexError, 'not a single-element hash' unless relax
+    raise ::IndexError, 'not a single-element hash' unless relax
 
     split ? Array(*first) : first
   end
@@ -60,7 +60,7 @@ if $0 == __FILE__
     begin
       p h.only
       p h.only_pair
-    rescue IndexError => err
+    rescue ::IndexError => err
       warn err
     end
 

data/lib/nuggets/integer/factorial.rb

@@ -63,7 +63,7 @@ if $0 == __FILE__
 
   require 'benchmark'
 
-  Benchmark.bm(19) { |x|
+  ::Benchmark.bm(19) { |x|
     [20000, 800, 300, 700, 130, 480, 9999, 9999, 25000].each { |i|
       puts "#{i}:"
 

data/lib/nuggets/io/agrep.rb

@@ -39,5 +39,5 @@ class IO
 end
 
 if $0 == __FILE__
-  puts File.agrep(__FILE__, /calls/, 2)
+  puts ::File.agrep(__FILE__, /calls/, 2)
 end

data/lib/nuggets/io/modes.rb

@@ -50,13 +50,13 @@ class IO
             when true, false, nil
               # ok
             else
-              raise TypeError, "wrong argument type #{binary.class} (expected boolean)"
+              raise ::TypeError, "wrong argument type #{binary.class} (expected boolean)"
           end
         else
-          raise ArgumentError, "wrong number of arguments (#{args.size + 1} for 1-2)"
+          raise ::ArgumentError, "wrong number of arguments (#{args.size + 1} for 1-2)"
       end
 
-      open_with_mode(name, 'r', binary, &Proc.new)
+      open_with_mode(name, 'r', binary, &::Proc.new)
     end
 
     # call-seq:
@@ -65,7 +65,7 @@ class IO
     #
     # Opens +name+ with mode +w+.
     def write(name, binary = false)
-      open_with_mode(name, 'w', binary, &block_given? ? Proc.new : nil)
+      open_with_mode(name, 'w', binary, &block_given? ? ::Proc.new : nil)
     end
 
     # call-seq:
@@ -74,7 +74,7 @@ class IO
     #
     # Opens +name+ with mode +a+.
     def append(name, binary = false)
-      open_with_mode(name, 'a', binary, &block_given? ? Proc.new : nil)
+      open_with_mode(name, 'a', binary, &block_given? ? ::Proc.new : nil)
     end
 
     # call-seq:
@@ -83,7 +83,7 @@ class IO
     #
     # Opens +name+ with mode <tt>r+</tt>.
     def read_write(name, binary = false)
-      open_with_mode(name, 'r+', binary, &block_given? ? Proc.new : nil)
+      open_with_mode(name, 'r+', binary, &block_given? ? ::Proc.new : nil)
     end
 
     # call-seq:
@@ -92,7 +92,7 @@ class IO
     #
     # Opens +name+ with mode <tt>w+</tt>.
     def write_read(name, binary = false)
-      open_with_mode(name, 'w+', binary, &block_given? ? Proc.new : nil)
+      open_with_mode(name, 'w+', binary, &block_given? ? ::Proc.new : nil)
     end
 
     # call-seq:
@@ -101,14 +101,14 @@ class IO
     #
     # Opens +name+ with mode <tt>a+</tt>.
     def append_read(name, binary = false)
-      open_with_mode(name, 'a+', binary, &block_given? ? Proc.new : nil)
+      open_with_mode(name, 'a+', binary, &block_given? ? ::Proc.new : nil)
     end
 
     private
 
     # Just a helper to DRY things up.
     def open_with_mode(name, mode, binary = false)
-      open(name, "#{mode}#{'b' if binary}", &block_given? ? Proc.new : nil)
+      open(name, "#{mode}#{'b' if binary}", &block_given? ? ::Proc.new : nil)
     end
 
   end
@@ -116,7 +116,7 @@ class IO
 end
 
 if $0 == __FILE__
-  # File.read(__FILE__) { |f| ... }
-  # File.write(__FILE__) { |f| ... }
-  # File.append(__FILE__) { |f| ... }
+  # ::File.read(__FILE__) { |f| ... }
+  # ::File.write(__FILE__) { |f| ... }
+  # ::File.append(__FILE__) { |f| ... }
 end

data/lib/nuggets/io/null_mixin.rb

@@ -29,7 +29,7 @@ module Nuggets
   class IO
     module NullMixin
 
-      NULL = case RUBY_PLATFORM
+      NULL = case ::RUBY_PLATFORM
         when /mswin|mingw/i then 'NUL'
         when /openvms/i     then 'NL:'
         when /amiga/i       then 'NIL:'

data/lib/nuggets/net/success.rb

@@ -0,0 +1,60 @@
+#--
+###############################################################################
+#                                                                             #
+# A component of ruby-nuggets, some extensions to the Ruby programming        #
+# language.                                                                   #
+#                                                                             #
+# Copyright (C) 2007-2011 Jens Wille                                          #
+#                                                                             #
+# Authors:                                                                    #
+#     Jens Wille <jens.wille@uni-koeln.de>                                    #
+#                                                                             #
+# ruby-nuggets is free software; you can redistribute it and/or modify it     #
+# under the terms of the GNU Affero General Public License as published by    #
+# the Free Software Foundation; either version 3 of the License, or (at your  #
+# option) any later version.                                                  #
+#                                                                             #
+# ruby-nuggets 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. See the GNU Affero General Public License #
+# for more details.                                                           #
+#                                                                             #
+# You should have received a copy of the GNU Affero General Public License    #
+# along with ruby-nuggets. If not, see <http://www.gnu.org/licenses/>.        #
+#                                                                             #
+###############################################################################
+#++
+
+require 'net/http'
+
+module Net
+
+  class HTTPResponse
+    def success?; nil end
+  end
+
+  class HTTPInformation
+    # ???
+  end
+
+  class HTTPSuccess
+    def success?; true end
+  end
+
+  class HTTPRedirection
+    def success?; true end
+  end
+
+  class HTTPMultipleChoice
+    def success?; false end
+  end
+
+  class HTTPClientError
+    def success?; false end
+  end
+
+  class HTTPServerError
+    def success?; false end
+  end
+
+end

data/lib/nuggets/numeric/duration.rb

@@ -32,7 +32,7 @@ class Numeric
   #
   # Converts _num_ into hour, minute, and second portions.
   def hms
-    raise ArgumentError, "negative duration #{self}" if self < 0
+    raise ::ArgumentError, "negative duration #{self}" if self < 0
 
     one_minute = 60
     one_hour   = 60 * one_minute
@@ -45,7 +45,7 @@ class Numeric
   #
   # Converts _num_ into year, month, and day portions.
   def ymd
-    raise ArgumentError, "negative duration #{self}" if self < 0
+    raise ::ArgumentError, "negative duration #{self}" if self < 0
 
     one_day   = 24 * 60 * 60
     one_month = 30 * one_day

data/lib/nuggets/object/singleton_class_mixin.rb

@@ -54,15 +54,15 @@ module Nuggets
     }
 
     # raises TypeError if neither class nor module
-    ObjectSpace.each_object(self) { |obj|
+    ::ObjectSpace.each_object(self) { |obj|
       return obj if self.equal?(obj.singleton_class)
     }
 
     # if we got here, it can't be a singleton class
     # or its singleton object doesn't exist anymore
-    raise TypeError
-  rescue TypeError
-    raise TypeError, 'not a singleton class'
+    raise ::TypeError
+  rescue ::TypeError
+    raise ::TypeError, 'not a singleton class'
   end
 
   alias_method :virtual_object, :singleton_object
@@ -81,7 +81,7 @@ module Nuggets
   def singleton_class?
     singleton_object
     true
-  rescue TypeError
+  rescue ::TypeError
     false
   end
 

data/lib/nuggets/string/evaluate_mixin.rb

@@ -38,7 +38,7 @@ module Nuggets
   # different environment (= +binding+) at a later point.
   #
   # Passes optional arguments +filename+ and +lineno+ on to Kernel#eval.
-  def evaluate(binding = TOPLEVEL_BINDING, filename = nil, lineno = nil)
+  def evaluate(binding = ::TOPLEVEL_BINDING, filename = nil, lineno = nil)
     buffer = gsub(/\\*"/) { |m| "#{"\\" * m.length}#{m}" }
     eval(%Q{"#{buffer}"}, binding, filename || __FILE__, lineno || __LINE__)
   end

data/lib/nuggets/string/msub.rb

@@ -52,19 +52,19 @@ class String
   #
   # Destructive version of #msub.
   def msub!(*substitutions)
-    options = substitutions.last.is_a?(Hash) ? substitutions.pop : {}
-    binding = options.delete(:__binding__) || Kernel.binding
+    options = substitutions.last.is_a?(::Hash) ? substitutions.pop : {}
+    binding = options.delete(:__binding__) || ::Kernel.binding
 
     keys, subs, cache = [], [], {}
 
     substitutions.concat(options.to_a).each { |key, value|
-      key = Regexp.new(Regexp.escape(key)) unless key.is_a?(Regexp)
+      key = ::Regexp.new(::Regexp.escape(key)) unless key.is_a?(::Regexp)
 
       keys << key
       subs << [key, value]
     }
 
-    gsub!(Regexp.union(*keys)) { |match|
+    gsub!(::Regexp.union(*keys)) { |match|
       cache[match] ||= begin
         value = subs.find { |key, _| key =~ match }.last
 
@@ -95,7 +95,7 @@ if $0 == __FILE__
   p s
 
   t = '!!!'
-  begin; p s.msub('r' => '???', 'z' => '#{t}'); rescue NameError => err; warn err; end
+  begin; p s.msub('r' => '???', 'z' => '#{t}'); rescue ::NameError => err; warn err; end
   p s.msub('r' => '???', 'z' => '#{t}', :__binding__ => binding)
 
   p s.msub(/[A-Z]/ => '#{__match__.downcase}', :__binding__ => binding)

data/lib/nuggets/string/nsub.rb

@@ -62,7 +62,7 @@ class String
 
         gsub!(pattern) { |match| (i += 1) <= count ? replacement : match }
       else
-        raise ArgumentError, "wrong number of arguments (#{args.size} for 2-3)"
+        raise ::ArgumentError, "wrong number of arguments (#{args.size} for 2-3)"
     end
   end
 

data/lib/nuggets/string/sub_with_md.rb

@@ -108,13 +108,13 @@ if $0 == __FILE__
     "#{md[1].gsub_with_md(/[ao]/) { |md2| md2[0].upcase }}#{md[2]}"
   }
 
-  String.gimme_match_data!
+  ::String.gimme_match_data!
 
   p s.gsub(/\w(\w+)(\W*)/) { |m|
     #p m
     begin
       "#{$1.gsub(/[ao]/, 'X')}#{$2}"
-    rescue NoMethodError => err
+    rescue ::NoMethodError => err
       warn err
     end
   }