pione 0.1.0

data/lib/pione/tuple/bye-tuple.rb

@@ -0,0 +1,9 @@
+module Pione
+  module Tuple
+    # bye message from agent
+    class ByeTuple < BasicTuple
+      # uuid : uuid of the agent
+      define_format [:bye, :uuid, :agent_type]
+    end
+  end
+end

data/lib/pione/tuple/command-tuple.rb

@@ -0,0 +1,9 @@
+module Pione
+  module Tuple
+    # CommandTuple represents signals for PIONE system.
+    class CommandTuple < BasicTuple
+      #   type : command string, currently "terminate" only
+      define_format [:command, :name, :args]
+    end
+  end
+end

data/lib/pione/tuple/data-tuple.rb

@@ -0,0 +1,18 @@
+module Pione
+  module Tuple
+    # DataTuple is a class for input/output data.
+    class DataTuple < BasicTuple
+      define_format [:data,
+        # target domain
+        [:domain, String],
+        # data name
+        [:name, Type.or(String, Model::DataExpr)],
+        # resource location
+        [:uri, String],
+        # data created time
+        [:time, Time]
+      ]
+    end
+  end
+end
+

data/lib/pione/tuple/dry-run-tuple.rb

@@ -0,0 +1,8 @@
+module Pione
+  module Tuple
+    class DryRunTuple < BasicTuple
+      define_format [:dry_run, :availability]
+    end
+  end
+end
+

data/lib/pione/tuple/exception-tuple.rb

@@ -0,0 +1,11 @@
+module Pione
+  module Tuple
+    class ExceptionTuple < BasicTuple
+      # exception notifier from agents
+      #   uuid  : uuid of the agent who happened the exception
+      #   value : exception object
+      define_format [:exception, :uuid, :agent_type, :value]
+    end
+  end
+end
+

data/lib/pione/tuple/finished-tuple.rb

@@ -0,0 +1,17 @@
+module Pione
+  module Tuple
+    # FinishedTuple represents task finished notifier.
+    class FinishedTuple < BasicTuple
+      define_format [:finished,
+        # task domain
+        [:domain, String],
+        # status of the task processing
+        [:status, Symbol],
+        # outputs
+        [:outputs, Array],
+        # rule handler digest
+        [:digest, String]
+      ]
+    end
+  end
+end

data/lib/pione/tuple/foreground-tuple.rb

@@ -0,0 +1,7 @@
+module Pione
+  module Tuple
+    class ForegroundTuple < BasicTuple
+      define_format [:foreground, :domain, :digest]
+    end
+  end
+end

data/lib/pione/tuple/log-tuple.rb

@@ -0,0 +1,14 @@
+module Pione
+  module Tuple
+    # LogTuple represents log messages.
+    class LogTuple < BasicTuple
+      #   obj : Log's instance
+      define_format [:log, :message]
+
+      def timestamp=(time)
+        @timestamp = time
+        message.timestamp = time
+      end
+    end
+  end
+end

data/lib/pione/tuple/process-info-tuple.rb

@@ -0,0 +1,9 @@
+module Pione
+  module Tuple
+    class PorcessInfoTuple < BasicTuple
+      #   name : process name
+      #   pid  : process id
+      define_format [:process_info, :name, :process_id]
+    end
+  end
+end

data/lib/pione/tuple/request-rule-tuple.rb

@@ -0,0 +1,9 @@
+module Pione
+  module Tuple
+    # RequestRuleTuple represents task worker's request for rule-provider.
+    class RequestRuleTuple < BasicTuple
+    #   rule_path : rule location path
+    define_format [:request_rule, :rule_path]
+    end
+  end
+end

data/lib/pione/tuple/rule-tuple.rb

@@ -0,0 +1,10 @@
+module Pione
+  module Tuple
+    # RuleTuple represents rule content.
+    class RuleTuple < BasicTuple
+      #   rule_path : rule location path
+      #   content   : rule content
+      define_format [:rule, :rule_path, :content, :status]
+    end
+  end
+end

