zucker 1 → 2

data/lib/zucker/2/egonil.rb

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

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

data/lib/zucker/2/hash.rb

@@ -0,0 +1,19 @@
+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
+end
+
+# J-_-L
+

data/lib/zucker/2/hash2proc.rb

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

@@ -0,0 +1,164 @@
+module Info
+  class << Info
+    # hash like access
+    def [](what)
+      send what
+    end
+
+    # TODO: maybe add a descriptions method
+  end
+
+  module_function
+
+  # current script file
+  def current_file
+    __FILE__
+  end
+
+  def current_file_directory
+    File.dirname(__FILE__)
+  end
+
+  # 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 process_id
+    $$
+  end
+
+  def load_path
+    $:
+  end
+
+  # current
+  def current_line
+    __LINE__
+  end
+
+  def current_method # 1.9
+    __method__
+  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
+    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
+

data/lib/zucker/2/iterate.rb

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

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

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

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

data/lib/zucker/2/mm.rb

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

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

data/lib/zucker/2/sandbox.rb

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

@@ -0,0 +1,35 @@
+require 'zucker/D'
+
+describe 'Object#D' do
+
+  let :a do
+    [ 1, "1", 2..5, [], {:hallo => :du}, nil, true ]
+  end
+
+  it 'should not change the object"s value' do
+    a.each{ |e|
+      (e.D).should == e
+    }
+
+    a.each{ |e|
+      (e.D{|value| "This is a: #{value}"}).should == e
+    }
+  end
+
+  it "should puts .inspect if no block is given (and not change the object's value)" do
+    capture_stdout do
+      a[0].D
+      a[1].D
+      a[6].D
+    end.should == %{1\n"1"\ntrue\n}
+  end
+
+  it "should puts the block if it is given (and not change the object's value)" do
+    capture_stdout do
+      a[0].D{|value| "This is a: #{value}"}
+      a[1].D{|value| "This is a: #{value}"}
+      a[6].D{|value| "This is a: #{value}"}
+    end.should == %{This is a: 1\nThis is a: 1\nThis is a: true\n}
+  end
+end
+

data/lib/zucker/2/spec/aliases_spec.rb

@@ -0,0 +1,13 @@
+require 'zucker/aliases'
+
+describe '(aliases)' do
+  it 'should create these aliases' do
+    # see aliases.rb for aliase list
+  end
+
+  it 'should define these constants' do
+    Infinity.finite?.should == false
+    NaN.nan?.should         == true
+  end
+end
+

data/lib/zucker/2/spec/array2proc_spec.rb

@@ -0,0 +1,12 @@
+require 'zucker/array2proc'
+
+describe 'Array#to_proc' do
+  it 'should call the method of the first symbol, using the remaining elements as paramaters' do
+    [1,2,3,4].map( &[:to_s, 2] ).should == ["1", "10", "11", "100"]
+  end
+
+  it "should convert each element to a proc and chain it, if the first parameter is an array" do
+    [1,2,3,4].map( &[[:*,2],[:+,4]] ).should == [1,2,3,4].map{|i| i*2 + 4 }
+  end
+end
+

data/lib/zucker/2/spec/array_spec.rb

@@ -0,0 +1,23 @@
+require 'zucker/array'
+
+describe 'Array#^' do
+  it 'should do an exclusive or' do
+    a = [1,2,3,4]
+    b = [3,4,5,6]
+    (a^b).should == [1,2,5,6]
+  end
+end
+
+describe 'Array#sum' do
+  it 'should sum the array' do
+    [1,2,3,4,5].sum.should   == 15
+    %w|More Ruby|.sum.should == 'MoreRuby'
+  end
+end
+
+describe 'Array#chrs' do
+  it 'should convert the array to a string, using each element as ord value for the char' do
+    [72, 97, 108, 108, 111].chrs.should == 'Hallo'
+  end
+end
+