rio 0.4.2 → 0.5.1

data/lib/rio/argv.rb

@@ -1,6 +1,6 @@
 #--
-# =============================================================================== 
-# Copyright (c) 2005,2006,2007,2008 Christopher Kleckner
+# ===========================================================================
+# Copyright (c) 2005-2012 Christopher Kleckner
 # All rights reserved
 #
 # This file is part of the Rio library for ruby.
@@ -18,20 +18,9 @@
 # You should have received a copy of the GNU General Public License
 # along with Rio; if not, write to the Free Software
 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
-# =============================================================================== 
+# =========================================================================== 
 #++
 #
-# To create the documentation for Rio run the command
-#  ruby build_doc.rb
-# from the distribution directory.
-#
-# Suggested Reading
-# * RIO::Doc::SYNOPSIS
-# * RIO::Doc::INTRO
-# * RIO::Doc::HOWTO
-# * RIO::Doc::EXAMPLES
-# * RIO::Rio
-#
 
 #
 

data/lib/rio/arraynge.rb

@@ -0,0 +1,146 @@
+#--
+# ===========================================================================
+# Copyright (c) 2005-2012 Christopher Kleckner
+# All rights reserved
+#
+# This file is part of the Rio library for ruby.
+#
+# Rio is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# Rio is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Rio; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+# =========================================================================== 
+#++
+#
+
+#Arraynge
+module RIO
+  class Arraynge
+    def self.ml_to_ranges(rl)
+      rl.map{|el| (Range === el) ? el : (el..el)}
+    end
+
+    def self.ml_to_singles(rl)
+      rl.inject([]) do  |ary,el|
+        ary + (Range === el ? el.map{|rel| rel } : [el])
+      end
+    end
+
+    def self.range_to_singles(r)
+      r.map{|s| s}
+    end
+
+    def self.flatten_single(r)
+      max = r.exclude_end? ? r.end-1 : r.end
+      r.begin == max ? r.begin : r
+    end
+
+    def self.flatten_singles(rl)
+      rl.map{|r| flatten_single(r) }
+    end
+
+    def self.ml_reduce(ml)
+      rl = ml_to_ranges(ml)
+      reduced_list = reduce(rl)
+      flatten_singles(reduced_list)
+    end
+
+    def self.ml_arraynge(mx,ml)
+      ml.map{|rng| (rng.is_a?(::Range) ? arraynge(mx,rng) : rng)}
+    end
+
+    def self.arraynge(mx,rng)
+      #p "arraynge(#{mx},#{rng})"
+      begr = rng.begin
+      mxlim = (rng.exclude_end? ? mx.succ : mx)
+      endr = (rng.end > mxlim ? mxlim : rng.end)
+      endr = mx + rng.end + 1 if rng.end < 0
+      begr = mx + rng.begin + 1 if rng.begin < 0
+      return (1..0) if begr < 0 or endr <0
+      rng.exclude_end? ? (begr...endr) : (begr..endr)
+    end
+
+    def self.ml_expand(ml)
+      rl = ml_to_ranges(ml)
+      reduced_list = reduce(rl)
+      ml_to_singles(reduced_list)
+    end
+
+    def self.reduce(rl)
+      return rl if rl.empty?
+      rl = rl.sort {|a,b| a.begin <=> b.begin}
+      #p rl
+      (1...rl.size).inject([rl[0]]) do |ans,i|
+        ans[0...ans.size-1] + reduce_ranges(ans[-1],rl[i])
+      end
+    end
+
+    def self.reduce_ranges(r1,r2)
+      # requires that r2.min >= r1.min
+      #puts("reduce_ranges(#{r1},#{r2})")
+      max1 = r1.exclude_end? ? r1.end-1 : r1.end
+      if (r1.begin..max1.succ).include?(r2.begin)
+        max2 = r2.exclude_end? ? r2.end-1 : r2.end
+        r1.include?(max2) ? [r1] : [(r1.begin..max2)]
+      else
+        [r1,r2]
+      end
+    end
+
+    def self.ml_diff(ml1,ml2)
+      rl1 = ml_to_ranges(ml_reduce(ml1))
+      rl2 = ml_to_ranges(ml_reduce(ml2))
+      dl = diff(rl1,rl2)
+      flatten_singles(dl)
+    end
+
+    def self.ml_diff2(ml1,ml2)
+      el1 = ml_expand(ml1)
+      el2 = ml_expand(ml2)
+      dl = el1 - el2
+      ml_reduce(dl)
+    end
+
+    def self.diff(rl1,rl2)
+      rd1 = reduce(rl1)
+      rd2 = reduce(rl2)
+      ans = []
+      rd1.each do |r1|
+        ans += difflist(r1,rd2)
+      end
+      ans
+    end
+
+    def self.difflist(r,rl2)
+      rl2.inject([r]) do |ans,r2|
+        (0...ans.size).inject([]) do |newans,n|
+          newans + diff1(ans[n],r2)
+        end
+      end
+    end
+
+    def self.diff1(r1,r2)
+      ans = []
+      max2 = r2.exclude_end? ? r2.end-1 : r2.end
+      if !r1.include?(r2.begin) and !r1.include?(max2)
+        ans << r1 unless r2.include?(r1.begin)
+      else
+        max1 = r1.exclude_end? ? r1.end-1 : r1.end
+        ans << (r1.begin...r2.begin) if r1.include?(r2.begin) and r1.begin != r2.begin
+        ans << (max2.succ..max1) if r1.include?(max2) and max1 != max2
+      end
+      ans
+    end
+  end
+end
+
+__END__

