blackwinter-ruby-nuggets 0.4.0

data/lib/nuggets/string/sub_with_md.rb

@@ -0,0 +1,131 @@
+#--
+###############################################################################
+#                                                                             #
+# 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 String
+
+  alias_method :sub_without_md,   :sub
+  alias_method :sub_without_md!,  :sub!
+  alias_method :gsub_without_md,  :gsub
+  alias_method :gsub_without_md!, :gsub!
+
+  # call-seq:
+  #   str.sub_with_md(pattern) { |match_data| ... } => new_str
+  #
+  # Just like #sub, but passes the MatchData object instead of the current
+  # match string to the block.
+  def sub_with_md(pattern, replacement = nil)
+    replacement ?
+      sub_without_md(pattern, replacement) :
+      (_dup = dup).sub_with_md!(pattern) { |*a| yield(*a) } || _dup
+  end
+
+  # call-seq:
+  #   str.sub_with_md!(pattern) { |match_data| ... } => str or nil
+  #
+  # Destructive version of #sub_with_md.
+  def sub_with_md!(pattern, replacement = nil)
+    replacement ?
+      sub_without_md!(pattern, replacement) :
+      sub_without_md!(pattern) { |match| yield $~ }
+  end
+
+  # call-seq:
+  #   str.gsub_with_md(pattern) { |match_data| ... } => new_str
+  #
+  # Just like #gsub, but passes the MatchData object instead of the current
+  # match string to the block.
+  def gsub_with_md(pattern, replacement = nil)
+    replacement ?
+      gsub_without_md(pattern, replacement) :
+      (_dup = dup).gsub_with_md!(pattern) { |*a| yield(*a) } || _dup
+  end
+
+  # call-seq:
+  #   str.gsub_with_md!(pattern) { |match_data| ... } => str or nil
+  #
+  # Destructive version of #gsub_with_md.
+  def gsub_with_md!(pattern, replacement = nil)
+    replacement ?
+      gsub_without_md!(pattern, replacement) :
+      gsub_without_md!(pattern) { |match| yield $~ }
+  end
+
+  # call-seq:
+  #   gimme_match_data!
+  #
+  # Replaces the traditional substitution methods with their MatchData passing
+  # equivalents. USE WITH CAUTION!
+  def self.gimme_match_data!
+    alias_method :sub,   :sub_with_md
+    alias_method :sub!,  :sub_with_md!
+    alias_method :gsub,  :gsub_with_md
+    alias_method :gsub!, :gsub_with_md!
+  end
+
+end
+
+if $0 == __FILE__
+  # stupid example, but it proves the point ;-)
+  s = 'Foo, Bar - Baz'
+  p s
+
+  p s.gsub(/\w(\w+)(\W*)/) { |m|
+    #p m
+    "#{$1.gsub(/[ao]/, 'X')}#{$2}"
+  }
+
+  p s.gsub_with_md(/\w(\w+)(\W*)/) { |md|
+    #p md[0]
+    "#{md[1].gsub(/[ao]/, 'X')}#{md[2]}"
+  }
+
+  p s.gsub_with_md(/\w(\w+)(\W*)/) { |md|
+    #p md[0]
+    "#{md[1].gsub_with_md(/[ao]/) { |md2| md2[0].upcase }}#{md[2]}"
+  }
+
+  String.gimme_match_data!
+
+  p s.gsub(/\w(\w+)(\W*)/) { |m|
+    #p m
+    begin
+      "#{$1.gsub(/[ao]/, 'X')}#{$2}"
+    rescue NoMethodError => err
+      warn err
+    end
+  }
+
+  p s.gsub(/\w(\w+)(\W*)/) { |md|
+    #p md[0]
+    "#{md[1].gsub(/[ao]/, 'X')}#{md[2]}"
+  }
+
+  p s.gsub(/\w(\w+)(\W*)/) { |md|
+    #p md[0]
+    "#{md[1].gsub(/[ao]/) { |md2| md2[0].upcase }}#{md[2]}"
+  }
+end

data/lib/nuggets/string/word_wrap.rb

