zucker 4 → 5

data/lib/zucker/5/iterate.rb

@@ -0,0 +1,26 @@
+require 'zucker'
+
+def iterate(*params)
+  # params.shift.zip(*params).each{ |*elements| yield *elements }
+  raise ArgumentError, "wrong number of arguments (0)" if params.empty?
+
+  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/5/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/5/kernel.rb

@@ -0,0 +1,34 @@
+require 'zucker'
+
+module Kernel
+  private
+
+  def activate_warnings!
+    $VERBOSE = true
+  end
+
+  def deactivate_warnings!
+    $VERBOSE = false
+  end
+
+  def library?
+    caller[0].rindex(/:\d+(:in `.*')?$/)
+    $PROGRAM_NAME != $` # __FILE__
+  end
+
+  def executed_directly?
+    caller[0].rindex(/:\d+(:in `.*')?$/)
+    $PROGRAM_NAME == $` # __FILE__
+  end
+  alias standalone? executed_directly?
+
+  def irb?
+    !!(( IRB and $0 == 'irb' ) rescue nil)
+  end
+
+  def ignore_sigint! # ctrl+c
+     Signal.trap *%w|SIGINT IGNORE|
+  end
+end
+
+# J-_-L

data/lib/zucker/5/mcopy.rb

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

data/lib/zucker/5/mm.rb

@@ -0,0 +1,34 @@
+require 'zucker'
+
+module Kernel
+  def m(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          m
+  alias method_list m
+end
+
+# J-_-L
+

data/lib/zucker/5/not.rb

@@ -0,0 +1,19 @@
+require 'zucker'
+
+class Object
+  def not
+    NotClass.new self
+  end
+
+  class NotClass < BasicObject
+    def initialize(receiver)
+      @receiver = receiver
+    end
+    
+    def method_missing(m, *args, &block)
+      not @receiver.public_send( m, *args, &block )
+    end
+  end
+end
+
+# J-_-L

data/lib/zucker/5/object.rb

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

data/lib/zucker/5/oo.rb

@@ -0,0 +1,17 @@
+require 'zucker'
+
+module Kernel
+  private
+
+  def o(desc = nil)
+    caller[0].rindex( /:(\d+)(:in (`.*'))?$/ )
+    m = $3 ? "method #$3, " : ""
+    d = desc ? "#{desc}: r" : 'R'
+
+    puts ret = "#{d}eached #{m}line #$1 of file #$`"
+    # [$`, $1.to_i, $3.to_sym,  desc]
+  end 
+  alias oo o
+end
+
+# J-_-L

data/lib/zucker/5/os.rb

@@ -0,0 +1,49 @@
+require 'zucker'
+require 'rbconfig'
+
+module OS
+  class << self
+    def is?(what)
+      what === RbConfig::CONFIG['host_os']
+    end
+    alias is is?
+
+    def to_s
+      RbConfig::CONFIG['host_os']
+    end
+  end
+
+  module_function
+
+  def linux?
+    OS.is? /linux|cygwin/
+  end
+
+  def mac?
+    OS.is? /mac|darwin/
+  end
+
+  def bsd?
+    OS.is? /bsd/
+  end
+
+  def windows?
+    OS.is? /mswin|win|mingw/
+  end
+
+  def solaris?
+    OS.is? /solaris|sunos/
+  end
+
+  def posix?
+    linux? or mac? or bsd? or solaris? or Process.respond_to?(:fork)
+  end
+
+  #def symbian?
+    #TODO who knows what symbian returns?
+  #end
+
+  # ...
+end
+
+# J-_-L

data/lib/zucker/5/qq.rb

@@ -0,0 +1,12 @@
+require 'zucker'
+
+module Kernel
+  private
+
+  def q(*args)
+    puts args.map( &:inspect )*'  ' unless args.empty?
+  end
+  alias qq q
+end
+
+# J-_-L

data/lib/zucker/5/regexp2proc.rb

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

data/lib/zucker/5/sandbox.rb

@@ -0,0 +1,25 @@
+require 'zucker'
+
+module Kernel
+  private
+
+  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
+end
+
+# J-_-L
+

data/lib/zucker/5/shortcuts.rb

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

data/lib/zucker/5/square_brackets_for.rb

@@ -0,0 +1,21 @@
+require 'zucker'
+
+class Module
+  def square_brackets_for(ivar, assignment = true)
+    #  undef []   if respond_to? :[]
+    #  undef []=  if respond_to? :[]=
+
+    define_method :[] do |key|
+      (instance_variable_get :"@#{ivar}")[key]
+    end
+
+    if assignment
+      define_method :[]= do |key, value|
+        (instance_variable_get :"@#{ivar}")[key] = value
+      end
+    end
+  end
+end
+
+# J-_-L
+

data/lib/zucker/5/string.rb

@@ -0,0 +1,54 @@
+require 'zucker'
+
+class String
+  def -(rem)
+    gsub( Regexp === rem ? rem : rem.to_s, '' )
+  end
+
+  def ^(pos)
+    pos = pos.to_i
+    if pos >= 0
+      self[pos..-1]
+    else
+      self[0...pos]
+    end
+  end
+
+  def lchomp(arg = $/)
+    reverse.chomp(arg).reverse
+  end
+
+  def lchomp!(arg = $/)
+    reverse.chomp!(arg).reverse
+  end
+
+  def ords
+    unpack 'C*'
+   # bytes.to_a
+  end
+
+  def constantize(default_value = nil) # always uses global scope as in AS... is this good?
+    get_constant = lambda{
+      self.split(/::/).inject( Object ){ |base_constant, current_constant|
+        base_constant.const_get current_constant
+      }      
+    }
+
+    if !default_value && !block_given?
+      get_constant.call
+    else
+      begin
+        get_constant.call
+      rescue NameError
+        if block_given?
+          yield self
+        else
+          default_value
+        end
+      end
+    end
+  end
+end
+
+# J-_-L
+

data/lib/zucker/5/tap.rb

@@ -0,0 +1,11 @@
+require 'zucker'
+
+def tap_on(obj, &block)
+  obj.tap &block
+end
+
+def make_new(what, *args, &block)
+  what.new(*args).tap &block
+end
+
+# J-_-L

data/lib/zucker/5/to_proc.rb

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

data/lib/zucker/5/unary.rb

@@ -0,0 +1,24 @@
+require 'zucker'
+
+class String
+  def +@
+    self
+  end
+
+  def -@
+    to_sym
+  end
+end
+
+class Symbol
+  def +@
+    to_s
+  end
+
+  def -@
+    self
+  end
+end
+
+# J-_-L
+

data/lib/zucker/5/union.rb

@@ -0,0 +1,16 @@
+require 'zucker'
+
+class Regexp
+  def |(arg)
+    Regexp.union self, arg.is_a?(Regexp) ? arg : arg.to_s
+  end
+end
+
+class String
+  def |(arg)
+    Regexp.union self, arg.is_a?(Regexp) ? arg : arg.to_s
+  end
+end
+
+# J-_-L
+

data/lib/zucker/5/version.rb

@@ -0,0 +1,118 @@
+require 'zucker'
+require 'date'
+require 'time'
+
+module RubyVersion
+  class << self
+    def to_s
+      RUBY_VERSION
+    end
+
+    # comparable
+    def <=>(other)
+      value = case other
+        when Integer
+          RUBY_VERSION.to_i
+        when Float
+          RUBY_VERSION.to_f
+        when String
+          RUBY_VERSION
+        when Date, Time
+          other.class.parse(RUBY_RELEASE_DATE)
+        else
+          other = other.to_s
+          RUBY_VERSION
+        end
+      value <=> other
+    end
+    include Comparable
+
+    # chaining for dsl-like language
+    def is?(other = nil)
+      if other
+        RubyVersion == other
+      else
+        RubyVersion
+      end
+    end
+    alias is is?
+
+    # aliases
+    alias below     <
+    alias below?    <
+    alias at_most   <=
+    alias at_most?  <=
+    alias above     >
+    alias above?    >
+    alias at_least  >=
+    alias at_least? >=
+    alias exactly   ==
+    alias exactly?  ==
+    def not(other)
+      self != other
+    end
+    alias not?     not
+    alias between between?
+
+    # compare dates
+    def newer_than(other)
+      if other.is_a? Date or other.is_a? Time
+        RubyVersion > other
+      else
+        RUBY_RELEASE_DATE > other.to_s
+      end
+    end
+    alias newer_than? newer_than
+
+    def older_than(other)
+      if other.is_a? Date or other.is_a? Time
+        RubyVersion < other
+      else
+        RUBY_RELEASE_DATE < other.to_s
+      end
+    end
+    alias older_than? older_than
+
+    def released_today
+      RubyVersion.date == Date.today
+    end
+    alias released_today? released_today
+
+    # accessors
+
+    def major
+      RUBY_VERSION.to_i
+    end
+    alias main major
+
+    def minor
+      RUBY_VERSION.split('.')[1].to_i
+    end
+    alias mini minor
+
+    def tiny
+      RUBY_VERSION.split('.')[2].to_i
+    end
+
+    alias teeny tiny
+
+    def patchlevel
+      RUBY_PATCHLEVEL
+    end
+
+    def platform
+      RUBY_PLATFORM
+    end
+
+    def release_date
+      Date.parse RUBY_RELEASE_DATE
+    end
+    alias date release_date
+
+    def description
+      RUBY_DESCRIPTION
+    end
+  end
+end
+
+# J-_-L