data/lib/pione/tuple/shift-tuple.rb

@@ -0,0 +1,13 @@
+module Pione
+  module Tuple
+    # ShiftTuple represents resource shift information.
+    class ShiftTuple < BasicTuple
+      define_format [:shift,
+        # old uri
+        [:old_uri, String],
+        # new uri
+        [:new_uri, String]
+      ]
+    end
+  end
+end

data/lib/pione/tuple/task-tuple.rb

@@ -0,0 +1,36 @@
+module Pione
+  module Tuple
+    # TaskTuple is a class for rule application job with inputs, outpus and parameters.
+    class TaskTuple < BasicTuple
+      define_format [:task,
+        # rule location path
+        [:rule_path, String],
+        # input data list
+        [:inputs, Array],
+        # parameter list
+        [:params, Model::Parameters],
+        # request features
+        [:features, Model::Feature::Expr],
+        # task domain
+        [:domain, String],
+        # call stack(domain list)
+        [:call_stack, Array]
+      ]
+
+      # Returns the digest string of the task.
+      # @return [String]
+      #   task digest string
+      def digest
+        "%s([%s],{%s})" % [
+          rule_path,
+          inputs.map{|i|
+            i.kind_of?(Array) ? "[%s, ...]" % i[0].name : i.name
+          }.join(","),
+          params.data.select{|k,_|
+            not(k.toplevel?)
+          }.map{|k,v| "%s:%s" % [k.name, v.textize]}.join(",")
+        ]
+      end
+    end
+  end
+end

data/lib/pione/tuple/task-worker-resource-tuple.rb

@@ -0,0 +1,9 @@
+module Pione
+  module Tuple
+    # number of task worker for tuple space server
+    class TaskWorkerResourceTuple < BasicTuple
+      #   number : resource number of task workers.
+      define_format [:task_worker_resource, :number]
+    end
+  end
+end

data/lib/pione/tuple/working-tuple.rb

@@ -0,0 +1,13 @@
+module Pione
+  module Tuple
+    # WorkingTuple represents current working task informations.
+    class WorkingTuple < BasicTuple
+      define_format [:working,
+        # caller domain
+        [:domain, String],
+        # rule handler digest
+        [:digest, String]
+      ]
+    end
+  end
+end

data/lib/pione/uri-scheme/basic-scheme.rb

@@ -0,0 +1,40 @@
+module Pione
+  module URIScheme
+    # BasicScheme is a URI scheme for PIONE.
+    class BasicScheme < ::URI::Generic
+      # Returns true always because classes inheriting BasicScheme are supported
+      # by PIONE system.
+      # @api private
+      def pione?
+        true
+      end
+
+      # Returns true if the scheme acts as storage.
+      # @return [Boolean]
+      #   true if the scheme acts as storage
+      def storage?
+        self.class.instance_variable_get(:@storage)
+      end
+    end
+
+    # Returns a new scheme. Use this method for inheriting BasicScheme if you
+    # create new scheme.
+    # @return [Class]
+    def BasicScheme(name, opts={})
+      klass = Class.new(BasicScheme)
+
+      def klass.inherited(scheme)
+        name = self.instance_variable_get(:@scheme_name)
+        URI.install_scheme(name.upcase, scheme)
+        scheme.instance_variable_set(:@storage, @storage)
+      end
+
+      klass.instance_variable_set(:@scheme_name, name.upcase)
+      storage_flag = opts[:storage] || false
+      klass.instance_variable_set(:@storage, storage_flag)
+
+      return klass
+    end
+    module_function :BasicScheme
+  end
+end

data/lib/pione/uri-scheme/broadcast-scheme.rb

@@ -0,0 +1,11 @@
+module Pione
+  module URIScheme
+    # BroadcastScheme is a scheme for representing broadcast address.
+    # @example
+    #   URI.parse("broadcast://255.255.255.255:560001")
+    class BroadcastScheme < BasicScheme('broadcast')
+      # @api private
+      COMPONENT = [:scheme, :host, :port]
+    end
+  end
+end

data/lib/pione/uri-scheme/dropbox-scheme.rb

@@ -0,0 +1,9 @@
+module Pione
+  module URIScheme
+    # Dropbox is a scheme for dropbox.
+    class DropboxScheme < BasicScheme('dropbox', :storage => true)
+      # @api private
+      COMPONENT = [:scheme, :path]
+    end
+  end
+end

data/lib/pione/uri-scheme/local-scheme.rb

@@ -0,0 +1,28 @@
+module Pione
+  module URIScheme
+    # Local represents local file system path.
+    # @example
+    #   # absolute path form
+    #   local:/home/keita/
+    # @example
+    #   # relative path form
+    #   local:./test.txt
+    class LocalScheme < BasicScheme('local', :storage => true)
+      # @api private
+      COMPONENT = [:scheme, :path]
+
+      # @api private
+      def self.build(args)
+        super(URI::Util::make_components_hash(self, args))
+      end
+
+      # Returns absolute path.
+      # @return [URI]
+      #   URI with absolute path
+      def absolute
+        uri = URI.parse("%s:%s" % [scheme, File.expand_path(path, Global.pwd)])
+        directory? ? uri.as_directory : uri
+      end
+    end
+  end
+end

data/lib/pione/util/error-report.rb

@@ -0,0 +1,12 @@
+module Pione
+  module Util
+    module ErrorReport
+      # Prints the pretty exception.
+      def print(e)
+        $stderr.puts "%s: %s" % [e.class, e.message]
+        e.backtrace.each {|line| puts "    %s" % line}
+      end
+      module_function :print
+    end
+  end
+end

data/lib/pione/util/log.rb

@@ -0,0 +1,79 @@
+module Pione
+  module Util
+    # Log is a representation for logging.
+    # @example
+    #   Log.new do
+    #     add_record(
+    #       component: "tuple-space-server",
+    #       key: "action",
+    #       value: "start"
+    #     )
+    #   end
+    #
+    class Log
+      # Log::Record is a key-value line for log. A record consisted of following items:
+      # - application
+      # - component
+      # - key
+      # - value
+      class Record
+        attr_reader :components
+        attr_reader :key
+        attr_reader :value
+
+        # Creates a log record.
+        def initialize(components, key, value)
+          @components = components.kind_of?(Array) ? components : [components]
+          @key = key
+          @value = value
+        end
+
+        def application
+          "" # "pione"
+        end
+
+        # Format as a string.
+        # i.e.
+        #   2012-04-25T14:48:57.791+09:00 A35D pione.rule-provider.status: initialized
+        def format(logid, time)
+          resource = [application, components, key].flatten.compact.join(".")
+          "%s %s %s: %s" % [time, logid, resource, value.to_json]
+        end
+      end
+
+      attr_reader :records
+
+      # Creatas a new log record.
+      def initialize
+        @records = []
+        yield self if block_given?
+      end
+
+      def add_record(*args)
+        @records << Record.new(*args)
+      end
+
+      def timestamp=(time)
+        @time = time
+      end
+
+      # Format as string.
+      # i.e.
+      #   2012-04-25T14:48:57.791+09:00 A35D .task-worker.action: "take_task"
+      #   2012-04-25T14:48:57.791+09:00 A35D .task-worker.object: ...
+      def format
+        logid = generate_logid
+        time = @time.iso8601(3)
+        @records.map{|record| record.format(logid, time)}.join("\n")
+      end
+
+      private
+
+      IDCHAR = ("A".."Z").to_a + (0..9).to_a.map{|i|i.to_s}
+
+      def generate_logid(i=4)
+        i > 0 ? IDCHAR[rand(IDCHAR.size)] + generate_logid(i-1) : ""
+      end
+    end
+  end
+end

