ntl-actor 0.3.1 → 0.4.0.pre1

data/lib/actor/module/handle_macro.rb

@@ -0,0 +1,39 @@
+module Actor
+  module Module
+    module HandleMacro
+      def handle_macro pattern, &action
+        method_name = MethodName.get pattern
+
+        define_method method_name, &action
+      end
+      alias_method :handle, :handle_macro
+
+      module MethodName
+        PATTERN = %r{(?:\A|[a-z0-9])[A-Z]}
+
+        def self.get message_pattern
+          case message_pattern
+          when Class, String then
+            message_name = message_pattern.to_s
+
+            *, message_name = message_name.split '::'
+
+            message_name.gsub! PATTERN do |str|
+              str.downcase!
+              str.insert 1, '_' if str.length == 2
+              str
+            end
+
+            get message_name.to_sym
+
+          when Symbol then
+            :"handle_#{message_pattern}"
+
+          else
+            get message_pattern.class
+          end
+        end
+      end
+    end
+  end
+end

data/lib/actor/module/start.rb

@@ -0,0 +1,19 @@
+module Actor
+  module Module
+    module Start
+      def start *positional_arguments, address: nil, supervisor_address: nil, include: nil, **keyword_arguments, &block
+        address ||= Address.build
+
+        instance = build address, *positional_arguments, **keyword_arguments, &block
+
+        thread = Actor::Start.(
+          instance,
+          address,
+          supervisor_address: supervisor_address
+        )
+
+        Destructure.(address, include, { :thread => thread, :actor => instance })
+      end
+    end
+  end
+end

data/lib/actor/module.rb

@@ -0,0 +1,73 @@
+module Actor
+  module Module
+    def self.included cls
+      cls.class_exec do
+        extend Build
+        extend HandleMacro
+        extend Start
+      end
+    end
+
+    attr_writer :reader
+    attr_writer :writer
+
+    def configure
+    end
+
+    def continuations
+      @continuations ||= []
+    end
+
+    def handle message
+      method = handle? message
+
+      return if method.nil?
+
+      if method.arity == 0
+        method.()
+      else
+        method.(message)
+      end
+    end
+
+    def handle_stop
+      raise StopIteration
+    end
+
+    def handle? message
+      method_name = HandleMacro::MethodName.get message
+
+      if respond_to? method_name
+        method method_name
+      end
+    end
+
+    def next
+      if continuations.empty?
+        message = reader.(wait: true)
+      else
+        message = reader.(wait: false)
+        message ||= continuations.shift
+      end
+
+      continuation_message = handle message
+
+      if continuation_message.is_a? Messaging::Message
+        continuations << continuation_message
+      end
+    end
+
+    def run_loop
+      loop do self.next end
+    end
+    alias_method :start, :run_loop
+
+    def reader
+      @reader ||= Messaging::Read::Substitute.new
+    end
+
+    def writer
+      @writer ||= Messaging::Write::Substitute.new
+    end
+  end
+end

data/lib/actor/router.rb

@@ -0,0 +1,79 @@
+module Actor
+  class Router
+    include Actor
+
+    attr_writer :kernel
+    attr_reader :routes
+
+    def initialize
+      @routes = Hash.new do |hash, input|
+        hash[input] = Set.new
+      end
+    end
+
+    handle :start do
+      :continue
+    end
+
+    handle :continue do
+      routed_messages = false
+
+      routes.each do |input_reader, outputs|
+        msg = input_reader.(wait: false)
+
+        next unless msg
+
+        routed_messages = true
+
+        outputs.each do |output|
+          writer.(msg, output)
+        end
+      end
+
+      unless routed_messages
+        kernel.sleep Duration.millisecond
+      end
+
+      :continue
+    end
+
+    handle :add_route do |message|
+      reader = message.reader
+      output_address = message.output_address
+
+      add reader, output_address
+    end
+
+    handle :remove_route do |message|
+      reader = message.reader
+      output_address = message.output_address
+
+      remove reader, output_address
+    end
+
+    def add reader, output_address
+      routes[reader] << output_address
+    end
+
+    def remove reader, output_address
+      routes[reader].delete output_address
+    end
+
+    def configure
+      self.kernel = Kernel
+    end
+
+    def kernel
+      @kernel ||= Substitutes::Kernel.new
+    end
+
+    AddRoute = Struct.new :reader, :output_address
+    RemoveRoute = Struct.new :reader, :output_address
+
+    module Assertions
+      def route? reader, output_address
+        routes[reader].include? output_address
+      end
+    end
+  end
+end

