wishdev-rio 0.4.3.1

data/ex/catcsv.rb

@@ -0,0 +1,64 @@
+#!/usr/local/bin/ruby
+
+require 'rio'
+require 'rio/argv'
+# Concatonate all the CSV files in a directory, but only include the header
+# line from one of them.
+require 'optparse'
+require 'optparse/time'
+require 'ostruct'
+require 'pp'
+
+class CatCSVOptions
+  
+  #
+  # Return a structure describing the options.
+  #
+  def self.parse(args)
+    # The options specified on the command line will be collected in *options*.
+    # We set default values here.
+    options = OpenStruct.new
+    options.outfile = nil
+    
+    opts = OptionParser.new do |opts|
+      opts.banner = "Usage: #{$0} [options] csv_directory"
+      
+      opts.separator ""
+      opts.separator "Specific options:"
+      
+      opts.on("-o", "--output [OUTPUT_FILE]", "Specify the output CSV file") do |ofile|
+        options.outfile = ofile
+      end
+      
+      # No argument, shows at tail.  This will print an options summary.
+      # Try it and see!
+      opts.on_tail("-h", "--help", "Show this message") do
+        puts opts
+        exit
+      end
+      
+      # Print the version.
+      opts.on_tail("--version", "Show version") do
+        puts OptionParser::Version.join('.')
+        exit
+      end
+    end
+    
+    opts.parse!(args)
+    options
+  end  # parse()
+  
+end 
+
+options = CatCSVOptions.parse(ARGV)
+
+csvdir = RIO.ARGV.shift
+unless csvdir
+  puts options
+  exit
+end
+output_file = options.outfile ? rio(options.outfile) : rio(csvdir.filename + '.all.csv')
+
+output_file << rio(csvdir).files['*.csv'][0][0] << rio(csvdir).skip.lines(0)
+
+__END__

data/ex/colx.rb

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

data/ex/findinruby

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

data/ex/findruby

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

data/ex/passwd_report.rb

@@ -0,0 +1,8 @@
+#!/usr/local/bin/ruby
+require 'rio'
+
+# Create a tab separated file of accounts in a UNIX passwd file,
+# listing only the username, uid, and realname fields
+
+rio('/etc/passwd').csv(':').columns(0,2,4) > rio(?-).csv("\t")
+

data/ex/prompt.rb

@@ -0,0 +1,25 @@
+#!/usr/local/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,42 @@
+#!/usr/bin/env ruby
+
+require 'rio'
+
+# riocat: reads from stdin 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(?-) < ?-
+
+#
+# this could also be written
+#    rio(?-) < rio(?-)
+# or
+#    rio(?-) > ?-
+# or
+#    rio(?-) > rio(?-)
+#
+#
+# this is similar but reads the entire file before writing
+#    rio(?-).print!( rio(?-).slurp )
+
+
+
+#rio(?-).print!( rio(?-).slurp)
+
+
+# DONT DO THIS:
+#io = rio(?-)
+#io.print!( io.slurp )
+

data/ex/riogunzip

@@ -0,0 +1,31 @@
+#!/usr/bin/env ruby
+require 'rio'
+# riogunzip: 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,10 @@
+#!/usr/local/bin/ruby
+
+require 'rio/prompt'
+
+case answer = RIO.prompt("What is the crux of the biscuit: ")
+when /the apostrophe/i 
+  puts 'Billy was a Mountain'
+else 
+  puts "You typed '#{answer}'"
+end

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

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+
+require 'rio'
+require 'rio/argv'
+
+# converts files given as arguments from DOS format (lines end with "\r\n")
+# to Unix format (lines end with "\n").
+ 
+RIO.ARGV.each { |file| file < file.chomp.map{ |l| "#{l}\n" } }
+

data/lib/rio/abstract_method.rb

@@ -0,0 +1,56 @@
+#--
+# =============================================================================== 
+# 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
+#
+
+
+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,56 @@
+#--
+# =============================================================================== 
+# 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 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

data/lib/rio/arycopy.rb

@@ -0,0 +1,43 @@
+#--
+# =============================================================================== 
+# 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 AryCopy #:nodoc: all
+    def >>(dest)
+      rio(?") << self >> dest
+    end
+  end
+end