rio 0.3.6 → 0.3.7

data/ex/riogunzip

@@ -0,0 +1,31 @@
+#!/usr/bin/env ruby
+require 'rio'
+# riogzip: reads from stdin, gzips and writes it to stdout
+# example use:
+#   riogunzip < afile.txt.gz
+# 
+# explanation:
+#
+# rio(?-).gzip
+#   rio(?-): a rio that will be connected to stdin or stdout depending how it is used
+#   .gzip: filter the input or output through Zlib:Gzip[Reader or Writer]
+#
+# rio(?-)
+#   rio(?-): a rio that will be connected to stdin or stdout depending how it is used
+#
+# <
+#   rio copy operator indicating the direction of data
+#   pointed in this direction the rio on the right is read from and the one on the left is
+#   written. (or stdin and stdout respectively)
+#
+rio(?-).gzip > rio(?-)
+
+# could be written this way
+# rio(?-) < rio(?-).gzip
+#
+# this is similar, but reads the entire file in before writing it out
+#    rio(?-).print!( rio(?-).gzip.contents )
+#
+#rio(?-).gzip.each_record do |rec|
+#  rio(?-).print(rec)
+#end

data/ex/riogzip

@@ -0,0 +1,24 @@
+#!/usr/bin/env ruby
+require 'rio'
+# riogzip: reads from stdin, gzips and writes it to stdout
+# example use:
+#   riogzip < afile.txt > afile.txt.gz
+# 
+# explanation:
+#
+# rio(?-).gzip
+#   rio(?-): a rio that will be connected to stdin or stdout depending how it is used
+#   .gzip: filter the input or output through Zlib:Gzip[Reader or Writer]
+#
+# rio(?-)
+#   rio(?-): a rio that will be connected to stdin or stdout depending how it is used
+#
+# <
+# rio copy operator indicating the direction of data
+
+rio(?-).gzip < rio(?-)
+
+# 
+# could also be written:
+# rio(?-) > rio(?-).gzip
+# 

data/ex/rioprompt.rb

@@ -0,0 +1,6 @@
+#!/usr/local/bin/ruby
+
+require 'rio/prompt'
+
+ans = RIO.prompt("Name: ")
+puts "You typed '#{ans}'"

data/ex/targz2zip

@@ -0,0 +1,17 @@
+#!/usr/local/bin/ruby
+
+require 'rio'
+require 'rio/argv'
+
+# Create a zip archive from a gzipped tar archive.
+# This depends on the GNU programs 'tar' and 'zip' being available in your PATH
+
+TAR='tar'
+ZIP='zip'
+
+RIO.ARGV.each { |f|
+  f.ext('.tar.gz') if f =~ /\.tar\.gz$/
+  rio(??).chdir {
+    rio(?-,"#{TAR} xvzkf #{f.abs}") | "#{ZIP} -@ #{f.abs.dirname/f.basename+'.zip'}" | ?-
+  }
+}

data/ex/tolf

@@ -0,0 +1,11 @@
+#!/usr/bin/env ruby
+
+require 'rio'
+
+ARGV.each do |path|
+  tmp = rio(?$)
+  tmp < rio(path).chomp.map { |l| "#{l}\n" }
+  tmp > rio(path)
+end
+
+__END__

data/lib/rio.rb

@@ -41,9 +41,6 @@ require 'rio/version'
 require 'rio/base'
 require 'rio/exception'
 
-require 'extensions/symbol'
-require 'extensions/enumerable'
-require 'extensions/string'
 require 'forwardable'
 $trace_states = false
 module RIO 

data/lib/rio/construct.rb

@@ -36,16 +36,8 @@
 
 
 module RIO
-  def strio(*args) rio(:strio,*args) end
-  def stdio(*args) rio(:stdio,*args) end
-  def stderr(*args) rio(:stderr,*args) end
-  def temp(*args)  rio(:temp,*args)  end
-  def tempfile(*args)  rio(:tempfile,*args)  end
-  def tempdir(*args)  rio(:tempdir,*args)  end
-  def tcp(*args)  rio(:tcp,*args)  end
-  def cmdio(*args)  rio(:cmdio,*args)  end
-  def sysio(*args)  rio(:sysio,*args)  end
-  def fd(*args)  rio(:fd,*args)  end
+  require 'rio/ops/construct'
+  include Ops::Construct
 
   module_function :strio
   module_function :stdio
