rio 0.3.1

data/lib/rio/ops/symlink.rb

@@ -0,0 +1,70 @@
+#--
+# =============================================================================== 
+# 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>
+
+
+module RIO
+  module Impl
+    module U
+      def self.readlink(s,*args) ::File.readlink(s,*args) end
+      def self.lstat(s,*args) ::File.lstat(s,*args) end
+    end
+  end
+  module Ops
+    module Symlink
+      module ExistOrNot
+        def readlink(*args) new_rio(Impl::U.readlink(self.to_s,*args)) end
+        def lstat(*args) Impl::U.lstat(self.to_s,*args) end
+
+      end
+      module Existing
+        include ExistOrNot
+      end
+      module NonExisting
+        include ExistOrNot
+        def mkdir()
+          rtn_reset {
+            self.readlink.mkdir
+          }
+        end
+        def mkpath()
+          rtn_reset {
+            self.readlink.mkpath
+          }
+        end
+      end
+    end
+  end
+end

data/lib/rio/path.rb

@@ -0,0 +1,117 @@
+#--
+# =============================================================================== 
+# 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>
+
+
+# cell phone number: 954-6752.
+require 'rio/state'
+require 'rio/ops/path'
+require 'rio/ops/symlink'
+require 'rio/cp'
+module RIO
+
+  module Path #:nodoc: all
+    # Empty: 
+    #  nil? or empty? => Emp
+    #  else => Sin
+    class Empty < State::Base
+      include Ops::Path::Empty
+      def check?() fspath.nil? or fspath.empty? end
+      def when_missing(sym,*args) gofigure(sym,*args) end
+    end 
+
+    # Primary State for Rio as path manipulator
+    class Str < State::Base 
+      include Ops::Path::Str
+      include Ops::Path::Change
+      public 
+      
+      def check?() not fspath.nil? and not fspath.empty? end
+      def when_missing(sym,*args) 
+        #p callstr('when_missing',sym,*args)+" file?=#{file?} symlink?=#{symlink?} dir?=#{directory?}"
+        case
+        when file? then efile()
+        when directory? then edir()
+        else npath()
+        end
+      end
+
+      protected
+
+      def edir()
+        rl.path += '/' unless rl.path.empty? or rl.path[-1] == ?/
+        next_state = become('Dir::Existing')
+        next_state.extend(Ops::Symlink::Existing) if symlink?
+        next_state
+      end
+      def efile() 
+        next_state = become('File::Existing')
+        next_state.extend(Ops::Symlink::Existing) if symlink?
+        next_state
+      end
+      def npath() 
+        next_state = become('Path::NonExisting')
+        next_state.extend(Ops::Symlink::NonExisting) if symlink?
+        next_state
+      end
+
+    end # class PathString
+
+    # A transition state. Anything but simple path tests must cause a transition out of this state.
+    class NonExisting < State::Base
+      include Ops::Path::NonExisting
+      include Cp::NonExisting::Output
+
+      def check?() not exist? end
+
+      def ndir() 
+        rl.path += '/' unless rl.path.empty? or rl.path[-1] == ?/
+        become('Dir::NonExisting')
+      end
+      def nfile() become('File::NonExisting') end
+
+      def when_missing(sym,*args)
+        case sym
+        when :mkdir,:mkpath
+          ndir()
+        else 
+          nfile()
+        end
+      end
+    end # class NPath
+
+  end # module Rsc
+
+end

data/lib/rio/path/reset.rb

@@ -0,0 +1,70 @@
+#--
+# =============================================================================== 
+# 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>
+
+
+# cell phone number: 954-6752.
+require 'rio/state'
+module RIO
+
+  module Path
+    # Base class for states that keep path information in a string
+    # For now this is all states, but that could change
+    class Reset < State::Base
+      def base_state() 
+#        p "RETURNING WIERD BASE STATE"
+        Reset 
+      end
+
+      def check?() true end
+      def pathempty() become('Path::Empty')  end
+      def pathstring() become('Path::Str')  end
+      
+
+      def when_missing(sym,*args)
+#        p callstr('when_missing',sym,*args)
+        if empty?
+          pathempty()
+        else
+          pathstring()
+        end
+      end
+
+      extend Forwardable
+      def_instance_delegators(:path,:empty?)
+    end 
+  end 
+    
+end

data/lib/rio/record.rb

