zucker 4 → 5

data/lib/zucker/4/mcopy.rb

@@ -0,0 +1,10 @@
+require 'zucker'
+
+class Object
+  def mcopy
+    Marshal.load Marshal.dump self
+  end
+end
+
+# J-_-L
+

data/lib/zucker/4/mm.rb

@@ -0,0 +1,33 @@
+require 'zucker'
+
+module Kernel
+  def method_list(levels = 1)
+    if self.is_a? Module
+      klass, method_function = self, :public_methods
+    else
+      klass, method_function = self.class, :public_instance_methods
+
+      eigen = self.singleton_methods
+      if !eigen.empty?
+        puts :Eigenclass # sorry for not being up to date, I just love the word
+        p self.singleton_methods
+      end
+    end
+
+    levels.times{ |level|
+      if cur = klass.ancestors[level]
+        p cur                               # put class name
+        p cur.send method_function, false   # put methods of the class
+      else
+        break
+      end
+    }
+
+    self # or whatever
+  end
+
+  alias mm method_list
+end
+
+# J-_-L
+

data/lib/zucker/4/not.rb

@@ -0,0 +1,19 @@
+require 'zucker'
+
+class Object
+  def not
+    NotClass.new self
+  end
+
+  class NotClass < BasicObject
+    def initialize(receiver)
+      @receiver = receiver
+    end
+    
+    def method_missing(m, *args, &block)
+      not @receiver.public_send( m, *args, &block )
+    end
+  end
+end
+
+# J-_-L

data/lib/zucker/4/os.rb

@@ -0,0 +1,50 @@
+require 'zucker'
+
+require 'rbconfig'
+
+module OS
+  class << OS
+    def is?(what)
+      what === RbConfig::CONFIG['host_os']
+    end
+    alias is is?
+
+    def to_s
+      RbConfig::CONFIG['host_os']
+    end
+  end
+
+  module_function
+
+  def linux?
+    OS.is? /linux|cygwin/
+  end
+
+  def mac?
+    OS.is? /mac|darwin/
+  end
+
+  def bsd?
+    OS.is? /bsd/
+  end
+
+  def windows?
+    OS.is? /mswin|win|mingw/
+  end
+
+  def solaris?
+    OS.is? /solaris|sunos/
+  end
+
+  def posix?
+    linux? or mac? or bsd? or solaris? or Process.respond_to?(:fork)
+  end
+
+  #def symbian?
+    #TODO who knows what symbian returns?
+  #end
+
+  # ...
+end
+
+# J-_-L

data/lib/zucker/{q.rb → 4/q.rb}

@@ -1,3 +1,5 @@
+require 'zucker'
+
 module Kernel
   def q(*args)
     puts args.map( &:inspect ).join '  '

data/lib/zucker/4/regexp2proc.rb

@@ -0,0 +1,12 @@
+require 'zucker'
+
+class Regexp
+  def to_proc
+    proc do |e|
+      e.to_s[self]
+    end
+  end
+end
+
+# J-_-L
+

data/lib/zucker/4/sandbox.rb

@@ -0,0 +1,23 @@
+require 'zucker'
+
+module Kernel
+  def sandbox(rescueblock_or_default=nil)
+    Thread.start do
+      $SAFE = 4
+      yield
+    end.value
+  rescue SecurityError => e
+    if !rescueblock_or_default.nil?
+      if rescueblock_or_default.is_a? Proc
+        rescueblock_or_default.call e
+      else
+        rescueblock_or_default
+      end
+    else
+      raise e
+    end
+  end
+end
+
+# J-_-L
+

data/lib/zucker/4/square_brackets_for.rb

@@ -0,0 +1,22 @@
+require 'zucker'
+
+def square_brackets_for(ivar, assignment = true)
+#  undef []   if respond_to? :[]
+#  undef []=  if respond_to? :[]=
+
+#instance_eval do
+  define_method :[] do |key|
+    (instance_variable_get :"@#{ivar}")[key]
+  end
+
+  if assignment
+    define_method :[]= do |key, value|
+      (instance_variable_get :"@#{ivar}")[key] = value
+    end
+  end
+#end
+
+end
+
+# J-_-L
+

data/lib/zucker/4/string.rb

@@ -0,0 +1,54 @@
+require 'zucker'
+
+class String
+  def -(rem)
+    gsub( Regexp === rem ? rem : rem.to_s, '' )
+  end
+
+  def ^(pos)
+    pos = pos.to_i
+    if pos >= 0
+      self[pos..-1]
+    else
+      self[0...pos]
+    end
+  end
+
+  def lchomp(arg = $/)
+    reverse.chomp(arg).reverse
+  end
+
+  def lchomp!(arg = $/)
+    reverse.chomp!(arg).reverse
+  end
+
+  def ords
+    unpack 'C*'
+   # bytes.to_a
+  end
+
+  def constantize(default_value = nil) # always uses global scope as in AS... is this good?
+    get_constant = lambda{
+      self.split(/::/).inject( Object ){ |base_constant, current_constant|
+        base_constant.const_get current_constant
+      }      
+    }
+
+    if !default_value && !block_given?
+      get_constant.call
+    else
+      begin
+        get_constant.call
+      rescue NameError
+        if block_given?
+          yield self
+        else
+          default_value
+        end
+      end
+    end
+  end
+end
+
+# J-_-L
+

