RubyGems - pione - Versions diffs - 0.3.2 → 0.4.0 - Mend

pione 0.3.2 → 0.4.0

Files changed (304) hide show

data/.gitignore +2 -0
data/.s3cfg +42 -0
data/.travis.yml +18 -4
data/.yardopts +1 -0
data/Gemfile +3 -0
data/History.txt +14 -0
data/Procfile +7 -0
data/Rakefile +25 -0
data/bin/pione-interactive +6 -0
data/bin/{pione-compiler → pione-notification-listener} +1 -1
data/bin/{pione-broker → pione-task-worker-broker} +1 -1
data/doc/man/pione-list-param.md +36 -0
data/example/ActionError/ActionError.pione +9 -0
data/example/ActionError/pione-package.json +15 -0
data/example/CountChar/CountChar.pione +1 -1
data/example/ScoreAggregation/ScoreAggregation.pione +1 -1
data/example/Touch/pione-package.json +15 -0
data/lib/pione.rb +12 -0
data/lib/pione/agent.rb +3 -3
data/lib/pione/agent/basic-agent.rb +10 -4
data/lib/pione/agent/input-generator.rb +3 -3
data/lib/pione/agent/{process-manager.rb → job-manager.rb} +10 -7
data/lib/pione/agent/job-terminator.rb +2 -2
data/lib/pione/agent/logger.rb +3 -3
data/lib/pione/agent/messenger.rb +20 -9
data/lib/pione/agent/notification-listener.rb +88 -0
data/lib/pione/agent/task-worker-broker.rb +84 -0
data/lib/pione/agent/task-worker.rb +3 -2
data/lib/pione/agent/tuple-space-client.rb +1 -0
data/lib/pione/agent/tuple-space-provider.rb +17 -35
data/lib/pione/command.rb +33 -15
data/lib/pione/command/action.rb +105 -0
data/lib/pione/command/basic-command.rb +34 -376
data/lib/pione/command/command-exception.rb +12 -11
data/lib/pione/command/common.rb +198 -0
data/lib/pione/command/option.rb +159 -204
data/lib/pione/command/pione-action-exec.rb +85 -0
data/lib/pione/command/pione-action-list.rb +43 -19
data/lib/pione/command/pione-action-print.rb +79 -0
data/lib/pione/command/pione-action.rb +8 -67
data/lib/pione/command/pione-clean.rb +88 -68
data/lib/pione/command/pione-client.rb +475 -332
data/lib/pione/command/pione-command.rb +14 -31
data/lib/pione/command/pione-compile.rb +90 -0
data/lib/pione/command/pione-config-get.rb +53 -0
data/lib/pione/command/pione-config-list.rb +64 -0
data/lib/pione/command/pione-config-set.rb +59 -0
data/lib/pione/command/pione-config-unset.rb +50 -0
data/lib/pione/command/pione-config.rb +61 -0
data/lib/pione/command/pione-diagnosis-notification.rb +235 -0
data/lib/pione/command/pione-diagnosis.rb +21 -0
data/lib/pione/command/pione-interactive.rb +188 -0
data/lib/pione/command/pione-lang-check-syntax.rb +163 -0
data/lib/pione/command/pione-lang-interactive.rb +146 -0
data/lib/pione/command/pione-lang.rb +22 -0
data/lib/pione/command/pione-log-format.rb +163 -0
data/lib/pione/command/pione-log-list-id.rb +48 -0
data/lib/pione/command/pione-log.rb +19 -101
data/lib/pione/command/pione-notification-listener.rb +95 -0
data/lib/pione/command/pione-package-add.rb +137 -0
data/lib/pione/command/pione-package-build.rb +122 -0
data/lib/pione/command/pione-package-show.rb +96 -0
data/lib/pione/command/pione-package-update.rb +59 -0
data/lib/pione/command/pione-package.rb +11 -139
data/lib/pione/command/pione-task-worker-broker.rb +88 -0
data/lib/pione/command/pione-task-worker.rb +148 -98
data/lib/pione/command/pione-tuple-space-provider.rb +62 -54
data/lib/pione/command/pione-tuple-space-viewer.rb +105 -83
data/lib/pione/command/pione-val.rb +39 -39
data/lib/pione/command/spawner.rb +34 -27
data/lib/pione/front.rb +4 -2
data/lib/pione/front/basic-front.rb +86 -23
data/lib/pione/front/client-front.rb +2 -2
data/lib/pione/front/diagnosis-notification-front.rb +40 -0
data/lib/pione/front/front-exception.rb +7 -1
data/lib/pione/front/notification-listener-front.rb +36 -0
data/lib/pione/front/notification-recipient-interface.rb +19 -0
data/lib/pione/front/relay-front.rb +4 -4
data/lib/pione/front/task-worker-broker-front.rb +19 -0
data/lib/pione/front/task-worker-front.rb +2 -2
data/lib/pione/front/tuple-space-provider-front.rb +3 -2
data/lib/pione/global.rb +3 -1
data/lib/pione/global/client-variable.rb +1 -1
data/lib/pione/global/config.rb +63 -7
data/lib/pione/global/diagnosis-variable.rb +26 -0
data/lib/pione/global/item.rb +28 -5
data/lib/pione/global/log-variable.rb +6 -5
data/lib/pione/global/network-variable.rb +75 -4
data/lib/pione/global/path-variable.rb +1 -1
data/lib/pione/global/system-variable.rb +12 -12
data/lib/pione/global/task-worker-broker-variable.rb +43 -0
data/lib/pione/global/tuple-space-notifier-variable.rb +3 -55
data/lib/pione/lang/boolean.rb +4 -0
data/lib/pione/lang/data-expr.rb +1 -1
data/lib/pione/lang/integer.rb +1 -1
data/lib/pione/lang/string.rb +4 -0
data/lib/pione/lang/type.rb +1 -1
data/lib/pione/location.rb +1 -0
data/lib/pione/location/data-location.rb +41 -13
data/lib/pione/location/dropbox-location.rb +175 -56
data/lib/pione/location/ftp-location.rb +4 -1
data/lib/pione/location/http-location.rb +5 -3
data/lib/pione/location/https-location.rb +4 -2
data/lib/pione/location/local-location.rb +6 -3
data/lib/pione/location/location-exception.rb +12 -0
data/lib/pione/location/notification-scheme.rb +46 -0
data/lib/pione/log.rb +8 -7
data/lib/pione/log/debug.rb +9 -9
data/lib/pione/log/domain-log.rb +6 -1
data/lib/pione/log/message-log-receiver.rb +32 -0
data/lib/pione/log/system-log.rb +62 -141
data/lib/pione/model.rb +7 -0
data/lib/pione/model/notification-listener-model.rb +29 -0
data/lib/pione/model/task-worker-broker-model.rb +129 -0
data/lib/pione/notification.rb +13 -0
data/lib/pione/notification/address.rb +104 -0
data/lib/pione/notification/exception.rb +10 -0
data/lib/pione/notification/message.rb +109 -0
data/lib/pione/notification/receiver.rb +90 -0
data/lib/pione/notification/recipient.rb +68 -0
data/lib/pione/notification/task-worker-broker-recipient.rb +85 -0
data/lib/pione/notification/transmitter.rb +84 -0
data/lib/pione/pnml.rb +35 -0
data/lib/pione/pnml/annotation-extractor.rb +47 -0
data/lib/pione/pnml/compiler.rb +176 -0
data/lib/pione/pnml/input-merge-complement.rb +78 -0
data/lib/pione/pnml/input-parallelization-complement.rb +75 -0
data/lib/pione/pnml/input-reduction.rb +80 -0
data/lib/pione/pnml/invalid-arc-elimination.rb +41 -0
data/lib/pione/pnml/io-expansion.rb +88 -0
data/lib/pione/pnml/isolated-element-elimination.rb +32 -0
data/lib/pione/pnml/net-rewriter.rb +44 -0
data/lib/pione/pnml/output-decomposition-complement.rb +77 -0
data/lib/pione/pnml/output-reduction.rb +86 -0
data/lib/pione/pnml/output-synchronization-complement.rb +77 -0
data/lib/pione/pnml/pione-model.rb +417 -0
data/lib/pione/pnml/pnml-exception.rb +23 -0
data/lib/pione/pnml/pnml-model.rb +368 -0
data/lib/pione/pnml/reader.rb +51 -0
data/lib/pione/rule-engine/action-handler.rb +8 -6
data/lib/pione/rule-engine/basic-handler.rb +5 -5
data/lib/pione/rule-engine/engine-exception.rb +7 -6
data/lib/pione/rule-engine/flow-handler.rb +27 -18
data/lib/pione/system.rb +3 -1
data/lib/pione/system/domain-dump.rb +34 -0
data/lib/pione/system/file-cache.rb +92 -13
data/lib/pione/system/init.rb +3 -0
data/lib/pione/system/normalizer.rb +40 -0
data/lib/pione/system/status.rb +5 -5
data/lib/pione/system/system-exception.rb +14 -1
data/lib/pione/task-worker-broker.rb +7 -0
data/lib/pione/task-worker-broker/basic-provider.rb +20 -0
data/lib/pione/task-worker-broker/easy-provider.rb +65 -0
data/lib/pione/test-helper.rb +27 -0
data/lib/pione/test-helper/command-helper.rb +9 -101
data/lib/pione/tuple-space/basic-tuple.rb +1 -1
data/lib/pione/tuple-space/tuple-definition.yml +4 -6
data/lib/pione/tuple-space/tuple-space-interface.rb +3 -45
data/lib/pione/tuple-space/tuple-space-server.rb +45 -0
data/lib/pione/util.rb +1 -2
data/lib/pione/util/boolean-value.rb +62 -0
data/lib/pione/util/completion.rb +111 -0
data/lib/pione/util/evaluatable.rb +13 -27
data/lib/pione/util/package-parameters-list.rb +15 -27
data/lib/pione/util/zip.rb +8 -3
data/lib/pione/version.rb +1 -1
data/lib/rootage.rb +20 -0
data/lib/rootage/action.rb +114 -0
data/lib/rootage/argument.rb +46 -0
data/lib/rootage/command.rb +218 -0
data/lib/rootage/core.rb +532 -0
data/lib/rootage/exception.rb +107 -0
data/lib/rootage/help.rb +148 -0
data/lib/rootage/help.txt.erb +31 -0
data/lib/rootage/log.rb +226 -0
data/lib/rootage/normalizer.rb +184 -0
data/lib/rootage/option.rb +152 -0
data/lib/rootage/scenario-test-result.erb +39 -0
data/lib/rootage/scenario.rb +362 -0
data/lib/rootage/test-helper.rb +115 -0
data/man/pione-list-param.1 +44 -0
data/misc/clock.rb +9 -0
data/misc/machine-info.sh +21 -0
data/misc/pione-completion.bash +238 -0
data/misc/pione-completion.erb +53 -0
data/misc/pione-completion.zsh +238 -0
data/misc/pione.god +22 -0
data/misc/ui.xml +23 -0
data/pione.gemspec +3 -1
data/test/agent/spec_basic-agent.rb +1 -1
data/test/agent/spec_input-generator.rb +2 -2
data/test/agent/spec_messenger.rb +6 -9
data/test/agent/spec_notification-listener.rb +80 -0
data/test/agent/{spec_broker.rb → spec_task-worker-broker.rb} +13 -10
data/test/agent/spec_tuple-space-provider.rb +10 -6
data/test/command/command-behavior.rb +3 -11
data/test/command/data/pione-list-param/AdvancedParameters.pione +12 -0
data/test/command/data/pione-list-param/BasicParameters.pione +12 -0
data/test/command/spec_pione-action-exec.rb +16 -0
data/test/command/spec_pione-action-list.rb +15 -10
data/test/command/spec_pione-action-print.rb +14 -0
data/test/command/spec_pione-action.rb +6 -19
data/test/command/spec_pione-clean.rb +29 -46
data/test/command/spec_pione-client.rb +29 -36
data/test/command/spec_pione-command.rb +6 -6
data/test/command/{spec_pione-compiler.rb → spec_pione-compile.rb} +11 -13
data/test/command/spec_pione-config-get.rb +47 -0
data/test/command/spec_pione-config-list.rb +42 -0
data/test/command/spec_pione-config-set.rb +38 -0
data/test/command/spec_pione-config-unset.rb +44 -0
data/test/command/spec_pione-config.rb +11 -0
data/test/command/spec_pione-diagnosis-notification.rb +23 -0
data/test/command/spec_pione-diagnosis.rb +11 -0
data/test/command/spec_pione-lang-check-syntax.rb +12 -0
data/test/command/spec_pione-lang.rb +11 -0
data/test/command/spec_pione-log-format.rb +29 -0
data/test/command/spec_pione-log-list-id.rb +17 -0
data/test/command/spec_pione-log.rb +6 -20
data/test/command/spec_pione-package-add.rb +55 -0
data/test/command/spec_pione-package-build.rb +57 -0
data/test/command/spec_pione-package-show.rb +72 -0
data/test/command/{spec_pione-update-package-info.rb → spec_pione-package-update.rb} +12 -13
data/test/command/spec_pione-package.rb +4 -104
data/test/command/spec_pione-val.rb +10 -7
data/test/global/spec_config.rb +50 -0
data/test/global/spec_item.rb +1 -1
data/test/literate-action/data/HelloWorld.md +1 -1
data/test/location/location-behavior.rb +1 -1
data/test/location/spec_dropbox-location.rb +39 -0
data/test/location/spec_notification-scheme.rb +37 -0
data/test/log/spec_debug.rb +5 -4
data/test/log/spec_message-log-receiver.rb +13 -0
data/test/log/spec_message-log.rb +6 -9
data/test/log/spec_system-log.rb +5 -3
data/test/notification/spec_address.rb +229 -0
data/test/notification/spec_message.rb +30 -0
data/test/notification/spec_receiver.rb +36 -0
data/test/notification/spec_transmitter.rb +37 -0
data/test/pnml/data/ConditionalBranchIf.pnml +270 -0
data/test/pnml/data/ConditionalBranchIfElse.pnml +309 -0
data/test/pnml/data/IOExpansionComplex.pnml +363 -0
data/test/pnml/data/IOExpansionSimple.pnml +140 -0
data/test/pnml/data/InputMergeComplementComplex.pnml +381 -0
data/test/pnml/data/InputMergeComplementSimple.pnml +248 -0
data/test/pnml/data/InputParallelizationComplementComplex.pnml +433 -0
data/test/pnml/data/InputParallelizationComplementSimple.pnml +288 -0
data/test/pnml/data/InputReductionComplex.pnml +192 -0
data/test/pnml/data/InputReductionLong.pnml +344 -0
data/test/pnml/data/InputReductionSimple.pnml +140 -0
data/test/pnml/data/IsolatedElementElimination.pnml +171 -0
data/test/pnml/data/OutputDecompositionComplementComplex.pnml +381 -0
data/test/pnml/data/OutputDecompositionComplementSimple.pnml +242 -0
data/test/pnml/data/OutputReductionComplex.pnml +186 -0
data/test/pnml/data/OutputReductionLong.pnml +344 -0
data/test/pnml/data/OutputReductionSimple.pnml +140 -0
data/test/pnml/data/OutputSynchronizationComplementComplex.pnml +498 -0
data/test/pnml/data/OutputSynchronizationComplementSimple.pnml +347 -0
data/test/pnml/data/SampleNet.pnml +238 -0
data/test/pnml/spec_input-merge-complement.rb +40 -0
data/test/pnml/spec_input-parallelization-complement.rb +50 -0
data/test/pnml/spec_input-reduction.rb +113 -0
data/test/pnml/spec_invalid-arc-elimination.rb +33 -0
data/test/pnml/spec_io-expansion.rb +126 -0
data/test/pnml/spec_isolated-element-elimination.rb +25 -0
data/test/pnml/spec_output-decomposition-complement.rb +40 -0
data/test/pnml/spec_output-reduction.rb +114 -0
data/test/pnml/spec_output-synchronization-complement.rb +62 -0
data/test/pnml/spec_pione-element.rb +144 -0
data/test/pnml/spec_pnml-element.rb +373 -0
data/test/pnml/spec_reader.rb +16 -0
data/test/rootage/spec_argument.rb +18 -0
data/test/rootage/spec_command.rb +239 -0
data/test/rootage/spec_core.rb +198 -0
data/test/rootage/spec_scenario.rb +149 -0
data/test/system/{spec_domain-info.rb → spec_domain-dump.rb} +6 -6
data/test/system/spec_file-cache.rb +6 -9
data/test/tuple-space/spec_finished-tuple.rb +1 -1
data/test/util/{spec_package-parameters-list_1.pione → data/package-parameters-list/Param1.pione} +0 -0
data/test/util/{spec_package-parameters-list_2.pione → data/package-parameters-list/Param2.pione} +0 -0
data/test/util/{spec_package-parameters-list_3.pione → data/package-parameters-list/Param3.pione} +0 -0
data/test/util/{spec_package-parameters-list_4.pione → data/package-parameters-list/Param4.pione} +0 -0
data/test/util/spec_boolean-value.rb +32 -0
data/test/util/spec_completion.rb +22 -0
data/test/util/spec_package-parameters-list.rb +39 -52
data/test/util/spec_zip.rb +28 -1
metadata +288 -47
data/bin/pione-tuple-space-receiver +0 -5
data/lib/pione/agent/broker.rb +0 -304
data/lib/pione/agent/tuple-space-receiver.rb +0 -137
data/lib/pione/command/pione-broker.rb +0 -104
data/lib/pione/command/pione-compiler.rb +0 -57
data/lib/pione/command/pione-relay-account-db.rb +0 -141
data/lib/pione/command/pione-relay-client-db.rb +0 -118
data/lib/pione/command/pione-relay.rb +0 -59
data/lib/pione/command/pione-syntax-checker.rb +0 -214
data/lib/pione/command/pione-tuple-space-receiver.rb +0 -111
data/lib/pione/command/pione-update-package-info.rb +0 -53
data/lib/pione/front/broker-front.rb +0 -22
data/lib/pione/front/tuple-space-receiver-front.rb +0 -11
data/lib/pione/global/broker-variable.rb +0 -33
data/lib/pione/system/domain-info.rb +0 -25
data/lib/pione/util/pnml-compiler.rb +0 -168
data/test/agent/spec_tuple-space-receiver.rb +0 -47
data/test/util/spec_pnml-compiler.rb +0 -32

