zucker 4 → 5

data/lib/zucker/2/iterate.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 def iterate(*params)
   # params.shift.zip(*params).each{ |*elements| yield *elements }
 

data/lib/zucker/2/ivars.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 def instance_variables_from(obj, *only)
   iter =
   if    obj.is_a? Binding

data/lib/zucker/2/kernel.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 def activate_warnings!
   $VERBOSE = true
 end

data/lib/zucker/2/mcopy.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 class Object
   def mcopy
     Marshal.load Marshal.dump self

data/lib/zucker/2/mm.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 module Kernel
   def method_list(levels = 1)
     if self.is_a? Module

data/lib/zucker/2/regexp2proc.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 class Regexp
   def to_proc
     proc do |e|

data/lib/zucker/2/sandbox.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 def sandbox(rescueblock_or_default=nil)
   Thread.start do
     $SAFE = 4

data/lib/zucker/2/square_brackets_for.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 def square_brackets_for(ivar, assignment = true)
 #  undef []   if respond_to? :[]
 #  undef []=  if respond_to? :[]=

data/lib/zucker/2/string.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 class String
   def ^(pos)
     pos = pos.to_i

data/lib/zucker/2/unary.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 class String
   def +@
     self

data/lib/zucker/2/union.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 class Regexp
   def |(arg)
     Regexp.union self, arg.is_a?(Regexp) ? arg : arg.to_s

data/lib/zucker/3/D.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 module Kernel
   def D(*args, &block)
     if args.empty?

