zucker 13.1 → 100.0.0

data/lib/zucker/ivars.rb

@@ -1,29 +0,0 @@
-require 'zucker'
-module Zucker Ivars = true end
-
-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/kernel.rb

@@ -1,42 +0,0 @@
-require 'zucker'
-module Zucker Kernel = true end
-
-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?
-  alias directly_executed? executed_directly?
-
-  def irb?
-    (defined?(IRB) && $0 =~ /irb/) || (defined?(Ripl) && $0 =~ /ripl/)
-  end
-
-  def ignore_sigint! # ctrl+c
-    Signal.trap(*%w|SIGINT IGNORE|)
-    true
-  end
-
-  def ignore_sigquit! # ctrl+\
-    Signal.trap(*%w|SIGQUIT IGNORE|)
-    true
-  end
-end
-
-# J-_-L

data/lib/zucker/mcopy.rb

@@ -1,11 +0,0 @@
-require 'zucker'
-module Zucker Mcopy = true end
-
-class Object
-  def mcopy
-    Marshal.load Marshal.dump self
-  end
-end
-
-# J-_-L
-

data/lib/zucker/mm.rb

@@ -1,41 +0,0 @@
-require 'zucker'
-module Zucker Mm = true end
-
-module Kernel
-  def m(levels = 1)
-    # output helper
-    mputs = proc{ |e| puts e.map(&:to_s)*'  ' }
-
-    # how to get results
-    if self.is_a? Module
-      klass, method_function = self, :public_methods
-    else
-      klass, method_function = self.class, :public_instance_methods
-    end
-
-    # eigenclass
-    eigen = self.singleton_methods
-    if !eigen.empty?
-      puts '= Eigenclass' # sorry for not being up to date, I just love the word
-      mputs[ self.singleton_methods ]
-    end
-
-    # display
-    levels.times{ |level|
-      if cur = klass.ancestors[level]
-        puts "= #{cur}"  # put class name
-        mputs[ cur.send method_function, false ] # put methods of the class
-      else
-        break
-      end
-    }
-
-    nil
-  end
-
-  alias mm          m
-  alias method_list m
-end
-
-# J-_-L
-

data/lib/zucker/not.rb

@@ -1,20 +0,0 @@
-require 'zucker'
-module Zucker Not = true end
-
-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/object.rb

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

data/lib/zucker/oo.rb

@@ -1,18 +0,0 @@
-require 'zucker'
-module Zucker Oo = true end
-
-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/os.rb

@@ -1,55 +0,0 @@
-require 'zucker'
-require 'rbconfig'
-module Zucker Os = true end
-
-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|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

data/lib/zucker/qq.rb

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

data/lib/zucker/regexp_to_proc.rb

@@ -1,13 +0,0 @@
-require 'zucker'
-module Zucker RegexpToProc = true end
-
-class Regexp
-  def to_proc
-    proc do |e|
-      e.to_s[self]
-    end
-  end
-end
-
-# J-_-L
-

data/lib/zucker/regexp_visualize.rb

@@ -1,31 +0,0 @@
-require 'zucker'
-module Zucker RegexpVisualize = true end
-
-class Regexp
-  def visualize(string, groups = nil)
-    if self =~ string
-      if !groups
-        puts $` + ' >' + $& + '< ' + $'
-      else
-        Array( groups ).each{ |group|
-          begin
-            gr_string = string.dup
-            gr_string[ $~.end( group ),   0 ] = '< '
-            gr_string[ $~.begin( group ), 0 ] = ' >'
-            puts group.to_s + ': ' + gr_string
-          rescue IndexError, defined?(Rubinius) &&  Rubinius::ObjectBoundsExceededError
-            puts group.to_s + ': no match'
-          end
-        }
-      end
-    else
-      puts 'no match'
-    end
-
-    nil
-  end
-
-  alias vis visualize
-end
-
-# J-_-L

data/lib/zucker/ruby_version.rb

@@ -1,120 +0,0 @@
-require 'zucker'
-require 'date'
-require 'time'
-module Zucker RubyVersion = true end
-
-module RubyVersion
-  class << self
-    def to_s
-      RUBY_VERSION
-    end
-    alias inspect to_s
-
-    # 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/sandbox.rb

@@ -1,17 +0,0 @@
-require 'zucker'
-module Zucker Sandbox  = true end
-
-module Kernel
-  private
-
-  def sandbox
-    warn "zucker: sandbox does not work in rbx and jruby" if defined?(RUBY_ENGINE) && ( RUBY_ENGINE == 'jruby' || RUBY_ENGINE == 'rbx' )
-    Thread.start do
-      $SAFE = 4
-      yield
-    end.value
-  end
-end
-
-# J-_-L
-

data/lib/zucker/shortcuts.rb

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

data/lib/zucker/string.rb

@@ -1,55 +0,0 @@
-require 'zucker'
-module Zucker String = true end
-
-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
-