vcs 0.1 → 0.2.148

data/ruby_ex/commands/datas.rb

@@ -0,0 +1,16 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
+# License::   GNU General Public License (GPL).
+# Revision::  $Id: datas.rb 221 2005-05-09 12:40:57Z ertai $
+
+require 'module/autoload_tree'
+
+module Commands
+
+  module Datas
+
+    autoloaded_module(__FILE__)
+
+  end # module Datas
+
+end # module Commands

data/ruby_ex/commands/datas/data.rb

@@ -0,0 +1,33 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
+# License::   GNU General Public License (GPL).
+# Revision::  $Id: data.rb 221 2005-05-09 12:40:57Z ertai $
+
+module Commands
+
+  module Datas
+
+    #
+    # A CommandData instance contains all information returned by a Command#run:
+    #
+    #   * It's exit status:
+    #     - Exit number.
+    #     - Signals
+    #     - ...
+    #
+    #   * It's outputs:
+    #     - What it writes on stdout.
+    #     - stderr.
+    class Data
+
+      attr_accessor :pid
+      attr_accessor :input
+      attr_accessor :output
+      attr_accessor :error
+      attr_accessor :status
+
+    end # class Data
+
+  end # module Datas
+
+end # module Commands

data/ruby_ex/commands/datas/factory.rb

@@ -0,0 +1,66 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
+# License::   GNU General Public License (GPL).
+# Revision::  $Id: factory.rb 221 2005-05-09 12:40:57Z ertai $
+
+module Commands
+
+  module Datas
+    
+    class Factory < Data
+
+      attr_accessor :command_data_class
+
+      def initialize
+        @command_data_class = Data
+      end
+
+      def new_command_data ( *a, &b )
+        data = @command_data_class.new(*a, &b)
+        instance_variables.each do |var|
+          next if var =~ /command_data_class/
+          data.send(var[1..-1] + '=', instance_variable_get(var))
+        end
+        data
+      end
+
+      alias :create :new_command_data
+
+    end # class Factory
+
+
+
+    if $0 == __FILE__
+      require 'test/unit'
+
+      class FactoryTest < Test::Unit::TestCase
+
+        def setup
+          assert_nothing_raised { @fa = Factory.new }
+        end
+
+        def test_0_initialize
+        end
+
+        def test_new_command_data
+          assert_nothing_raised do
+            assert_kind_of(Data, @fa.create)
+            assert_kind_of(Data, @fa.new_command_data)
+          end
+        end
+
+        def test_simple
+          assert_nothing_raised do
+            @fa.pid = 42
+            @data = @fa.create
+          end
+          assert_equal(42, @data.pid)
+        end
+
+      end # class FactoryTest
+
+    end
+
+  end # module Datas
+
+end # module Commands

data/ruby_ex/commands/factory.rb

@@ -0,0 +1,66 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
+# License::   GNU General Public License (GPL).
+# Revision::  $Id: factory.rb 221 2005-05-09 12:40:57Z ertai $
+
+module Commands
+
+  class Factory < Command
+
+    def initialize
+      super(nil)
+      @command_class = Command
+    end
+
+    def new_command ( *a, &b )
+      cmd = @command_class.new(*a, &b)
+      instance_variables.each do |var|
+        next if var =~ /^@command(_class)?$/
+        cmd.send(var[1..-1] + '=', instance_variable_get(var))
+      end
+      cmd
+    end
+
+    alias :create :new_command
+
+  end # class Factory
+
+
+
+  if $0 == __FILE__
+    require 'test/unit'
+
+    class FactoryTest < Test::Unit::TestCase
+
+      def setup
+        assert_nothing_raised { @fa = Factory.new }
+      end
+
+      def test_0_initialize
+      end
+
+      def test_new_command
+        assert_nothing_raised do
+          assert_kind_of(Command, @fa.create('wc'))
+          assert_kind_of(Command, @fa.new_command('ls'))
+        end
+      end
+
+      def test_simple
+        assert_nothing_raised do
+          @fa << 42
+          @fa.input = 'inp'
+          @fa = @fa > 'out'
+          @cmd = @fa.create('foo')
+        end
+        assert_equal('foo', @cmd.command)
+        assert_equal(42, @cmd.arg_list.first)
+        assert_equal('inp', @cmd.input)
+        assert_equal('out', @cmd.output)
+      end
+
+    end # class FactoryTest
+
+  end
+
+end # module Commands

data/ruby_ex/commands/helpers.rb