data/lib/rio/arycopy.rb

@@ -1,6 +1,6 @@
 #--
-# =============================================================================== 
-# Copyright (c) 2005,2006,2007,2008 Christopher Kleckner
+# ===========================================================================
+# Copyright (c) 2005-2012 Christopher Kleckner
 # All rights reserved
 #
 # This file is part of the Rio library for ruby.
@@ -18,20 +18,9 @@
 # You should have received a copy of the GNU General Public License
 # along with Rio; if not, write to the Free Software
 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
-# =============================================================================== 
+# =========================================================================== 
 #++
 #
-# To create the documentation for Rio run the command
-#  ruby build_doc.rb
-# from the distribution directory.
-#
-# Suggested Reading
-# * RIO::Doc::SYNOPSIS
-# * RIO::Doc::INTRO
-# * RIO::Doc::HOWTO
-# * RIO::Doc::EXAMPLES
-# * RIO::Rio
-#
 
 
 module RIO

data/lib/rio/assert.rb

@@ -1,6 +1,6 @@
 #--
-# =============================================================================== 
-# Copyright (c) 2005,2006,2007,2008 Christopher Kleckner
+# ===========================================================================
+# Copyright (c) 2005-2012 Christopher Kleckner
 # All rights reserved
 #
 # This file is part of the Rio library for ruby.
@@ -18,20 +18,9 @@
 # You should have received a copy of the GNU General Public License
 # along with Rio; if not, write to the Free Software
 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
-# =============================================================================== 
+# =========================================================================== 
 #++
 #
-# To create the documentation for Rio run the command
-#  ruby build_doc.rb
-# from the distribution directory.
-#
-# Suggested Reading
-# * RIO::Doc::SYNOPSIS
-# * RIO::Doc::INTRO
-# * RIO::Doc::HOWTO
-# * RIO::Doc::EXAMPLES
-# * RIO::Rio
-#
 
 
 #!/usr/bin/env ruby
@@ -43,7 +32,11 @@ module RIO
       puts "PASS" + (msg.nil? ? "" : ": #{msg}")
     end
     def nok(a,b,msg=nil)
