zucker 8 → 9

data/lib/zucker/3/not.rb

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

@@ -1,49 +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
-
-  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/3/tap.rb

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

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

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

@@ -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/4/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/4/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/4/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
-

data/lib/zucker/4/class2proc.rb

@@ -1,12 +0,0 @@
-require 'zucker'
-
-class Class
-  def to_proc
-    Proc.new do |*args|
-      self.new *args
-    end
-  end
-end
-
-# J-_-L
-

data/lib/zucker/4/debug.rb

@@ -1,8 +0,0 @@
-require 'zucker'
-
-require 'zucker'
-
-require 'zucker/4/D'
-require 'zucker/4/mm'
-require 'zucker/4/binding'
-require 'zucker/4/q'

data/lib/zucker/4/default.rb

@@ -1,40 +0,0 @@
-require 'zucker'
-
-require 'zucker'
-
-# default
-zucker = %w|
-alias_for
-aliases
-array
-array2proc
-blank
-class2proc
-egonil
-engine
-enumerable
-hash
-hash2proc
-info
-iterate
-ivars
-kernel
-mcopy
-not
-os
-regexp2proc
-sandbox
-square_brackets_for
-string
-tap
-unary
-union
-version
-|
-
-# remove 1.9 if 1.8
-if RUBY_VERSION < '1.9'
-  zucker -= %w|not tap union|
-end
-
-zucker.each{|rb| require File.join( 'zucker', '4', rb )}