data/lib/actor/start.rb

@@ -0,0 +1,46 @@
+module Actor
+  class Start
+    attr_writer :supervisor_address
+    attr_writer :thread
+    attr_writer :writer
+
+    def self.build supervisor_address: nil
+      instance = new
+      instance.supervisor_address = supervisor_address
+      instance.thread = Thread
+      Messaging::Write.configure instance
+      instance
+    end
+
+    def self.call actor, address, supervisor_address: nil
+      instance = build supervisor_address: supervisor_address
+      instance.(actor, address)
+    end
+
+    def call actor, address
+      address ||= Address.build
+
+      start = Messages::Start.new
+      writer.(start, address)
+
+      actor_started = Messages::ActorStarted.new address
+      writer.(actor_started, supervisor_address)
+
+      self.thread.new do
+        actor.start
+      end
+    end
+
+    def supervisor_address
+      @supervisor_address ||= Address::None
+    end
+
+    def thread
+      @thread ||= Substitutes::Thread
+    end
+
+    def writer
+      @writer ||= Messaging::Write::Substitute.new
+    end
+  end
+end

data/lib/actor/stream.rb

@@ -0,0 +1,36 @@
+module Actor
+  class Stream
+    attr_reader :queues
+
+    def initialize
+      @queues = Set.new
+    end
+
+    def add_queue queue
+      queues << queue
+    end
+
+    def remove_queue queue
+      queues.delete queue
+    end
+
+    def write message
+      queues.each do |queue|
+        queue.enq message
+      end
+    end
+
+    module Null
+      extend self
+
+      def add_queue queue
+      end
+
+      def remove_queue queue
+      end
+
+      def write message
+      end
+    end
+  end
+end

data/lib/actor/substitutes/kernel.rb

@@ -0,0 +1,23 @@
+module Actor
+  module Substitutes
+    class Kernel
+      def initialize
+        @sleep_duration = nil
+      end
+
+      def sleep duration=nil
+        @sleep_duration = duration
+      end
+
+      module Assertions
+        def slept? duration=nil
+          if duration.nil?
+            @sleep_duration ? true : false
+          else
+            @sleep_duration == duration
+          end
+        end
+      end
+    end
+  end
+end

data/lib/actor/substitutes/thread.rb

@@ -0,0 +1,39 @@
+module Actor
+  module Substitutes
+    class Thread
+      attr_reader :block
+      attr_accessor :name
+      attr_accessor :priority
+      attr_accessor :status
+
+      def initialize &block
+        @status = 'run'
+        @priority = 0
+
+        @block = block
+      end
+
+      def join limit=nil
+        if limit
+          begin
+            Timeout.timeout limit, &block
+          rescue Timeout::Error
+            return nil
+          end
+        else
+          block.()
+        end
+
+        self
+      end
+
+      def alive?
+        %w(sleep run).include? status
+      end
+
+      def stop?
+        status != 'run'
+      end
+    end
+  end
+end

data/lib/actor/substitutes/thread_group.rb

@@ -0,0 +1,26 @@
+module Actor
+  module Substitutes
+    class ThreadGroup
+      def initialize
+        @list = []
+        @enclosed = false
+      end
+
+      def add thread
+        @list << thread
+      end
+
+      def list
+        @list.dup
+      end
+
+      def enclose
+        @enclosed = true
+      end
+
+      def enclosed?
+        @enclosed
+      end
+    end
+  end
+end

data/lib/actor/supervisor.rb

@@ -1,81 +1,75 @@
 module Actor
   class Supervisor
-    attr_reader :actors
-    attr_writer :exception_notifier
+    include Actor
 