@@ -0,0 +1,59 @@
+#--
+# =============================================================================== 
+# 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>
+
+
+# T-Mobile HotSpot 1.877.822.SPOT
+module RIO
+  module Record #:nodoc: all
+    class Base < ::String
+      attr_accessor :recno
+      def initialize(recno,*args)
+        @recno = recno
+        super(*args)
+      end
+      def =~(obj)
+        case obj
+        when ::Integer then @recno == obj
+        when ::Range then obj.include?(@recno)
+        else super
+        end
+      end
+      def to_s() self end
+      def to_rec(mode=nil) to_s end
+      def to_row() to_s end
+    end
+  end
+end

data/lib/rio/rectype.rb

@@ -0,0 +1,86 @@
+#--
+# =============================================================================== 
+# 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>
+
+
+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.ioh.gets(sep_string)
+        end
+        def each_rec_(&block) 
+          each_line { |line|
+            yield line
+          }
+          self
+        end
+      end
+      module Output
+        def put_(rec,*args)
+          #p callstr('put_',rec,*args)
+          self.ioh.print(rec)
+        end
+      end
+    end
+    module Bytes
+      module Input
+        def get_arg_() 
+          cx['bytes_n']  
+        end
+        def get_(nb=get_arg_())
+          self.ioh.read(nb)
+        end
+        def each_rec_(&block) 
+          #p callstr('each_rec_ (EachIter::Bytes)')
+          #        p 'each_rec_ => each_line'
+          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,147 @@
+#--
+# =============================================================================== 
+# 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/uri/file'
+#require 'extensions/class'
+
+module RIO
+  module RL
+    CHMAP = { 
+      '_'    => 'sysio',
+      '-'    => 'stdio',
+      '='    => 'stderr',
+      '"'    => 'strio',
+      '?'    => 'tempfile',
+      '['    => 'aryio',
+      '`'    => 'cmdio',
+      '#'    => 'fd',
+
+      ?_    => 'sysio',
+      ?-    => 'stdio',
+      ?=    => 'stderr',
+      ?"    => 'strio',
+      ??    => 'tempfile',
+      ?[    => 'aryio',
+      ?`    => 'cmdio',
+      ?#    => 'fd',
+    }.freeze
+  end
+end
+module RIO
+  module RL #:nodoc: all
+    PESCAPE = Regexp.new("[^-_.!~*'()a-zA-Z0-9;?:@&=+$,]",false, 'N').freeze
+    ESCAPE = Regexp.new("[^-_.!~*'()a-zA-Z0-9;\/?:@&=+$,]",false, 'N').freeze
+    def fs2url(pth)
+#      Base.fs2url(pth)
+      pth.sub!(/^[a-zA-Z]:/,'')
+      pth = URI.escape(pth,ESCAPE)
+#      (Local::SEPARATOR == '/' ? pth : pth.gsub(Local::SEPARATOR,%r|/|))
+    end
+
+    def url2fs(pth)
+#      pth = pth.chop if pth.length > 1 and pth[-1] == ?/      cwd = RIO::RL.fs2url(::Dir.getwd)
+
+      pth = pth.chop if pth != '/' and pth[-1] == ?/
+      pth = ::URI.unescape(pth)
+#      (Local::SEPARATOR == '/' ? pth : pth.gsub(%r|/|,Local::SEPARATOR))
+    end
+
+    def getwd()
+      ::URI::FILE.build({:path => fs2url(::Dir.getwd)+'/'})
+    end
+
+    module_function :url2fs,:fs2url,:getwd
+  end
+end
+module RIO
+  module RL
+
+    SCHEME = 'rio'
+    SCHC = SCHEME+':'
+    SPLIT_RIORL_RE = %r{\A([a-z][a-z]+)(?:(:)(.*))?\Z}.freeze
+    SUBSEPAR = ':'
+
+    class Base
+      def self.subscheme(s)
+#        sch,opq,whole = split_riorl(s)
+#        sch
+        /^rio:([^:]+):/.match(s)[1]
+#        s[4...s.index(SUBSEPAR,4)]
+#        e = s.index(SUBSEPAR,b)
+#        s.split(SUBSEPAR,3)[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_s end
+      def length() self.to_s.length end
+      def fspath() nil end
+
+      def to_rl() self.rl end
+
+      def url() self.scheme+SUBSEPAR+self.opaque end
+      def callstr(func,*args)
+        self.class.to_s+'['+self.to_s+']'+'.'+func.to_s+'('+args.join(',')+')'
+      end
+      def close() nil end
+
+    end
+  end
+end