wishdev-rio 0.4.3.1

data/lib/rio/piper.rb

@@ -0,0 +1,122 @@
+#--
+# =============================================================================== 
+# Copyright (c) 2005,2006,2007 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
+# =============================================================================== 
+#++
+#
+# 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
+  module Piper #:nodoc: all
+    class Base
+      attr_reader :rios
+      def initialize(r1,r2,*args)
+        @rios = []
+        add_arg(r1)
+        add_arg(r2)
+        args.each { |r|
+          add_arg(r)
+        }
+      end
+      def add_arg(arg)
+        case arg
+        when Base
+          @rios += arg.rios
+        when Rio
+          case arg.scheme
+          when 'cmdpipe'
+            arg_piper = arg.rl.piper
+            @rios += arg_piper.rios
+          else
+            @rios << arg
+          end
+        else
+          raise ArgumentError,"Argument (#{arg}) is a #{arg.class}, should be a Rio or a Piper"
+        end
+      end
+      def initialize_copy(*args)
+        super
+        @rios = @rios.map{ |r| r.clone }
+      end
+      def has_output_dest?
+        case @rios[-1].scheme
+        when 'cmdio' then false
+        else true
+        end
+      end
+      def new_with(*args)
+        cp = self.clone
+        args.each { |r|
+          cp.push(r)
+        }
+        cp
+      end
+      def push(r)
+        @rios << r
+      end
+      def run_to(r)
+        @rios << r
+        run
+        self
+      end
+      def rd() @rios[-1] end
+      def wr() @rios[0] end
+      
+      def run
+        #dups = @rios.map { |r| r.clone }
+        dups = @rios
+        (1...dups.size-1).each { |i| dups[i].w! }
+        (1...dups.size).each { |i|
+          #p "#{dups[i-1].cx.inspect} > #{dups[i].cx.inspect}"
+          dups[i-1] > dups[i]
+          #p dups[i-1].closed?
+        }
+        dups.each { |r| r.close.softreset }
+        dups[-1]
+      end
+
+      def runeth
+        dups = @rios.map { |r| r.clone }
+
+        (1...dups.size-1).each { |i| dups[i].w! }
+        
+        threads = []
+        (1...dups.size).each { |i|
+          threads << Thread.new(dups[i-1],dups[i]) { |src,dst|
+            src > dst
+          } 
+        }
+        threads.each { |aThread| aThread.join }
+      end
+    end
+    
+  end
+end

data/lib/rio/prompt.rb

@@ -0,0 +1,66 @@
+#--
+# =============================================================================== 
+# Copyright (c) 2005,2006,2007 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
+# =============================================================================== 
+#++
+#
+# 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
+#
+
+#
+
+require 'rio'
+
+module RIO
+  def prompt(str="")
+    rio(?-).strip.print(str).gets
+  end
+  def promptd(str="",default=nil)
+    dstr = default ? "[#{default}]: " : ": "
+    pstr = str + dstr
+    ans = prompt(pstr)
+    ans.empty? ? default : ans
+  end
+  def promptr(str="",default=nil)
+    ans = promptd(str,default)
+    rio(ans)
+  end
+  module_function :prompt,:promptd,:promptr
+end
+
+if $0 == __FILE__
+  eval DATA.read, nil, $0, __LINE__+4
+end
+
+__END__
+
+puts
+puts("Run the tests that came with the distribution")
+puts("From the distribution directory use 'test/runtests.rb'")
+puts

data/lib/rio/rectype.rb

@@ -0,0 +1,88 @@
+#--
+# =============================================================================== 
+# Copyright (c) 2005,2006,2007 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
+# =============================================================================== 
+#++
+#
+# 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
+  module RecType #:nodoc: all
+    module Lines
+      module Input
+        def get_arg_() $/ end
+        def get_(sep_string=get_arg_)
+          #p callstr('get_',sep_string.inspect)
+          self.ior.gets(sep_string)
+        end
+        def each_rec_(&block) 
+          ih = self.ior
+          ih.each_line { |line|
+          #self.ior.each { |line|
+            yield line
+          }
+          self
+        end
+      end
+      module Output
+        def put_(rec,*args)
+          #p callstr('put_',rec,*args)
+          #p self.ioh
+          self.ioh.print(rec.to_s)
+        end  
+      end
+    end
+    module Bytes
+      module Input
+        def get_arg_() 
+          cx['bytes_n']  
+        end
+        def get_(nb=get_arg_())
+          self.ior.read(nb)
+        end
+        def each_rec_(&block) 
+          #p callstr('each_rec_ (EachIter::Bytes)')
+          #        p 'each_rec_ => each_line'
+          self.ior.each_bytes(cx['bytes_n']) { |b|
+            yield b
+          }
+          self
+        end
+      end
+      module Output
+        def put_(rec,*args)
+          #p callstr('put_',rec,*args)
+          print(rec)
+        end
+      end
+    end
+  end
+end

data/lib/rio/rl/base.rb

