pione 0.3.2 → 0.4.0

data/misc/pione-completion.zsh

@@ -0,0 +1,238 @@
+if type compdef 1>/dev/null 2>&1;
+then
+
+  #
+  # `pione` command
+  #
+
+  # set completion function
+  compdef _pione pione
+
+  _pione() {
+    # setup subcommans list
+    local name2="${words[2]}"
+    local name3="${words[3]}"
+
+    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() {
+     list=(action:"execute an action in literate action document" clean:"Remove PIONE's temporary files, cache, and etc" compile:"translate from PNML to PIONE document" config:"Configure PIONE global variables" diagnosis:"PIONE diagnosis tools" lang:"PIONE language utilities" log:"Log utilities" package:"PIONE package utility") _describe -t common-commands 'common commands' list;
+  }
+
+  _pione_action_subcommands() {
+     list=(exec:"Execute an action rule in literate action document" list:"List action names in document" print:"Print action contents") _describe -t common-commands 'common commands' list;
+  }
+
+  _pione_action_exec_options() {
+    _arguments -s -S "--color[Turn on/off color mode]" "--debug[Turn on debug mode about the type]" "--directory PATH[execute in the PATH]" "--domain-dump[Load the domain dump file]" '*:file:_files' && return 0;
+  }
+
+  _pione_action_list_options() {
+    _arguments -s -S "--color[Turn on/off color mode]" "--compact[one-line list]" '*:file:_files' && return 0;
+  }
+
+  _pione_action_print_options() {
+    _arguments -s -S "--color[Turn on/off color mode]" "--debug[Turn on debug mode about the type]" "--domain-dump[Import the domain dump file]" '*:file:_files' && return 0;
+  }
+
+  _pione_clean_options() {
+    _arguments -s -S "--debug[Turn on debug mode about the type]" "--older[remove file older than the date]" "--type NAME[remove only files of the type]" '*:file:_files' && return 0;
+  }
+
+  _pione_compile_options() {
+    _arguments -s -S "--debug[Turn on debug mode about the type]" "--editor[Set package editor]" "--flow-name[Set flow name]" "--package-name[Set package name]" "--tag[Set package tag]" '*:file:_files' && return 0;
+  }
+
+  _pione_config_subcommands() {
+     list=(get:"Get a value of PIONE global variable" list:"List PIONE global variables" set:"Set a value of PIONE global variable" unset:"Unset a value of PIONE global variable") _describe -t common-commands 'common commands' list;
+  }
+
+  _pione_config_get_options() {
+    _arguments -s -S "--debug[Turn on debug mode about the type]" "--file[path of config file]" '*:file:_files' && return 0;
+  }
+
+  _pione_config_list_options() {
+    _arguments -s -S "--debug[Turn on debug mode about the type]" "--file[path of config file]" '*:file:_files' && return 0;
+  }
+
+  _pione_config_set_options() {
+    _arguments -s -S "--debug[Turn on debug mode about the type]" "--file[path of config file]" '*:file:_files' && return 0;
+  }
+
+  _pione_config_unset_options() {
+    _arguments -s -S "--debug[Turn on debug mode about the type]" "--file[path of config file]" '*:file:_files' && return 0;
+  }
+
+  _pione_diagnosis_subcommands() {
+     list=(notification:"Diagnose notification settings") _describe -t common-commands 'common commands' list;
+  }
+
+  _pione_diagnosis_notification_options() {
+    _arguments -s -S "--color[Turn on/off color mode]" "--debug[Turn on debug mode about the type]" "--notification-receiver[Receiver address that notifications are received at]" "--notification-target[Target address that notifications are sent to]" "--timeout[timeout after N second]" "--type[transmitter, receiver, or both]" '*:file:_files' && return 0;
+  }
+
+  _pione_lang_subcommands() {
+     list=(check-syntax:"Interactive environment for PIONE language") _describe -t common-commands 'common commands' list;
+  }
+
+  _pione_lang_check-syntax_options() {
+    _arguments -s -S "--color[Turn on/off color mode]" "--expr[PIONE expression]" "--file[PIONE document that is checked]" "--model[show internal model]" "--parser[Parser name]" "--syntax[show syntax tree]" '*:file:_files' && return 0;
+  }
+
+  _pione_log_subcommands() {
+     list=(format:"Convert PIONE raw log into XES or other formats" list-id:"List log IDs") _describe -t common-commands 'common commands' list;
+  }
+
+  _pione_log_format_options() {
+    _arguments -s -S "--agent-type[Output only the agent type: "task_worker", "input_generator", ...]" "--color[Turn on/off color mode]" "--debug[Turn on debug mode about the type]" "--format[Set format type]" "--log-id[Target log ID]" "--trace-type[Output only the trace type: "agent", "rule", or "task"]" '*:file:_files' && return 0;
+  }
+
+  _pione_log_list-id_options() {
+    _arguments -s -S "--color[Turn on/off color mode]" "--debug[Turn on debug mode about the type]" '*:file:_files' && return 0;
+  }
+
+  _pione_package_subcommands() {
+     list=(add:"Add the package to package database" build:"Build PIONE archive package" show:"Show the package informations" update:"Update the package to package database") _describe -t common-commands 'common commands' list;
+  }
+
+  _pione_package_add_options() {
+    _arguments -s -S "--tag[Specify tag name]" '*:file:_files' && return 0;
+  }
+
+  _pione_package_build_options() {
+    _arguments -s -S "--color[Turn on/off color mode]" "--debug[Turn on debug mode about the type]" "--hash-id[Specify git hash ID]" "--output[Output file or directory location]" "--tag[Specify tag name]" '*:file:_files' && return 0;
+  }
+
+  _pione_package_show_options() {
+    _arguments -s -S "--advanced[show advanced parameters]" "--color[Turn on/off color mode]" "--debug[Turn on debug mode about the type]" '*:file:_files' && return 0;
+  }
+
+  _pione_package_update_options() {
+    _arguments -s -S "--color[Turn on/off color mode]" "--debug[Turn on debug mode about the type]" "--force[update pacakge info files]" '*:file:_files' && return 0;
+  }
+
+  #
+  # `pione-client` command
+  #
+
+  # set completion function
+  compdef _pione-client pione-client
+
+  _pione-client() {
+    # set option list
+    _pione-client_options
+  }
+
+  _pione-client_options() {
+    _arguments -s -S "--color[Turn on/off color mode]" "--communication-address[Set the IP address for interprocess communication]" "--debug[Turn on debug mode about the type]" "--dry-run[Turn on dry run mode]" "--features[Set features]" "--file-cache-method[use NAME as a file cache method]" "--file-sliding[Enable/disable to slide files in file server]" "--input[Set input directory]" "--notification-receiver[Receiver address that notifications are received at]" "--notification-target[Target address that notifications are sent to]" "--output[Set output directory]" "--params="{Var:1,...}"[Set user parameters]" "--parent-front[set parent front URI]" "--rehearse[rehearse the scenario]" "--request-task-worker[Set request number of task workers]" "--stand-alone[Turn on stand alone mode]" "--stream[Turn on/off stream mode]" "--task-worker-size[Set task worker size that this process creates]" "--timeout[timeout processing after SEC]" '*:file:_files' && return 0;
+  }
+
+  #
+  # `pione-task-worker` command
+  #
+
+  # set completion function
+  compdef _pione-task-worker pione-task-worker
+
+  _pione-task-worker() {
+    # set option list
+    _pione-task-worker_options
+  }
+
+  _pione-task-worker_options() {
+    _arguments -s -S "--color[Turn on/off color mode]" "--communication-address[Set the IP address for interprocess communication]" "--debug[Turn on debug mode about the type]" "--features[Set features]" "--file-cache-method[use NAME as a file cache method]" "--file-sliding[Enable/disable to slide files in file server]" "--parent-front[set parent front URI]" "--tuple-space-id[Tuple space ID that the worker joins]" '*:file:_files' && return 0;
+  }
+
+  #
+  # `pione-task-worker-broker` command
+  #
+
+  # set completion function
+  compdef _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() {
+    _arguments -s -S "--color[Turn on/off color mode]" "--communication-address[Set the IP address for interprocess communication]" "--debug[Turn on debug mode about the type]" "--features[Set features]" "--file-cache-method[use NAME as a file cache method]" "--file-sliding[Enable/disable to slide files in file server]" "--task-worker-size[Set task worker size that this process creates]" '*:file:_files' && return 0;
+  }
+
+  #
+  # `pione-tuple-space-provider` command
+  #
+
+  # set completion function
+  compdef _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() {
+    _arguments -s -S "--color[Turn on/off color mode]" "--communication-address[Set the IP address for interprocess communication]" "--debug[Turn on debug mode about the type]" "--notification-target[Target address that notifications are sent to]" "--parent-front[set parent front URI]" '*:file:_files' && return 0;
+  }
+
+  #
+  # `pione-notification-listener` command
+  #
+
+  # set completion function
+  compdef _pione-notification-listener pione-notification-listener
+
+  _pione-notification-listener() {
+    # set option list
+    _pione-notification-listener_options
+  }
+
+  _pione-notification-listener_options() {
+    _arguments -s -S "--color[Turn on/off color mode]" "--communication-address[Set the IP address for interprocess communication]" "--debug[Turn on debug mode about the type]" "--notification-receiver[Receiver address that notifications are received at]" '*:file:_files' && return 0;
+  }
+
+fi

data/misc/pione.god

@@ -0,0 +1,22 @@
+# -*- ruby -*-
+
+DIR = File.join(File.dirname(__FILE__), "..")
+
+# Watch `pione-task-worker-broker` command.
+God.watch do |w|
+  w.name = "pione-notification-listener"
+  w.start = "bundle exec pione-notification-listener"
+  w.log = File.join(DIR, "god-notification-listener.log")
+  w.dir = DIR
+  w.keepalive
+end
+
+# Watch `pione-task-worker-broker` command.
+God.watch do |w|
+  w.name = "pione-task-worker-broker"
+  w.start = "bundle exec pione-task-worker-broker"
+  w.log = File.join(DIR, "god-task-worker-broker.log")
+  w.dir = DIR
+  w.keepalive
+end
+

data/misc/ui.xml

@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<pione:interactive type="Browser" xmlns:pione="https://github.com/pione/pione">
+  <pione:content type="text/html">
+    <button id="yes">YES</button>
+    <button id="no">NO</button>
+  </pione:content>
+  <pione:script type="text/javascript">
+    var sendEvent = function (res) {
+      event = document.createEvent("HTMLEvents");
+      event.initEvent("pione-interactive-result", true, false);
+      event.result = res;
+      document.dispatchEvent(event);
+    };
+
+    document.getElementById("yes").addEventListener("click", function () {
+      sendEvent("yes");
+    });
+
+    document.getElementById("no").addEventListener("click", function () {
+      sendEvent("no");
+    });
+  </pione:script>
+</pione:interactive>

data/pione.gemspec

@@ -53,9 +53,11 @@ Gem::Specification.new do |gem|
   gem.add_runtime_dependency "lettercase", "~> 0.0.3"
   gem.add_runtime_dependency "rubyzip", "~> 1.0.0"
   gem.add_runtime_dependency "kramdown", "~> 1.2.0"
+  gem.add_runtime_dependency "os", "~> 0.9.6"
+  gem.add_runtime_dependency "sys-proctable", "~> 0.9.3"
 
   # for locations
-  gem.add_runtime_dependency "dropbox-sdk", "~> 1.5.1"
+  gem.add_runtime_dependency "dropbox-sdk", "~> 1.6.2"
   gem.add_runtime_dependency "em-ftpd", "~> 0.0.1"
 
   # test framework

data/test/agent/spec_basic-agent.rb

@@ -115,7 +115,7 @@ class TestExceptionTransition < Agent::BasicAgent
   end
 end
 
-describe 'Pione::Agent::BasicAgent' do
+describe Pione::Agent::BasicAgent do
   describe 'agent type' do
     it 'should get the agent type' do
       TestAgentType.agent_type.should == :test_agent_type

data/test/agent/spec_input-generator.rb

@@ -60,7 +60,7 @@ describe "Pione::Agent::InputGenerator" do
         (dir + "3.c").create("33")
 
         # make generator and wait to finish it's job
-        generator = Agent[:input_generator].start(tuple_space_server, :dir, dir, true)
+        generator = Agent[:input_generator].start(@tuple_space, :dir, dir, true)
         generator.should.stream
         generator.terminate
       end
@@ -78,7 +78,7 @@ describe "Pione::Agent::InputGenerator" do
         (dir + "3.c").create("33")
 
         # make generator and wait to finish it's job
-        generator = Agent[:input_generator].start(tuple_space_server, :dir, dir, true)
+        generator = Agent[:input_generator].start(@tuple_space, :dir, dir, true)
         generator.wait_until_before(:sleep)
 
         # check exceptions

data/test/agent/spec_messenger.rb

@@ -1,14 +1,11 @@
 require 'pione/test-helper'
 
-describe "Pione::Agent::Messenger" do
+describe Pione::Agent::Messenger do
   before do
-    tuple_space_server = TestHelper::TupleSpace.create(self)
-    @messenger = Agent::Messenger.new(tuple_space_server)
-    class << @messenger
-      attr_accessor :msgs
-      define_method(:puts) {|msg| @msgs << msg}
-    end
-    @messenger.msgs = []
+    @io = StringIO.new("", "w+")
+    tuple_space = TestHelper::TupleSpace.create(self)
+    receiver = Log::CUIMessageLogReceiver.new(@io)
+    @messenger = Agent::Messenger.new(tuple_space, receiver)
   end
 
   after do
@@ -19,7 +16,7 @@ describe "Pione::Agent::Messenger" do
     write(TupleSpace::MessageTuple.new(type: "test", head: "test", color: :green, contents: "test", level: 0))
     @messenger.start
     sleep 1
-    @messenger.msgs.size.should == 1
+    @io.string.lines.to_a.compact.size.should == 1
   end
 end
 

data/test/agent/spec_notification-listener.rb

@@ -0,0 +1,80 @@
+require 'pione/test-helper'
+
+TestHelper.scope do |this|
+  class this::TestSender
+    def initialize(uri)
+      @targets = Global.notification_targets
+      @notification = Notification::Message.new(
+        "TEST_SENDER", "TEST", {"front" => uri}
+      )
+    end
+
+    def send
+      Notification::Transmitter.transmit(@notification, @targets)
+    end
+  end
+
+  class this::TestRecipient
+    include Front::NotificationRecipientInterface
+    def initialize
+      set_recipient()
+    end
+  end
+
+  describe Pione::Agent::NotificationListener do
+    before do
+      @tuple_space = TestHelper::TupleSpace.create(self)
+      Global.expressional_features = Util.parse_features("*")
+
+      # broker
+      @broker_model = Model::TaskWorkerBrokerModel.new
+      @broker_model[:spawn_task_worker] = false
+      @broker_model[:task_worker_size] = 5
+      @broker = Agent::TaskWorkerBroker.start(@broker_model)
+
+      # provider
+      @provider_cmd = Command::PioneTupleSpaceProvider.new([])
+
+      @model = Model::NotificationListenerModel.new
+      @model.add_recipient("druby://localhost:0") # fake URI
+      @listener = Agent::NotificationListener.new(@model, URI.parse("pnu://127.0.0.1:%s" % 12345))
+    end
+
+    after do
+      @broker.terminate
+      @tuple_space.terminate
+      Global.expressional_features = nil
+    end
+
+    it "should run and terminate listener" do
+      @listener.start
+      @listener.wait_until(:receive)
+      @listener.terminate
+      @listener.wait_until_terminated
+      @listener.should.terminated
+    end
+
+    # it "should receive messages" do
+    #   @provider_cmd.run
+    #   provider = Agent::TupleSpaceProvider.start(@provider_cmd.model[:front].uri)
+    #   @listener.start
+
+    #   # wait receiver to handle notification
+    #   @listener.wait_until_after(:receive, 10)
+    #   @listener.notification_handlers.list.each {|thread| thread.join}
+
+    #   # test tuple spaces
+    #   spaces = listener.tuple_spaces
+    #   spaces.size.should == 1
+    #   spaces.first.should == @tuple_space
+
+    #   # terminate agents
+    #   provider.terminate
+    #   @listener.terminate
+    #   provider.wait_until_terminated
+    #   @listener.wait_until_terminated
+    #   provider.should.terminated
+    #   @listener.should.terminated
+    # end
+  end
+end

data/test/agent/{spec_broker.rb → spec_task-worker-broker.rb}

@@ -1,6 +1,6 @@
 require 'pione/test-helper'
 
-describe "Pione::Agent::Broker" do
+describe Pione::Agent::TaskWorkerBroker do
   before do
     # setup language environment
     @env = TestHelper::Lang.env
@@ -11,9 +11,12 @@ describe "Pione::Agent::Broker" do
     @space3 = TupleSpaceServer.new({task_worker_resource: 3}, false)
     [@space1, @space2, @space3].each {|space| space.write(TupleSpace::EnvTuple.new(obj: @env))}
 
-    # setup broker
+    # setup task worker broker
     Global.expressional_features = Util.parse_features("*")
-    @broker = Agent::Broker.new(spawn_task_worker: false, task_worker_resource: 5)
+    @model = Model::TaskWorkerBrokerModel.new
+    @model[:spawn_task_worker] = false
+    @model[:task_worker_size] = 5
+    @broker = Agent::TaskWorkerBroker.new(@model)
   end
 
   after do
@@ -23,27 +26,27 @@ describe "Pione::Agent::Broker" do
 
   it "should run workers" do
     @broker.start
-    @broker.quantity.should == 0
+    @model.quantity.should == 0
 
     # with space1
-    @broker.add_tuple_space @space1
+    @model.add_tuple_space @space1
     @broker.wait_until_before(:sleep)
-    @broker.quantity.should == 5
+    @model.quantity.should == 5
     sleep 0.1 # wait workers to join the space
     @space1.current_task_worker_size.should == 5
 
     # with space1 and space2
-    @broker.add_tuple_space @space2
+    @model.add_tuple_space @space2
     @broker.wait_until_before(:sleep)
-    @broker.quantity.should == 5
+    @model.quantity.should == 5
     sleep 0.1 # wait workers to join the space
     @space1.current_task_worker_size.should == 2
     @space2.current_task_worker_size.should == 3
 
     # with space1, space2, and space3
-    @broker.add_tuple_space @space3
+    @model.add_tuple_space @space3
     @broker.wait_until_before(:sleep)
-    @broker.quantity.should == 5
+    @model.quantity.should == 5
     sleep 0.1 # wait workers to join the space
     @space1.current_task_worker_size.should == 1
     @space2.current_task_worker_size.should == 2