ruby-nuggets 0.2.2.247 → 0.2.3.253

data/HEADER

@@ -0,0 +1,27 @@
+#--
+###############################################################################
+#                                                                             #
+# A component of ruby-nuggets, some extensions to the Ruby programming        #
+# language.                                                                   #
+#                                                                             #
+# Copyright (C) 2007-2008 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 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 General Public License for    #
+# more details.                                                               #
+#                                                                             #
+# You should have received a copy of the GNU General Public License along     #
+# with ruby-nuggets. If not, see <http://www.gnu.org/licenses/>.              #
+#                                                                             #
+###############################################################################
+#++
+

data/README

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

data/lib/nuggets/enumerable/all_any_extended.rb

@@ -27,8 +27,8 @@
 
 module Enumerable
 
-  alias_method :original_all?, :all?
-  alias_method :original_any?, :any?
+  alias_method :_nuggets_original_all?, :all?
+  alias_method :_nuggets_original_any?, :any?
 
   # call-seq:
   #   enum.all?(obj[, operator]) => true or false
@@ -38,7 +38,7 @@ module Enumerable
   # be tested against each item in _enum_ according to +operator+, defaulting
   # to :===.
   def all?(object = default = Object.new, operator = :===, &block)
-    original_all?(&_block_for_all_any_extended(object, default, operator, block))
+    _nuggets_original_all?(&_block_for_all_any_extended(object, default, operator, block))
   end
 
   # call-seq:
@@ -49,7 +49,7 @@ module Enumerable
   # be tested against each item in _enum_ according to +operator+, defaulting
   # to :===.
   def any?(object = default = Object.new, operator = :===, &block)
-    original_any?(&_block_for_all_any_extended(object, default, operator, block))
+    _nuggets_original_any?(&_block_for_all_any_extended(object, default, operator, block))
   end
 
   private

data/lib/nuggets/enumerable/minmax.rb

@@ -27,8 +27,8 @@
 
 module Enumerable
 
-  alias_method :original_max, :max
-  alias_method :original_min, :min
+  alias_method :_nuggets_original_max, :max
+  alias_method :_nuggets_original_min, :min
 
   # call-seq:
   #   enum.minmax_by(meth, by) => aValue
@@ -81,18 +81,18 @@ module Enumerable
   #   enum.max(what) => aValue
   #
   # Maximum #minmax. If +what+ is omitted, or nil, the original Enumerable#max
-  # is called (available as +original_max+).
+  # is called.
   def max(what = nil, &block)
-    what ? minmax(:max, what) : original_max(&block)
+    what ? minmax(:max, what) : _nuggets_original_max(&block)
   end
 
   # call-seq:
   #   enum.min(what) => aValue
   #
   # Minimum #minmax. If +what+ is omitted, or nil, the original Enumerable#min
-  # is called (available as +original_min+).
+  # is called.
   def min(what = nil, &block)
-    what ? minmax(:min, what) : original_min(&block)
+    what ? minmax(:min, what) : _nuggets_original_min(&block)
   end
 
 end

data/lib/nuggets/io/modes.rb

@@ -31,7 +31,7 @@ class IO
 
   class << self
 
-    alias_method :original_read, :read
+    alias_method :_nuggets_original_read, :read
 
     # call-seq:
     #   IO.read(name, [length [, offset]]) => aString
@@ -40,7 +40,7 @@ class IO
     # Opens +name+ with mode +r+. NOTE: With no associated block,
     # acts like the original IO::read, not like IO::new.
     def read(name, *args, &block)
-      return original_read(name, *args) unless block
+      return _nuggets_original_read(name, *args) unless block
 
       case args.size
         when 0

data/lib/nuggets/numeric/between.rb

@@ -1,47 +1,2 @@
-#--
-###############################################################################
-#                                                                             #
-# A component of ruby-nuggets, some extensions to the Ruby programming        #
-# language.                                                                   #
-#                                                                             #
-# Copyright (C) 2007-2008 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 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 General Public License for    #
-# more details.                                                               #
-#                                                                             #
-# You should have received a copy of the GNU General Public License along     #
-# with ruby-nuggets. If not, see <http://www.gnu.org/licenses/>.              #
-#                                                                             #
-###############################################################################
-#++
-
-class Numeric
-
-  # call-seq:
-  #   num.between(min, max) => aNumeric
-  #
-  # Cuts _num_ to the (inclusive) range of +min+ to +max+.
-  def between(min, max)
-    min, max = max, min if max < min
-
-    self < min ? min : self > max ? max : self
-  end
-
-end
-
-if $0 == __FILE__
-  [123, -123, 0, 0.001, 1.23, -12.3].each { |n|
-    p n
-    p n.between(0, 10)
-  }
-end
+# backwards compatibility
+require File.join(File.dirname(__FILE__), 'limit')

