zucker 5 → 6

data/lib/zucker/6/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/6/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/6/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/6/shortcuts.rb

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

data/lib/zucker/6/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/6/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/6/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/6/to_proc.rb

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

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

data/lib/zucker/binding.rb

@@ -25,10 +25,10 @@ block_given?
  - #{self.eval 'block_given?'}"
 
   end
-
-  alias v  binding
-  alias vv binding
 end
 
+alias v  binding
+alias vv binding
+
 # J-_-L
 

data/lib/zucker/egonil.rb

@@ -1,12 +1,23 @@
 require 'zucker'
 
-def egonil(nil_value = nil)
+# code by Yohan, slightly edited and comments by me
+def egonil(&block)
+  # grip methods
+  ori_method_missing   = NilClass.instance_method(:method_missing)
+  catch_method_missing = NilClass.instance_method(:catch_method_missing)
+  # activate ego mode
+  NilClass.send :define_method, :method_missing, catch_method_missing
+  # run code
   yield
-rescue NoMethodError => e
-  if e.message =~ /NilClass$/
-    nil_value
-  else
-    raise NoMethodError
+ensure
+  # no matter what happens: restore default nil behaviour
+  NilClass.send :define_method, :method_missing, ori_method_missing
+end
+
+# this is the ego nil
+class NilClass
+  def catch_method_missing(m, *args, &block)
+    nil
   end
 end
 

data/lib/zucker/engine.rb

@@ -5,8 +5,7 @@ module RubyEngine
     @interpreter = case
     when RUBY_PLATFORM == 'parrot'
       'cardinal'
-    when Object.constants.include?( :RUBY_ENGINE ) ||
-         Object.constants.include?( 'RUBY_ENGINE'  )
+    when Object.const_defined?(:RUBY_ENGINE)
       if RUBY_ENGINE == 'ruby'
         if RUBY_DESCRIPTION =~ /Enterprise/
           'ree'

data/lib/zucker/info.rb

@@ -1,4 +1,6 @@
 require 'zucker'
+require 'rbconfig'
+require 'etc'
 
 module Info
   class << self
@@ -75,6 +77,15 @@ module Info
     $:
   end
 
+  # user
+  def user_login
+    Etc.getlogin
+  end
+
+  def user_name
+    Etc.getpwnam(user_login).gecos.split(',')[0]
+  end
+
   # current
 
   def current_file #  __FILE__
@@ -158,7 +169,7 @@ module Info
   end
 
   # ruby version info
-  def ruby_version
+  def ruby_version # also see the RubyVersion cube
     ::RUBY_VERSION
   end
 
@@ -173,5 +184,9 @@ module Info
   def ruby_release_date
     ::RUBY_RELEASE_DATE
   end
+
+  def ruby_engine # warning! not support by every implementation. It's saver to use the RubyEngine cube
+    ::RUBY_ENGINE
+  end
 end
 

data/lib/zucker/iterate.rb

@@ -9,10 +9,11 @@ def iterate(*params)
     if block_given?
       first.map{|e| yield e }
     else
-      first.map
+      first.map.to_enum
     end
-  else
-    padded_first = Array.new( [first, *params].max_by(&:size).size ){|i| first[i] } # append nils
+  else # multiple params
+    max_size = [first, *params].max_by(&:count).size
+    padded_first = first.to_a + [nil]*(max_size - first.count)  # append nils
     obj = padded_first.zip *params
     if block_given?
       obj.map{|es| yield *es }

data/lib/zucker/oo.rb

@@ -8,7 +8,7 @@ module Kernel
     m = $3 ? "method #$3, " : ""
     d = desc ? "#{desc}: r" : 'R'
 
-    puts ret = "#{d}eached #{m}line #$1 of file #$`"
+    puts "#{d}eached #{m}line #$1 of file #$`"
     # [$`, $1.to_i, $3.to_sym,  desc]
   end 
   alias oo o

data/lib/zucker/os.rb

@@ -16,27 +16,32 @@ module OS
   module_function
 
   def linux?
-    OS.is? /linux|cygwin/
+    OS.is?( /linux|cygwin/ )
   end
 
   def mac?
-    OS.is? /mac|darwin/
+    OS.is?( /mac|darwin/ )
   end
 
   def bsd?
-    OS.is? /bsd/
+    OS.is?( /bsd/ )
   end
 
   def windows?
-    OS.is? /mswin|win|mingw/
+    OS.is?( /mswin|win|mingw/ )
   end
 
   def solaris?
-    OS.is? /solaris|sunos/
+    OS.is?( /solaris|sunos/ )
   end
 
   def posix?
-    linux? or mac? or bsd? or solaris? or Process.respond_to?(:fork)
+    linux? or mac? or bsd? or solaris? or begin 
+        fork do end
+        true
+      rescue NotImplementedError, NoMethodError
+        false
+      end
   end
 
   #def symbian?