wishdev-rio 0.4.3.1

data/lib/rio/symantics.rb

@@ -0,0 +1,45 @@
+#--
+# =============================================================================== 
+# 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 Symantics #:nodoc: all
+    def rtn_self(*args,&block) yield(*args); self end
+    def rtn_reset(*args,&block) yield(*args); softreset() end
+    def rtn_new(*args,&block)  self.class.new(yield(*args)) end
+    def rtn_rio(*args,&block)  new_rio(yield(*args)) end
+    def rtn_val(*args,&block) yield(*args) end
+  end
+end

data/lib/rio/tempdir.rb

@@ -0,0 +1,132 @@
+=begin rdoc
+
+== tempdir.rb - provides class Tempdir
+
+=== Synopsis
+In order to
+
+1. create a temporary directory with a name starting with "hoge", 
+2. show the name of that directory, and
+3. show its properties with the system "ls -dl" command:
+
+  require 'tempdir'
+
+  d = Tempdir.new("hoge")
+  p d.to_s
+  system("ls", "-dl", d.to_s)
+
+After the run, the directory will appear to be removed. That is: if you
+are not running inside it, which may provide you a means to create a
+directory with a unique name that will be available after the run.
+
+=== Description
+<i>tempdir.rb</i> provides the Tempdir class, which is analogous to the
+Tempfile class, but manipulates temporary directories. Derived from a
+proposal of nobu.nokada@softhome.net. He added the class to
+tempfile.rb, but since it does not seem to appear in cvs, I'll keep
+it apart in tempdir.rb.
+
+=end
+
+require 'tmpdir'
+
+module AutoRemoval #:nodoc: all
+  MAX_TRY = 10
+  @@cleanlist = []
+
+  private
+
+  def make_tmpname(basename, n)
+    sprintf('%s%d.%d', basename, $$, n)
+  end
+  private :make_tmpname
+
+  def createtmp(basename, tmpdir=Dir::tmpdir)	# :nodoc:
+    if $SAFE > 0 and tmpdir.tainted?
+      tmpdir = '/tmp'
+    end
+
+    lock = nil
+    n = failure = 0
+
+    begin
+      Thread.critical = true
+      begin
+        tmpname = File.join(tmpdir, make_tmpname(basename, n))
+        n += 1
+      end until !@@cleanlist.include?(tmpname) and yield(tmpname)
+    rescue
+      p $!
+      failure += 1
+      retry if failure < MAX_TRY
+      raise "cannot generate tempfile `%s'" % tmpname
+    ensure
+      Thread.critical = false
+    end
+
+    tmpname
+  end
+
+  def self.callback(path, clear)	# :nodoc:
+    @@cleanlist << path
+    data = [path]
+    pid = $$
+    return Proc.new {
+      if pid == $$ 
+        path, tmpfile = *data
+
+        print "removing ", path, "..." if $DEBUG
+
+        tmpfile.close if tmpfile
+
+        # keep this order for thread safeness
+        if File.exist?(path)
+          clear.call(path)
+        end
+        @@cleanlist.delete(path)
+
+        print "done\n" if $DEBUG
+      end
+    }, data
+  end
+
+  def self.unregister(path)
+    @@cleanlist.delete(path)
+  end
+end
+
+require 'pathname'
+class Tempdir < Pathname #:nodoc: all
+  include AutoRemoval
+
+  def initialize(*args)
+    require 'fileutils'
+
+    tmpname = createtmp(*args) do |tmpname|
+      unless File.exist?(tmpname)
+        Dir.mkdir(tmpname, 0700)
+      end
+    end
+
+    super(tmpname)
+    @clean_proc, = AutoRemoval.callback(tmpname, FileUtils.method(:rm_rf))
+    ObjectSpace.define_finalizer(self, @clean_proc)  end
+
+  def open(basename, *modes, &block)
+    File.open(self+basename, *modes, &block)
+  end
+
+  def clear
+    FileUtils.rm_rf(@tmpname)
+    @clean_proc.call
+    ObjectSpace.undefine_finalizer(self)
+  end
+end
+
+if __FILE__ == $0
+#  $DEBUG = true
+  d = Tempdir.new("hoge")
+  p d.to_s
+  system("ls", "-dl", d.to_s)
+  p d
+end

data/lib/rio/to_rio/all.rb

@@ -0,0 +1,39 @@
+#--
+# =============================================================================== 
+# 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/to_rio/object'
+require 'rio/to_rio/string'
+require 'rio/to_rio/array'
+

data/lib/rio/to_rio/array.rb

@@ -0,0 +1,39 @@
+#--
+# =============================================================================== 
+# 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/to_rio'
+class Array #:nodoc:
+  include RIO::ToRio::Array
+end

data/lib/rio/to_rio/io.rb

@@ -0,0 +1,40 @@
+#--
+# =============================================================================== 
+# 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/to_rio'
+
+class IO #:nodoc:
+  include RIO::ToRio::IO
+end

data/lib/rio/to_rio/object.rb

@@ -0,0 +1,42 @@
+#--
+# =============================================================================== 
+# 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/to_rio'
+
+class Object #:nodoc:
+  include RIO::ToRio::Object
+end
+require 'rio/to_rio/io'
+require 'rio/to_rio/array'

data/lib/rio/to_rio/string.rb

@@ -0,0 +1,40 @@
+#--
+# =============================================================================== 
+# 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/to_rio'
+
+class String #:nodoc:
+  include RIO::ToRio::String
+end

data/lib/rio/to_rio.rb

@@ -0,0 +1,67 @@
+#--
+# =============================================================================== 
+# 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 ToRio #:nodoc: all
+    module IO
+      def to_rio()
+        rio(self)
+      end
+    end
+    module Object
+      def to_rio()
+        rio(self.to_s)
+      end
+    end
+    module String
+      include RIO::ToRio::Object
+      def /(arg)
+        self.to_rio / arg
+      end
+    end
+    module Array
+      def /(arg)
+        rio(self) / arg
+      end
+      def to_rio()
+        rio(self)
+      end
+      def to_rios()
+        self.map { |path| rio(path) }
+      end
+    end
+  end
+end