data/lib/nuggets/numeric/limit.rb

@@ -0,0 +1,70 @@
+#--
+###############################################################################
+#                                                                             #
+# A component of ruby-nuggets, some extensions to the Ruby programming        #
+# language.                                                                   #
+#                                                                             #
+# Copyright (C) 2007-2008 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 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 General Public License for    #
+# more details.                                                               #
+#                                                                             #
+# You should have received a copy of the GNU General Public License along     #
+# with ruby-nuggets. If not, see <http://www.gnu.org/licenses/>.              #
+#                                                                             #
+###############################################################################
+#++
+
+class Numeric
+
+  # call-seq:
+  #   num.limit(min, max) => aNumeric
+  #
+  # Returns +min+ if that's larger than _num_, or +max+ if that's smaller than
+  # _num_. Otherwise returns _num_.
+  def limit(min, max)
+    min, max = max, min if max < min
+
+    self.min(min).max(max)
+  end
+
+  alias_method :between, :limit
+
+  # call-seq:
+  #   num.min(min) => aNumeric
+  #
+  # Returns _num_ or +min+, whatever is larger.
+  def min(min)
+    self < min ? min : self
+  end
+
+  alias_method :at_least, :min
+
+  # call-seq:
+  #   num.max(max) => aNumeric
+  #
+  # Returns _num_ or +max+, whatever is smaller.
+  def max(max)
+    self > max ? max : self
+  end
+
+  alias_method :at_most, :max
+
+end
+
+if $0 == __FILE__
+  [123, -123, 0, 0.001, 1.23, -12.3].each { |n|
+    p n
+    p n.between(0, 10)
+  }
+end

data/lib/nuggets/object/msend.rb

@@ -0,0 +1,57 @@
+#--
+###############################################################################
+#                                                                             #
+# A component of ruby-nuggets, some extensions to the Ruby programming        #
+# language.                                                                   #
+#                                                                             #
+# Copyright (C) 2007-2008 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 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 General Public License for    #
+# more details.                                                               #
+#                                                                             #
+# You should have received a copy of the GNU General Public License along     #
+# with ruby-nuggets. If not, see <http://www.gnu.org/licenses/>.              #
+#                                                                             #
+###############################################################################
+#++
+
+class Object
+
+  # call-seq:
+  #   object.msend(*messages) => anArray
+  #
+  # Sends _object_ multiple +messages+ and returns an array of the individual
+  # return values.
+  def msend(*messages)
+    messages_with_args = messages.last.is_a?(Hash) ? messages.pop : {}
+
+    (messages + messages_with_args.keys).map { |msg|
+      messages_with_args.has_key?(msg) ? send(msg, *messages_with_args[msg]) : send(msg)
+    }
+  end
+
+end
+
+if $0 == __FILE__
+  o = 'foo bar'
+  p o
+  p o.msend(:length, :reverse)
+
+  o = 42
+  p o
+  p o.msend(:to_s, :* => 2)
+
+  o = Time.now
+  p o
+  p o.msend(:year, :month, :day)
+end

data/lib/nuggets/util/added_methods/init.rb

@@ -0,0 +1,3 @@
+# just a short-cut
+require "#{File.dirname(__FILE__)}.rb"
+AddedMethods.init

data/lib/nuggets/util/added_methods.rb