-    def initialize
-      @actors = Set.new
-    end
-
-    def add address, thread
-      actor = Actor.new address, thread
-
-      actors << actor
+    attr_writer :broadcast_address
+    attr_accessor :error
+    attr_writer :thread_group
+    attr_writer :router_address
 
-      actor
+    handle :start do
+      :continue
     end
 
-    def remove address
-      actors.delete_if do |actor|
-        actor.address == address
+    handle :continue do |message|
+      if actor_threads.empty?
+        :stop
+      else
+        message
       end
     end
 
-    def broadcast message
-      addresses = actors.map &:address
+    handle :actor_started do |message|
+      reader = Messaging::Read.build broadcast_address
+      output_address = message.actor_address
 
-      addresses.each do |address|
-        Messaging::Writer.(message, address)
-      end
-    end
+      add_route = Router::AddRoute.new reader, output_address
 
-    def pause
-      broadcast Message::Pause.new
+      writer.(add_route, router_address)
     end
 
-    def resume
-      broadcast Message::Resume.new
-    end
+    handle :actor_crashed do |message|
+      self.error ||= message.error
 
-    def stop
-      broadcast Message::Stop.new
+      :shutdown
     end
 
-    def start &supplementary_action
-      Signal.trap 'CONT' do resume end
-      Signal.trap 'INT' do stop end
-      Signal.trap 'TSTP' do pause end
+    handle :shutdown do
+      stop = Messages::Stop.new
 
-      loop do
-        supplementary_action.() if supplementary_action
+      writer.(stop, broadcast_address)
+      writer.(stop, router_address)
 
-        actors.delete_if do |actor|
-          thread = actor.thread
-          thread.join TimeUnit.millisecond
-        end
+      :continue
+    end
 
-        break if actors.empty?
+    def actor_threads
+      list = thread_group.list
+      list.delete Thread.current
+      list
+    end
 
-        Thread.pass
-      end
+    def configure
+      thread_group = ThreadGroup.new
+      thread_group.add Thread.current
 
-    rescue => error
-      exception_notifier.(error)
-      raise error
+      self.broadcast_address = Address.build
+      self.router_address = Router.start
+      self.thread_group = thread_group
     end
 
-    def exception_notifier
-      @exception_notifier ||= proc { }
+    def broadcast_address
+      @broadcast_address ||= Address::None
     end
 
-    Actor = Struct.new :address, :thread
+    def router_address
+      @router_address ||= Address::None
+    end
 
-    module Assertions
-      def actor? actor_address
-        actors.any? do |actor|
-          actor.address == actor_address
-        end
-      end
+    def thread_group
+      @thread_group ||= Substitutes::ThreadGroup.new
     end
+
+    ActorCrashed = Struct.new :error
   end
 end

data/lib/actor.rb

@@ -1,24 +1,32 @@
-require 'ostruct'
 require 'securerandom'
 require 'set'
+require 'timeout'
 
-require 'actor/queue'
-require 'actor/queue/assertions'
-require 'actor/queue/reader'
+require 'actor/substitutes/kernel'
+require 'actor/substitutes/thread_group'
+require 'actor/substitutes/thread'
 
-require 'actor/statistics'
-require 'actor/statistics/copy'
-require 'actor/statistics/timer'
+require 'actor/destructure'
+require 'actor/duration'
+require 'actor/stream'
 
-require 'actor/messaging/address'
-require 'actor/messaging/reader'
-require 'actor/messaging/reader/substitute'
-require 'actor/messaging/writer'
-require 'actor/messaging/writer/substitute'
+require 'actor/address'
+require 'actor/messaging/message'
+require 'actor/messaging/read'
+require 'actor/messaging/read/substitute'
+require 'actor/messaging/write'
+require 'actor/messaging/write/substitute'
 
-require 'actor/message'
+require 'actor/messages'
 
-require 'actor/time_unit'
+require 'actor/module/build'
+require 'actor/module/handle_macro'
+require 'actor/module/start'
+require 'actor/module'
+
+require 'actor/start'
 
 require 'actor/actor'
+
+require 'actor/router'
 require 'actor/supervisor'

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: ntl-actor
 version: !ruby/object:Gem::Version
