epitools 0.5.19 → 0.5.20

data/Guardfile

@@ -10,7 +10,8 @@
 guard :rspec, :version => 2, :cli => "--color", :bundler => false, :all_after_pass => false, :all_on_start => false, :keep_failed => false do
 #guard 'rspec', :version => 2 do
   watch(%r{^spec/.+_spec\.rb$})
-  watch(%r{^lib/epitools/(.+)\.rb$})     { |m| "spec/#{m[1]}_spec.rb" }
-  watch('spec/spec_helper.rb')  { "spec" }
+  watch(%r{^lib/epitools/([^/]+)\.rb$})     { |m| "spec/#{m[1]}_spec.rb" }
+  watch(%r{^lib/epitools/([^/]+)/.+\.rb$})  { |m| "spec/#{m[1]}_spec.rb" }
+  watch('spec/spec_helper.rb')              { "spec" }
 end
 

data/README.rdoc

@@ -1,8 +1,8 @@
 = epitools
 
 Useful miscellaneous improvements for base Ruby objects, plus some extra
-data structures and handy wrappers. (Think of it as a light-weight version
-of ActiveSupport.
+data structures and handy wrappers. You can think of it as a light-weight
+ActiveSupport.
 
 All epitools modules (and a bunch of Ruby's stdlib) are 
 {loaded on demand with "autoload"}[https://github.com/epitron/epitools/blob/master/lib/epitools/autoloads.rb],

data/Rakefile

@@ -1,13 +1,13 @@
-VERSION = File.read("VERSION").strip
+gem_version = File.read("VERSION").strip
 
 task :build do
   system "gem build .gemspec"
 end
  
 task :release => :build do
-  system "gem push epitools-#{VERSION}.gem"
+  system "gem push epitools-#{gem_version}.gem"
 end
 
 task :install => :build do
-  system "gem install epitools-#{VERSION}.gem"
+  system "gem install epitools-#{gem_version}.gem"
 end

data/VERSION

@@ -1 +1 @@
-0.5.19
+0.5.20

data/lib/epitools/autoloads.rb

@@ -1,9 +1,9 @@
 ## Standard library
+
 autoload :Set,        'set'
 autoload :URI,        'uri'
 autoload :CGI,        'cgi'
 autoload :Base64,     'base64'
-autoload :JSON,       'json'
 autoload :Zlib,       'zlib'
 autoload :FileUtils,  'fileutils'
 autoload :Tempfile,   'tempfile'
@@ -18,28 +18,22 @@ autoload :Find,       'find'
 autoload :Benchmark,  'benchmark'
 autoload :Tracer,     'tracer'
 autoload :CSV,        'csv'
-#autoload :DelegateClass, 'delegate'
 
-# YAML is sometimes loaded improperly.
-if defined? YAML and not defined? YAML.parse
-  del YAML  # remove the existing module
+module Digest
+  autoload :SHA1,     'digest/sha1'
+  autoload :SHA2,     'digest/sha2'
+  autoload :MD5,      'digest/md5'
 end
 
-autoload :YAML, 'yaml'
-
 if RUBY_VERSION["1.8.7"]
   autoload :Prime,      'mathn'
 else
   autoload :Prime,      'prime'
 end
 
-module Digest
-  autoload :SHA1,     'digest/sha1'
-  autoload :SHA2,     'digest/sha2'
-  autoload :MD5,      'digest/md5'
-end
 
-## Nonstandard library
+## Nonstandard library (epitools)
+
 autoload :Path,         'epitools/path'
 autoload :Ezdb,         'epitools/ezdb'
 autoload :Browser,      'epitools/browser'
@@ -54,7 +48,31 @@ autoload :WM,           'epitools/wm'
 autoload :TypedStruct,  'epitools/typed_struct'
 autoload :Sys,          'epitools/sys'
 
+
 ## Gems (common)
+
 autoreq  :Nokogiri,     'nokogiri'
 autoreq  :ANSI,         'ansi'
 autoreq  :BSON,         'bson'
+autoreq  :JSON,         'json'
+
+
+## Network stuff
+
+# Sockets
+['IP', 'Basic', 'TCP', 'UDP', 'UNIX', ''].each do |type|
+  autoload :"#{type}Socket", 'socket'
+end
+
+# Servers
+['TCP', 'UNIX'].each do |type|
+  autoload :"#{type}Server", 'socket'
+end
+
+
+## YAML hacks (sometimes the module is loaded improperly)
+
+if defined? YAML and not defined? YAML.parse
+  del YAML  # remove the existing module
+end
+autoreq :YAML, 'yaml'

data/lib/epitools/core_ext/array.rb

@@ -66,7 +66,7 @@ class Array
   #
   # Shuffle the array
   #
-  unless defined? shuffle
+  unless instance_methods.include? :shuffle
     def shuffle
       sort_by{rand}
     end
@@ -75,13 +75,20 @@ class Array
   #
   # Pick (a) random element(s).
   #
-  unless defined? sample
+  unless instance_methods.include? :sample
     def sample(n=1)
-      if n == 1
-        self[rand(size)]
-      else
-        shuffle[0...n]
+      return self[rand sz] if n == 1
+
+      sz      = size
+      indices = []
+
+      loop do
+        indices += (0..n*1.2).map { rand sz }
+        indices.uniq
+        break if indices.size >= n
       end
+
+      values_at(*indices[0...n])
     end
   end
   alias_method :pick, :sample

data/lib/epitools/core_ext/enumerable.rb

@@ -35,7 +35,7 @@ module Enumerable
         end
       end
     else
-      enum_for :skip, n
+      to_enum(:skip, n)
     end
   end
 
@@ -166,16 +166,22 @@ module Enumerable
   # Example:
   #   [ [1,2], [3,4] ].deep_map{|e| e ** 2 } #=> [ [1,4], [9,16] ]
   #
-  def deep_map(depth=nil, &block)
-    map do |obj|
+  def deep_map(max_depth=nil, current_depth=0, parent=nil, &block)
+    return self if max_depth and (current_depth > max_depth)
 
-      case obj
-      when Enumerable
-        obj.deep_map(&block)
+    map do |obj|
+      if obj == parent # infinite loop scenario!
+        yield obj
       else
-        block.call(obj)
+        case obj
+        when String
+          yield obj
+        when Enumerable
+          obj.deep_map(max_depth, current_depth+1, self, &block)
+        else
+          yield obj
+        end
       end
-
     end
   end
 
@@ -190,30 +196,58 @@ module Enumerable
   # Example:
   #   [ [1,2], [3,4] ].deep_select{|e| e % 2 == 0 } #=> [ [2], [4] ]
   #
-  def deep_select(depth=nil, &block)
-    map do |*args|
-
-      obj = args.last
-
-      if depth.nil? or depth > 0
+  def deep_select(max_depth=nil, current_depth=0, parent=nil, &block)
+    return self if max_depth and (current_depth > max_depth)
 
+    map do |obj|
+      p [:obj, obj]
+      result = if obj == parent # infinite loop scenario!
+        p :infinite
+        obj if yield obj
+      else
         case obj
-        when Hash
-
-        when Array, Enumerable
-          result = obj.deep_select(depth ? depth-1 : nil, &block)
-          result.any? ? result : nil
+        when String
+          p :string
+          obj if yield obj
+        when Enumerable
+          p :recurse
+          obj.deep_select(max_depth, current_depth+1, self, &block)
+        else
+          p :else
+          p [:yield, yield(obj)]
+          obj if yield obj
         end
-
-      else
-        obj if block.call(obj)
       end
-
+      p [:result, result]
+      result
     end.compact
   end
 
-  alias_method :recursive_select, :deep_select
+  # def deep_select(depth=nil, &block)
+  #   map do |*args|
+
+  #     obj = args.last
+
+  #     if depth.nil? or depth > 0
+
+  #       case obj
+  #       when Hash
+
+  #       when Array, Enumerable
+  #         result = obj.deep_select(depth ? depth-1 : nil, &block)
+  #         result.any? ? result : nil
+  #       end
+
+  #     else
+  #       obj if block.call(obj)
+  #     end
+
+  #   end.compact
+  # end
 
+  alias_method :recursive_select,   :deep_select
+  alias_method :select_recursively, :deep_select
+  alias_method :select_recursive,   :deep_select
 
   #
   # Identical to "reduce" in ruby1.9 (or foldl in haskell.)
@@ -324,7 +358,7 @@ class Enumerator
   # Display a spinner every `every` elements that pass through the Enumerator.
   #
   def with_spinner(every=37)
-    Enumerator.new do |yielder|
+    to_enum do |yielder|
       spins = 0
 
       each.with_index do |e, i|

data/lib/epitools/core_ext/misc.rb

@@ -9,6 +9,7 @@ class MatchData
 
 end
 
+
 class Binding
 
   #
@@ -30,15 +31,22 @@ class Binding
   #
   # Return all the local variables in the binding
   #
-  def local_variables
-    eval("local_variables")
+
+  if RUBY_VERSION["1.8"]
+    def local_variables
+      eval("local_variables").map(&:to_sym)
+    end
+  else
+    def local_variables
+      eval("local_variables")
+    end
   end
+
   alias_method :keys, :local_variables
 
 end
 
 
-
 class Proc
 
   #

data/lib/epitools/core_ext/numbers.rb

@@ -19,8 +19,12 @@ class Numeric
   def clamp(range)
     if self < range.first
       range.first
-    elsif self > range.last 
-      range.last
+    elsif self >= range.last 
+      if range.exclude_end?
+        range.last - 1
+      else
+        range.last
+      end
     else
       self
     end
@@ -95,8 +99,11 @@ class Numeric
 
   end
 
-  def log(n)
-    Math.log(self, n)
+  # Math.log is different in 1.8
+  if RUBY_VERSION["1.8"]
+    def log(n); Math.log(self) / Math.log(n); end
+  else
+    def log(n); Math.log(self, n); end
   end
 
 

data/lib/epitools/core_ext/string.rb

@@ -1,3 +1,4 @@
+require 'epitools/minimal'
 require 'epitools/core_ext/numbers'
 
 class String
@@ -107,6 +108,7 @@ class String
   # Convert a query string to a hash of params
   #
   def to_params
+    require 'cgi' unless defined? CGI.parse
     CGI.parse(self).map_values do |v|
       # CGI.parse wraps every value in an array. Unwrap them!
       if v.is_a?(Array) and v.size == 1
@@ -231,7 +233,7 @@ class String
   # Parse this string as YAML
   #
   def from_yaml
-    YAML.parse(self).to_ruby
+    YAML.load(self)
   end
 
   #

data/lib/epitools/minimal.rb

@@ -4,14 +4,6 @@ if RUBY_VERSION["1.8"]
   Enumerator = Enumerable::Enumerator unless defined? Enumerator
 end
 
-unless defined? Enum
-  if defined? Enumerator
-    Enum = Enumerator
-  else
-    $stderr.puts "WARNING: Couldn't find the Enumerator class. Enum will not be available."
-  end
-end
-
 RbConfig = Config unless defined? RbConfig
 
 
@@ -121,7 +113,7 @@ class Object
       alias_method "#{meth}_without_enumerator", meth
       class_eval %{
         def #{meth}(*args, &block)
-          return Enum.new(self, #{meth.inspect}, *args, &block) unless block_given?
+          return to_enum(#{meth.inspect}, *args, &block) unless block_given?
           #{meth}_without_enumerator(*args, &block)
         end
       }

data/lib/epitools/rash.rb

@@ -51,7 +51,7 @@ class Rash
   # Return everything that matches the query.
   #
   def all(query)
-    return Enumerator.new(self, :all, query) unless block_given?   
+    return to_enum(:all, query) unless block_given?   
   
     if @hash.include? query
       yield @hash[query]

data/lib/epitools/term.rb

@@ -37,6 +37,10 @@ module Term
   def goto(x,y); @x, @y = x, y; end
   def pos; [@x, @y]; end
 
+  def clear
+    print "\e[H\e[J"
+  end
+
   def color(fore, back=nil)
     @fore = fore
     @back = back if back

data/spec/core_ext_spec.rb

@@ -1,16 +1,8 @@
+# require 'pry-rescue/rspec'
 require 'epitools'
 
 describe Object do
 
-  it "has Enum" do
-    defined?(Enum).should_not == nil
-  end
-  
-  #it "enums" do
-  #  generator = enum { |y| y.yield 1 }
-  #  generator.next.should == 1
-  #end
-
   it "withs" do
     class Cookie; attr_accessor :size, :chips; end
     
@@ -161,7 +153,7 @@ describe Numeric do
     20.sin.should == Math.sin(20)
     1.5.exp.should == Math.exp(1.5)
 
-    253.log(5).should == Math.log(253,5)
+    253.log(5).should == 3.438088195871358
     (2**(4212.log(2))).round.should == 4212.0
   end
 
@@ -357,12 +349,33 @@ end
 
 describe Enumerable do
 
+  it "maps deeply" do
+    [["a\n", "b\n"], ["c\n", "d\n"]].map_recursively(&:strip).should == [ %w[a b], %w[c d] ]
+    
+    [[1,2],[3,4]].deep_map {|e| e ** 2}.should == [[1,4],[9,16]] 
+    [1,2,3,4].deep_map {|e| e ** 2}.should == [1,4,9,16] 
+    [[],[],1,2,3,4].deep_map {|e| e ** 2}.should == [[], [], 1, 4, 9, 16] 
+
+    {1=>2, 3=>{4=>5, 6=>7}}.deep_map {|k,v| [k, v**2] }.should == [ [1,4], [3, [[4,25], [6,49]]] ]
+  end
+  
+  it "selects deeply" do
+
+    [[1,2],[3,4]].deep_select {|e| e % 2 == 0 }.should == [[2],[4]]
+    puts
+
+    {1=>2, 3=>{4=>5, 6=>7}}.deep_select {|k,v| k == 1 }.should == {1=>2} 
+    #[1,2,3,4].deep_select {|e| e ** 2}.should == [1,4,9,16] 
+    #[[],[],1,2,3,4].deep_select {|e| e ** 2}.should == [[], [], 1, 4, 9, 16] 
+  end
+  
   it "splits" do
     [1,2,3,4,5].split_at     {|e| e == 3}.should == [ [1,2], [4,5] ]
     [1,2,3,4,5].split_after  {|e| e == 3}.should == [ [1,2,3], [4,5] ]
     [1,2,3,4,5].split_before {|e| e == 3}.should == [ [1,2], [3,4,5] ]
 
-    "a\nb\n---\nc\nd\n".lines.split_at(/---/).map_recursively(&:strip).should   == [ %w[a b], %w[c d] ]
+    result = "a\nb\n---\nc\nd\n".lines.split_at(/---/)
+    result.map_recursively(&:strip).should == [ %w[a b], %w[c d] ]
   end
 
   it "handles nested things" do
@@ -394,19 +407,6 @@ describe Enumerable do
     [1,1,3,3].average.should == 2.0
   end
 
-  it "maps deeply" do
-    [[1,2],[3,4]].deep_map {|e| e ** 2}.should == [[1,4],[9,16]] 
-    [1,2,3,4].deep_map {|e| e ** 2}.should == [1,4,9,16] 
-    [[],[],1,2,3,4].deep_map {|e| e ** 2}.should == [[], [], 1, 4, 9, 16] 
-  end
-  
-  it "selects deeply" do
-    [[1,2],[3,4]].deep_select {|e| e % 2 == 0 }.should == [[2],[4]]
-    {1=>2, 3=>{4=>5, 6=>7}}.deep_select {|k,v| k == 1 }.should == {1=>2} 
-    #[1,2,3,4].deep_select {|e| e ** 2}.should == [1,4,9,16] 
-    #[[],[],1,2,3,4].deep_select {|e| e ** 2}.should == [[], [], 1, 4, 9, 16] 
-  end
-  
   it "foldl's" do
     a = [1,2,3,4]
     a.foldl(:+).should == a.sum
@@ -417,7 +417,7 @@ describe Enumerable do
   
   it "powersets" do
     [1,2,3].powerset.should == [[], [1], [2], [1, 2], [3], [1, 3], [2, 3], [1, 2, 3]]
-    Enum.new([1,2], :each).powerset.should == [[], [1], [2], [1, 2]]
+    [1,2].to_enum.powerset.should == [[], [1], [2], [1, 2]]
   end
   
   it "unzips" do
@@ -466,10 +466,10 @@ describe Hash do
   it "maps values" do
     h = @h.map_values{|v| v.upcase}
 
-    h.values.should == @h.values.map{|v| v.upcase}
-    h.keys.should   == @h.keys
+    h.values.should =~ @h.values.map{|v| v.upcase}
+    h.keys.should   =~ @h.keys
     h.map_values! { 1 }
-    h.values.should == [1,1]
+    h.values.should =~ [1,1]
   end
 
   it "slices" do
@@ -490,7 +490,7 @@ describe Hash do
     h.mkdir_p(["a", "b", "whoa"]).should == {"a"=>{"b"=>{"c"=>{}, "whoa"=>{}}}}
     
     lambda { 
-      h.tree.should == ["a", "  b", "    c", "    whoa"]
+      h.tree.should =~ ["a", "  b", "    c", "    whoa"]
     }.should_not raise_error
   end
   
@@ -529,7 +529,7 @@ describe Binding do
   a = 1
   b = proc { a }
   
-  b.binding.keys.should == [:a, :b]
+  b.binding.keys.should =~ [:a, :b]
   b.binding.keys.should == b.binding.local_variables
   
   b.binding[:a].should  == 1
@@ -592,13 +592,13 @@ describe "truthiness" do
     {
       # truthy things
       true => [
-        "yes", "on", "1", "Enabled", 1, 1.7, :blah, true, [1,2,3], Enumerator.new([1,2,3], :each),
+        "yes", "on", "1", "Enabled", 1, 1.7, :blah, true, [1,2,3], [1,2,3].to_enum,
         1938389127239847129803741980237498012374,
       ],
       
       # untruthy things
       false => [
-        "", " ", "asdf", 0, 0.0, false, nil, [], Enumerator.new([], :each),
+        "", " ", "asdf", 0, 0.0, false, nil, [], [].to_enum,
       ]
     }.each do |truthiness, objs|
       objs.each { |obj| obj.truthy?.should == truthiness }

data/spec/histogram_spec.rb

@@ -0,0 +1,29 @@
+require 'epitools/core_ext/array'
+
+describe "Array#histogram" do
+  
+  it "does 1..10" do
+    nums = (1..10).to_a
+    nums.histogram(2).should == [ 5, 5 ]
+    nums.histogram(5).should == [ 2, 2, 2, 2, 2 ]
+  end
+
+  it "does -10..10" do
+    nums = (-9..10).to_a
+    nums.histogram(2).should == [ 10, 10 ]
+  end
+
+  it "does floats" do
+    nums = [0.12, 1.0, 2.2, 3.5, 4.7, 5.9, 6.6, 7.777, 8.898]
+    nums.histogram(3).should == [3,3,3]
+  end
+  
+  it "does ranges" do
+    nums = (0..9).to_a
+    nums.histogram(2, ranges: true).should == {
+      0.0...4.5 => 5,
+      4.5...9.0 => 5
+    }
+  end
+  
+end

data/spec/spec_helper.rb

@@ -14,7 +14,7 @@ Spork.prefork do
   
   require 'rspec'
   require 'epitools'
-  
+
   Rspec.configure do |c|
     c.mock_with :rspec
   end

metadata

@@ -1,32 +1,32 @@
 --- !ruby/object:Gem::Specification
 name: epitools
 version: !ruby/object:Gem::Version
+  version: 0.5.20
   prerelease: 
-  version: 0.5.19
 platform: ruby
 authors:
 - epitron
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2013-01-08 00:00:00.000000000 Z
+date: 2013-02-12 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
-  type: :development
+  name: rspec
   requirement: !ruby/object:Gem::Requirement
     none: false
     requirements:
-    - - ! '>='
+    - - '>='
       - !ruby/object:Gem::Version
         version: '0'
+  type: :development
   prerelease: false
   version_requirements: !ruby/object:Gem::Requirement
     none: false
     requirements:
-    - - ! '>='
+    - - '>='
       - !ruby/object:Gem::Version
         version: '0'
-  name: rspec
 description: Miscellaneous utility libraries to make my life easier.
 email: chris@ill-logic.com
 executables: []
@@ -90,6 +90,7 @@ files:
 - spec/colored_spec.rb
 - spec/core_ext_spec.rb
 - spec/ezdb_spec.rb
+- spec/histogram_spec.rb
 - spec/iter_spec.rb
 - spec/lcs_spec.rb
 - spec/numwords_spec.rb
@@ -114,18 +115,18 @@ require_paths:
 required_ruby_version: !ruby/object:Gem::Requirement
   none: false
   requirements:
-  - - ! '>='
+  - - '>='
     - !ruby/object:Gem::Version
       version: '0'
 required_rubygems_version: !ruby/object:Gem::Requirement
   none: false
   requirements:
-  - - ! '>='
+  - - '>='
     - !ruby/object:Gem::Version
       version: '0'
 requirements: []
 rubyforge_project: 
-rubygems_version: 1.8.24
+rubygems_version: 1.8.25
 signing_key: 
 specification_version: 3
 summary: Not utils... METILS!