rio 0.3.1

data/lib/rio/rl/builder.rb

@@ -0,0 +1,166 @@
+#--
+# =============================================================================== 
+# Copyright (c) 2005, 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
+#  rake rdoc
+# from the distribution directory. Then point your browser at the 'doc/rdoc' directory.
+#
+# Suggested Reading
+# * RIO::Doc::SYNOPSIS
+# * RIO::Doc::INTRO
+# * RIO::Doc::HOWTO
+# * RIO::Rio
+#
+# <b>Rio is pre-alpha software. 
+# The documented interface and behavior is subject to change without notice.</b>
+
+
+require 'uri'
+require 'rio/local'
+require 'rio/rl/base'
+require 'stringio'
+
+module RIO
+  module RL
+    class Builder
+
+      def self.canon(a)
+        #puts "canon: #{a.inspect}" 
+        case a[0]
+        when ::String
+          case a[0]
+          when /^[a-z][a-z]+:/
+            a[0] = 'rio:'+a[0] unless a[0] =~ /^rio:/
+            a
+          when %r|^/|
+            a[0] = 'rio:file://'+a[0]
+            a
+          else
+            a[0] = 'rio:path:'+a[0]
+            a
+          end
+        when RIO::Rio
+          a[0] = a[0].to_rl
+          canon(a)
+        when RL::Base
+          a
+        when ::URI
+          a
+        when ?? , ?= , ?_ , ?",?[,?#,?`
+          a[0] = 'rio:'+CHMAP[a[0]]+':'
+          a
+        when ?-
+          a[0] = ( a.size == 1 ? 'rio:'+CHMAP[a[0]]+':' : 'rio:cmdio:' )
+          a
+        when ?$
+          a[0] = 'rio:strio:'
+          a
+        when ::IO
+          a.unshift('rio:sysio:')
+          a
+        when ::StringIO
+          a.unshift('rio:strio:')
+          a
+        else
+          a[0] = a[0].to_s
+          canon(a)
+        end
+      end
+
+
+      def self.build(*a)
+        #puts "build: #{a.inspect}" 
+        a.flatten!
+        case a[0]
+        when ::String
+          case a[0]
+          when /^[a-z][a-z]+:/
+            a[0] = 'rio:'+a[0] unless a[0] =~ /^rio:/
+          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].to_rl
+        when RL::Base
+          #p 'heeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee'
+          a0 = a.shift
+        return a0.class.new(a0.uri.dup,*a)
+        when ::URI
+          a0 = a.shift
+          cl = Factory.instance.riorl_class(a0.scheme)
+          o = cl.new(a0,*a) unless cl.nil?
+          return o
+        when ?? , ?= , ?_ , ?",?[,?#,?`
+          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
+
+
+      def self.build0(*args)
+        #p "build(#{args.inspect})"
+
+        # aryio is a special case -- must not flatten
+        if args[0] == 'rio:aryio'
+          args.shift
+          ary = args[0] unless args.empty? 
+          require 'rio/scheme/aryio'
+          return RIO::AryIO::RL.new(ary)
+        end
+
+        args = canon(args.flatten)
+        a0 = args.shift
+        case a0
+        when RL::Base
+          a0.class.new(a0.uri.dup,*args)
+        when ::URI
+          cl = Factory.instance.riorl_class(a0.scheme)
+          cl.new(a0,*args) unless cl.nil?
+        else
+          sch = Base.subscheme(a0)
+          cl = Factory.instance.riorl_class(sch)
+          cl.parse(a0,*args)  unless cl.nil?
+        end
+      end
+
+    end
+  end
+end

data/lib/rio/rl/ioi.rb

