pione 0.3.2 → 0.4.0

data/lib/rootage/test-helper.rb

@@ -0,0 +1,115 @@
+require 'rootage'
+
+Thread.abort_on_exception = true
+
+unless Rootage::Log.get_logger_block
+  logger = Rootage::RubyStandardLogger.new
+  Rootage::Log.set_logger_block {logger}
+end
+
+module Rootage
+  def self.scope(&b)
+    @scope_id = (@scope_id || 0) + 1
+    mod = Module.new
+    const_set("MODULE%s" % @scope_id, mod)
+    mod.send(:define_method, :this) do
+      mod
+    end
+    mod.instance_exec(mod, &b)
+  end
+
+  # `ScenarioResult` is a result of scenario execution. This has result status,
+  # stdout, stdin, and etc, so you can analyze and check it.
+  class ScenarioResult < StructX
+    member :scenario
+    member :model
+    member :args
+    member :stdout
+    member :stderr
+    member :exception
+
+    # Return true if the scenario succeeded.
+    def success?
+      exception.nil? or (exception.kind_of?(SystemExit) and exception.success?)
+    end
+
+    # Print the scenario result report.
+    def report
+      template = File.read(File.join(File.dirname(__FILE__), "scenario-test-result.erb"))
+      File.open("scenario-test-result.txt", "a") do |file|
+        file.write(ERB.new(template, nil, "<>").result(binding))
+      end
+    end
+  end
+
+  # This module helps tests of command execution.
+  module ScenarioTest
+    class << self
+      # Run the action, expecting scenario execution succeeds.
+      def succeed(scenario, args=nil, &block)
+        res = execute(scenario, args, &block)
+        res.report if not(res.success?)
+        res.success?.should.be.true
+        return res
+      end
+
+      # Run the action, expecting scenario execution fails.
+      def fail(scenario, args=nil, &block)
+        res = execute(scenario, args, &block)
+        res.report if res.success?
+        res.should.not.success
+        return res
+      end
+
+      private
+
+      # Run the scenario.
+      def execute(scenario, args=nil, &b)
+        # make result
+        _args = args ? args : scenario.args.clone
+        stdout = StringIO.new("", "w")
+        stderr = StringIO.new("", "w")
+        res = ScenarioResult.new(
+          scenario: scenario, args: _args, stdout: stdout, stderr: stderr
+        )
+
+        # setup stdout and stderr
+        $stdout = stdout
+        $stderr = stderr
+
+        orig_logger_block = Log.get_logger_block
+        null_logger = NullLogger.new
+        Log.set_logger_block {null_logger}
+
+        # run the action
+        begin
+          if block_given?
+            b.call(scenario, args)
+          else
+            if scenario.is_a?(Scenario)
+              scenario.run
+            else
+              scenario.run(args)
+            end
+          end
+        rescue Object => e
+          res.exception = e
+        end
+
+        # revert
+        $stdout = STDOUT
+        $stderr = STDERR
+        Log.set_logger_block(&orig_logger_block)
+
+        # kill childs
+        Sys::ProcTable.ps.select {|ps|
+          if ps.ppid == Process.pid
+            Process.kill(:TERM, ps.pid)
+          end
+        }
+
+        return res
+      end
+    end
+  end
+end

data/man/pione-list-param.1