data/lib/zucker/4/tap.rb

@@ -0,0 +1,11 @@
+require 'zucker'
+
+def tap_on(obj, &block)
+  obj.tap &block
+end
+
+def make_new(what, *args, &block)
+  what.new(*args).tap &block
+end
+
+# J-_-L

data/lib/zucker/4/unary.rb

@@ -0,0 +1,24 @@
+require 'zucker'
+
+class String
+  def +@
+    self
+  end
+
+  def -@
+    to_sym
+  end
+end
+
+class Symbol
+  def +@
+    to_s
+  end
+
+  def -@
+    self
+  end
+end
+
+# J-_-L
+

data/lib/zucker/4/union.rb

@@ -0,0 +1,16 @@
+require 'zucker'
+
+class Regexp
+  def |(arg)
+    Regexp.union self, arg.is_a?(Regexp) ? arg : arg.to_s
+  end
+end
+
+class String
+  def |(arg)
+    Regexp.union self, arg.is_a?(Regexp) ? arg : arg.to_s
+  end
+end
+
+# J-_-L
+

data/lib/zucker/4/version.rb

@@ -0,0 +1,115 @@
+require 'zucker'
+
+module RubyVersion
+  class << self
+    def to_s
+      RUBY_VERSION
+    end
+
+    def is?(other_version = nil)
+      compare other_version
+    end
+    alias is is?
+
+    # accessors
+
+    def major
+      RUBY_VERSION.to_i
+    end
+    alias main major
+
+    def minor
+      RUBY_VERSION.split('.')[1].to_i
+    end
+    alias mini minor
+
+    def tiny
+      RUBY_VERSION.split('.')[2].to_i
+    end
+    alias teeny tiny
+
+    def patchlevel
+      RUBY_PATCHLEVEL
+    end
+
+    def platform
+      RUBY_PLATFORM
+    end
+
+    def release_date
+      Date.parse RUBY_RELEASE_DATE
+    end
+    alias date release_date
+
+    def description
+      RUBY_DESCRIPTION
+    end
+
+  private
+
+    def compare(other_version)
+      case other_version
+      when nil
+        matcher
+      when Float
+        other_version == RUBY_VERSION.to_f
+      else
+        other_version.to_s == RUBY_VERSION
+      end
+    end
+
+
+    def matcher
+      return @ruby if @ruby
+
+      @ruby = RUBY_VERSION.dup
+      @ruby.instance_eval do
+        alias below     <
+        alias below?    <
+        alias at_most   <=
+        alias at_most?  <=
+        alias above     >
+        alias above?    >
+        alias at_least  >=
+        alias at_least? >=
+        alias exactly   ==
+        alias exactly?  ==
+        def not(other)
+          self != other
+        end
+        alias not?     not
+        alias between between?
+
+        def newer_than(other)
+          case other.class
+          when Date, Time
+            other.class.parse(RUBY_RELEASE_DATE) > other
+          else
+            RUBY_RELEASE_DATE > other.to_s
+          end
+        end
+        alias newer_than? newer_than
+
+        def older_than(other)
+          case other.class
+          when Date, Time
+            other.class.parse(RUBY_RELEASE_DATE) < other
+          else
+            RUBY_RELEASE_DATE < other.to_s
+          end
+        end
+        alias older_than? older_than
+
+        def released_today
+          RubyVersion.date == Date.today
+        end
+        alias released_today? released_today
+      end
+
+      @ruby.freeze
+    end
+
+  end
+end
+
+# J-_-L

data/lib/zucker/5/alias_for.rb

@@ -0,0 +1,21 @@
+require 'zucker'
+
+def alias_for(m, *aliases)
+  aliases.each{ |a|
+    class_eval "alias #{a} #{m}"
+  }
+end
+alias aliases_for alias_for
+
+class Module
+  def alias_method_for(m, *alias_methods)
+    alias_methods.each{ |a|
+      class_eval do
+        alias_method a.to_sym, m.to_sym
+      end
+    }
+  end
+  alias alias_methods_for alias_method_for
+end
+
+# J-_-L

data/lib/zucker/5/aliases.rb

@@ -0,0 +1,51 @@
+require 'zucker'
+
+class Object
+  alias is_an? is_a? # thanks to utility_belt
+end
+
+module Enumerable
+  alias with zip
+  alias %    zip
+end
+
+class Array
+  alias ** product
+  alias contains? include?
+end
+
+class String
+  alias contains? include?
+end
+
+class Hash
+  alias + merge
+end
+
+class Binding
+  #alias [] eval
+  def [](expr)
+    self.eval "#{expr}"
+  end
+end
+
+class << File
+  alias filename basename # thanks rdp :)
+end
+
+class << Dir
+  def join(*args)
+    File.join(*args)
+  end
+
+  def split(*args)
+    File.split(*args)
+  end
+end
+
+# constants - who would use these in real-world code for other things?
+Infinity = 1.0 / 0.0 # or 2*Float::MAX or Float::INFINITY
+NaN      = 0.0 / 0.0
+
+# J-_-L
+