zucker 8 → 9

data/lib/zucker/1/D.rb

@@ -1,21 +0,0 @@
-require 'zucker'
-
-module Kernel
-  def D(*args, &block)
-    if args.empty?
-      tap{
-        if block_given?
-          puts yield self
-        else
-          puts self.inspect
-        end
-      }
-    else
-      raise ArgumentError, ".D - The parser thought that the code after .D are method arguments... Please don't put a space after D or use .D() or .D{} in this case!"
-#      eval ...
-    end
-  end
-end
-
-# J-_-L
-

data/lib/zucker/1/aliases.rb

@@ -1,30 +0,0 @@
-require 'zucker'
-
-alias is_an? is_a?
-
-module Enumerable
-  alias with zip
-  alias %    zip
-end
-
-class Array
-  alias ** product
-end
-
-class Hash
-  alias + merge
-end
-
-class Binding
-  #alias [] eval
-  def [](expr)
-    self.eval "#{expr}"
-  end
-end
-
-# constants - who would use these in real-world code for other things?
-Infinity = 1.0 / 0.0 # or 2*Float::MAX
-NaN      = 0.0 / 0.0
-
-# J-_-L
-

data/lib/zucker/1/all.rb

@@ -1,8 +0,0 @@
-require 'zucker'
-
-# require all the sugar ;)
-# see README for an explaination of what they do
-
-require 'zucker/1/default'
-require 'zucker/1/debug'
-

data/lib/zucker/1/array.rb

@@ -1,19 +0,0 @@
-require 'zucker'
-
-class Array
-  def ^(other) # TODO: more efficient
-    (self - other) +
-    (other - self)
-  end
-
-  def sum # sry, you just need this one too often
-    inject :+
-  end
-
-  def chrs
-    self.pack 'C*'
-  end
-end
-
-# J-_-L
-

data/lib/zucker/1/array2proc.rb

@@ -1,12 +0,0 @@
-require 'zucker'
-
-class Array
-  def to_proc
-    Proc.new{ |obj|
-      obj.send *self
-    }
-  end
-end
-
-# J-_-L
-

data/lib/zucker/1/binding.rb

@@ -1,27 +0,0 @@
-require 'zucker'
-
-class Binding
-  def inspect
-    put_vars = lambda { |array|
-      if array.empty?
-        ' - none'
-      else
-        array.map{|e| " - #{e}: #{ self.eval '#{e}'}"}*"\n"
-      end
-    }
-
-"#{self.to_s}
-local vars
-#{ put_vars[ self.eval 'local_variables' ] }
-(instance vars)
-#{ put_vars[ self.eval 'instance_variables' ] }
-self
- - #{self.eval 'self'}
-block_given?
- - #{self.eval 'block_given?'}"
-
-  end
-end
-
-# J-_-L
-

data/lib/zucker/1/blank.rb

@@ -1,28 +0,0 @@
-require 'zucker'
-
-class Object
-  def blank?
-    if respond_to? :empty? then empty? else !self end
-  end
-
-  def present?
-    !blank?
-  end
-end
-
-
-{ # what to do              # for which classes
-  lambda{ true }         => [FalseClass, NilClass],
-  lambda{ false }        => [TrueClass, Numeric],
-  lambda{ empty? }       => [Array, Hash],
-  lambda{ self !~ /\S/ } => [String],
-  lambda{ self == //   } => [Regexp],
-
-}.each{ |action, klass_array|
-  klass_array.each{ |klass|
-    klass.send :define_method, :blank?, &action
-  }
-}
-
-# J-_-L
-

data/lib/zucker/1/debug.rb

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

data/lib/zucker/1/default.rb

@@ -1,27 +0,0 @@
-require 'zucker'
-
-# default
-zucker = %w|
-aliases
-array
-array2proc
-blank
-class2proc
-egonil
-enumerable
-hash
-hash2proc
-iterate
-ivars
-kernel
-mcopy
-regexp2proc
-sandbox
-square_brackets_for
-string
-unary
-union
-|
-
-zucker.each{|rb| require "zucker/1/#{rb}"}
-

data/lib/zucker/1/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/1/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/1/hash.rb

@@ -1,21 +0,0 @@
-require 'zucker'
-
-class Hash
-  def self.zip(keys,values)
-    Hash[ *[1,2,3].zip( [4,5,6] ).flatten ]
-  end
-
-  def <<(other)
-    case
-    when other.is_a?(Hash)
-      merge! other
-    when other.respond_to?(:to_splat)
-      merge! Hash[*other]
-    else
-      raise TypeError, 'can only append other Hashs and Enumerables'
-    end
-  end
-end
-
-# J-_-L
-

data/lib/zucker/1/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/1/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/1/kernel.rb

@@ -1,22 +0,0 @@
-require 'zucker'
-
-def activate_warnings!
-  $VERBOSE = true
-end
-
-def deactivate_warnings!
-  $VERBOSE = false
-end
-
-def warnings_activated?
-  $VERBOSE
-end
-
-def library?
-  __FILE__ != $PROGRAM_NAME
-end
-
-def ignore_sigint! # ctrl+c
-   Signal.trap *%w|SIGINT IGNORE|
-end
-

data/lib/zucker/1/mcopy.rb

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

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

data/lib/zucker/1/sandbox.rb

@@ -1,17 +0,0 @@
-require 'zucker'
-
-def sandbox(rescueblock=nil)
-  Thread.start do
-    $SAFE = 4
-    yield
-  end.value
-rescue SecurityError => e
-  if rescueblock
-    rescueblock.call e
-  else
-    raise e
-  end
-end
-
-# J-_-L
-

data/lib/zucker/1/square_brackets_for.rb

@@ -1,22 +0,0 @@
-require 'zucker'
-
-def square_brackets_for(ivar, assignment = true)
-#  undef []   if respond_to? :[]
-#  undef []=  if respond_to? :[]=
-
-#instance_eval do
-  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/1/string.rb

@@ -1,27 +0,0 @@
-require 'zucker'
-
-class String
-  def ^(pos)
-    pos = pos.to_i
-    if pos >= 0
-      self[pos..-1]
-    else
-      self[0...pos]
-    end
-  end
-
-  def lchomp(arg=$/)
-    self.reverse.chomp(arg).reverse
-  end
-
-  def lchomp!(arg=$/)
-    self.reverse.chomp!(arg).reverse
-  end
-
-  def ords
-    self.unpack 'C*'
-  end
-end
-
-# J-_-L
-