-      puts "FAIL" + (msg.nil? ? "" : ": #{msg}")
+      calla = caller.grep(/^#{Regexp.escape($0)}/)
+      #calla = caller
+      #calls = " " + (calla[0] || "")
+      calls = calla.join("\n") + "\n"
+      puts "FAIL" + (msg.nil? ? "" : ": #{msg}") + calls
       puts "   exp: #{a.inspect}"
       puts "   was: #{b.inspect}"
     end
@@ -51,6 +44,18 @@ module RIO
     def assert(a,msg=nil)
       assert_equal(true,a,msg)
     end
+    def assert_raise(exc,msg=nil,&block)
+      begin
+        yield
+      rescue exc
+        return ok(exc,nil,msg)
+      end
+      return nok(exc,nil,msg)
+    end
+
+
+
+    
     def assert_equal(a,b,msg=nil)
       if a == b
         ok(a,b,msg)
@@ -87,6 +92,13 @@ module RIO
         nok(nil,a)
       end
     end
+    def assert_not_nil(a,msg=nil)
+      if a.nil?
+        nok(nil,a,msg)
+      else
+        ok(nil,a,msg)
+      end
+    end
     def assert_same(a,b,msg=nil)
       if a.equal? b
         ok(a,b)
@@ -94,6 +106,13 @@ module RIO
         nok(a,b)
       end
     end
+    def assert_instance_of(a,b,msg=nil)
+      if b.instance_of?(a)
+        ok(a,b)
+      else
+        nok(a,b)
+      end
+    end
     def assert_match(a,b,msg=nil)
       if a =~ b
         ok(a,b)
@@ -108,7 +127,60 @@ module RIO
         nok(a,b.class)
       end
     end
+
     def assert_equal_s(a,b,msg=nil) assert_equal(a.to_s,b.to_s,msg) end
     def assert_equal_a(a,b,msg=nil) assert_equal(a.sort,b.sort,msg) end
+
+
+
+
+
+
+
+    def assert!(a,msg="negative assertion")
+      assert((!(a)),msg)
+    end
+
+    def smap(a) a.map { |el| el.to_s } end
+    
+
+
+
+
+
+      def assert_array_equal(a,b,msg="array same regardless of order")
+        if a.nil?
+          assert_nil(b)
+        elsif b.nil?
+          assert_nil(a)
+        else
+          assert_equal(smap(a).sort,smap(b).sort,msg)
+        end
+      end
+      def assert_dirs_equal(exp,d,msg="")
+        exp.each do |ent|
+          ds = rio(d,ent.filename)
+          assert_equal(ent.symlink?,ds.symlink?,"both symlinks, or not")
+          unless ent.symlink?
+            assert(ds.exist?,"entry '#{ds}' exists")
+          end
+          assert_equal(ent.ftype,ds.ftype,"same ftype")
+          assert_rios_equal(ent,ds,"sub rios are the same")
+        end
+      end
+      def assert_rios_equal(exp,ans,msg="")
+        case
+        when exp.symlink?
+          assert(ans.symlink?,"entry is a symlink")
+          assert_equal(exp.readlink,ans.readlink,"symlinks read the same")
+        when exp.file?
+          assert(ans.file?,"entry is a file")
+          assert_equal(exp.chomp.lines[],ans.chomp.lines[],"file has same contents")
+        when exp.dir?
+          assert(ans.dir?,"entry is a dir")
+          assert_dirs_equal(exp,ans,"directories are the same")
+        end
+      end
+
   end
 end

data/lib/rio/base.rb

@@ -1,6 +1,6 @@
 #--
-# =============================================================================== 
-# Copyright (c) 2005,2006,2007,2008 Christopher Kleckner
+# ===========================================================================
+# Copyright (c) 2005-2012 Christopher Kleckner
 # All rights reserved
 #
 # This file is part of the Rio library for ruby.
@@ -18,39 +18,16 @@
 # You should have received a copy of the GNU General Public License
 # along with Rio; if not, write to the Free Software
 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
-# =============================================================================== 
+# =========================================================================== 
 #++
 #
-# To create the documentation for Rio run the command
-#  ruby build_doc.rb
-# from the distribution directory.
-#
-# Suggested Reading
-# * RIO::Doc::SYNOPSIS
-# * RIO::Doc::INTRO
-# * RIO::Doc::HOWTO
-# * RIO::Doc::EXAMPLES
-# * RIO::Rio
-#
 
 
 module RIO
   class Base < ::Object #:nodoc: all
-    KEEPSYM = {
-      '__id__' => true,
-      '__send__' => true,
-      'send' => true,
-      'class' => true, 
-      'kind_of?' => true, 
-      'instance_of?' => true, 
-      'equal?' => true,
-      'respond_to?' => true,
-      'object_id' => true,
-      'dup' => true,
-      'clone' => true,
-      'nil?'  => true,
-      'open'  => true,
-    }.freeze
-    instance_methods.each { |m| undef_method m unless KEEPSYM[m] }
+    def to_a() 
+      super 
+    end
+    undef_method :to_a
   end
 end

data/lib/rio/callstr.rb

@@ -1,6 +1,6 @@
 #--
-# =============================================================================== 
-# Copyright (c) 2005,2006,2007,2008 Christopher Kleckner
+# ===========================================================================
+# Copyright (c) 2005-2012 Christopher Kleckner
 # All rights reserved
 #
 # This file is part of the Rio library for ruby.
@@ -18,20 +18,9 @@
 # You should have received a copy of the GNU General Public License
 # along with Rio; if not, write to the Free Software
 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
-# =============================================================================== 
+# =========================================================================== 
 #++
 #
-# To create the documentation for Rio run the command
-#  ruby build_doc.rb
-# from the distribution directory.
-#
-# Suggested Reading
-# * RIO::Doc::SYNOPSIS
-# * RIO::Doc::INTRO
-# * RIO::Doc::HOWTO
-# * RIO::Doc::EXAMPLES
-# * RIO::Rio
-#
 
 
 module RIO

data/lib/rio/const.rb

@@ -1,6 +1,6 @@
 #--
-# =============================================================================== 
-# Copyright (c) 2005,2006,2007,2008 Christopher Kleckner
+# ===========================================================================
+# Copyright (c) 2005-2012 Christopher Kleckner
 # All rights reserved
 #
 # This file is part of the Rio library for ruby.
@@ -18,20 +18,9 @@
 # You should have received a copy of the GNU General Public License
 # along with Rio; if not, write to the Free Software
 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
-# =============================================================================== 
+# =========================================================================== 
 #++
 #
-# To create the documentation for Rio run the command
-#  ruby build_doc.rb
-# from the distribution directory.
-#
-# Suggested Reading
-# * RIO::Doc::SYNOPSIS
-# * RIO::Doc::INTRO
-# * RIO::Doc::HOWTO
-# * RIO::Doc::EXAMPLES
-# * RIO::Rio
-#
 
 module RIO
   SEEK_SET = IO::SEEK_SET