objective_command 0.1.5.0

data/AUTHORS

@@ -0,0 +1,5 @@
+---
+Commands was written by and with the assistance of:
+
+  - Nicolas Pouillard <ertai@feydakins.org>:
+      - Initial design

data/ChangeLog

@@ -0,0 +1,17 @@
+2005-10-05  Nicolas Pouillard  <ertai@lrde.epita.fr>
+
+	Initial checkin.
+
+	* test: New.
+	* test/unit: New.
+	* test/functional: New.
+	* test/sanity: New.
+	* test/fixtures: New.
+	* Rakefile: New.
+	* AUTHORS: New.
+	* lib: New.
+	* bin: New.
+	* SPEC.yml: New.
+	* vcs: New.
+	* vcs/commands_vcs.rb: New.
+

data/NEWS

@@ -0,0 +1,3 @@
+= New 0.1, 2007-01-14:
+
+    Initial Release.

data/README

@@ -0,0 +1,2 @@
+Objective command is a ruby library dedicated at running commands in a OO
+style and in a completly extensible way.

data/Rakefile

@@ -0,0 +1,8 @@
+# Author::    The Uttk Team.                                       -*- ruby -*-
+# Copyright:: Copyright (c) 2005, 2006 Uttk team. All rights reserved.
+# License::   Ruby License
+# Revision::  $Id$
+
+require 'rubygems'
+require_gem 'core_ex'
+load 'core_ex/rakefile_base.rf'

data/SPEC.gemspec

