epitools 0.5.0 → 0.5.1

data/VERSION

@@ -1 +1 @@
-0.5.0
+0.5.1

data/epitools.gemspec

@@ -4,14 +4,14 @@
 # -*- encoding: utf-8 -*-
 
 Gem::Specification.new do |s|
-  s.name = %q{epitools}
-  s.version = "0.5.0"
+  s.name = "epitools"
+  s.version = "0.5.1"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
-  s.authors = [%q{epitron}]
-  s.date = %q{2011-10-13}
-  s.description = %q{Miscellaneous utility libraries to make my life easier.}
-  s.email = %q{chris@ill-logic.com}
+  s.authors = ["epitron"]
+  s.date = "2011-11-23"
+  s.description = "Miscellaneous utility libraries to make my life easier."
+  s.email = "chris@ill-logic.com"
   s.extra_rdoc_files = [
     "LICENSE",
     "README.rdoc",
@@ -35,6 +35,7 @@ Gem::Specification.new do |s|
     "lib/epitools/colored.rb",
     "lib/epitools/ezdb.rb",
     "lib/epitools/hexdump.rb",
+    "lib/epitools/iter.rb",
     "lib/epitools/its.rb",
     "lib/epitools/lcs.rb",
     "lib/epitools/mimemagic.rb",
@@ -59,6 +60,7 @@ Gem::Specification.new do |s|
     "spec/clitools_spec.rb",
     "spec/colored_spec.rb",
     "spec/ezdb_spec.rb",
+    "spec/iter_spec.rb",
     "spec/lcs_spec.rb",
     "spec/numwords_spec.rb",
     "spec/path_spec.rb",
@@ -71,11 +73,11 @@ Gem::Specification.new do |s|
     "spec/term_spec.rb",
     "spec/zopen_spec.rb"
   ]