@@ -55,21 +47,23 @@ module RIO
   module_function :tempdir
   module_function :tcp
   module_function :cmdio
+  module_function :cmdpipe
   module_function :sysio
   module_function :fd
 end
 
 module RIO
   class Rio
-    def self.strio(*args) rio(:strio,*args) end
-    def self.stdio(*args) rio(:stdio,*args) end
-    def self.stderr(*args) rio(:stderr,*args) end
-    def self.temp(*args)  rio(:temp,*args)  end
-    def self.tempfile(*args)  rio(:tempfile,*args)  end
-    def self.tempdir(*args)  rio(:tempdir,*args)  end
-    def self.tcp(*args)  rio(:tcp,*args)  end
-    def self.cmdio(*args)  rio(:cmdio,*args)  end
-    def self.sysio(*args)  rio(:sysio,*args)  end
-    def self.fd(*args)  rio(:fd,*args)  end
+    def self.strio(*args,&block) rio(:strio,*args,&block) end
+    def self.stdio(*args,&block) rio(:stdio,*args,&block) end
+    def self.stderr(*args,&block) rio(:stderr,*args,&block) end
+    def self.temp(*args,&block)  rio(:temp,*args,&block)  end
+    def self.tempfile(*args,&block)  rio(:tempfile,*args,&block)  end
+    def self.tempdir(*args,&block)  rio(:tempdir,*args,&block)  end
+    def self.tcp(*args,&block)  rio(:tcp,*args,&block)  end
+    def self.cmdio(*args,&block)  rio(:cmdio,*args,&block)  end
+    def self.cmdpipe(*args,&block)  rio(:cmdpipe,*args,&block)  end
+    def self.sysio(*args,&block)  rio(:sysio,*args,&block)  end
+    def self.fd(*args,&block)  rio(:fd,*args,&block)  end
   end
 end

data/lib/rio/dir.rb

@@ -53,7 +53,7 @@ module RIO
       include Ops::Dir::NonExisting
       def check?() not self.exist?  end
       def when_missing(sym,*args)  gofigure(sym,*args) end
-    end # class EDir
+    end 
 
     class Existing < Base
       include Ops::Dir::Existing
@@ -64,7 +64,7 @@ module RIO
         self.rl = RIO::Dir::RL.new(self.to_uri)
         become 'Dir::Open'
       end
-    end # class EDir
+    end 
     class Open < Base
       def check?() true  end
       def open(m=nil,*args)

data/lib/rio/doc/INTRO.rb