data/lib/pione/util/message.rb

@@ -0,0 +1,155 @@
+module Pione
+  module Util
+    # Message is a set of utility methods for sending messages to user.
+    module Message
+      # @api private
+      MessageQueue = Queue.new
+
+      # message queue thread
+      Thread.new {
+        while msg = MessageQueue.pop
+          puts msg
+        end
+      }
+
+      # @!group Message Mode
+
+      # @api private
+      @@debug_mode = false
+
+      # @api private
+      @@quiet_mode = false
+
+      # Evaluates the block in debug mode.
+      # @yield []
+      #   target block
+      # @return [void]
+      def debug_mode
+        orig = @@debug_mode
+        @@debug_mode = true
+        yield
+        @@debug_mode = orig
+      end
+      module_function :debug_mode
+
+      # Sets debug mode.
+      # @param [bool] mode
+      #   flag of debug mode
+      # @return [void]
+      def debug_mode=(mode)
+        @@debug_mode = mode
+      end
+      module_function :"debug_mode="
+
+      # Return true if the system is debug mode.
+      # @return [bool]
+      def debug_mode?
+        @@debug_mode
+      end
+      module_function :debug_mode?
+
+      # Evaluates the block in quiet mode.
+      # @yield []
+      #   target block
+      # @return [void]
+      def quiet_mode
+        orig = @@quiet_mode
+        @@quiet_mode = true
+        yield
+        @@quiet_mode = orig
+      end
+      module_function :debug_mode
+
+      # Sets quiet mode.
+      # @param [bool] mode
+      #   flag of quiet mode
+      # @return [void]
+      def quiet_mode=(mode)
+        @@quiet_mode = mode
+      end
+      module_function :"quiet_mode="
+
+      # Return true if the system is quiet mode.
+      # @return [bool]
+      def quiet_mode?
+        @@quiet_mode
+      end
+      module_function :quiet_mode?
+
+      # @!group Message Senders
+
+      # Sends the debug message.
+      # @param [String] msg
+      #   debug message
+      # @param [Integer] level
+      #   indent level
+      # @param [String] type
+      #   message heading type
+      # @return [void]
+      def debug_message(msg, level=0, type="debug")
+        if debug_mode? and not(quiet_mode?)
+          message(type, :magenta, "  "*level + msg)
+        end
+      end
+      module_function :debug_message
+
+      # Sends the debug message to notify that something begins.
+      # @param [String] msg
+      #   debug message
+      # @return [void]
+      def debug_message_begin(msg)
+        debug_message(msg, 0, ">>>")
+      end
+
+      # Sends the debug message to notify that something ends.
+      # @param [String] msg
+      #   debug message
+      # @return [void]
+      def debug_message_end(msg)
+        debug_message(msg, 0, "<<<")
+      end
+
+      # Sends the user message.
+      # @param [String] msg
+      #   user message
+      # @param [Integer] level
+      #   indent level
+      # @param [String] type
+      #   message heading type
+      # @return [void]
+      def user_message(msg, level=0, type="info")
+        if not(quiet_mode?)
+          message(type, :green, "  "*level + msg)
+        end
+      end
+
+      # Sends the user message to notify that something begins.
+      # @param [String] msg
+      #   user message
+      # @return [void]
+      def user_message_begin(msg)
+        user_message(msg, 0, ">>>")
+      end
+
+      # Sends the debug message to notify that something ends.
+      # @param [String] msg
+      #   debug message
+      # @return [void]
+      def user_message_end(msg)
+        user_message(msg, 0, "<<<")
+      end
+
+      # use this internal debug only
+      # @api private
+      def show(msg)
+        message("show", :red, msg)
+      end
+
+      # @api private
+      def message(type, color, msg)
+        MessageQueue.push "%s %s" % [Terminal.color(color, "%5s" % type), msg]
+      end
+      module_function :message
+    end
+  end
+end