@@ -0,0 +1,44 @@
+.TH pione\-list\-param 1 "" "PIONE User Manual"
+.SH NAME
+.PP
+pione\-list\-param \- show a list of parameters in the document or
+package.
+.SH SYNOPSIS
+.PP
+\f[B]pione list\-param\f[] [options] location
+.SH DESCRIPTION
+.PP
+\f[B]list\-param\f[] command shows a list of parameters in the document
+or package.
+The list includes basic parameters only by default, set
+\f[C]\-\-advanced\f[] option if you want to show advanced parameters.
+.SH OPTIONS
+.TP
+.B \-a, \-\-advanced
+Show advanced parameters.
+.RS
+.RE
+.SH EXAMPLES
+.TP
+.B pione list\-param example/HelloWorld/HelloWorld.pione
+Show basic parameters in the document
+\f[C]example/HelloWorld/HelloWorld.pione\f[].
+.RS
+.RE
+.TP
+.B pione list\-param example/HelloWorld
+Show basic parameters in the package \f[C]example/HelloWorld\f[].
+.RS
+.RE
+.TP
+.B pione list\-param \-\-advanced example/HelloWorld
+Show basic and advanced parameters in the package
+\f[C]example/HelloWorld\f[].
+.RS
+.RE
+.SH REPORTING BUGS
+.PP
+Report bugs or feature requests to PIONE\[aq]s issue
+tracker(https://github.com/pione/pione/issues).
+.SH AUTHORS
+Keita Yamaguchi.

data/misc/clock.rb

@@ -0,0 +1,9 @@
+require 'clockwork'
+
+module Clockwork
+  handler do |job|
+    `pione clean`
+  end
+
+  every(1.day, "clean", :at => ['00:00', '12:00'])
+end

data/misc/machine-info.sh

@@ -0,0 +1,21 @@
+#!/bin/sh
+
+cat <<EOF
+
+Test Matchine Information
+=========================
+
+EOF
+
+# kernel
+uname -a
+
+# distribution name
+head -n1 /etc/issue
+
+# memory size
+grep MemTotal /proc/meminfo
+
+# cpus
+grep -E "processor|model name|cpu MHz|cache size" /proc/cpuinfo
+echo

data/misc/pione-completion.bash

@@ -0,0 +1,238 @@
+if type complete 1>/dev/null 2>&1;
+then
+
+  #
+  # `pione` command
+  #
+
+  # set completion function
+  complete -F _pione pione
+
+  _pione() {
+    # setup subcommans list
+    local name2="${COMP_WORDS[1]}"
+    local name3="${COMP_WORDS[2]}"
+
+    case $name2 in
+      action)
+        case $name3 in
+          exec) _pione_action_exec_options;;
+          list) _pione_action_list_options;;
+          print) _pione_action_print_options;;
+          *) _pione_action_subcommands;;
+        esac;;
+      clean) _pione_clean_options;;
+      compile) _pione_compile_options;;
+      config)
+        case $name3 in
+          get) _pione_config_get_options;;
+          list) _pione_config_list_options;;
+          set) _pione_config_set_options;;
+          unset) _pione_config_unset_options;;
+          *) _pione_config_subcommands;;
+        esac;;
+      diagnosis)
+        case $name3 in
+          notification) _pione_diagnosis_notification_options;;
+          *) _pione_diagnosis_subcommands;;
+        esac;;
+      lang)
+        case $name3 in
+          check-syntax) _pione_lang_check-syntax_options;;
+          *) _pione_lang_subcommands;;
+        esac;;
+      log)
+        case $name3 in
+          format) _pione_log_format_options;;
+          list-id) _pione_log_list-id_options;;
+          *) _pione_log_subcommands;;
+        esac;;
+      package)
+        case $name3 in
+          add) _pione_package_add_options;;
+          build) _pione_package_build_options;;
+          show) _pione_package_show_options;;
+          update) _pione_package_update_options;;
+          *) _pione_package_subcommands;;
+        esac;;
+      *) _pione_subcommands;;
+    esac
+  }
+
+  _pione_subcommands() {
+     COMPREPLY=($(compgen -W "action clean compile config diagnosis lang log package" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_action_subcommands() {
+     COMPREPLY=($(compgen -W "exec list print" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_action_exec_options() {
+    COMPREPLY=($(compgen -W "--color --debug --directory PATH --domain-dump" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_action_list_options() {
+    COMPREPLY=($(compgen -W "--color --compact" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_action_print_options() {
+    COMPREPLY=($(compgen -W "--color --debug --domain-dump" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_clean_options() {
+    COMPREPLY=($(compgen -W "--debug --older --type NAME" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_compile_options() {
+    COMPREPLY=($(compgen -W "--debug --editor --flow-name --package-name --tag" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_config_subcommands() {
+     COMPREPLY=($(compgen -W "get list set unset" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_config_get_options() {
+    COMPREPLY=($(compgen -W "--debug --file" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_config_list_options() {
+    COMPREPLY=($(compgen -W "--debug --file" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_config_set_options() {
+    COMPREPLY=($(compgen -W "--debug --file" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_config_unset_options() {
+    COMPREPLY=($(compgen -W "--debug --file" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_diagnosis_subcommands() {
+     COMPREPLY=($(compgen -W "notification" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_diagnosis_notification_options() {
+    COMPREPLY=($(compgen -W "--color --debug --notification-receiver --notification-target --timeout --type" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_lang_subcommands() {
+     COMPREPLY=($(compgen -W "check-syntax" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_lang_check-syntax_options() {
+    COMPREPLY=($(compgen -W "--color --expr --file --model --parser --syntax" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_log_subcommands() {
+     COMPREPLY=($(compgen -W "format list-id" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_log_format_options() {
+    COMPREPLY=($(compgen -W "--agent-type --color --debug --format --log-id --trace-type" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_log_list-id_options() {
+    COMPREPLY=($(compgen -W "--color --debug" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_package_subcommands() {
+     COMPREPLY=($(compgen -W "add build show update" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_package_add_options() {
+    COMPREPLY=($(compgen -W "--tag" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_package_build_options() {
+    COMPREPLY=($(compgen -W "--color --debug --hash-id --output --tag" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_package_show_options() {
+    COMPREPLY=($(compgen -W "--advanced --color --debug" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  _pione_package_update_options() {
+    COMPREPLY=($(compgen -W "--color --debug --force" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  #
+  # `pione-client` command
+  #
+
+  # set completion function
+  complete -F _pione-client pione-client
+
+  _pione-client() {
+    # set option list
+    _pione-client_options
+  }
+
+  _pione-client_options() {
+    COMPREPLY=($(compgen -W "--color --communication-address --debug --dry-run --features --file-cache-method --file-sliding --input --notification-receiver --notification-target --output --params="{Var:1,...}" --parent-front --rehearse --request-task-worker --stand-alone --stream --task-worker-size --timeout" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  #
+  # `pione-task-worker` command
+  #
+
+  # set completion function
+  complete -F _pione-task-worker pione-task-worker
+
+  _pione-task-worker() {
+    # set option list
+    _pione-task-worker_options
+  }
+
+  _pione-task-worker_options() {
+    COMPREPLY=($(compgen -W "--color --communication-address --debug --features --file-cache-method --file-sliding --parent-front --tuple-space-id" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  #
+  # `pione-task-worker-broker` command
+  #
+
+  # set completion function
+  complete -F _pione-task-worker-broker pione-task-worker-broker
+
+  _pione-task-worker-broker() {
+    # set option list
+    _pione-task-worker-broker_options
+  }
+
+  _pione-task-worker-broker_options() {
+    COMPREPLY=($(compgen -W "--color --communication-address --debug --features --file-cache-method --file-sliding --task-worker-size" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  #
+  # `pione-tuple-space-provider` command
+  #
+
+  # set completion function
+  complete -F _pione-tuple-space-provider pione-tuple-space-provider
+
+  _pione-tuple-space-provider() {
+    # set option list
+    _pione-tuple-space-provider_options
+  }
+
+  _pione-tuple-space-provider_options() {
+    COMPREPLY=($(compgen -W "--color --communication-address --debug --notification-target --parent-front" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+  #
+  # `pione-notification-listener` command
+  #
+
+  # set completion function
+  complete -F _pione-notification-listener pione-notification-listener
+
+  _pione-notification-listener() {
+    # set option list
+    _pione-notification-listener_options
+  }
+
+  _pione-notification-listener_options() {
+    COMPREPLY=($(compgen -W "--color --communication-address --debug --notification-receiver" -- "${COMP_WORDS[COMP_CWORD]}"));
+  }
+
+fi

data/misc/pione-completion.erb

@@ -0,0 +1,53 @@
+if type <%= completion_command %> 1>/dev/null 2>&1;
+then
+
+<%- toplevel_commands(Pione::Command).each do |key1, cmd1| -%>
+  #
+  # `<%= key1 %>` command
+  #
+
+  # set completion function
+  <%= completion_exec %> _<%= key1 %> <%= key1 %>
+
+  _<%= key1 %>() {
+  <%- if cmd1.subcommand.keys.empty? -%>
+    # set option list
+    _<%= key1 %>_options
+  <%- else -%>
+    # setup subcommans list
+    local name2="<%= name2 %>"
+    local name3="<%= name3 %>"
+
+    case $name2 in
+    <%- cmd1.subcommand.each do |key2, cmd2| -%>
+      <%- if cmd2.subcommand.empty? -%>
+      <%= key2 %>) _<%= key1 %>_<%= key2 %>_options;;
+      <%- else -%>
+      <%= key2 %>)
+        case $name3 in
+        <%- cmd2.subcommand.each do |key3, cmd3| -%>
+          <%= key3 %>) _<%= key1 %>_<%= key2 %>_<%= key3 %>_options;;
+        <%- end -%>
+          *) _<%= key1 %>_<%= key2 %>_subcommands;;
+        esac;;
+      <%- end -%>
+    <%- end -%>
+      *) _<%= key1 %>_subcommands;;
+    esac
+  <%- end -%>
+  }
+
+  <%- descendants([key1], cmd1).each do |keys, cmd| -%>
+  <%- if cmd.subcommand.keys.empty? -%>
+  _<%= keys.join("_") %>_options() {
+    <%= fun_options(cmd) %>
+  }
+  <%- else -%>
+  _<%= keys.join("_") %>_subcommands() {
+     <%= fun_subcommands(cmd) %>
+  }
+  <%- end -%>
+
+  <%- end -%>
+<%- end -%>
+fi