zucker 8 → 9

data/lib/zucker/2/iterate.rb

@@ -1,25 +0,0 @@
-require 'zucker'
-
-def iterate(*params)
-  # params.shift.zip(*params).each{ |*elements| yield *elements }
-
-  first = params.shift
-  if params.empty? # single param - like each
-    if block_given?
-      first.map{|e| yield e }
-    else
-      first.map
-    end
-  else
-    padded_first = Array.new( [first, *params].max_by(&:size).size ){|i| first[i] } # append nils
-    obj = padded_first.zip *params
-    if block_given?
-      obj.map{|es| yield *es }
-    else
-      obj.map.to_enum
-    end
-  end
-end
-
-# J-_-L
-

data/lib/zucker/2/ivars.rb

@@ -1,28 +0,0 @@
-require 'zucker'
-
-def instance_variables_from(obj, *only)
-  iter =
-  if    obj.is_a? Binding
-    obj.eval('local_variables').map{|e| [obj.eval("#{e}"), e] }
-  elsif obj.is_a? Hash
-    obj.map{|k,v| [v,k] }
-  else
-#  elsif obj.is_a? Enumerable
-    obj.each.with_index
-  end
-
-  ret = []
-  iter.each{ |value, arg|
-    arg = arg.to_s
-    if only.include?(arg) || only.include?(arg.to_sym) || only.empty?
-      arg = '_' + arg  if (48..57).member? arg.unpack('C')[0]  # 1.8+1.9
-      ret << ivar = :"@#{arg}"
-      self.instance_variable_set ivar, value
-    end
-  }
-  ret
-end
-alias ivars instance_variables_from
-
-# J-_-L
-

data/lib/zucker/2/kernel.rb

@@ -1,20 +0,0 @@
-require 'zucker'
-
-def activate_warnings!
-  $VERBOSE = true
-end
-
-def deactivate_warnings!
-  $VERBOSE = false
-end
-
-def library?
-  __FILE__ != $PROGRAM_NAME
-end
-
-def ignore_sigint! # ctrl+c
-   Signal.trap *%w|SIGINT IGNORE|
-end
-
-# J-_-L
-

data/lib/zucker/2/mcopy.rb

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

data/lib/zucker/2/mm.rb

@@ -1,33 +0,0 @@
-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/2/regexp2proc.rb

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

data/lib/zucker/2/sandbox.rb

@@ -1,21 +0,0 @@
-require 'zucker'
-
-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
-
-# J-_-L
-

data/lib/zucker/2/square_brackets_for.rb

@@ -1,22 +0,0 @@
-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/2/string.rb

@@ -1,27 +0,0 @@
-require 'zucker'
-
-class String
-  def ^(pos)
-    pos = pos.to_i
-    if pos >= 0
-      self[pos..-1]
-    else
-      self[0...pos]
-    end
-  end
-
-  def lchomp(arg=$/)
-    self.reverse.chomp(arg).reverse
-  end
-
-  def lchomp!(arg=$/)
-    self.reverse.chomp!(arg).reverse
-  end
-
-  def ords
-    self.unpack 'C*'
-  end
-end
-
-# J-_-L
-

data/lib/zucker/2/unary.rb

@@ -1,24 +0,0 @@
-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/2/union.rb

@@ -1,16 +0,0 @@
-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/3/D.rb

@@ -1,21 +0,0 @@
-require 'zucker'
-
-module Kernel
-  def D(*args, &block)
-    if args.empty?
-      tap{
-        if block_given?
-          puts yield self
-        else
-          puts self.inspect
-        end
-      }
-    else
-      raise ArgumentError, ".D - The parser thought that the code after .D are method arguments... Please don't put a space after D or use .D() or .D{} in this case!"
-#      eval ...
-    end
-  end
-end
-
-# J-_-L
-

data/lib/zucker/3/alias_for.rb

@@ -1,21 +0,0 @@
-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/3/aliases.rb

@@ -1,30 +0,0 @@
-require 'zucker'
-
-alias is_an? is_a?
-
-module Enumerable
-  alias with zip
-  alias %    zip
-end
-
-class Array
-  alias ** product
-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
-NaN      = 0.0 / 0.0
-
-# J-_-L
-

data/lib/zucker/3/all.rb

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

data/lib/zucker/3/array.rb

@@ -1,25 +0,0 @@
-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/3/array2proc.rb

@@ -1,18 +0,0 @@
-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/3/binding.rb

@@ -1,27 +0,0 @@
-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/3/blank.rb

@@ -1,28 +0,0 @@
-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
-