data/lib/pione/command/pione-diagnosis.rb ADDED Viewed

@@ -0,0 +1,21 @@
+module Pione
+  module Command
+    # `PioneDiagnosis` is a utility set for diagnosis.
+    class PioneDiagnosis < BasicCommand
+      #
+      # informations
+      #
+      define(:name, "diagnosis")
+      define(:desc, "PIONE diagnosis tools")
+      #
+      # requirements
+      #
+      require 'pione/command/pione-diagnosis-notification'
+    end
+    PioneCommand.define_subcommand("diagnosis", PioneDiagnosis)
+  end
+end

data/lib/pione/command/pione-interactive.rb ADDED Viewed

@@ -0,0 +1,188 @@
+module Pione
+  module Command
+    class PioneInteractive < BasicCommand
+      #
+      # libraries
+      #
+      require 'rexml/document'
+      # debug mode only
+      unless ENV["PIONE_JOB_ID"]
+        require 'webrick'
+      end
+      #
+      # informations
+      #
+      define(:toplevel, true)
+      define(:name, "pione-interactive")
+      define(:desc, "interactive action handler")
+      #
+      # arguments
+      #
+      argument(:xml) do |item|
+        item.type    = :location
+        item.desc    = "UI definition file"
+        item.missing = "There are no definition file."
+      end
+      #
+      # options
+      #
+      option(:ui) do |item|
+        item.type = :symbol_downcase
+        item.long = "--ui"
+        item.arg  = "NAME"
+        item.desc = "User interface name"
+      end
+      option_post(:validate_ui) do |item|
+        item.desc = "Validate UI name"
+        item.process do
+          test(model[:ui].nil?)
+          raise Rootage::OptionError.new(cmd, "No UI name")
+        end
+        item.process do
+          test(model[:ui] != :browser)
+          raise Rootage::OptionError.new(cmd, "Unknown UI name: %s" % model[:ui])
+        end
+      end
+      #
+      # command lifecycle: setup phase
+      #
+      phase(:setup) do |seq|
+        seq << :ui_definition
+      end
+      setup(:ui_definition) do |item|
+        item.desc = "Extract informations from UI definition"
+        item.process do
+          fm = REXML::Formatters::Default.new
+          # create a document
+          doc = REXML::Document.new(model[:xml].read)
+          # get the prefix of root element(e.g. "pione")
+          prefix = doc.root.prefix
+          prefix = prefix ? prefix + ":" : ""
+          # get embeded contents
+          content = REXML::XPath.first(doc, "/#{prefix}interactive/#{prefix}content")
+          model[:content] = ""
+          content.elements.each {|e| fm.write(e, model[:content])}
+          # get embeded script
+          script = REXML::XPath.first(doc, "/#{prefix}interactive/#{prefix}script")
+          model[:script] = script.text
+        end
+      end
+      #
+      # command lifecycle: execution phase
+      #
+      phase(:execution) do |seq|
+        if ENV["PIONE_JOB_ID"]
+          seq << :connect_webclient
+        else
+          # debug mode
+          seq << :debug_mode
+          seq << :print_result
+        end
+      end
+      execution(:debug_mode) do |item|
+        item.desc = "Launch a debug server"
+        item.process do
+          begin
+            template = <<HTML
+<!DOCTYPE html>
+<html>
+  <head>
+    <meta charset="utf-8">
+    <title>pione-interactive</title>
+    <script>
+      document.addEventListener("pione-interactive-result", function(event) {
+        var msg = document.getElementById("message");
+        // clear children
+        while (msg.firstChild) {
+          msg.removeChild(msg.firstChild);
+        }
+        // show the result
+        var line1 = document.createElement("p");
+        line1.textContent = "Result: " + event.result;
+        msg.appendChild(line1);
+        // server shutdown
+        var req = new XMLHttpRequest();
+        req.open("POST", "/shutdown", false);
+        req.setRequestHeader("Content-Type", "text/plain");
+        req.send(event.result);
+        var line2 = document.createElement("p");
+        line2.textContent = "Server has shutdowned. See your console, bye.";
+        msg.appendChild(line2);
+      });
+    </script>
+  </head>
+  <body>
+    <div>%s</div>
+    <div id="message"></div>
+    <script>window.onload = function() {%s};</script>
+  </body>
+</html>
+HTML
+            html = template % [model[:content], model[:script]]
+            model[:debug_server] = WEBrick::HTTPServer.new(
+              :Port => 8080, :Logger => WEBrick::Log.new($stderr)
+            )
+            # page handler on '/'
+            model[:debug_server].mount_proc("/") do |req, res|
+              res.body = html
+              res['Content-Type'] = "text/html"
+            end
+            # shutdown handler on '/shutdown'
+            model[:debug_server].mount_proc("/shutdown") do |req, res|
+              model[:result] = req.body
+              model[:debug_server].shutdown
+            end
+            # `Kernel.trap` can take multiple INT handlers
+            trap("INT") { model[:debug_server].shutdown }
+            # show the location
+            $stderr.puts "See http://localhost:8080"
+            # start the debug server
+            model[:debug_server].start
+          ensure
+            if model[:debug_server]
+              model[:debug_server].shutdown
+            end
+          end
+        end
+      end
+      # Print a result string of interactive action to stdout.
+      execution(:print_result) do |item|
+        item.desc = "Print a result string."
+        item.process do
+          $stdout.print model[:result]
+        end
+      end
+    end
+  end
+end