@@ -0,0 +1,15 @@
+Gem::Specification.new do |s|
+  s.name = %q{objective_command}
+  s.version = "0.1.5.0"
+  s.date = %q{2007-01-14}
+  s.summary = %q{ObjectiveCommand}
+  s.email = ["ertai@feydakins.org"]
+  s.homepage = %q{http://api.feydakins.org/objective_command}
+  s.rubyforge_project = %q{objective_command}
+  s.description = %q{}
+  s.default_executable = %q{ocmd}
+  s.authors = ["Nicolas Pouillard"]
+  s.files = ["lib/hookable.rb", "lib/hooker.rb", "lib/objective_command.rb", "lib/objective_command/all.rb", "lib/objective_command/datas.rb", "lib/objective_command/helpers.rb", "lib/objective_command/runners.rb", "lib/objective_command/shell.rb", "lib/objective_command/version_id.rb", "lib/objective_command/commands/command.rb", "lib/objective_command/commands/factory.rb", "lib/objective_command/commands/pipe.rb", "lib/objective_command/commands/seq.rb", "lib/objective_command/datas/composite.rb", "lib/objective_command/datas/data.rb", "lib/objective_command/datas/factory.rb", "lib/objective_command/datas/pipe.rb", "lib/objective_command/datas/temp.rb", "lib/objective_command/runners/exec.rb", "lib/objective_command/runners/fork.rb", "lib/objective_command/runners/mockable.rb", "lib/objective_command/runners/no_run.rb", "lib/objective_command/runners/popen.rb", "lib/objective_command/runners/runner.rb", "lib/objective_command/runners/system.rb", "test/check-objective_command.yml", "test/check-pkg-objective_command.yml", "test/fixtures", "test/functional", "test/sanity", "test/sanity-suite.yml", "test/unit", "test/unit-suite.yml", "test/sanity/multiple-requires.yml", "test/sanity/single-requires.yml", "bin/ocmd", "AUTHORS", "ChangeLog", "NEWS", "Rakefile", "README", "SPEC.gemspec", "SPEC.yml"]
+  s.executables = ["ocmd"]
+  s.add_dependency(%q<core_ex>, ["~> 0.6.5"])
+end

data/SPEC.yml

@@ -0,0 +1,43 @@
+---
+Author: The Uttk Team
+License: Ruby License
+Revision: '$Id$'
+
+version: !feydakins.org,2006/version dev-ruby/objective_command-0.1
+
+# XXX also check lib/objective_command/version_id.rb
+
+title: ObjectiveCommand
+summary: ObjectiveCommand
+description: ""
+homepage: http://api.feydakins.org/objective_command
+
+user: ertai
+rubyforge_project: ttk
+rubyforge_sub_package_name: objective_command
+
+root_test_suite: test/check-pkg-objective_command.yml
+rdoc_dir: doc/html
+tags_url: svn://svn.feydakins.org/objective_command/tags
+trunk_url: svn://svn.feydakins.org/objective_command/trunk
+version_id.rb: !path lib/objective_command/version_id.rb
+
+rdoc_files: !filelist
+  - README
+  - AUTHORS
+  - NEWS
+  - lib/**/*.rb
+
+pkg_files: !filelist
+  - lib/**/*.rb
+  - test/**/*
+  - bin/**/*
+  - '[A-Z]*'
+
+dependencies:
+  core_ex:
+    gem    : ~> 0.6.5
+    tarball: http://rubyforge.iasi.roedu.net/files/ttk/core_ex-0.6.tar.gz
+    vcs    : svn://svn.feydakins.org/ruby_ex/trunk/core_ex
+
+uttk_version: >= 0.3.6.1

data/bin/ocmd

@@ -0,0 +1,32 @@
+#!/usr/bin/env ruby
+
+require 'pathname'
+require Pathname.new(__FILE__).dirname.parent + 'lib/objective_command/all'
+require 'irb'
+require 'irb/completion'
+singleton_class.include OCmd::Shell::MethodMissing
+self.runner = OCmd::Runners::System.new
+RUNNER = runner
+runner.subscribe_hook(:before_return) do |_, data|
+  suppress(IOError) { data.display }
+end
+module IRB
+  def IRB.start_ocmd
+    IRB.setup(nil)
+    @CONF[:IRB_NAME] = 'ocmd'
+    if @CONF[:SCRIPT]
+      irb = Irb.new(nil, @CONF[:SCRIPT])
+    else
+      irb = Irb.new
+    end
+    @CONF[:IRB_RC].call(irb.context) if @CONF[:IRB_RC]
+    @CONF[:MAIN_CONTEXT] = irb.context
+    trap("SIGINT") do
+      irb.signal_handle
+    end
+    catch(:IRB_EXIT) do
+      irb.eval_input
+    end
+  end
+end
+IRB.start_ocmd

data/lib/hookable.rb

@@ -0,0 +1,284 @@
+# Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   Gnu General Public License.
+# Revision::  $Id: /w/fey/cmd/trunk/lib/hookable.rb 24388 2006-07-09T17:09:53.202920Z ertai  $
+
+module Hookable
+
+  module Internal
+    module_function
+    def hook_trigger hooker, name, *args, &block
+      if hooker.respond_to?(name)
+        hooker.send(name, *args, &block)
+      else
+        if hooker.respond_to? :default_hook and not hooker.default_hook.nil?
+          hooker.send(hooker.default_hook, name, *args, &block)
+        elsif hooker.respond_to? :method_missing
+          hooker.send(name, *args, &block)
+        end
+      end
+    end
+  end # module Internal
+
+
+  setup do
+    class_inheritable_array :hooks
+    class_inheritable_array :hookers
+    class_inheritable_array :disabled_hooks
+    inheritable_attributes[:hookers] = []
+    inheritable_attributes[:hooks] = []
+    inheritable_attributes[:disabled_hooks] = []
+  end
+
+
+  def hook_trigger name, *args, &block
+    return if defined? @disabled_hooks and @disabled_hooks.include? name
+    return if disabled_hooks.include? name
+    self.class.hook_trigger(name, *args, &block)
+    return unless defined? @hookers
+    @hookers.each do |hooker|
+      Internal.hook_trigger(hooker, name, *args, &block)
+    end
+    self
+  end
+
+
+  def hooker_subscribe hooker
+    @hookers ||= []
+    @hookers << hooker
+    self
+  end
+
+
+  def subscribe_hook *hook_names, &block
+    hooker_subscribe ProcHooker.new(*hook_names, &block)
+  end
+
+
+  def disable_hook *hook_names
+    @disabled_hooks ||= []
+    @disabled_hooks += hook_names
+    self
+  end
+
+
+  module ClassMethods
+
+    def hook_trigger name, *args, &block
+      raise ArgumentError, "Unknown hook #{name}" unless hooks.include? name
+      return if disabled_hooks.include? name
+      hookers.each do |hooker|
+        Internal.hook_trigger(hooker, name, *args, &block)
+      end
+      self
+    end
+
+
+    def hooker_subscribe hooker
+      self.hookers = [hooker]
+      self
+    end
+
+
+    def subscribe_hook *hook_names, &block
+      hooker_subscribe ProcHooker.new(*hook_names, &block)
+    end
+
+
+    def disable_hook *hook_names
+      self.disabled_hooks = hook_names
+    end
+
+
+    def hook_declare name, *groups # FIXME handle groups
+      self.hooks = [name]
+    end
+
+  end # module ClassMethods
+
+
+  class ProcHooker < Proc
+    include Hooker
+    def initialize *hook_names, &block
+      hook_method :call, *hook_names
+      super(&block)
+    end
+  end
+
+
+end # module Hookable
+
+
+
+test_section __FILE__ do
+
+  class HookableHookerTest < Test::Unit::TestCase
+
+    class HookerTest
+      include Hooker
+
+      attr_reader :stack
+
+      def log *args
+        @stack ||= []
+        @stack << args
+      end
+
+      def method_missing *a
+        log(:method_missing, *a)
+      end
+
+      def hook1 *a
+        log(:hook1, *a)
+      end
+
+      def reset
+        @stack.clear if defined? @stack and @stack
+      end
+    end
+
+
+    STATIC_HOOKER_TEST = HookerTest.new
+
+
+    class HookableTest
+      include Hookable
+
+      hook_declare :hook1
+
+      hook_declare :hook2, :group1
+
+      def run
+        run1
+        run2
+      end
+
+      def run1
+        hook_trigger :hook1
+      end
+
+      def run2
+        hook_trigger :hook2, 42
+        suppress(ArgumentError) { hook_trigger :hook3 }
+      end
+
+      def << hooker
+        hooker_subscribe hooker
+      end
+
+      hooker_subscribe STATIC_HOOKER_TEST
+
+      def self.ref
+        [
+          [[:hook1], [:method_missing, :hook2, 42]],
+          [[:hook1], [:default, :hook2, 42]],
+          [[:hook_1_and_2], [:hook_1_and_2, 42]],
+          [[:hook1], [:method_missing, :default_by_method_missing, :hook2, 42]],
+          [[:hook1], [:hook2, 42]],
+          [[:hook1], [:method_missing, :hook2_by_dynamic_hook_method, 42]]
+        ]
+      end
+
+    end
+
+
+
+    class SubHookableTest < HookableTest
+      hook_declare :hook3
+
+      def self.ref
+        [
+          [[:hook1], [:method_missing, :hook2, 42], [:method_missing, :hook3]],
+          [[:hook1], [:default, :hook2, 42], [:default, :hook3]],
+          [[:hook_1_and_2], [:hook_1_and_2, 42], [:method_missing, :hook3]],
+          [[:hook1], [:method_missing, :default_by_method_missing, :hook2, 42],
+                     [:method_missing, :default_by_method_missing, :hook3]],
+          [[:hook1], [:hook2, 42], [:default, :hook3]],
+          [[:hook1], [:method_missing, :hook2_by_dynamic_hook_method, 42],
+                     [:method_missing, :hook3]]
+        ]
+      end
+
+    end
+
+
+
+    class HookerTest1 < HookerTest
+      def default *a
+        log(:default, *a)
+      end
+      hook_default_method :default
+    end
+
+
+
+    class HookerTest2 < HookerTest
+      def hook_1_and_2 *a
+        log(:hook_1_and_2, *a)
+      end
+      hook_method :hook_1_and_2, :hook1, :hook2
+    end
+
+
+
+    class HookerTest3 < HookerTest
+      hook_default_method :default_by_method_missing
+    end
+
+
+
+    class HookerTest4 < HookerTest
+    end
+
+
+
+    class HookerTest21 < HookerTest1
+      def hook2 ( *a )
+        log(:hook2, *a)
+      end
+    end
+
+
+
+    def test_hookable
+      hookable_checker HookableTest.new
+    end
+
+
+
+    def test_sub_hookable
+      hookable_checker SubHookableTest.new
+    end
+
+
+
+    def hookable_checker support
+      hookers = []
+      hookers << HookerTest1.new
+      hookers << HookerTest2.new
+      hookers << HookerTest3.new
+      hookers << HookerTest21.new
+      hooker4 = HookerTest4.new
+      hookers << hooker4
+      hookers.each do |hooker|
+        support << hooker
+      end
+      STATIC_HOOKER_TEST.reset
+      hookers.unshift STATIC_HOOKER_TEST
+      hooker4.hook_method(:hook2_by_dynamic_hook_method, :hook2)
+      @a = []
+      support.subscribe_hook(:hook2) do |*a|
+        assert_nothing_raised do
+          @a << [:proc_hooker_call, :hook2, *a]
+        end
+      end
+      support.run
+      hookers.zip(support.class.ref).each do |hooker, ref|
+        assert_equal(ref, hooker.stack)
+      end
+      assert_equal([[:proc_hooker_call, :hook2, 42]], @a)
+    end
+
+  end
+
+end

data/lib/hooker.rb

@@ -0,0 +1,47 @@
+# Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   Gnu General Public License.
+# Revision::  $Id: /w/fey/cmd/trunk/lib/hooker.rb 24388 2006-07-09T17:09:53.202920Z ertai  $
+
+module Hooker
+
+  setup do
+    class_inheritable_accessor :default_hook
+  end
+
+  def hook_method method, *hook_names
+    raise unless method.is_a? Symbol
+    hook_names.each do |hook_name|
+      raise unless hook_name.is_a? Symbol
+      instance_eval %Q{
+        def #{hook_name} ( *a, &b )
+          #{method}(*a, &b)
+        end
+      }
+    end
+  end
+
+  module ClassMethods
+
+    def hook_default_method method
+      raise unless method.is_a? Symbol
+      self.default_hook = method
+    end
+
+
+    def hook_method method, *hook_names
+      raise unless method.is_a? Symbol
+      hook_names.each do |hook_name|
+        raise unless hook_name.is_a? Symbol
+        module_eval %Q{
+          def #{hook_name} ( *a, &b )
+            #{method}(*a, &b)
+          end
+        }
+      end
+    end
+
+  end # module ClassMethods
+
+end # module Hooker
+

data/lib/objective_command/all.rb

@@ -0,0 +1,32 @@
+module ObjectiveCommand
+  module Helpers
+  end
+  module All
+  end
+end
+unless embedded_test_mode?
+$: << File.dirname(File.dirname(__FILE__))
+require 'objective_command'
+require 'hookable'
+require 'hooker'
+require 'objective_command/runners/runner'
+require 'objective_command/runners/exec'
+require 'objective_command/runners/fork'
+require 'objective_command/runners/system'
+require 'objective_command/runners/popen'
+require 'objective_command/runners/mockable'
+require 'objective_command/runners/no_run'
+require 'objective_command/runners'
+require 'objective_command/datas/data'
+require 'objective_command/datas/temp'
+require 'objective_command/datas/factory'
+require 'objective_command/datas/composite'
+require 'objective_command/datas/pipe'
+require 'objective_command/datas'
+require 'objective_command/helpers'
+require 'objective_command/shell'
+require 'objective_command/commands/command'
+require 'objective_command/commands/factory'
+require 'objective_command/commands/pipe'
+require 'objective_command/commands/seq'
+end