@@ -0,0 +1,302 @@
+# watch for added methods and record them
+# cf. <http://unroller.rubyforge.org/classes/Unroller.html#M000034>
+
+# TODO:
+# - multi-line statements in irb (extract_source)
+# - polishing!
+
+module AddedMethods
+
+  extend self
+
+  HISTFILENAME = '(Readline::HISTORY)'.freeze
+
+  class AddedMethod < Hash
+
+    def initialize(*args)
+      update(*args) unless args.empty?
+    end
+
+    def extract_source(num_lines = nil)
+      return unless Object.const_defined?(:SCRIPT_LINES__)
+      return unless script_lines = SCRIPT_LINES__[file]
+
+      start, from, to = line - 1, line, script_lines.size - 1
+
+      # suppose we're already in a block
+      in_block = 1
+
+      num_lines ||= case definition = script_lines[start]
+        # def ... end, or do ... end style block
+        when /\b(?:def|do)\b/
+          definition =~ /\bend\b/ ? 1 : begin
+            from.upto(to) { |i|
+              case line = script_lines[i]
+                when /[^;\s]\s+(?:if|unless)\b/
+                  # probably postfix conditional, ignore
+                when /\b(?:if|unless|while|until|def|do)\b/
+                  in_block += 1
+                when /\bend\b/
+                  in_block -= 1
+              end
+
+              break i - start + 1 if in_block.zero?
+            }
+          end
+        # { ... } style block
+        when /\bdefine_method\b/
+          from.upto(to) { |i|
+            line = script_lines[i]
+
+            in_block += line.count('{')
+            in_block -= line.count('}')
+
+            break i - start + 1 if in_block.zero?
+          }
+        else
+          1
+      end
+
+      script_lines[start, num_lines].map { |l| "  #{l}" }
+    end
+
+    def to_s(num_lines = nil)
+      "# File #{file}, line #{line}\n#{extract_source(num_lines)}"
+    end
+
+    def klass
+      self[:class]
+    end
+
+    def method_missing(method, *args)
+      has_key?(method) ? self[method] : super
+    end
+
+  end
+
+  def init(regexp = nil, klasses = [], &block)
+    init_script_lines
+    patch_readline_history
+
+    define_callback(:__init, regexp, klasses, &block) if regexp
+    install_callbacks
+  end
+
+  def callbacks
+    init_callbacks
+    CALLBACKS
+  end
+
+  def callback(*args, &inner_block)
+    callback_args = [identify_added_method(*args << caller), caller, inner_block]
+    callbacks.each { |name, callback| callback[*callback_args] }
+  end
+
+  def define_callback(name, regexp = //, klasses = [], &outer_block)
+    raise TypeError, "wrong argument type #{name.class} (expected Symbol)" unless name.is_a?(Symbol)
+    raise "callback with name #{name} already exists" if callbacks.any? { |n, _| n == name }
+
+    raise TypeError, "wrong argument type #{regexp.class} (expected Regexp)" unless regexp.is_a?(Regexp)
+    raise TypeError, "wrong argument type #{klasses.class} (expected container object)" unless klasses.respond_to?(:empty?) && klasses.respond_to?(:include?)
+
+    callbacks << [name, lambda { |am, callstack, inner_block|
+      method, klass = am.values_at(:name, :class)
+
+      return if %w[method_added singleton_method_added].include?(method)
+
+      return unless klasses.empty? || klasses.include?(klass.to_s)
+      return unless method =~ regexp
+
+      if outer_block || inner_block
+        outer_block[am] if outer_block
+        inner_block[am] if inner_block
+      else
+        msg = "[#{am.base}] Adding #{'singleton ' if am.singleton}method #{klass}##{method}"
+
+        msg << if irb?(callstack)
+          " in (irb:#{IRB.conf[:MAIN_CONTEXT].instance_variable_get(:@line_no)})"
+        else
+          " at #{where(callstack)}"
+        end
+
+        puts msg
+      end
+    }]
+  end
+
+  def remove_callback(name)
+    callbacks.delete_if { |n, _| n == name }
+  end
+
+  def replace_callback(name, regexp = nil, klasses = [], &outer_block)
+    remove_callback(name)
+    define_callback(name, regexp, klasses, &outer_block)
+  end
+
+  def install_callbacks(bases = [Object, Class, Module, Kernel])
+    bases.each { |base|
+      [base, singleton_class(base)].each { |b|
+        b.send(:define_method, :method_added)           { |id| AddedMethods.callback(b, self, id, false) }
+        b.send(:define_method, :singleton_method_added) { |id| AddedMethods.callback(b, self, id, true)  }
+      }
+    }
+  end
+
+  def all_methods
+    init_all_methods
+    ALL_METHODS
+  end
+
+  def find(conditions = {})
+    conditions = conditions.dup
+
+    class_condition = conditions.delete(:class)
+    file_condition  = conditions.delete(:file)
+
+    results = []
+
+    all_methods.each { |klass, files|
+      if class_condition
+        next unless class_condition.is_a?(Array) ? class_condition.include?(klass) : klass == class_condition
+      end
+
+      files.each { |file, entries|
+        if file_condition
+          next unless file_condition.is_a?(Regexp) ? file =~ file_condition : file == file_condition
+        end
+
+        entries.each { |entry|
+          results << entry.merge(
+            :class => klass,
+            :file  => file
+          ) if conditions.all? { |key, value|
+            case value
+              when Array:  value.include?(entry[key])
+              when Regexp: entry[key].to_s =~ value
+              else         entry[key] == value
+            end
+          }
+        }
+      }
+    }
+
+    results
+  end
+
+  def find_by_class(*classes)
+    conditions = classes.last.is_a?(Hash) ? classes.pop : {}
+    find(conditions.merge(:class => classes))
+  end
+
+  def find_by_name(*names)
+    conditions = names.last.is_a?(Hash) ? names.pop : {}
+    names.inject([]) { |memo, name|
+      memo += find(conditions.merge(:name => name.to_s))
+    }
+  end
+
+  private
+
+  def singleton_class(klass = self)
+    class << klass; self; end
+  end
+
+  def init_script_lines
+    unless Object.const_defined?(:SCRIPT_LINES__)
+      Object.const_set(:SCRIPT_LINES__, {})
+    end
+  end
+
+  def init_callbacks
+    unless const_defined?(:CALLBACKS)
+      const_set(:CALLBACKS, [])
+      define_callback(:__default, //, [], &added_method_callback)
+    end
+  end
+
+  def init_all_methods
+    unless const_defined?(:ALL_METHODS)
+      const_set(:ALL_METHODS, Hash.new { |h, k|
+        h[k] = Hash.new { |i, j|
+          i[j] = []
+        }
+      })
+    end
+  end
+
+  def patch_readline_history
+    return unless have_readline_history?
+    return if Readline::HISTORY.respond_to?(:_added_methods_original_push)
+
+    class << Readline::HISTORY
+      alias_method :_added_methods_original_push, :push
+
+      def push(l)
+        (SCRIPT_LINES__[HISTFILENAME] ||= Readline::HISTORY.to_a) << l
+        _added_methods_original_push(l)
+      end
+
+      alias_method :<<, :push
+    end
+  end
+
+  def have_readline_history?
+    Object.const_defined?(:Readline) && Readline.const_defined?(:HISTORY)
+  end
+
+  def defined_in_irb?(callstack)
+    callstack = callstack.dup
+
+    callstack.shift  # ignore immediate caller
+    callstack.reject! { |c| c =~ /\(irb\):|:in `irb_binding'/ }
+    callstack.pop if callstack.last =~ %r{/irb/workspace\.rb:}
+
+    callstack.empty?
+  end
+
+  def irb?(callstack)
+    have_readline_history? && defined_in_irb?(callstack)
+  end
+
+  def where(callstack, default = '(none):0')
+    callstack.find { |i| i !~ /:in `.*'/ } || callstack[1] || default
+  end
+
+  def added_method_callback
+    lambda { |am| add_method(am) }
+  end
+
+  def add_method(am)
+    am = AddedMethod.new(am) unless am.is_a?(AddedMethod)
+    all_methods[am.klass][am.file] << am
+  end
+
+  def identify_added_method(base, klass, id, singleton, callstack)
+    am = {
+      :base      => base,
+      :class     => klass,
+      :name      => id.id2name,
+      :singleton => singleton
+    }
+
+    if irb?(callstack)
+      am.update(
+        :file   => HISTFILENAME,
+        :line   => Readline::HISTORY.size,
+        :source => Readline::HISTORY[-1]
+      )
+    else
+      file, line, _ = where(callstack).split(':')
+      line = line.to_i
+
+      am.update(
+        :file   => file,
+        :line   => line,
+        :source => (SCRIPT_LINES__[file] || [])[line - 1]
+      )
+    end
+
+    AddedMethod.new(am)
+  end
+
+end

data/lib/nuggets/version.rb

@@ -4,7 +4,7 @@ module Nuggets
 
     MAJOR = 0
     MINOR = 2
-    TINY  = 2
+    TINY  = 3
 
     class << self
 

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: ruby-nuggets
 version: !ruby/object:Gem::Version 
-  version: 0.2.2.247
+  version: 0.2.3.253
 platform: ruby
 authors: 
 - Jens Wille
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2008-07-10 00:00:00 +02:00
+date: 2008-07-11 00:00:00 +02:00
 default_executable: 
 dependencies: []
 
@@ -24,60 +24,65 @@ extra_rdoc_files:
 - ChangeLog
 - README
 files: 
-- lib/nuggets/all.rb
-- lib/nuggets/version.rb
-- lib/nuggets/io/agrep.rb
-- lib/nuggets/io/modes.rb
-- lib/nuggets/file/which.rb
-- lib/nuggets/integer/factorial.rb
 - lib/nuggets/integer/to_binary_s.rb
-- lib/nuggets/array/to_hash.rb
-- lib/nuggets/array/shuffle.rb
-- lib/nuggets/array/format.rb
-- lib/nuggets/array/in_order.rb
-- lib/nuggets/array/combination.rb
-- lib/nuggets/array/flatten_once.rb
-- lib/nuggets/array/rand.rb
-- lib/nuggets/array/monotone.rb
-- lib/nuggets/uri/exist.rb
-- lib/nuggets/uri/content_type.rb
-- lib/nuggets/proc/bind.rb
-- lib/nuggets/string/word_wrap.rb
+- lib/nuggets/integer/factorial.rb
+- lib/nuggets/version.rb
+- lib/nuggets/object/singleton_class.rb
+- lib/nuggets/object/blank.rb
+- lib/nuggets/object/msend.rb
+- lib/nuggets/enumerable/agrep.rb
+- lib/nuggets/enumerable/all_any_extended.rb
+- lib/nuggets/enumerable/minmax.rb
+- lib/nuggets/all.rb
+- lib/nuggets/string/sub_with_md.rb
 - lib/nuggets/string/msub.rb
 - lib/nuggets/string/case.rb
-- lib/nuggets/string/sub_with_md.rb
 - lib/nuggets/string/evaluate.rb
+- lib/nuggets/string/word_wrap.rb
 - lib/nuggets/string/nsub.rb
 - lib/nuggets/string/capitalize_first.rb
-- lib/nuggets/object/blank.rb
-- lib/nuggets/object/singleton_class.rb
+- lib/nuggets/hash/in_order.rb
+- lib/nuggets/hash/insert.rb
+- lib/nuggets/proc/bind.rb
+- lib/nuggets/array/rand.rb
+- lib/nuggets/array/to_hash.rb
+- lib/nuggets/array/flatten_once.rb
+- lib/nuggets/array/in_order.rb
+- lib/nuggets/array/shuffle.rb
+- lib/nuggets/array/monotone.rb
+- lib/nuggets/array/format.rb
+- lib/nuggets/array/combination.rb
 - lib/nuggets/numeric/between.rb
 - lib/nuggets/numeric/signum.rb
+- lib/nuggets/numeric/limit.rb
 - lib/nuggets/numeric/to_multiple.rb
-- lib/nuggets/util/dotted_decimal.rb
-- lib/nuggets/util/i18n.rb
+- lib/nuggets/util/added_methods/init.rb
+- lib/nuggets/util/added_methods.rb
 - lib/nuggets/util/ansicolor2css.rb
 - lib/nuggets/util/content_type.rb
-- lib/nuggets/enumerable/minmax.rb
-- lib/nuggets/enumerable/all_any_extended.rb
-- lib/nuggets/enumerable/agrep.rb
-- lib/nuggets/hash/in_order.rb
-- lib/nuggets/hash/insert.rb
+- lib/nuggets/util/dotted_decimal.rb
+- lib/nuggets/util/i18n.rb
+- lib/nuggets/file/which.rb
+- lib/nuggets/uri/content_type.rb
+- lib/nuggets/uri/exist.rb
+- lib/nuggets/io/modes.rb
+- lib/nuggets/io/agrep.rb
 - COPYING
-- Rakefile
+- HEADER
 - README
 - ChangeLog
+- Rakefile
 has_rdoc: true
 homepage: http://prometheus.rubyforge.org/ruby-nuggets
 post_install_message: 
 rdoc_options: 
-- --all
-- --main
-- README
 - --line-numbers
 - --inline-source
 - --title
 - ruby-nuggets Application documentation
+- --main
+- README
+- --all
 - --charset
 - UTF-8
 require_paths: