pione 0.1.0

data/.gitignore

@@ -0,0 +1,14 @@
+*~
+input
+output*
+result
+html
+log.txt
+doc
+.yardoc
+vendor/bundle
+.bundle
+pkg
+\#*
+nohup.out
+Gemfile.lock

data/Gemfile

@@ -0,0 +1,5 @@
+# -*- ruby -*-
+# -*- encoding: utf-8 -*-
+
+source "https://rubygems.org"
+gemspec

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2012 NaU Data Institute Inc.
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,94 @@
+# PIONE
+
+PIONE(Process-rule for Input/Output Negotiation Enviromenment) is a rule-based
+workflow engine. You can write complex process as simple rules and run it with
+distributing many machines easily.
+
+Currently PIONE is beta version under heavy development.
+
+## Features
+
+* multi-agent rule system
+* forward chain reasoning with multipule domains model as extension of production rule system
+* task distribution according to LINDA
+* data distribution with network file services like Dropbox
+
+## System Requirements
+
+* Ruby 1.9.3 with bundler
+* Linux or Unix-like OSs
+
+## Installation
+
+### from gem
+
+    $ gem install pione
+
+### from github
+
+First, clone the repository from https://github.com/pione/pione.git.
+
+    $ git clone https://github.com/pione/pione.git
+
+And get some libraries.
+
+    $ bundle install --path vender/bundle
+
+Add paths to pione like the flowing:
+
+    $ cd ${PIONE_REP}
+    $ export PATH=$PWD/bin:$PATH
+    $ export RUBYLIB=$PWD/lib
+
+## Usage
+
+### Process PIONE document on client mode
+
+    $ pione-client example/Fib/Fib.pione
+
+### Stand alone mode(client mode without brokers)
+
+    $ pione-client example/Fib/Fib.pione --stand-alone
+
+### Distribution mode
+
+Start brokers on machines.
+
+    $ pione-broker
+
+Request process manager to process the rule document.
+
+    $ pione-client example/Fib/Fib.pione
+
+### Help
+
+    $ pione-client --help
+
+## Contributing
+
+1. Fork it
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create new Pull Request
+
+## Licence
+
+PIONE is free software distributed under MIT licence. Except the above, the
+following files are distributed under same as Ruby's(Ruby license or BSD)
+because these are patches including original codes:
+
+* lib/pione/patch/drb-patch.rb
+* lib/pione/patch/monitor-patch.rb
+* lib/pione/patch/rinda-patch.rb
+
+## Links
+
+* [PIONE project homepage](http://pione.github.com/)
+    * [repository on github](https://github.com/pione/pione)
+* [Yasunaga Laboratory](http://www.yasunaga-lab.bio.kyutech.ac.jp/)
+    * [EOS](http://www.yasunaga-lab.bio.kyutech.ac.jp/Eos/)([ja](http://www.yasunaga-lab.bio.kyutech.ac.jp/EosJ/))
+* [Japan Science and Technology Agency](http://www.jst.go.jp/EN/index.html)([ja](http://www.jst.go.jp/))
+     * [Develoment of Systems and Technology and for Advanced Measurement and Analysis](http://www.jst.go.jp/sentan/en/)([ja](http://www.jst.go.jp/sentan/))
+* [NaU Data Institute Inc.](http://www.nau.co.jp/index_en.html)([ja](http://www.nau.co.jp/))
+

data/Rakefile

@@ -0,0 +1,118 @@
+require "bundler/gem_tasks"
+
+$stand_alone = "bin/pione-client --stand-aline"
+
+desc 'generate HTML API documentation'
+task :html do
+  sh "yard doc -o html --hide-void-return --no-api --private"
+end
+
+desc 'Show undocumented function list'
+task 'html:undoc' do
+  sh 'yard stats --list-undoc --no-api --private'
+end
+
+desc 'count characters in input direcotry'
+task 'example:CountChar' do
+  sh "ruby -I lib %s -i %s %s" % [
+    $stand_alone,
+    "example/CountChar/text",
+    "example/CountChar/CountChar.pione"
+  ]
+end
+
+desc 'count characters in input direcotry with debug mode'
+task 'example:CountChar:debug_mode' do
+  sh "ruby -I lib %s -i %s -d %s" % [
+    $stand_alone,
+    "example/CountChar/text",
+    "example/CountChar/CountChar.pione"
+  ]
+end
+
+desc 'count characters by stream'
+task 'example:CountCharStream' do
+  sh "ruby -I lib %s -s %s" % [
+    $stand_alone,
+    "example/CountChar/CountCharStream.pione"
+  ]
+end
+
+desc 'count characters by stream with debug mode'
+task 'example:CountCharStream:debug_mode' do
+  sh "ruby -I lib %s -s -d %s" % [
+    $stand_alone,
+    "example/CountChar/CountCharStream.pione"
+  ]
+end
+
+desc 'sum numbers in file'
+task 'example:Sum' do
+  sh "ruby -I lib %s -i %s %s" % [
+    $stand_alone,
+    "example/Sum/input",
+    "example/Sum/Sum.pione"
+  ]
+end
+
+desc 'sum numbers in file with debug mode'
+task 'example:Sum:debug_mode' do
+  sh "ruby -I lib %s -i %s -d %s" % [
+    $stand_alone,
+    "example/Sum/input",
+    "example/Sum/Sum.pione"
+  ]
+end
+
+desc 'fib calc'
+task 'example:Fib' do
+  sh "ruby -I lib %s %s" % [
+    $stand_alone,
+    "example/Fib/Fib.pione",
+  ]
+end
+
+desc 'fib calc with debug mode'
+task 'example:Fib:debug' do
+  sh "ruby -I lib %s -d %s" % [
+    $stand_alone,
+    "example/Fib/Fib.pione"
+  ]
+end
+
+desc 'parser test'
+task 'test:parser' do
+  sh "bacon -I lib -I test test/parser/spec_*.rb"
+end
+
+desc 'transformer test'
+task 'test:transformer' do
+  sh "bacon -I lib -I test test/transformer/spec_*.rb"
+end
+
+desc 'model test'
+task 'test:model' do
+  sh "bacon -I lib -I test test/model/spec_*.rb"
+end
+
+desc 'agent test'
+task 'test:agent' do
+  sh "bacon -I lib -I test test/agent/spec_*.rb"
+end
+
+desc 'rule-handler test'
+task 'test:rule-handler' do
+  sh "bacon -I lib -I test test/rule-handler/spec_*.rb"
+end
+
+desc 'other test'
+task 'test:other' do
+  sh "bacon -I lib -I test test/spec_*.rb"
+end
+
+desc 'clean'
+task 'clean' do
+  sh "rm -rf input/*"
+  sh "rm -rf output/*"
+  sh "rm -rf log.txt"
+end

data/bin/pione-broker

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+# -*- ruby -*-
+
+require 'pione'
+Pione::Command::PioneBroker.run

data/bin/pione-clean

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+# -*- ruby -*-
+
+require 'pione'
+Pione::Command::PioneClean.run

data/bin/pione-client

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+# -*- ruby -*-
+
+require 'pione'
+Pione::Command::PioneClient.run

data/bin/pione-eval

@@ -0,0 +1,111 @@
+#!/usr/bin/env ruby
+# -*- ruby -*-
+
+require 'optparse'
+require 'pione'
+require 'pp'
+
+include Pione
+
+#
+# options
+#
+$readline_mode = true
+$verbose = false
+$expr = []
+option_parser = OptionParser.new do |opt|
+  opt.on('-e', '--expr=expr') {|e| $expr << e; $readline_mode = false }
+  opt.on('-v', '--verbose') { $verbose = true }
+  opt.on('--version') { puts "Pione version: %s" % [Pione.version]; exit }
+end
+
+begin
+  option_parser.parse!(ARGV)
+rescue OptionParser::InvalidOption => e
+  e.args.each {|arg| $stderr.puts "Unknown option: #{arg}" }
+  abort
+end
+
+#
+# print parsing result of the string
+#
+def print_result(str)
+  begin
+    puts DocumentTransformer.new.apply(DocumentParser.new.parse(str))[0].eval($vtable).textize
+  rescue Pione::Parser::ParserError, Parslet::UnconsumedInput, Parslet::ParseFailed => e
+    error("Pione syntax error", e)
+  rescue Pione::Model::PioneModelTypeError,
+    Pione::Model::VariableBindingError => e
+    error("Pione model error", e)
+  rescue Pione::Model::MethodNotFound, NoMethodError => e
+    error("Pione method error", e)
+  end
+end
+
+def error(msg, e)
+  msg = "%s: %s (%s)" % [msg, e.message, e.class.name]
+  msg << "\n" << e.backtrace.join("\n") if $verbose
+  $readline_mode ? puts(msg) : abort(msg)
+end
+
+#
+# variable table
+#
+$vtable = VariableTable.new
+
+#
+# History
+#
+$history = File.join(ENV["HOME"], ".pione", "pione-history")
+# make pione directory if it is absent
+unless Dir.exist?(File.join(ENV["HOME"], ".pione"))
+  Dir.mkdir(File.join(ENV["HOME"], ".pione"))
+end
+
+#
+# Ctr+C
+#
+trap("INT") do
+  # save history
+  i = 0
+  File.open($history, "w+") do |file|
+    Readline::HISTORY.to_a.reverse.each do |line|
+      break if i >= 100
+      file.puts(line) if /\S/.match(line)
+    end
+  end
+  # quit
+  exit
+end
+
+#
+# readline loop
+#
+if $readline_mode
+  require 'readline'
+
+  # restore history
+  if File.exist?($history)
+    File.readlines($history).reverse.each do |line|
+      Readline::HISTORY.push line.chomp
+    end
+  end
+
+  # start loop
+  while buf = Readline.readline(Terminal.red("> "), true)
+    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
+      # print parsing result
+      print_result(buf)
+    else
+      # don't record if it is an empty line
+      Readline::HISTORY.pop
+    end
+  end
+else
+  # print parsing result
+  $expr.each {|e| print_result(e) }
+end

data/bin/pione-relay

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+# -*- ruby -*-
+
+require 'pione'
+Pione::Command::PioneRelay.run

data/bin/pione-relay-account-db

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+# -*- ruby -*-
+
+require 'pione'
+Pione::Command::PioneRelayAccountDB.run

data/bin/pione-relay-client-db

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+# -*- ruby -*-
+
+require 'pione'
+Pione::Command::PioneRelayClientDB.run

data/bin/pione-search-log

@@ -0,0 +1,30 @@
+#!/usr/bin/env ruby
+# -*- ruby -*-
+
+require 'pione/common'
+require 'optparse'
+require 'json'
+
+option = OptionParser.new
+option.on('-a') {|val| $application = val}
+option.on('-c') {|val| $component = val}
+option.on('-k') {|val| $key = val}
+option.on('-v') {|val| $value = val}
+
+argv = option.parse(ARGV)
+
+lines = ARGF.read.split("\n")
+lines.each do |line|
+  pos_left_qparen = line.index("[")
+  pos_right_qparen = line.index("]")
+  pos_start_resource = line.index(/\S/, pos_right_qparen+1)
+  pos_end_resource = line.index(":", pos_start_resource)
+  id = line[0..(pos_left_qparen-1)]
+  time = line[(pos_left_qparen+1)..(pos_right_qparen-1)]
+  resource = line[pos_start_resource..pos_end_resource]
+  value = JSON.parse("[" + line[(pos_end_resource+1)..-1] + "]")
+  puts id
+  puts time
+  puts resource
+  puts value
+end

data/bin/pione-syntax-checker

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+# -*- ruby -*-
+
+require 'pione'
+Pione::Command::PioneSyntaxChecker.run