@@ -0,0 +1,67 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
+# License::   GNU General Public License (GPL).
+# Revision::  $Id: helpers.rb 221 2005-05-09 12:40:57Z ertai $
+
+module Commands
+
+  module Helpers
+
+    class ::String
+
+      #
+      # Make a command from a String.
+      #
+      # Split your command when no quotations are used.
+      #
+      # Do not touch the String and give as one argument.
+      def to_cmd
+        if self =~ /['"`]/
+          Command.new(self)
+        else
+          Command.new(*split(/\s+/))
+        end
+      end
+
+    end # class ::String
+
+
+
+    class ::Array
+
+      def to_cmd
+        Command.new(*self)
+      end
+
+    end # class ::Array
+
+  end # module Helpers
+
+
+
+  if __FILE__ == $0
+
+    require 'test/unit'
+
+    class HelpersTest < Test::Unit::TestCase
+
+      def test_string_to_cmd
+        assert_equal(['foo', 'bar'], "foo bar".to_cmd.to_a)
+
+        assert_equal(['foo', 'b/ar', 'qu44x32'],
+                     "foo b/ar \t \n  qu44x32".to_cmd.to_a)
+
+        s = "foo 'b/ar \t' \n  qu44x32"
+        assert_equal([s], s.to_cmd.to_a)
+      end
+
+      def test_array_to_cmd
+        a = ['foo', "b/ar \t", "\n  qu44x32"]
+        assert_equal(a, a.to_cmd.to_a)
+      end
+
+    end # class HelpersTest
+
+  end
+
+end # module Commands

data/ruby_ex/commands/pipe.rb

@@ -0,0 +1,64 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
+# License::   GNU General Public License (GPL).
+# Revision::  $Id: pipe.rb 221 2005-05-09 12:40:57Z ertai $
+
+module Commands
+
+  class Pipe < Command
+
+    def initialize ( *cmds )
+      @cmds = cmds.map { |x| x.dup }
+    end
+
+    def run ( *a )
+      pids = []
+      ([nil] + @cmds).zip(@cmds + [nil]).each do |cmd1, cmd2|
+        next if cmd1.nil? or cmd2.nil?
+        rd, wr = IO.pipe
+        cmd1.output = wr
+        cmd2.input = rd
+        pids << fork do
+          rd.close
+          cmd1.exec
+        end
+        wr.close
+      end
+      pids << fork do
+        @cmds.last.exec
+      end
+      pids.each { |pid| Process.waitpid pid }
+    end
+
+    def input= ( arg )
+      @cmds.first.input = arg
+    end
+
+    def input
+      @cmds.first.input
+    end
+
+    def output= ( arg )
+      @cmds.last.output = arg
+    end
+
+    def output
+      @cmds.last.output
+    end
+
+    def error= ( arg )
+      @cmds.last.error = arg
+    end
+
+    def error
+      @cmds.last.error
+    end
+
+    def to_sh
+      strs = @cmds.map { |cmd| "(#{cmd.to_sh})" }
+      "(#{strs.join(' | ')})#{sh_args}"
+    end
+
+  end # class Pipe
+
+end # module Commands

data/ruby_ex/commands/runners.rb

@@ -0,0 +1,17 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
+# License::   GNU General Public License (GPL).
+# Revision::  $Id: runners.rb 221 2005-05-09 12:40:57Z ertai $
+
+require 'module/autoload_tree'
+require 'abstract'
+require 'hookable'
+require 'hooker'
+
+module Commands
+
+  module Runners
+    autoloaded_module(__FILE__)
+  end # module Runners
+
+end # module Commands

data/ruby_ex/commands/runners/exec.rb

@@ -0,0 +1,49 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
+# License::   GNU General Public License (GPL).
+# Revision::  $Id: exec.rb 221 2005-05-09 12:40:57Z ertai $
+
+module Commands
+
+  module Runners
+
+    class Exec < Runner
+      concrete
+
+      def exec ( aCommand, data )
+        Kernel.exec(*aCommand.to_a)
+      end
+
+    end # class Exec
+
+
+
+    if $0 == __FILE__
+      require 'test/unit'
+
+      class ExecTest < Test::Unit::TestCase
+
+        def setup
+          assert_nothing_raised { @runner = Exec.new }
+        end
+
+        def test_0_initialize
+        end
+
+        def test_simple
+          TempPath.new do |tmp|
+            cmd = %Q[ruby -e "File.open('#{tmp}', 'w') { |f| f.puts :foo }"]
+            pid = fork do
+              @runner.run(cmd.to_cmd)
+            end
+            Process.waitpid pid
+          end
+        end
+
+      end # class ExecTest
+
+    end
+
+  end # module Runners
+
+end # module Commands

data/ruby_ex/commands/runners/fork.rb

@@ -0,0 +1,97 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
+# License::   GNU General Public License (GPL).
+# Revision::  $Id: fork.rb 221 2005-05-09 12:40:57Z ertai $
+
+module Commands
+
+  module Runners
+
+    class Fork < Exec
+      concrete
+
+      #
+      # Hooks declaration
+      #
+
+      hook_declare :exception_raised_during_exec
+      hook_declare :already_killed
+      hook_declare :waitpid
+      hook_declare :son
+      hook_declare :kill
+
+      #
+      # Methods
+      #
+
+      def run_impl ( aCommand, data )
+        data.pid = Kernel.fork do
+          begin
+            hook_trigger :son, aCommand, data
+            super
+          rescue Exception => ex
+            hook_trigger :exception_raised_during_exec, ex
+          end
+        end
+        hook_trigger :waitpid, data
+      end
+
+
+      def abort ( data )
+        if data.pid
+          begin
+            hook_trigger :kill, data
+            hook_trigger :waitpid, data
+          rescue Errno::ESRCH
+            hook_trigger :already_killed, data.pid
+          end
+        end
+        super
+      end
+
+
+      def waitpid ( data )
+        Process.waitpid(data.pid)
+        data.status = $?
+      end
+
+
+      def exception_raised_during_exec ( anException )
+        exit! 127
+      end
+
+
+      def kill ( data )
+        Process.kill('-KILL', -data.pid)
+      end
+
+    end # class Fork
+
+
+
+    if $0 == __FILE__
+      require 'test/unit'
+
+      class ForkTest < Test::Unit::TestCase
+
+        def setup
+          assert_nothing_raised { @runner = Fork.new }
+        end
+
+        def test_0_initialize
+        end
+
+        def test_simple
+          TempPath.new do |tmp|
+            cmd = %Q[ruby -e "File.open('#{tmp}', 'w') { |f| f.puts :foo }"]
+            @runner.run(cmd.to_cmd)
+          end
+        end
+
+      end # class Fork
+
+    end
+
+  end # module Runners
+
+end # module Commands