-  s.homepage = %q{http://github.com/epitron/epitools}
-  s.licenses = [%q{WTFPL}]
-  s.require_paths = [%q{lib}]
-  s.rubygems_version = %q{1.8.6}
-  s.summary = %q{NOT UTILS... METILS!}
+  s.homepage = "http://github.com/epitron/epitools"
+  s.licenses = ["WTFPL"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = "1.8.10"
+  s.summary = "NOT UTILS... METILS!"
 
   if s.respond_to? :specification_version then
     s.specification_version = 3

data/lib/epitools/autoloads.rb

@@ -16,6 +16,12 @@ autoload :Date,       'date'
 autoload :Open3,      'open3'
 #autoload :DelegateClass, 'delegate'
 
+if RUBY_VERSION["1.8.7"]
+  autoload :Prime,      'mathn'
+else
+  autoload :Prime,      'prime'
+end
+
 module Digest
   autoload :SHA1,     'digest/sha1'
   autoload :SHA2,     'digest/sha2'
@@ -33,6 +39,7 @@ autoload :ProgressBar,  'epitools/progressbar'
 autoload :Trie,         'epitools/trie'
 autoload :MimeMagic,    'epitools/mimemagic'
 autoload :Term,         'epitools/term'
+autoload :Iter,         'epitools/iter'
 
 ## Gems
 autoreq  :ANSI,         'ansi' 

data/lib/epitools/basetypes.rb

@@ -176,6 +176,15 @@ class Integer
     
     result.map{|digit| BASE62_DIGITS[digit]}.join ''
   end
+
+  #
+  # Returns the all the prime factors of a number.
+  #
+  def factors
+    Prime # autoload the prime module
+    prime_division.map { |n,count| [n]*count }.flatten 
+  end
+  
 end
 
 
@@ -312,11 +321,10 @@ class String
   end
   
 
-
   #
   # Cached constants for base62 decoding.
   #  
-  BASE62_DIGITS  = Hash[ Integer::BASE62_DIGITS.map.with_index{|letter,index| [letter,index]} ]
+  BASE62_DIGITS  = Hash[ Integer::BASE62_DIGITS.zip((0...Integer::BASE62_DIGITS.size).to_a) ]
   BASE62_BASE    = Integer::BASE62_BASE
   
   #
@@ -511,6 +519,9 @@ class Array
     piece_size = (size.to_f / pieces).ceil
     each_slice(piece_size).to_a
   end
+  
+
+  alias_method :unzip, :transpose
 
 end
 
@@ -721,6 +732,42 @@ module Enumerable
       a.select.with_index{ |e, i| bitmask[i] == 1 }
     end
   end
+
+  #
+  # Does the opposite of #zip -- converts [ [:a, 1], [:b, 2] ] to [ [:a, :b], [1, 2] ]
+  #  
+  def unzip
+    # TODO: make it work for arrays containing uneven-length contents
+    to_a.transpose
+  end
+  
+  #
+  # Associative grouping; groups all elements who share something in common with each other.
+  # You supply a block which takes two elements, and have it return true if they are "neighbours"
+  # (eg: belong in the same group). 
+  #
+  # Example:
+  #   [1,2,5,6].group_neighbours_by { |a,b| b-a <= 1 } #=> [ [1,2], [5,6] ]
+  #
+  # (Note: This is a very fast one-pass algorithm -- therefore, the groups must be pre-sorted.)
+  #
+  def group_neighbours_by(&block)
+    result = []
+    cluster = [first]
+    each_cons(2) do |a,b|
+      if yield(a,b)
+        cluster << b
+      else
+        result << cluster
+        cluster = [b]
+      end
+    end
+    
+    result << cluster if cluster.any?
+    
+    result    
+  end
+  alias_method :group_neighbors_by, :group_neighbours_by 
   
 end
 

data/lib/epitools/iter.rb

@@ -0,0 +1,149 @@
+#
+# A stable iterator class.
+# (You can reorder/remove elements in the container without affecting iteration.)
+#
+# For example, to reverse all the elements in a list: 
+#   >> i = Iter.new(1..10)
+#   >> i.each_cons(2) { |a,b| b.move_before(a) }
+#   >> i.to_a    #=> [10, 9, 8, 7, 6, 5, 4, 3, 2, 1]  
+#
+class Iter
+
+  attr_accessor :container
+
+  def initialize(vals)
+    @container = vals.map{|val| Elem.new(self, val)}
+  end
+  
+  def self.from_elems(elems)
+    new([]).tap{|i| i.container = elems}
+  end
+
+  def ==(other)
+    case other
+    when Iter
+      @container == other.container
+    when Array
+      @container == other
+    end
+  end
+  
+  def each
+    @container.each do |elem|
+      yield elem
+    end
+  end
+  
+  def each_cons(num=1)
+    @container.each_cons(num) do |(*elems)|
+      yield *elems 
+    end
+  end
+  
+  alias_method :iterate,    :each_cons
+  alias_method :every,      :each_cons
+
+  def to_a
+    @container.map(&:val)
+  end
+
+  def method_missing(name, *args)
+    result = @container.send(name, *args)
+    case result
+    when Array
+      Iter.from_elems result
+    else
+      result
+    end
+  end
+  
+  class Elem < BasicObject
+  
+    attr_accessor :val
+
+    def initialize(iter, val)
+      @iter = iter
+      @val  = val
+    end
+    
+    def ==(other)
+      self.eql?(other)
+    end
+    
+    def container
+      @iter.container
+    end
+    
+    def current
+      self
+    end
+    
+    def next
+      p = pos+1
+      if p >= container.size
+        nil
+      else
+        container[p]
+      end
+    end
+    
+    def prev
+      p = pos-1
+      if p < 0
+        nil
+      else
+        container[p]
+      end
+    end
+    
+    def remove
+      container.delete_at(pos)
+    end
+    alias_method :delete, :remove
+    
+    def replace_with(replacement)
+      container[pos] = Elem.new(@iter, replacement)
+    end
+    
+    def pos
+      container.index(self)
+    end
+    
+    def move_before(other)
+      remove
+      container.insert(other.pos, self) # insert at pos and shift everything over
+    end
+    
+    def move_after(other)
+      remove
+      container.insert(other.pos+1, self) # insert after pos
+    end
+    
+    def move_first
+      remove
+      container.insert(0, self) # insert at beginning
+    end
+    alias_method :move_start, :move_first
+    
+    def move_last
+      remove
+      container.insert(-1, self) # insert at end
+    end
+    alias_method :move_end, :move_last
+    
+    def value
+      @val
+    end
+    
+    def method_missing(name, *args)
+      @val.send(name, *args)
+    end
+    
+    def inspect
+      "<Elem: #{@val.inspect}>"
+    end
+  end
+
+  
+end
+

data/lib/epitools/path.rb

@@ -57,8 +57,8 @@ class Path
   
   ## initializers
 
-  def initialize(newpath)
-    self.path = newpath
+  def initialize(newpath, hints={})
+    self.send("path=", newpath, hints)
   end
 
   def self.glob(str)
@@ -96,9 +96,14 @@ class Path
   attr_writer :base
   attr_writer :dirs
   
-  def path=(newpath)
-    if File.exists? newpath
-      if File.directory? newpath
+  #
+  # This is the core that initializes the whole class.
+  #
+  # Note: The `hints` parameter contains options so `path=` doesn't have to touch the filesytem as much.
+  # 
+  def path=(newpath, hints={})
+    if hints[:type] or File.exists? newpath
+      if hints[:type] == :dir or File.directory? newpath
         self.dir = newpath
       else
         self.dir, self.filename = File.split(newpath)
@@ -261,6 +266,14 @@ class Path
     uri?
   end
   
+  def child_of?(parent)
+    parent.parent_of? self
+  end
+  
+  def parent_of?(child)
+    # If `self` is a parent of `child`, it's a prefix.
+    child.path[/^#{Regexp.escape self.path}\/.+/] != nil
+  end
   
   ## comparisons
 
@@ -324,7 +337,16 @@ class Path
   def ls; Path[File.join(path, "*")]; end
 
   def ls_r; Path[File.join(path, "**/*")]; end
-
+  
+  def ls_dirs
+    ls.select(&:dir?)
+    #Dir.glob("#{path}*/", File::FNM_DOTMATCH).map { |s| Path.new(s, :type=>:dir) }
+  end
+  
+  def ls_files
+    ls.select(&:file?)
+    #Dir.glob("#{path}*", File::FNM_DOTMATCH).map { |s| Path.new(s, :type=>:file) }
+  end
 
   def siblings
     ls - [self]
@@ -455,7 +477,6 @@ raise "Broken!"
     end
   end
 
-
   def ln_s(dest)
     dest = Path[dest]
     FileUtils.ln_s self, dest 
@@ -582,7 +603,7 @@ raise "Broken!"
   end
 
   def lstat
-    #@lstat ||= File.lstat self
+    #@lstat ||= File.lstat self    # to cache or not to cache -- that is the question.
     File.lstat self
   end
   
@@ -590,6 +611,9 @@ raise "Broken!"
     lstat.mode
   end
   
+  #
+  # Find the parent directory. If the `Path` is a filename, it returns the containing directory.
+  #
   def parent
     if file?
       with(:filename=>nil)
@@ -598,6 +622,21 @@ raise "Broken!"
     end
   end
   
+  #
+  # Follows all symlinks to give the true location of a path.
+  #
+  if File.respond_to?(:realpath)
+    def realpath
+      Path.new File.realpath(path)
+    end
+  else
+    def realpath
+      require 'pathname'
+      Path.new Pathname.new(path).realpath
+    end
+  end
+
+  
   # Mimetype finding and magic (requires 'mimemagic' gem)
 
   #
@@ -701,6 +740,7 @@ raise "Broken!"
     md5
     rm
     truncate
+    realpath
     mv/1
     move/1
     chmod/1
@@ -717,9 +757,8 @@ raise "Broken!"
       end
     }
   end
-  
-  
-  
+
+
   #
   # Same as File.expand_path, except preserves the trailing '/'.
   #
@@ -811,7 +850,7 @@ class Path::URL < Path
   # TODO: only include certain methods from Path (delegate style)
   #       (eg: remove commands that write)
   
-  def initialize(uri)
+  def initialize(uri, hints={})
     @uri = URI.parse(uri)
     self.path = @uri.path
   end
@@ -849,7 +888,7 @@ class Path::URL < Path
   # ...and this is: 80
   #
   def port
-    uri.host
+    uri.port
   end
   
   #

data/lib/epitools/sys.rb

@@ -224,8 +224,10 @@ module Sys
   def self.ps(*pids)
     options = PS_FIELDS.join(',')
     
+    pids = pids.map(&:to_i)
+    
     if pids.any?
-      command = "ps -p #{pids.map(&:to_i).join(',')} -o #{options}"
+      command = "ps -p #{pids.join(',')} -o #{options}"
     else
       command = "ps ax -o #{options}"
     end

data/lib/epitools/term.rb

@@ -1,5 +1,11 @@
 #require 'epitools'
 
+#
+# Example usage:
+#   puts Term::Table[ (1..100).to_a ].horizontally #=> prints all the numbers, ordered across rows
+#   puts Term::Table[ (1..100).to_a ].vertically #=> prints all the numbers, ordered across columns
+#   puts Term::Table[ [[1,2], [3,4]] ] #=> prints the table that was supplied
+#
 module Term
 
   extend self

data/spec/basetypes_spec.rb

@@ -259,6 +259,11 @@ describe Integer do
     sum.to_base62.from_base62.to_s(16).should == sum
   end
   
+  it "factors numbers" do
+    10.factors.should == [2,5]
+    256.factors.should == [2,2,2,2,2,2,2,2]
+  end
+  
 end
 
 
@@ -358,8 +363,17 @@ 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]]
-  end    
+  end
   
