zucker 8 → 9

data/lib/zucker/1/unary.rb

@@ -1,24 +0,0 @@
-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/1/union.rb

@@ -1,16 +0,0 @@
-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/2/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/2/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/2/all.rb

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

data/lib/zucker/2/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/2/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/2/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/2/class2proc.rb

@@ -1,12 +0,0 @@
-require 'zucker'
-
-class Class
-  def to_proc
-    Proc.new do |*args|
-      self.new *args
-    end
-  end
-end
-
-# J-_-L
-

data/lib/zucker/2/debug.rb

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

data/lib/zucker/2/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/2/#{rb}"}
-

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

@@ -1,21 +0,0 @@
-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
-end
-
-# J-_-L
-

data/lib/zucker/2/hash2proc.rb

@@ -1,16 +0,0 @@
-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/2/info.rb

@@ -1,166 +0,0 @@
-require 'zucker'
-
-module Info
-  class << Info
-    # hash like access
-    def [](what)
-      send what
-    end
-
-    # TODO: maybe add a descriptions method
-  end
-
-  module_function
-
-  # current script file
-  def current_file
-    __FILE__
-  end
-
-  def current_file_directory
-    File.dirname(__FILE__)
-  end
-
-  # 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 process_id
-    $$
-  end
-
-  def load_path
-    $:
-  end
-
-  # current
-  def current_line
-    __LINE__
-  end
-
-  def current_method # 1.9
-    __method__
-  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
-    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
-    ::RUBY_VERSION
-  end
-
-  def ruby_patchlevel
-    ::RUBY_PATCHLEVEL
-  end
-
-  def ruby_description
-    ::RUBY_DESCRIPTION
-  end
-
-  def ruby_release_date
-    ::RUBY_RELEASE_DATE
-  end
-end
-