@@ -0,0 +1,66 @@
+#--
+# =============================================================================== 
+# Copyright (c) 2005, 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
+#  rake rdoc
+# from the distribution directory. Then point your browser at the 'doc/rdoc' directory.
+#
+# Suggested Reading
+# * RIO::Doc::SYNOPSIS
+# * RIO::Doc::INTRO
+# * RIO::Doc::HOWTO
+# * RIO::Rio
+#
+# <b>Rio is pre-alpha software. 
+# The documented interface and behavior is subject to change without notice.</b>
+
+
+require 'rio/rl/base'
+
+module RIO
+  module RL
+    class IOIBase < Base
+      RESET_STATE = 'Stream::Open'
+      def scheme() self.class.const_get(:RIOSCHEME) end
+      def opaque() '' end
+      def self.splitrl(s) nil end
+      def path() self.class.const_get(:RIOPATH) end
+      def fspath() nil end
+      def to_s() url() end
+    end
+  end
+  module RL
+    class SysIOBase < IOIBase
+      attr_reader :ios
+      attr_writer :ios
+      protected(:ios=)
+      def initialize(ios=nil)
+        @ios = ios
+      end
+      def open(*args)
+        @ios
+      end
+        
+    end
+  end
+end

data/lib/rio/rl/path.rb

@@ -0,0 +1,141 @@
+#--
+# =============================================================================== 
+# Copyright (c) 2005, 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
+#  rake rdoc
+# from the distribution directory. Then point your browser at the 'doc/rdoc' directory.
+#
+# Suggested Reading
+# * RIO::Doc::SYNOPSIS
+# * RIO::Doc::INTRO
+# * RIO::Doc::HOWTO
+# * RIO::Rio
+#
+# <b>Rio is pre-alpha software. 
+# The documented interface and behavior is subject to change without notice.</b>
+
+
+require 'rio/rl/uri'
+module RIO
+  module RL
+    class PathBase < Base
+      RESET_STATE = 'Path::Reset'
+
+      RIOSCHEME = 'path'
+
+      def initialize(pth,*args)
+        @host = nil
+        case pth
+        when ::URI
+          @uri = pth.dup
+          @uri.path = '/' if pth.absolute? and pth.path == ''
+          @pth = @uri.path
+        when %r|^file://(localhost)?(/.*)?$|
+          @host = $1
+          @pth = $2 || '/'
+        else
+          @pth = pth
+          @uri= nil
+        end
+        self.join(*args) unless args.empty?
+        @wd = RL.fs2url(::Dir.getwd)+'/'
+      end
+
+      def parse_url(str)
+        ::URI.parse(::URI.escape(str,ESCAPE))
+      end
+
+      def initialize_copy(*args)
+        super
+        @uri = nil
+      end
+
+      def init_paths()
+        @uri = nil
+      end
+      def path=(pt)
+        @uri = nil
+        @pth = pt
+      end
+      def join(*args)
+        return self if args.empty?
+        sa = args.map(&:to_s).map { |s| ::URI.escape(s,ESCAPE) }
+        sa.unshift(@pth) unless @pth.empty?
+        @uri = nil
+        @pth = sa.join('/').squeeze('/')
+      end
+      
+      def uri() 
+        @uri ||= (absolute? ? ::URI::FILE.new('file',nil,@host,nil,nil,@pth,nil,nil,nil) : ::URI.parse(@pth))
+      end
+      def url() 
+        if uri and uri.scheme
+          self.uri.to_s 
+        else
+          self.scheme+SUBSEPAR+self.opaque 
+        end
+      end
+      def to_s() RL.url2fs(@pth) end
+
+      def self.splitrl(s)
+
+        sch,opq,whole = split_riorl(s)
+        case sch
+        when 'file' then [whole]
+        else [opq]
+        end
+      end
+      def scheme() (absolute? ? 'file' : 'path') end
+      def opaque() (absolute? ? "//#{@host}#{@pth}" : @pth) end
+      def fspath() RL.url2fs(@pth) end
+      def fs2url(pth) RL.fs2url(pth) end
+      def url2fs(pth) RL.url2fs(pth) end
+      def wd=(wd) @wd = wd end
+      def route_from(other)
+        rfrl = self.class.new(uri.route_from(other.uri))
+        rfrl.wd = other.path
+        rfrl
+      end
+      def route_to(other)
+        rtrl = self.class.new(uri.route_to(other.uri))
+        rtrl.wd = self.abs
+        rtrl
+      end
+      def merge(other)
+        self.class.new(uri.merge(other.uri))
+      end
+      def base() (absolute? ? @pth : @wd) end
+
+      def abs()
+        return self if absolute?
+        self.class.new(@wd + @pth) 
+      end
+      def path_no_slash() @pth.sub(/\/$/,'') end
+      def path() @pth end
+      def absolute?() @pth[0] == ?/ end
+      def host() @host ||= uri.host end
+      alias abs? absolute?
+
+    end
+  end
+end