data/lib/pione/command/pione-lang-check-syntax.rb ADDED Viewed

@@ -0,0 +1,163 @@
+module Pione
+  module Command
+    # `PioneLangCheckSyntax` is a command that checks syntax.
+    class PioneLangCheckSyntax < BasicCommand
+      #
+      # informations
+      #
+      define(:name, "interactive")
+      define(:desc, "Interactive environment for PIONE language")
+      #
+      # requirements
+      #
+      require "pp"
+      #
+      # options
+      #
+      option CommonOption.color
+      option(:expr) do |item|
+        item.type  = :string
+        item.short = '-e'
+        item.long  = '--expr'
+        item.arg   = 'EXPR'
+        item.desc  = 'PIONE expression'
+      end
+      option(:syntax) do |item|
+        item.type  = :boolean
+        item.short = '-s'
+        item.long  = '--syntax'
+        item.desc  = 'show syntax tree'
+        item.init  = true
+      end
+      option(:model) do |item|
+        item.type  = :boolean
+        item.short = '-m'
+        item.long  = '--model'
+        item.desc  = 'show internal model'
+        item.init  = false
+      end
+      option(:file) do |item|
+        item.type  = :path
+        item.short = '-f'
+        item.long  = '--file'
+        item.arg   = 'PATH'
+        item.desc  = 'PIONE document that is checked'
+      end
+      option(:parser) do |item|
+        item.type = :symbol
+        item.long = '--parser'
+        item.arg  = 'NAME'
+        item.desc = 'Parser name'
+        item.init = :expr
+      end
+      option_post(:source) do |item|
+        item.process do
+          test(not(model[:file]))
+          test(not(model[:expr]))
+          raise Rootage::OptionError.new(cmd, "Requires --file or --expr.")
+        end
+      end
+      #
+      # command lifecycle: setup phase
+      #
+      phase(:setup) do |seq|
+        seq << :source
+      end
+      setup(:source) do |item|
+        item.desc = "Setup a source string"
+        item.assign(:source) do
+          test(model[:file])
+          Pathname.new(model[:file]).read
+        end
+        item.assign(:source) do
+          test(model[:expr])
+          model[:expr]
+        end
+      end
+      #
+      # command lifecycle: execution phase
+      #
+      phase(:execution) do |seq|
+        seq << :make_syntax_tree
+        seq << :print_syntax_tree
+        seq << :make_internal_model
+        seq << :print_internal_model
+      end
+      execution(:make_syntax_tree) do |item|
+        item.desc = "Make a syntax tree"
+        # parse
+        item.assign(:stree) do
+          Lang::DocumentParser.new.send(model[:parser]).parse(model[:source])
+        end
+        item.exception(Lang::ParserError, Parslet::ParseFailed) do |e|
+          cmd.abort("Pione syntax error: %{reason}" % {reason: e.message})
+        end
+      end
+      execution(:print_syntax_tree) do |item|
+        item.desc = "Print the syntax tree"
+        item.condition {test(model[:syntax])}
+        item.process do
+          puts "syntax:".color(:green)
+          pp model[:stree]
+        end
+      end
+      execution(:make_internal_model) do |item|
+        item.desc = "Make an internal language model"
+        item.condition {test(model[:model])}
+        # make the internal model
+        item.assign(:internal_model) do
+          transformer_option = {}
+          transformer_option[:package_name] = model[:package_name] || "PioneSyntaxChecker"
+          transformer_option[:filename] = model[:filename] || "NoFile"
+          Lang::DocumentTransformer.new.apply(model[:stree], transformer_option)
+        end
+      end
+      execution(:print_internal_model) do |item|
+        item.desc = "Print the internal language model"
+        item.condition {test(model[:model])}
+        # print model
+        item.process do
+          puts "model:".color(:green)
+          pp model[:internal_model]
+        end
+        item.exception(Lang::LangTypeError, Lang::BindingError) do |e|
+          cmd.abort("Pione model error: %{reason}" % {reason: e.message})
+        end
+      end
+    end
+    PioneLang.define_subcommand("check-syntax", PioneLangCheckSyntax)
+  end
+end