-  version: 0.3.1
+  version: 0.4.0.pre1
 platform: ruby
 authors:
 - Nathan Ladd
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2016-08-31 00:00:00.000000000 Z
+date: 2016-09-14 00:00:00.000000000 Z
 dependencies: []
 description: Implementation of actor pattern for ruby designed for simplicity and
   frugality
@@ -19,35 +19,34 @@ extra_rdoc_files: []
 files:
 - lib/actor.rb
 - lib/actor/actor.rb
+- lib/actor/address.rb
 - lib/actor/controls.rb
 - lib/actor/controls/actor.rb
+- lib/actor/controls/address.rb
+- lib/actor/controls/error.rb
 - lib/actor/controls/message.rb
-- lib/actor/controls/statistics.rb
-- lib/actor/controls/statistics/elapsed_time.rb
-- lib/actor/controls/statistics/elapsed_time/average.rb
-- lib/actor/controls/statistics/elapsed_time/maximum.rb
-- lib/actor/controls/statistics/elapsed_time/minimum.rb
-- lib/actor/controls/statistics/elapsed_time/standard_deviation.rb
-- lib/actor/controls/statistics/timer.rb
-- lib/actor/controls/time.rb
-- lib/actor/controls/time/clock.rb
-- lib/actor/message.rb
-- lib/actor/messaging/address.rb
-- lib/actor/messaging/reader.rb
-- lib/actor/messaging/reader/substitute.rb
-- lib/actor/messaging/writer.rb
-- lib/actor/messaging/writer/substitute.rb
-- lib/actor/queue.rb
-- lib/actor/queue/assertions.rb
-- lib/actor/queue/reader.rb
-- lib/actor/statistics.rb
-- lib/actor/statistics/copy.rb
-- lib/actor/statistics/timer.rb
+- lib/actor/controls/message/attribute.rb
+- lib/actor/controls/thread.rb
+- lib/actor/controls/uuid.rb
+- lib/actor/destructure.rb
+- lib/actor/duration.rb
+- lib/actor/messages.rb
+- lib/actor/messaging/message.rb
+- lib/actor/messaging/read.rb
+- lib/actor/messaging/read/substitute.rb
+- lib/actor/messaging/write.rb
+- lib/actor/messaging/write/substitute.rb
+- lib/actor/module.rb
+- lib/actor/module/build.rb
+- lib/actor/module/handle_macro.rb
+- lib/actor/module/start.rb
+- lib/actor/router.rb
+- lib/actor/start.rb
+- lib/actor/stream.rb
+- lib/actor/substitutes/kernel.rb
+- lib/actor/substitutes/thread.rb
+- lib/actor/substitutes/thread_group.rb
 - lib/actor/supervisor.rb
-- lib/actor/test_fixtures.rb
-- lib/actor/test_fixtures/parallel_iteration.rb
-- lib/actor/test_fixtures/sample_actor_status.rb
-- lib/actor/time_unit.rb
 homepage: https://github.com/ntl/actor
 licenses:
 - MIT
@@ -56,6 +55,7 @@ post_install_message:
 rdoc_options: []
 require_paths:
 - lib
+- src
 required_ruby_version: !ruby/object:Gem::Requirement
   requirements:
   - - ">="
@@ -63,9 +63,9 @@ required_ruby_version: !ruby/object:Gem::Requirement
       version: '0'
 required_rubygems_version: !ruby/object:Gem::Requirement
   requirements:
-  - - ">="
+  - - ">"
     - !ruby/object:Gem::Version
-      version: '0'
+      version: 1.3.1
 requirements: []
 rubyforge_project: 
 rubygems_version: 2.6.6

data/lib/actor/controls/statistics/elapsed_time/average.rb

@@ -1,21 +0,0 @@
-module Actor
-  module Controls
-    module Statistics
-      module ElapsedTime
-        module Average
-          def self.configure_timer receiver
-            ElapsedTime.configure_timer receiver, elapsed_times
-          end
-
-          def self.elapsed_times
-            [1, 2, 6]
-          end
-
-          def self.value
-            3
-          end
-        end
-      end
-    end
-  end
-end