@@ -0,0 +1,111 @@
+#--
+###############################################################################
+#                                                                             #
+# A component of ruby-nuggets, some extensions to the Ruby programming        #
+# language.                                                                   #
+#                                                                             #
+# Copyright (C) 2007 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/>.              #
+#                                                                             #
+###############################################################################
+#++
+
+require 'enumerator'
+
+class String
+
+  # call-seq:
+  #   str.word_wrap(line_width) => new_str
+  #
+  # Word wrap a string not exceeding +line_width+. Based on the Ruby Facets
+  # implementation, but preserves paragraphs. Thus
+  # <tt>str == str.word_wrap(str.split("\n").map { |l| l.length }.max)</tt>.
+  def word_wrap(line_width = 80, as_array = false)
+    wrapped = []
+
+    split(/(\n+)/).to_enum(:each_slice, 2).each { |paragraph, linebreaks|
+      wrapped << paragraph.word_wrap_paragraph!(line_width) << linebreaks
+    }
+
+    wrapped = wrapped.join
+    
+    as_array ? wrapped.split("\n") : wrapped
+  end
+
+  # call-seq:
+  #   str.word_wrap!(line_width) => str
+  #
+  # As with #word_wrap, but modifies the string in place.
+  def word_wrap!(line_width = 80)
+    replace word_wrap(line_width)
+  end
+
+  # call-seq:
+  #   str.word_wrap_paragraph(line_width) => new_str
+  #
+  # Similar to #word_wrap, but assumes a single paragraph.
+  def word_wrap_paragraph(line_width = 80)
+    (_dup = dup).word_wrap_paragraph!(line_width) || _dup
+  end
+
+  # call-seq:
+  #   str.word_wrap_paragraph!(line_width) => str
+  #
+  # Destructive version of #word_wrap_paragraph.
+  def word_wrap_paragraph!(line_width = 80)
+    gsub!(/(.{1,#{line_width}})(?:\s+|$)/, "\\1\n")
+    sub!(/\n$/, '')
+
+    self
+  end
+
+end
+
+if $0 == __FILE__
+  s = <<EOT
+Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Nullam nulla arcu,
+ullamcorper non, vulputate eget, elementum quis, sapien. Quisque consequat
+porta enim. Phasellus porta libero et turpis. Ut felis.
+
+Phasellus eget est a enim rutrum accumsan. Integer nec purus. Maecenas
+facilisis urna sed arcu. Suspendisse potenti.
+
+
+Vestibulum lacus metus, faucibus sit amet, mattis non, mollis sed, pede. Aenean
+vitae sem nec sem euismod sollicitudin. Cras rhoncus.
+
+
+
+Phasellus condimentum, ante a cursus dictum, lectus ipsum convallis magna, sed
+tincidunt massa eros vitae ante. Suspendisse nec sem.
+In hac habitasse platea dictumst. Fusce purus leo, ullamcorper sit amet, luctus
+in, mollis mollis, enim. In adipiscing erat.
+EOT
+  puts s
+
+  puts '=' * 80
+
+  puts s.word_wrap(60)
+  puts '=' * 80
+  puts s.word_wrap(79)
+
+  puts '=' * 80
+
+  s.word_wrap!(60)
+  puts s
+end

data/lib/nuggets/tempfile/open.rb

@@ -0,0 +1,54 @@
+#--
+###############################################################################
+#                                                                             #
+# 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/>.              #
+#                                                                             #
+###############################################################################
+#++
+
+require 'tempfile'
+
+class Tempfile
+
+  alias_method :_nuggets_original_open, :open
+
+  # If no block is given, this is a synonym for new().
+  #
+  # If a block is given, it will be passed tempfile as an argument,
+  # and the tempfile will automatically be closed when the block
+  # terminates.  In this case, open() returns tempfile -- in contrast
+  # to the original implementation, which returns nil.
+  def self.open(*args)
+    tempfile = new(*args)
+
+    if block_given?
+      begin
+        yield tempfile
+      ensure
+        tempfile.close
+      end
+    end
+
+    tempfile
+  end
+
+end

data/lib/nuggets/uri/content_type.rb

@@ -0,0 +1,65 @@
+#--
+###############################################################################
+#                                                                             #
+# 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/>.              #
+#                                                                             #
+###############################################################################
+#++
+
+require 'socket'
+require 'open-uri'
+
+module URI
+
+  class << self
+
+    # call-seq:
+    #   URI.content_type(uri) => aString or nil
+    #
+    # Return the content type of +uri+, or +nil+ if not found.
+    def content_type(uri)
+      open(uri.to_s).content_type
+    rescue OpenURI::HTTPError, SocketError, Errno::ENOENT, Errno::EHOSTUNREACH, NoMethodError
+      nil
+    end
+
+  end
+
+end
+
+if $0 == __FILE__
+  %w[
+    http://www.google.de
+    htp://www.google.de
+    www.google.de
+    http://blackwinter.de/misc/
+    http://blackwinter.de/misc/ww.png
+    http://blackwinter.de/misc/suicide_is_painless.mid
+    http://blackwinter.de/misc/expand_macros.pl.gz
+    http://blackwinter.de/misc/blanc60302523.nth
+    http://blackwinter.de/bla
+    http://blawinter.de
+    http://192.168.12.34/foo/bar
+  ].each { |u|
+    p [u, URI.content_type(u)]
+  }
+end

data/lib/nuggets/uri/exist.rb

@@ -0,0 +1,63 @@
+#--
+###############################################################################
+#                                                                             #
+# 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/>.              #
+#                                                                             #
+###############################################################################
+#++
+
+require 'open-uri'
+
+module URI
+
+  class << self
+
+    # call-seq:
+    #   URI.exist?(uri) => true or false
+    #
+    # Return +true+ if the named URI exists.
+    def exist?(uri)
+      open(uri.to_s)
+      true
+    rescue OpenURI::HTTPError, SocketError, Errno::ENOENT
+      false
+    end
+    alias_method :exists?, :exist?
+
+  end
+
+end
+
+if $0 == __FILE__
+  %w[
+    http://www.google.de
+    htp://www.google.de
+    www.google.de
+    http://xuugle.de
+    http://blackwinter.de
+    http://blackwinter.de/bla
+    http://blackwinter.de/index.html
+    http://blackwinter.de/index.htm
+  ].each { |u|
+    p [u, URI.exist?(u)]
+  }
+end

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

@@ -0,0 +1,3 @@
+# just a short-cut
+require 'nuggets/util/added_methods'
+Util::AddedMethods.init