+  it "unzips" do
+    [ [:a, 1], [:b, 2] ].unzip.should == [ [:a, :b], [1, 2] ]
+  end
+  
+  it "group_neighbours_bys" do
+    a = [1,2,5,6,7,10,11,13]
+    result = a.group_neighbours_by { |a,b| b-a <= 1 }
+    result.should == [[1,2],[5,6,7],[10,11],[13]]
+  end
 end
 
 describe Hash do

data/spec/iter_spec.rb

@@ -0,0 +1,89 @@
+require 'epitools/iter'
+
+describe Iter do
+
+  before :each do
+    @i = Iter.new([1,2,3,4,5])
+  end
+
+  it "iterates" do
+    @i.iterate(2) do |i,j|
+      i.should_not == j
+    end
+  end
+  
+  it "to_a's" do
+    @i.to_a.should == [1,2,3,4,5]
+  end
+  
+  it "reverses" do
+    @i.iterate(2) do |a, b|
+      b.move_before(a)
+    end
+    
+    @i.to_a.should == [5,4,3,2,1]
+  end
+
+  it "next/prevs" do
+    @i.iterate(2) do |a,b|
+      a.next.should == b
+      b.prev.should == a
+    end
+  end
+  
+  it "removes" do
+    @i.iterate {|x| x.remove if x % 2 == 1 }
+    @i.to_a.should == [2,4]    
+  end
+  
+  it "replaces" do
+    @i.first.replace_with(-1)
+    @i.to_a.should == [-1,2,3,4,5]    
+  end
+  
+  it "slices, values, indexes, etc." do
+    # todo: slice should return an iter
+    @i.first.should == 1
+    @i[0..1].should == @i.values_at(0,1) 
+    @i[0..-1].should == @i 
+    @i[-1].should == @i.last
+    @i[-2..-1].should == @i.values_at(-2,-1)
+  end
+  
+  it "move_first/last" do
+    @i.first.move_last
+    @i.to_a.should == [2,3,4,5,1]
+    
+    @i.last.move_first
+    @i.should == [1,2,3,4,5]
+  end
+  
+  it "cluters nearby elements" do
+    class Cluster < Array
+      def min_distance(other)
+        a, b = other.max, other.min
+        x, y = max, min
+        [a-x, a-y, b-x, b-y].map(&:abs).min
+      end
+      
+      def absorb(other)
+        concat other
+        sort!
+        other.clear 
+      end
+    end
+  
+    a = [1,2,5,6,7,10,11,13].map { |e| Cluster.new [e] }
+    i = Iter.new(a)
+    
+    i.each_cons(2) do |a,b|
+      if b.any? and a.any? and a.min_distance(b) <= 1
+        b.absorb(a)
+        a.remove
+      end
+    end
+    
+    i.to_a.should == [[1,2],[5,6,7],[10,11],[13]]
+  end
+  
+end