@@ -171,7 +171,7 @@ to stdin or stdout until an I/O operation is specified.
  rio(?")
 * create a Rio that refers to a string of your choosing
  astring = ""
- rio(?","")
+ rio(?",astring)
 
 ===== Creating a Rio that refers to a Temporary object
 
@@ -182,13 +182,7 @@ or a directory, depending on how you use it:
  rio(??)
  rio(??,basename='rio',tmpdir=Dir::tmpdir)
 
-To force it to become a file
- rio(??).file
-or just write to it.
-
 To force it to become a directory:
- rio(??).dir
-or
  rio(??).mkdir
 or
  rio(??).chdir
@@ -289,10 +283,10 @@ Rio#join and Rio#/ do the same thing, but the operator version
 
 The arguments to +join+ and <tt>/</tt> do not need to be Rios, of course
    ario = rio('adir')
-   ario/'afile.rb'           #=> rio('ario/afile.rb')
-   ario.join('b','c','d')    #=> rio('ario/b/c/d')
-   ario/'b'/'c'/'d'          #=> rio('ario/b/c/d')
-   ario /= 'e'               #=> rio('ario/b/c/d/e')
+   ario/'afile.rb'           #=> rio('adir/afile.rb')
+   ario.join('b','c','d')    #=> rio('adir/b/c/d')
+   ario/'b'/'c'/'d'          #=> rio('adir/b/c/d')
+   ario /= 'e'               #=> rio('adir/b/c/d/e')
 
 ==== Manipulating a Rio path by treating it as a string.
 
@@ -335,19 +329,19 @@ list of all of Rio's configuration methods.
 
 Rio's configuration mehods fall into three categories.
 
-[IO manipulators]
+* I/O manipulators
 
-  An IO manipulator alters the behavior of a Rio's underlying IO
+  An I/O manipulator alters the behavior of a Rio's underlying IO
   object. These affect the behaviour of I/O methods which are
   forwarded directly to the underlying object as well as the grande
   I/O methods.
 
-[Grande configuration methods]
+* Grande configuration methods
 
   The grande configuration methods affect the behaviour of Rio's
   grande I/O methods
 
-[Grande selection methods]
+* Grande selection methods
 
   The grande selection methods select what data is returned by Rio's
   grande I/O methods
@@ -849,7 +843,7 @@ mode selection.
 
 Rio uses the CSV class from the Ruby standard library to provide
 support for reading and writing comma-separated-value files. Normally
-using <tt>(no)records</tt> is identical to <tt>(no)lines</tt> because
+using <tt>(skip)records</tt> is identical to <tt>(skip)lines</tt> because
 while +records+ only selects and does not specify the record-type,
 +lines+ is the default.
 
@@ -936,6 +930,8 @@ operators:
 
 ==== YAML mode
 
+<b>YAML Mode is currently in work. Please disregard this section</b>
+
 Rio uses the YAML class from the Ruby standard library to provide
 support for reading and writing YAML files. Normally
 using <tt>(skip)records</tt> is identical to <tt>(skip)lines</tt> because

data/lib/rio/ext.rb

@@ -37,9 +37,10 @@
 
 require 'rio/ext/csv'
 require 'rio/ext/yaml'
+require 'rio/util'
 module RIO
   module Ext #:nodoc: all
-    OUTPUT_SYMS = (CSV::Output.instance_methods + YAML::Output.instance_methods).build_hash { |sym| [sym.to_s,1] }
+    OUTPUT_SYMS = Util::build_sym_hash(CSV::Output.instance_methods + YAML::Output.instance_methods)
 
     module Cx
       include CSV::Cx

data/lib/rio/ext/csv.rb

@@ -174,7 +174,11 @@ module RIO
           dat = _l2a(line,fs,rs)
           names = cnames(dat.length)
           dat = trim(dat)
-          (0...names.length).build_hash { |i| [names[i],dat[i]] } 
+          rw = {}
+          (0...names.length).each { |i|
+            rw[names[i]] = dat[i]
+          }
+          rw
         end
 
         def _rec_to_s_proc(fs,rs)

data/lib/rio/ext/yaml.rb

@@ -39,7 +39,7 @@ require 'yaml'
 
 module RIO
   module Ext
-    module YAML
+    module YAML #:nodoc: all
       module Cx
         def yaml(&block) 
           cxx('yaml',true,&block) 
@@ -73,10 +73,13 @@ module RIO
           else super
           end
         end
-        def cpto_io_(arg)
-          self.each { |obj|
-            arg << obj.to_yaml + $/
-          }
+        def cpto_io_(ioarg)
+          recs = self.to_a
+          if recs.size == 1
+            YAML.dump(recs[0],ioarg)
+          else
+            YAML.dump(recs,ioarg)
+          end
         end
         def cpto_obj_(arg)
           self.each { |obj|
@@ -89,9 +92,7 @@ module RIO
           }
         end
         def cpto_string_(string)
-          self.each { |el|
-            string << el.to_yaml + $/
-          }
+          string << YAML.dump_stream(self.contents)
         end
         def get_(arg=nil)
           case cx['stream_itertype']
@@ -141,7 +142,7 @@ module RIO
 
         def cpfrom_(arg)
             case arg
-            when ::Array then cpfrom_array_(arg)
+            #when ::Array then cpfrom_array_(arg)
             when Rio,::IO,::StringIO then super
             else self.put_(arg)
             end
@@ -154,9 +155,7 @@ module RIO
           self
         end
         def cpfrom_rio_(ario)
-          ario.each { |el|
-            self.put_(el)
-          }
+          ioh.puts(::YAML.dump_stream(*ario[]))
           self
         end
         def put_(obj)

data/lib/rio/filter.rb

@@ -44,7 +44,7 @@ module RIO
           def gets(*args) super.__send__(:#{sym}) end
           def readline(*args) super.__send__(:#{sym}) end
           def each_line(*args,&block) super { |l| yield l.__send__(:#{sym}) } end
-          def readlines(*args) super.map(&:#{sym}) end
+          def readlines(*args) super.map{|el| el.__send__(:#{sym})} end
          end
          include IOE
         end

data/lib/rio/ftp.rb

@@ -133,7 +133,7 @@ module RIO
           self
         end
         def cpto_err(sym,*args)
-          cs = "#{sym}("+args.map(&:to_s).join(',')+")"
+          cs = "#{sym}("+args.map{|el| el.to_s}.join(',')+")"
           msg = "Go Figure! rio('#{self.to_s}').#{cs} Failed"
 
           raise ArgumentError,"#{msg}\nArgument to '#{sym}' must be a Rio was a '#{args[0].class}'\n"

data/lib/rio/if/dir.rb

@@ -55,7 +55,7 @@ module RIO
     #  }
     #  # the working directory here is /home
     #
-    def chdir(&block) target.chdir(&block) end
+    def chdir(&block) target.chdir(&block);self end
 
 
 
@@ -66,7 +66,7 @@ module RIO
     # a directory structure using a Rio. See Rio#each and Rio#all.
     #
     # Calls the block passing a Rio for each entry found. The Rio inherits
-    # attrubutes from the directory Rio.
+    # file attrubutes from the directory Rio.
     #
     # Returns itself
     #

data/lib/rio/if/grande.rb

@@ -601,7 +601,8 @@ module RIO
     #
     def getline() target.getline() end
 
-    # Reads and returns the next record from a Rio, honoring the grande selection methods. 
+    # Reads and returns the next record or entry from a Rio, 
+    # honoring the grande selection methods. 
     #
     # Returns nil on end of file.
     #
@@ -612,6 +613,11 @@ module RIO
     #  line11 = ario.get 
     #  line12 = ario.get 
     #  a_nil  = ario.get 
+    # 
+    #  ario = rio('adir').entries('*.txt')
+    #  ent1 = ario.get
+    #  ent2 = ario.get
+    #
     def get() target.get() end
 
     # Writes a single record to a Rio

data/lib/rio/if/yaml.rb

@@ -37,7 +37,7 @@
 
 module RIO
   module IF
-    module YAML
+    module YAML #:nodoc: all
       #def file() target.file end
       #def dir() target.dir end
       

data/lib/rio/ioh.rb

@@ -129,9 +129,19 @@ module RIO
         end
       end
       def closed?() @ios.nil? end
+      def each(&block)
+        while filename = handle.read
+          yield filename
+        end
+      end
+      def each0(&block)
+        handle.each { |filename|
+          yield filename
+        }
+      end
       extend Forwardable
       def_instance_delegators(:handle,
-                              :each,:read,
+                              :read,
                               :pos,:pos=,:tell,:seek,:rewind)
     end
   end

data/lib/rio/ops/construct.rb

@@ -38,16 +38,17 @@
 module RIO
   module Ops
     module Construct
-      def strio(*args) new_rio(:strio,*args) end
-      def stdio(*args) new_rio(:stdio,*args) end
-      def stderr(*args) new_rio(:stderr,*args) end
-      def temp(*args)  new_rio(:temp,*args)  end
-      def tempfile(*args)  new_rio(:tempfile,*args)  end
-      def tempdir(*args)  new_rio(:tempdir,*args)  end
-      def tcp(*args)  new_rio(:tcp,*args)  end
-      def cmdio(*args)  new_rio(:cmdio,*args)  end
-      def sysio(*args)  new_rio(:sysio,*args)  end
-      def fd(*args)  new_rio(:fd,*args)  end
+      def strio(*args,&block) Rio.rio(:strio,*args,&block) end
+      def stdio(*args,&block) Rio.rio(:stdio,*args,&block) end
+      def stderr(*args,&block) Rio.rio(:stderr,*args,&block) end
+      def temp(*args,&block)  Rio.rio(:temp,*args,&block)  end
+      def tempfile(*args,&block)  Rio.rio(:tempfile,*args,&block)  end
+      def tempdir(*args,&block)  Rio.rio(:tempdir,*args,&block)  end
+      def tcp(*args,&block)  Rio.rio(:tcp,*args,&block)  end
+      def cmdio(*args,&block)  Rio.rio(:cmdio,*args,&block)  end
+      def cmdpipe(*args,&block)  Rio.rio(:cmdpipe,*args,&block)  end
+      def sysio(*args,&block)  Rio.rio(:sysio,*args,&block)  end
+      def fd(*args,&block)  Rio.rio(:fd,*args,&block)  end
     end
   end
 end