data/lib/zucker/3/alias_for.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 def alias_for(m, *aliases)
   aliases.each{ |a|
     class_eval "alias #{a} #{m}"

data/lib/zucker/3/aliases.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 alias is_an? is_a?
 
 module Enumerable

data/lib/zucker/3/all.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 # require all the sugar ;)
 # see README for an explaination of what they do
 

data/lib/zucker/3/array.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 class Array
   def ^(other) # TODO: more efficient
     (self - other) +

data/lib/zucker/3/array2proc.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 class Array
   def to_proc
     Proc.new{ |obj|

data/lib/zucker/3/binding.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 class Binding
   def inspect
     put_vars = lambda { |array|

data/lib/zucker/3/blank.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 class Object
   def blank?
     if respond_to? :empty? then empty? else !self end

data/lib/zucker/3/class2proc.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 class Class
   def to_proc
     Proc.new do |*args|

data/lib/zucker/3/debug.rb

@@ -1,5 +1,7 @@
 require 'zucker'
 
+require 'zucker'
+
 require 'zucker/3/D'
 require 'zucker/3/mm'
 require 'zucker/3/binding'

data/lib/zucker/3/default.rb

@@ -1,5 +1,7 @@
 require 'zucker'
 
+require 'zucker'
+
 # default
 zucker = %w|
 alias_for

data/lib/zucker/3/egonil.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 def egonil(nil_value = nil)
   yield
 rescue NoMethodError => e

data/lib/zucker/3/enumerable.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 module Enumerable
   def mash
     ret = {}

data/lib/zucker/3/hash.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 class Hash
   def self.zip(keys,values)
     Hash[ *keys.zip( values ).flatten ]

data/lib/zucker/3/hash2proc.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 class Hash
   def to_proc
     Proc.new{ |obj|

data/lib/zucker/3/info.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 module Info
   class << Info
     # hash like access

data/lib/zucker/3/iterate.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 def iterate(*params)
   # params.shift.zip(*params).each{ |*elements| yield *elements }
 

data/lib/zucker/3/ivars.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 def instance_variables_from(obj, *only)
   iter =
   if    obj.is_a? Binding

data/lib/zucker/3/kernel.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 module Kernel
   def activate_warnings!
     $VERBOSE = true

data/lib/zucker/3/mcopy.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 class Object
   def mcopy
     Marshal.load Marshal.dump self

data/lib/zucker/3/mm.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 module Kernel
   def method_list(levels = 1)
     if self.is_a? Module

data/lib/zucker/3/not.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 class Object
   def not
     NotClass.new self

data/lib/zucker/3/regexp2proc.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 class Regexp
   def to_proc
     proc do |e|

data/lib/zucker/3/sandbox.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 def sandbox(rescueblock_or_default=nil)
   Thread.start do
     $SAFE = 4

data/lib/zucker/3/square_brackets_for.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 def square_brackets_for(ivar, assignment = true)
 #  undef []   if respond_to? :[]
 #  undef []=  if respond_to? :[]=

data/lib/zucker/3/string.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 class String
   def ^(pos)
     pos = pos.to_i

data/lib/zucker/3/tap.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 def tap_on(obj, &block)
   obj.tap &block
 end

data/lib/zucker/3/unary.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 class String
   def +@
     self

data/lib/zucker/3/union.rb

@@ -1,3 +1,5 @@
+require 'zucker'
+
 class Regexp
   def |(arg)
     Regexp.union self, arg.is_a?(Regexp) ? arg : arg.to_s

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

@@ -1,3 +1,5 @@
+require 'zucker'
+
 module Kernel
   def D(*args, &block)
     if args.empty?

data/lib/zucker/4/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/4/aliases.rb

@@ -0,0 +1,35 @@
+require 'zucker'
+
+alias is_an? is_a?
+
+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
+
+# 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
+

data/lib/zucker/4/all.rb

@@ -0,0 +1,8 @@
+require 'zucker'
+
+# require all the sugar ;)
+# see README for an explaination of what they do
+
+require 'zucker/4/default'
+require 'zucker/4/debug'
+

data/lib/zucker/4/array.rb

@@ -0,0 +1,25 @@
+require 'zucker'
+
+class Array
+  def ^(other) # TODO: more efficient
+    (self - other) +
+    (other - self)
+  end
+
+  # can take an argument & block to be Rails compatible
+  def sum(identity = 0, &block)
+    # inject(:+)
+    if block_given?
+      map(&block).sum( identity )
+    else
+      inject(:+) || identity
+    end
+  end
+
+  def chrs
+    self.pack 'C*'
+  end
+end
+
+# J-_-L
+

data/lib/zucker/4/array2proc.rb

@@ -0,0 +1,18 @@
+require 'zucker'
+
+class Array
+  def to_proc
+    Proc.new{ |obj|
+      if self.first.is_a? Array
+        self.inject(obj){ |result, nested_array|
+          nested_array.to_proc.call result
+        }
+      else
+        obj.send *self
+      end
+    }
+  end
+end
+
+# J-_-L
+

data/lib/zucker/4/binding.rb

@@ -0,0 +1,27 @@
+require 'zucker'
+
+class Binding
+  def inspect
+    put_vars = lambda { |array|
+      if array.empty?
+        ' - none'
+      else
+        array.map{|e| " - #{e}: #{ self.eval '#{e}'}"}*"\n"
+      end
+    }
+
+"#{self.to_s}
+local vars
+#{ put_vars[ self.eval 'local_variables' ] }
+(instance vars)
+#{ put_vars[ self.eval 'instance_variables' ] }
+self
+ - #{self.eval 'self'}
+block_given?
+ - #{self.eval 'block_given?'}"
+
+  end
+end
+
+# J-_-L
+

data/lib/zucker/4/blank.rb

@@ -0,0 +1,28 @@
+require 'zucker'
+
+class Object
+  def blank?
+    if respond_to? :empty? then empty? else !self end
+  end
+
+  def present?
+    !blank?
+  end
+end
+
+
+{ # what to do              # for which classes
+  lambda{ true }         => [FalseClass, NilClass],
+  lambda{ false }        => [TrueClass, Numeric],
+  lambda{ empty? }       => [Array, Hash],
+  lambda{ self !~ /\S/ } => [String],
+  lambda{ self == //   } => [Regexp],
+
+}.each{ |action, klass_array|
+  klass_array.each{ |klass|
+    klass.send :define_method, :blank?, &action
+  }
+}
+
+# J-_-L
+