data/spec/path_spec.rb

@@ -126,6 +126,7 @@ describe Path do
   it "handles URLs" do
     path = Path["http://google.com/?search=blah"]
     path.host.should == "google.com"
+    path.port.should == 80
     path.query.should == {"search" => "blah"}
     path.uri?.should == true
   end
@@ -321,4 +322,34 @@ describe Path do
     # swap two symlinks
   end
   
+  it 'realpaths' do
+    Path["/etc"].realpath.should == Path["/etc"]
+    
+  end
+  
+  it 'parents and childs properly' do
+  
+    root = Path["/"]
+    parent = Path["/blah/stuff"]
+    child = Path["/blah/stuff/what"]
+    neither = Path["/whee/yay"]
+
+    # Table of parent=>child relationships    
+    {
+      parent => child,
+      root   => parent,
+      root   => child,
+      root   => neither,
+    }.each do |p, c|
+      p.parent_of?(c).should == true
+      c.parent_of?(p).should == false
+      
+      c.child_of?(p).should == true
+      p.child_of?(c).should == false
+    end
+    
+    neither.parent_of?(child).should == false
+    neither.parent_of?(parent).should == false
+  end
+  
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: epitools
 version: !ruby/object:Gem::Version
-  version: 0.5.0
+  version: 0.5.1
   prerelease: 
 platform: ruby
 authors:
