zucker 8 → 9

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

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

data/lib/zucker/6/all.rb

@@ -1,4 +0,0 @@
-require 'zucker'
-Zucker.require_all
-
-# J-_-L

data/lib/zucker/6/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/6/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/6/binding.rb

@@ -1,34 +0,0 @@
-require 'zucker'
-
-class Binding
-  def inspect
-    put_vars = lambda { |array|
-      if array.empty?
-        ' - none'
-      else
-        array.map{|e|
-          val = self.eval "#{e}"
-          val = val.is_a?( Binding ) ? val.to_s : val.inspect
-          " - #{e}: #{ val }"
-        }.join "\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
-
-alias v  binding
-alias vv binding
-
-# J-_-L
-

data/lib/zucker/6/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/6/cc.rb

@@ -1,25 +0,0 @@
-require 'zucker'
-
-module Kernel
-  private
-
-  def c(show_irb = false)
-    method_stack = caller.reverse.map{ |m|
-      m.rindex( /:\d+(:in `(.*)')?$/ )
-      $2
-    }.compact
-    
-    if !show_irb && a = method_stack.index( 'irb_binding' )
-      method_stack = [ method_stack[0], '(irb)', *method_stack[a+1..-1] ]
-    end
-
-    # puts method_stack.map.with_index{ |m, i|
-    method_stack.each_with_index{ |m, i|
-      puts "  "*i + m
-    }
-  end
-
-  alias cc c
-end
-
-# J-_-L

data/lib/zucker/6/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/6/control.rb

@@ -1,4 +0,0 @@
-require 'zucker'
-Zucker.require_this __FILE__
-
-# J-_-L

data/lib/zucker/6/dd.rb

@@ -1,23 +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
-
-  alias dd d
-end
-
-# J-_-L
-

data/lib/zucker/6/debug.rb

@@ -1,4 +0,0 @@
-require 'zucker'
-Zucker.require_this __FILE__
-
-# J-_-L

data/lib/zucker/6/default.rb

@@ -1,4 +0,0 @@
-require 'zucker'
-Zucker.require_all
-
-# J-_-L

data/lib/zucker/6/egonil.rb

@@ -1,27 +0,0 @@
-require 'zucker'
-
-# code by Yohan, slightly edited and comments by me
-def egonil(&block)
-  # grip methods
-  ori_method_missing   = NilClass.instance_method(:method_missing)
-  catch_method_missing = NilClass.instance_method(:catch_method_missing)
-  # activate ego mode
-  NilClass.send :define_method, :method_missing, catch_method_missing
-  # run code
-  yield
-ensure
-  # no matter what happens: restore default nil behaviour
-  NilClass.send :define_method, :method_missing, ori_method_missing
-end
-
-# this is the ego nil
-class NilClass
-  def catch_method_missing(m, *args, &block)
-    nil
-  end
-end
-
-alias nn egonil
-
-# J-_-L
-

data/lib/zucker/6/engine.rb

@@ -1,68 +0,0 @@
-require 'zucker'
-
-module RubyEngine
-    # try to guess the interpreter
-    @interpreter = case
-    when RUBY_PLATFORM == 'parrot'
-      'cardinal'
-    when Object.const_defined?(:RUBY_ENGINE)
-      if RUBY_ENGINE == 'ruby'
-        if RUBY_DESCRIPTION =~ /Enterprise/
-          'ree'
-        else
-          'mri'
-        end
-      else
-        RUBY_ENGINE.to_s # jruby, rbx, ironruby, macruby, etc.
-      end
-    else # probably 1.8
-      'mri'
-    end
-
-  class << self
-    def is?(what)
-      what === @interpreter
-    end
-    alias is is?
-
-    def to_s
-      @interpreter.to_s
-    end
-
-    # ask methods
-
-    def mri?
-      RubyEngine.is? 'mri'
-    end
-    alias official_ruby? mri?
-    alias ruby? mri?
-
-    def jruby?
-      RubyEngine.is? 'jruby'
-    end
-    alias java? jruby?
-
-    def rubinius?
-      RubyEngine.is? 'rbx'
-    end
-    alias rbx? rubinius?
-
-    def ree?
-      RubyEngine.is? 'ree'
-    end
-    alias enterprise? ree?
-
-    def ironruby?
-      RubyEngine.is? 'ironruby'
-    end
-    alias iron_ruby? ironruby?
-
-    def cardinal?
-      RubyEngine.is? 'cardinal'
-    end
-    alias parrot? cardinal?
-    alias perl? cardinal?
-  end
-end
-
-# J-_-L

data/lib/zucker/6/enumerable.rb

@@ -1,14 +0,0 @@
-require 'zucker'
-
-module Enumerable
-  def mash
-    ret = {}
-    each{ |kv|
-      ret.store *( yield(kv)[0,2] )
-    }
-    ret
-  end
-end
-
-# J-_-L
-

data/lib/zucker/6/env.rb

@@ -1,4 +0,0 @@
-require 'zucker'
-Zucker.require_this __FILE__
-
-# J-_-L

data/lib/zucker/6/extensions.rb

@@ -1,4 +0,0 @@
-require 'zucker'
-Zucker.require_this __FILE__
-
-# J-_-L

data/lib/zucker/6/hash.rb

@@ -1,27 +0,0 @@
-require 'zucker'
-
-class Hash
-  def self.zip(keys,values)
-    Hash[ *keys.zip( values ).flatten ]
-  end
-
-  def <<(other)
-    case
-    when other.is_a?(Hash)
-      merge! other
-    when other.is_a?(Enumerable) || other.respond_to?(:to_splat)
-      merge! Hash[*other]
-    else
-      raise TypeError, 'can only append other Hashs and Enumerables (or Classes that implement to_splat)'
-    end
-  end
-
-  def &(other)
-    Hash[ *select{ |k,v|
-      other[k] == v
-    }.flatten ]
-  end
-end
-
-# J-_-L
-

data/lib/zucker/6/hash2proc.rb

@@ -1,16 +0,0 @@
-require 'zucker'
-
-class Hash
-  def to_proc
-    Proc.new{ |obj|
-      if self.member? obj
-        self[obj].to_proc.call obj
-      else
-        obj
-      end
-    }
-  end
-end
-
-# J-_-L
-