rio 0.3.1

data/ex/colx.rb

@@ -0,0 +1,6 @@
+#!/usr/bin/env ruby
+require 'rio'
+
+rio('ex/rgb.txt.gz').gzip.lines(/^\s*(\d+)\s+(\d+)\s+(\d+)\s+(\S.+)/) do |line,ma| 
+  printf("#%02x%02x%02x\t%s\n",ma[1],ma[2],ma[3],ma[4])
+end

data/ex/findinruby

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+
+require 'rio'
+
+re = ARGV.shift
+
+require 'rio/argv'
+RIO::argv.each do |path|
+  rio(path).norecurse('.svn','pkg').files('*.rb',proc{ |f| f.executable? and f[0] =~ /^#!.+ruby/ }) do |f|
+    print f.lines[/#{re}/].map{ |line| "#{f}: #{line}" }
+  end
+end
+__END__
+ARGV.each do |path|
+  rio(path).norecurse('.svn','pkg').files('*.rb',proc{ |f| f.executable? and f[0] =~ /^#!.+ruby/ }) do |f|
+    print f.lines[/#{re}/].map{ |line| "#{f}: #{line}" }
+  end
+end
+

data/ex/findruby

@@ -0,0 +1,11 @@
+#!/usr/bin/env ruby
+
+require 'rio'
+
+ARGV.each do |path|
+  rio(path).norecurse('.svn').files('*.rb',proc{ |f| f.executable? and f[0] =~ /^#!.+ruby/ }) do |f|
+    puts f
+  end
+end
+
+__END__

data/ex/prompt.rb

@@ -0,0 +1,25 @@
+#!/usr/bin/ruby
+
+require 'rio'
+
+ans = rio(?-).chomp.print("Type Something: ").gets
+rio(?-).puts("You typed '#{ans}'")
+
+# Could also be written like this
+#
+#stdio = rio(?-).chomp
+#ans = stdio.print("Type Something: ").gets
+#stdio.puts("You typed '#{ans}'")
+#
+# Or even this
+#
+#stdio = rio(?-).chomp
+#stdio.puts("You typed '#{stdio.print("Type Something: ").gets}'")
+#
+# Or this
+#
+#rio(?-).puts("You typed '#{rio(?-).chomp.print("Type Something: ").gets}'")
+#
+
+
+__END__

data/ex/riocat

@@ -0,0 +1,35 @@
+#!/usr/bin/env ruby
+require 'rio'
+# riogzip: reads from stdin, gzips and writes it to stdout
+# example use:
+#   riocat < afile.txt >bfile.txt
+# 
+# explanation:
+#
+# rio('-')
+#   rio('-'): a rio that will be connected to stdin or stdout depending how it is used
+#
+# rio('-')
+#   rio('-'): a rio that will be connected to stdin or stdout depending how it is used
+#
+# <
+#   <: copy operator indicating rio on left is written to and the rio on the right is read from
+#
+rio(?-) < rio(?-)
+
+#
+# this could also be written
+# rio(?-) > rio(?-)
+#
+# this is similar but reads the entire file before writing
+#rio('-').print!( rio('-').slurp )
+
+
+
+#rio(?-).print!( rio(?-).slurp)
+
+
+# DONT TO THIS:
+#io = rio(?-)
+#io.print!( io.slurp )
+

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/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

@@ -0,0 +1,163 @@
+#--
+# =============================================================================== 
+# 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/version'
+require 'rio/base'
+require 'rio/exception'
+require 'extensions/symbol'
+require 'extensions/enumerable'
+require 'extensions/string'
+require 'forwardable'
+
+module RIO 
+  # See also: RIO::Doc::SYNOPSIS; RIO::Doc::INTRO; RIO::Doc::HOWTO.
+  class Rio < Base #:doc:
+  end
+end
+
+require 'rio/kernel'
+require 'rio/constructor'
+
+module RIO
+  SEEK_SET = IO::SEEK_SET
+  SEEK_END = IO::SEEK_END
+  SEEK_CUR = IO::SEEK_CUR
+end
+
+module RIO
+  class Rio #:doc:
+    require 'rio/local'
+    include Local
+    require 'rio/factory'
+    
+    protected
+
+    attr_reader :state
+
+    public
+
+    # See RIO.rio
+    def initialize(*args)
+      @state = Factory.instance.create_state(*args)
+    end
+
+    def initialize_copy(*args)
+      #p callstr("initialize_copy",*args)
+      super
+      @state = Factory.instance.clone_state(@state)
+    end
+
+    # See RIO.rio
+    def self.rio(*args,&block) # :yields: self
+      ario = new(*args)
+      if block_given?
+        old_closeoncopy = ario.closeoncopy?
+        begin
+          yield ario.nocloseoncopy
+        ensure
+          ario.reset.closeoncopy(old_closeoncopy)
+        end
+      end
+      ario
+    end
+
+    def open(m,*args,&block) 
+      target.open(m,*args)
+      if block_given?
+        old_closeoncopy,old_closeoneof = closeoncopy?,closeoneof?
+        begin
+          return yield(nocloseoncopy.nocloseoneof)
+        ensure
+          reset.closeoncopy(old_closeoncopy).closeoneof(old_closeoneof)
+        end
+      end
+      self 
+    end
+
+    # returns the Rio#fspath, which is the path for the Rio on the underlying filesystem
+    def to_s(*args) target.to_s(*args) end
+
+    def dup
+      self.class.new(self.to_s)
+    end
+
+    def method_missing(sym,*args,&block) #:nodoc:
+      #p callstr('method_missing',sym,*args)
+
+      result = target.__send__(sym,*args,&block)
+      return result unless result.kind_of? State::Base and result.equal? target
+
+      self
+    end
+
+    def inspect()
+      cl = self.class.to_s[5..-1]
+      st = state.target.class.to_s[5..-1]
+      sprintf('#<%s:0x%x:"%s" (%s)>',cl,self.object_id,self.to_url,st)
+    end
+    
+    USE_IF = true #:nodoc:
+
+    if USE_IF
+      require 'rio/if'
+      include Enumerable
+    end
+
+    protected
+
+    def target() @state.target end
+
+    def callstr(func,*args)
+      self.class.to_s+'.'+func.to_s+'('+args.join(',')+')'
+    end
+
+  end # class Rio
+end # module RIO
+
+
+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/abstract_method.rb

@@ -0,0 +1,57 @@
+#--
+# =============================================================================== 
+# 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>
+
+
+class AbstractMethodCalled < ::TypeError #:nodoc: all
+end
+
+class Module #:nodoc: all
+  # abstract_method(symbol, ...)
+  # extends Module
+  # defines a method which raises AbstractMethodCalled
+  # used in a base class to ensure that subclasses define an implementation
+  #    thus making the base class abstract
+  def abstract_method(*syms)
+    for symbol in syms
+      module_eval <<-"end_eval"
+	def #{symbol.id2name}(*args)
+          raise AbstractMethodCalled
+	end
+      end_eval
+    end
+  end
+        
+end

data/lib/rio/argv.rb

@@ -0,0 +1,57 @@
+#--
+# =============================================================================== 
+# 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'
+
+module RIO
+  def argv()
+    ::ARGV.map { |path| rio(path) }
+  end
+  module_function :argv
+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