data/lib/rio/rl/uri.rb

@@ -0,0 +1,118 @@
+#--
+# =============================================================================== 
+# Copyright (c) 2005, 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
+#  rake rdoc
+# from the distribution directory. Then point your browser at the 'doc/rdoc' directory.
+#
+# Suggested Reading
+# * RIO::Doc::SYNOPSIS
+# * RIO::Doc::INTRO
+# * RIO::Doc::HOWTO
+# * RIO::Rio
+#
+# <b>Rio is pre-alpha software. 
+# The documented interface and behavior is subject to change without notice.</b>
+
+
+require 'rio/rl/base'
+module RIO
+  module RL
+    class URIBase < Base
+      attr_reader :uri
+      attr_writer :base
+      def initialize(u,*args)
+        #p callstr('initialize',u,*args)
+        # u should be a ::URI or something that can be parsed to one
+        args = get_base(*args)
+        @uri = ( u.kind_of?(::URI) ? u.dup : parse_url(u.to_s) )
+        self.join(*args)
+        @uri.path = '/' if @uri.absolute? and @uri.path == ''
+      end
+      def initialize_copy(*args)
+        #p callstr('initialize_copy',*args)
+
+        super
+        @uri = @uri.clone unless @uri.nil?
+        @base = @base.clone unless @base.nil?
+      end
+      def join(*args)
+#        self.class.joinuri(self.uri,*args)
+        return @uri if args.empty?
+        sa = args.map(&:to_s).map { |str| ::URI.escape(str,ESCAPE) }
+        sa.unshift @uri.path unless @uri.path.empty?
+        @uri.path = sa.join('/')
+        @uri.path.gsub!(%r|/+|,'/')
+      end
+
+      def parse_url(str)
+        ::URI.parse(::URI.escape(str,ESCAPE))
+      end
+
+      def url() self.uri.to_s end
+      def fs2url(pth) RL.fs2url(pth) end
+      def url2fs(pth) RL.url2fs(pth) end
+      def fspath() RL.url2fs(@uri.path) end
+
+      def route_from(other)
+        self.class.new(@uri.route_from(other.uri),other)
+      end
+      def route_to(other)
+        self.class.new(@uri.route_to(other.uri),self.abs)
+      end
+      def merge(other)
+        self.class.new(@uri.merge(other.uri))
+      end
+      def base()
+        (@base.nil? ? @uri : @base)
+      end
+      def get_base(*args)
+        #      args.each { |a| p "get_base len=#{args.length} #{a.class}##{a.to_s}" }
+        @base = nil
+        if args.length > 0
+          b = args.pop
+          @base = case b
+                  when URIBase then  b.uri if b.uri.absolute?
+                  when ::URI then b if b.absolute?
+                  when ::String then  ::URI.parse(b) if b  =~ /^[a-z]+:/
+                  end
+          args.push b unless @base
+        end
+        args
+      end
+      def abs()
+        return self if @uri.absolute?
+        self.class.new(@base.merge(@uri),@base) 
+      end
+      def path_no_slash
+        path.sub(/\/$/,'')
+      end
+      def path=(pt)
+        @uri.path = pt
+      end
+      extend Forwardable
+      def_instance_delegators(:@uri,:to_s,:path,:absolute?,:host)
+      alias abs? absolute?
+    end
+  end
+end