data/lib/pione/command/pione-lang-interactive.rb ADDED Viewed

@@ -0,0 +1,146 @@
+module Pione
+  module Command
+    # `PioneLangInteractive` is a command that provides interactive environment
+    # for PIONE language.
+    class PioneLangInteractive < BasicCommand
+      #
+      # informations
+      #
+      define(:name, "interactive")
+      define(:desc, "Interactive environment for PIONE language")
+      #
+      # requirements
+      #
+      require "readline"
+      #
+      # arguments and options
+      #
+      option CommonOption.color
+      #
+      # command lifecycle: setup phase
+      #
+      phase(:setup) do |item|
+        item << :load_history
+      end
+      setup(:load_history) do |item|
+        item.desc = "Load history"
+        item.assign(:history) do
+          File.join(Global.dot_pione_dir, "pione-lang-interactive-history")
+        end
+        item.process do
+          if File.exist?(model[:history])
+            File.readlines(model[:history]).reverse.each do |line|
+              Readline::HISTORY.push line.chomp
+            end
+          end
+        end
+      end
+      #
+      # command lifecycle: execution phase
+      #
+      phase(:execution) do |item|
+        item << :readline
+      end
+      execution(:readline) do |item|
+        item.desc = "Start interactive environment"
+        item.process do
+          start_readline
+        end
+      end
+      #
+      # command lifecycle: termination phase
+      #
+      phase(:termination) do |item|
+        item << :save_history
+      end
+      termination(:save_history) do |item|
+        item.desc = "Save history file"
+        item.process do
+          File.open(model[:history], "w+") do |file|
+            Readline::HISTORY.to_a.reverse[0..100].each do |line|
+              file.puts(line) if /\S/.match(line)
+            end
+          end
+        end
+      end
+    end
+    PioneLang.define_subcommand("interactive" , PioneLangInteractive)
+    class PioneLangInteractiveContext < Rootage::CommandContext
+      def start_readline
+        buf = ""
+        mark = ">"
+        # start loop
+        while line = Readline.readline("#{mark} ".color(:red), true)
+          buf += line
+          if /[^\s]/.match(buf)
+            # don't record if previous line is the same
+            if Readline::HISTORY.size > 1 && Readline::HISTORY[-2] == buf
+              Readline::HISTORY.pop
+            end
+            if buf[-1] == "\\"
+              buf[-1] = "\n"
+              mark = "+"
+              next
+            else
+              # print parsing result
+              print_result(Lang::DocumentParser.new.expr, buf)
+              buf = ""
+              mark = ">"
+            end
+          else
+            # don't record if it is an empty line
+            Readline::HISTORY.pop
+          end
+        end
+      end
+      # Print parsing result of the string.
+      def print_result(parser, str)
+        begin
+          stree = parser.parse(str)
+          transformer_option = {}
+          transformer_option[:package_name] = model[:package_name] || "PioneSyntaxChecker"
+          transformer_option[:filename] = model[:filename] || "NoFile"
+          model = Lang::DocumentTransformer.new.apply(stree, transformer_option)
+          if model.kind_of?(Array)
+            model.each {|m| p m}
+          else
+            p model.eval(Lang::Environment.new)
+          end
+        rescue Lang::ParserError, Parslet::ParseFailed => e
+          msg = "Pione syntax error: %s (%s)" % [e.message, e.class.name]
+          puts(msg)
+        rescue Lang::LangTypeError, Lang::BindingError => e
+          msg = "Pione model error: %s (%s)" % [e.message, e.class.name]
+          puts(msg)
+        rescue Lang::MethodNotFound => e
+          msg = "%s (%s)" % [e.message, e.class.name]
+          puts(msg)
+        end
+      end
+    end
+    PioneLangInteractive.define(:process_context_class, PioneLangInteractiveContext)
+  end
+end