@@ -0,0 +1,118 @@
+#--
+# =============================================================================== 
+# Copyright (c) 2005,2006,2007 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
+# =============================================================================== 
+#++
+#
+# 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
+#
+
+
+require 'uri'
+require 'rio/local'
+require 'rio/uri/file'
+require 'rio/rl/chmap'
+require 'rio/rl/fs2url'
+
+module RIO
+  module RL
+
+    SCHEME = 'rio'
+    SCHC = SCHEME+':'
+    SPLIT_RIORL_RE = %r{\A([a-z][a-z]+)(?:(:)(.*))?\Z}.freeze
+    SUBSEPAR = ':'
+
+    class Base
+      attr_accessor :fs
+      def initialize(*args)
+        #p callstr('Base#initialize',*args)
+        @fs = openfs_
+      end
+      def initialize_copy(cp)
+        super
+      end
+      def openfs_() 
+        nil 
+      end
+      def self.subscheme(s)
+        /^rio:([^:]+):/.match(s)[1]
+      end
+
+      def self.split_riorl(s)
+        body = s[SCHC.length...s.length]
+        m = SPLIT_RIORL_RE.match(body) 
+        return [] if m.nil?
+        return m[1],m[3],m[0]
+      end
+
+      def self.is_riorl?(s)
+        s[0...SCHC.length] == SCHC
+      end
+
+      def self.parse(*a)
+        parms = splitrl(a.shift) || []
+        new(*(parms+a))
+      end
+
+      def rl() SCHC+self.url end
+
+#      def riorl() SCHC+self.url end
+
+      def to_s() self.fspath || '' end
+      def ==(other) self.to_s == other.to_s end
+      def ===(other) self == other end
+      def =~(other) other =~ self.to_str end
+      def length() self.to_s.length end
+
+      def fspath() nil end
+      def path() nil end
+
+      def to_rl() self.rl end
+
+      def url() self.scheme+SUBSEPAR+self.opaque end
+      def close() 
+        #p "Closing RL #{self}"
+        nil 
+      end
+
+      def fs2url(pth) RL.fs2url(pth) end
+      def url2fs(pth) RL.url2fs(pth) end
+      def escape(pth,esc=RL::ESCAPE)
+        RL.escape(pth,esc)
+      end
+      def unescape(pth)
+        RL.unescape(pth)
+      end
+
+      def callstr(func,*args)
+        self.class.to_s+'['+self.to_s+']'+'.'+func.to_s+'('+args.join(',')+')'
+      end
+    end
+  end
+end

data/lib/rio/rl/builder.rb

@@ -0,0 +1,117 @@
+#--
+# =============================================================================== 
+# Copyright (c) 2005,2006,2007 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
+# =============================================================================== 
+#++
+#
+# 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
+#
+
+
+require 'uri'
+require 'rio/local'
+require 'rio/rl/base'
+require 'stringio'
+
+module RIO
+  module RL
+    class Builder
+      def self.build_path_rl(rl)
+        return rl
+      end
+      def self.build(*a)
+        #puts "build: #{a.inspect}" 
+        a.flatten!
+        a.push('') if a.empty?
+        case a[0]
+        when ::String
+          case a[0]
+          when /^[a-zA-Z]:/
+            a[0] = 'rio:file:///'+a[0]
+          when /^[a-z][a-z]+:/
+            a[0] = 'rio:'+a[0] unless a[0] =~ /^rio:/
+          when %r|^//|
+            a[0] = 'rio:file:'+a[0]
+          when %r|^/|
+            a[0] = 'file://'+a[0]
+            return Factory.instance.riorl_class('file').new(*a)
+          else
+            return Factory.instance.riorl_class('path').new(*a)
+          end
+        when RIO::Rio
+          a[0] = a[0].rl
+          return build(*a)
+        when RL::Base
+          #p "HERE a=#{a.inspect}"
+          a0 = a.shift.clone
+          cl = Factory.instance.riorl_class(a0.scheme)
+          o = cl.new(a0,*a) unless cl.nil?
+          return o
+          #          return (a.empty? ? a0 : a0.join(*a))
+        when ::URI
+          a0 = a.shift
+          cl = Factory.instance.riorl_class(a0.scheme)
+          o = cl.new(a0,*a) unless cl.nil?
+          return o
+        when ::Symbol
+          case a[0]
+          when :zpath
+            a0 = a.shift
+            cl = Factory.instance.riorl_class(a0.to_s)
+            o = cl.new(*a) unless cl.nil?
+            return o
+          else
+            a[0] = 'rio:' + a[0].to_s + ':'
+          end
+        when ::NilClass
+          a[0] = 'rio:null:'
+        when ?? , ?= , ?_ , ?", ?[, ?#, ?`, ?|, ?z
+          a[0] = 'rio:'+CHMAP[a[0]]+':'
+        when ?-
+          a[0] = ( a.size == 1 ? 'rio:'+CHMAP[a[0]]+':' : 'rio:cmdio:' )
+        when ?$
+          a[0] = 'rio:strio:'
+        when ::IO
+          a.unshift('rio:sysio:')
+        when ::StringIO
+          a.unshift('rio:strio:')
+        else
+          a[0] = a[0].to_s
+          return build(*a)
+        end
+        a0 = a.shift
+        sch = Base.subscheme(a0)
+        cl = Factory.instance.riorl_class(sch)
+        cl.parse(a0,*a)  unless cl.nil?
+
+      end
+
+    end
+  end
+end