zucker 8 → 9

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

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

data/lib/zucker/3/default.rb

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

data/lib/zucker/3/egonil.rb

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

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

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

data/lib/zucker/3/info.rb

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

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

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

@@ -1,50 +0,0 @@
-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
-
-  # version getter  
-  def ruby_1_9?
-    RUBY_VERSION[2,1] == '9'
-  end
-
-  def ruby_1_8?
-    RUBY_VERSION[2,1] == '8'
-  end
-
-  def ruby_1_9!
-    if RUBY_VERSION[2,1] != '9'
-      fail NotImplementedError, "Sorry, this script requires Ruby 1.9, but was executed with a different Ruby version!"
-    end
-    true
-  end
-
-  def ruby_1_8!
-    if RUBY_VERSION[2,1] != '8'
-      fail NotImplementedError, "Sorry, this script requires Ruby 1.8, but was executed with a different Ruby version!"
-    end
-    true
-  end
-end
-
-# J-_-L
-

data/lib/zucker/3/mcopy.rb

@@ -1,10 +0,0 @@
-require 'zucker'
-
-class Object
-  def mcopy
-    Marshal.load Marshal.dump self
-  end
-end
-
-# J-_-L
-

data/lib/zucker/3/mm.rb

@@ -1,33 +0,0 @@
-require 'zucker'
-
-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
-