zucker 5 → 6

data/lib/zucker/6/env.rb

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

data/lib/zucker/6/extensions.rb

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

data/lib/zucker/6/hash.rb

@@ -0,0 +1,27 @@
+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
+
+  def &(other)
+    Hash[ *select{ |k,v|
+      other[k] == v
+    }.flatten ]
+  end
+end
+
+# J-_-L
+

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

@@ -0,0 +1,192 @@
+require 'zucker'
+require 'rbconfig'
+require 'etc'
+
+module Info
+  class << self
+    # hash like access
+    def [](what)
+      send what
+    end
+
+    # list available info methods
+    def list
+      singleton_methods - [:[], :list, '[]', 'list']
+    end
+  end
+
+  module_function
+
+  # 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
+
+  # user
+  def user_login
+    Etc.getlogin
+  end
+
+  def user_name
+    Etc.getpwnam(user_login).gecos.split(',')[0]
+  end
+
+  # current
+
+  def current_file #  __FILE__
+    return $` if caller[0].rindex(/:\d+(:in `.*')?$/)
+  end
+
+  def current_file_directory
+    if current_file[0,1] == '(' && current_file[-1,1] == ')'
+      current_file
+    else
+      File.dirname(current_file)
+    end
+  end
+
+  def current_line # __LINE__
+    return $1.to_i if caller[0].rindex( /:(\d+)(:in `.*')?$/ )
+  end
+
+  def current_method # __method__ (except aliases)
+    return $1.to_sym if caller(1)[0].rindex( /\`([^\']+)\'/ )
+  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 # also see the RubyVersion cube
+    ::RUBY_VERSION
+  end
+
+  def ruby_patchlevel
+    ::RUBY_PATCHLEVEL
+  end
+
+  def ruby_description
+    ::RUBY_DESCRIPTION
+  end
+
+  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/6/iterate.rb

@@ -0,0 +1,27 @@
+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.to_enum
+    end
+  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 }
+    else
+      obj.map.to_enum
+    end
+  end
+end
+
+# J-_-L
+

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

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

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

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

data/lib/zucker/6/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 "#{d}eached #{m}line #$1 of file #$`"
+    # [$`, $1.to_i, $3.to_sym,  desc]
+  end 
+  alias oo o
+end
+
+# J-_-L

data/lib/zucker/6/os.rb

@@ -0,0 +1,54 @@
+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 begin 
+        fork do end
+        true
+      rescue NotImplementedError, NoMethodError
+        false
+      end
+  end
+
+  #def symbian?
+    #TODO who knows what symbian returns?
+  #end
+
+  # ...
+end
+
+# J-_-L