zucker 4 → 5

data/lib/zucker/4/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/4/debug.rb

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

@@ -0,0 +1,40 @@
+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 )}

data/lib/zucker/4/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/4/engine.rb

@@ -0,0 +1,69 @@
+require 'zucker'
+
+module RubyEngine
+  class << self
+    # try to guess it
+    @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_sym # jruby, rbx, ironruby, macruby, etc.
+      end
+    else # probably 1.8
+      'mri'
+    end
+
+    def is?(what)
+      what === @interpreter
+    end
+    alias is is?
+
+    def to_s
+      @interpreter
+    end
+  end
+
+module_function
+
+  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
+
+# J-_-L

data/lib/zucker/4/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/4/hash.rb

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

data/lib/zucker/4/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/4/info.rb

@@ -0,0 +1,173 @@
+require 'zucker'
+
+module Info
+  class << Info
+    # hash like access
+    def [](what)
+      send what
+    end
+
+    # list available info methods
+    def list
+      singleton_methods - [:[], :list, '[]', 'list']
+    end
+  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 os
+    RbConfig::CONFIG['host_os']
+  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
+    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
+

data/lib/zucker/4/iterate.rb

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

@@ -0,0 +1,28 @@
+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/4/kernel.rb

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