@@ -9,11 +9,11 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2011-10-13 00:00:00.000000000 Z
+date: 2011-11-23 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rspec
-  requirement: &71901040 !ruby/object:Gem::Requirement
+  requirement: &83289590 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ~>
@@ -21,10 +21,10 @@ dependencies:
         version: 2.2.0
   type: :development
   prerelease: false
-  version_requirements: *71901040
+  version_requirements: *83289590
 - !ruby/object:Gem::Dependency
   name: mechanize
-  requirement: &71900430 !ruby/object:Gem::Requirement
+  requirement: &83289150 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ~>
@@ -32,10 +32,10 @@ dependencies:
         version: 1.0.0
   type: :development
   prerelease: false
-  version_requirements: *71900430
+  version_requirements: *83289150
 - !ruby/object:Gem::Dependency
   name: sqlite3-ruby
-  requirement: &71899880 !ruby/object:Gem::Requirement
+  requirement: &83288710 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ! '>='
@@ -43,7 +43,7 @@ dependencies:
         version: '0'
   type: :development
   prerelease: false
-  version_requirements: *71899880
+  version_requirements: *83288710
 description: Miscellaneous utility libraries to make my life easier.
 email: chris@ill-logic.com
 executables: []
@@ -70,6 +70,7 @@ files:
 - lib/epitools/colored.rb
 - lib/epitools/ezdb.rb
 - lib/epitools/hexdump.rb
+- lib/epitools/iter.rb
 - lib/epitools/its.rb
 - lib/epitools/lcs.rb
 - lib/epitools/mimemagic.rb
@@ -94,6 +95,7 @@ files:
 - spec/clitools_spec.rb
 - spec/colored_spec.rb
 - spec/ezdb_spec.rb
+- spec/iter_spec.rb
 - spec/lcs_spec.rb
 - spec/numwords_spec.rb
 - spec/path_spec.rb
@@ -126,7 +128,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
       version: '0'
 requirements: []
 rubyforge_project: 
-rubygems_version: 1.8.6
+rubygems_version: 1.8.10
 signing_key: 
 specification_version: 3
 summary: NOT UTILS... METILS!