zucker 4 → 5

data/lib/zucker/5/all.rb

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

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

@@ -0,0 +1,34 @@
+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
+
+  alias v  binding
+  alias vv binding
+end
+
+# J-_-L
+

data/lib/zucker/5/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
+

data/lib/zucker/5/cc.rb

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

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

data/lib/zucker/5/control.rb

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

data/lib/zucker/5/dd.rb

@@ -0,0 +1,24 @@
+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
+  alias debug_output d
+end
+
+# J-_-L
+

data/lib/zucker/5/debug.rb

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

data/lib/zucker/5/default.rb

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

data/lib/zucker/5/egonil.rb

@@ -0,0 +1,16 @@
+require 'zucker'
+
+def egonil(nil_value = nil)
+  yield
+rescue NoMethodError => e
+  if e.message =~ /NilClass$/
+    nil_value
+  else
+    raise NoMethodError
+  end
+end
+
+alias nn egonil
+
+# J-_-L
+

data/lib/zucker/5/engine.rb

@@ -0,0 +1,69 @@
+require 'zucker'
+
+module RubyEngine
+    # try to guess the interpreter
+    @interpreter = case
+    when RUBY_PLATFORM == 'parrot'
+      'cardinal'
+    when Object.constants.include?( :RUBY_ENGINE ) ||
+         Object.constants.include?( '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/5/enumerable.rb

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

data/lib/zucker/5/env.rb

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

data/lib/zucker/5/extensions.rb

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

data/lib/zucker/5/hash.rb

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

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

data/lib/zucker/5/info.rb

@@ -0,0 +1,177 @@
+require 'zucker'
+
+module Info
+  class << self
+    # hash like access
+    def [](what)
+      send what
+    end
+
+    # list available info methods
+    def list
+      singleton_methods - [:[], :list, '[]', 'list']
+    end
+  end
+
+  module_function
+
+  # input
+  def last_input_file
+    $FILENAME
+  end
+
+  def last_input_line_number
+    $.
+  end
+
+  def last_input
+    $_
+  end
+
+  # program
+  def program_name
+    $0
+  end
+
+  def program_arguments
+    $:
+  end
+
+  def loaded_programs
+    $"
+  end
+
+  def program_data
+    ::DATA
+  end
+
+  def child_program_status
+    $CHILD_STATUS
+  end
+
+  # system info
+  def environment
+    ::ENV
+  end
+  alias env environment
+
+  def working_directory
+    Dir.pwd
+  end
+
+  def platform
+    ::RUBY_PLATFORM
+  end
+
+  def os
+    RbConfig::CONFIG['host_os']
+  end
+
+  def process_id
+    $$
+  end
+
+  def load_path
+    $:
+  end
+
+  # current
+
+  def current_file #  __FILE__
+    return $` if caller[0].rindex(/:\d+(:in `.*')?$/)
+  end
+
+  def current_file_directory
+    if current_file[0,1] == '(' && current_file[-1,1] == ')'
+      current_file
+    else
+      File.dirname(current_file)
+    end
+  end
+
+  def current_line # __LINE__
+    return $1.to_i if caller[0].rindex( /:(\d+)(:in `.*')?$/ )
+  end
+
+  def current_method # __method__ (except aliases)
+    return $1.to_sym if caller(1)[0].rindex( /\`([^\']+)\'/ )
+  end
+
+  def current_callstack
+    caller
+  end
+
+  # dealing with strings
+  def gets_separator
+    $/
+  end
+
+  def join_separator
+    $,
+  end
+
+  def print_separator
+    $,
+  end
+
+  def split_separator
+    $;
+  end
+
+  # misc
+  def security_level
+    $SAFE
+  end
+
+  def warnings_activated?
+    $VERBOSE
+  end
+
+  def debug_activated?
+    $DEBUG
+  end
+
+  def last_exception
+    $!
+  end
+
+  # defined objects
+  def global_variables
+    Object.send :global_variables
+  end
+
+  def global_constants
+    Object.constants
+  end
+
+  # encoding (1.9)
+  #def source_encoding
+  #  __ENCODING__
+  #end
+
+  def external_encoding
+    Encoding.default_external
+  end
+
+  def internal_encoding
+    Encoding.default_internal
+  end
+
+  # ruby version info
+  def ruby_version
+    ::RUBY_VERSION
+  end
+
+  def ruby_patchlevel
+    ::RUBY_PATCHLEVEL
+  end
+
+  def ruby_description
+    ::RUBY_DESCRIPTION
+  end
+
+  def ruby_release_date
+    ::RUBY_RELEASE_DATE
+  end
+end
+