ntl-actor 0.6.2 → 1.0.0.pre1

data/lib/actor/messaging/message/name.rb

@@ -0,0 +1,33 @@
+module Actor
+  module Messaging
+    module Message
+      module Name
+        PATTERN = %r{(?:\A|[a-z0-9])[A-Z]}
+
+        def self.get value
+          case value
+          when Symbol
+            value
+
+          when ::Module, Class
+            get value.name
+
+          when String
+            *, inner_namespace = value.split '::'
+
+            inner_namespace.gsub! PATTERN do |str|
+              str.downcase!
+              str.insert 1, '_' if str.length == 2
+              str
+            end
+
+            inner_namespace.to_sym
+
+          else
+            get value.class
+          end
+        end
+      end
+    end
+  end
+end

data/lib/actor/messaging/publisher.rb

@@ -0,0 +1,39 @@
+module Actor
+  module Messaging
+    class Publisher
+      include Writer::Dependency
+
+      attr_reader :addresses
+
+      def initialize
+        @addresses = Set.new
+      end
+
+      def self.build *addresses
+        instance = new
+
+        addresses.each do |address|
+          instance.register address
+        end
+
+        instance.writer = Writer.new
+
+        instance
+      end
+
+      def register address
+        addresses << address
+      end
+
+      def unregister address
+        addresses.delete address
+      end
+
+      def publish message, wait: nil
+        addresses.each do |address|
+          writer.write message, address, wait: wait
+        end
+      end
+    end
+  end
+end

data/lib/actor/messaging/publisher/assertions.rb

@@ -0,0 +1,11 @@
+module Actor
+  module Messaging
+    class Publisher
+      module Assertions
+        def registered? address
+          @addresses.include? address
+        end
+      end
+    end
+  end
+end

data/lib/actor/messaging/publisher/dependency.rb

@@ -0,0 +1,13 @@
+module Actor
+  module Messaging
+    class Publisher
+      module Dependency
+        attr_writer :publisher
+
+        def publisher
+          @publisher ||= Substitute.build
+        end
+      end
+    end
+  end
+end

data/lib/actor/messaging/publisher/substitute.rb

@@ -0,0 +1,62 @@
+module Actor
+  module Messaging
+    class Publisher
+      class Substitute
+        def initialize
+          @registered_addresses = Set.new
+          @unregistered_addresses = Set.new
+          @records = []
+        end
+
+        def register address
+          @registered_addresses << address
+        end
+
+        def unregister address
+          @unregistered_addresses << address
+        end
+
+        def publish message, wait: nil
+          wait = true if wait.nil?
+
+          record = Record.new message, wait
+
+          @records << record
+        end
+
+        Record = Struct.new :message, :wait
+
+        module Assertions
+          def registered? address=nil
+            if address.nil?
+              @registered_addresses.any?
+            else
+              @registered_addresses.include? address
+            end
+          end
+
+          def unregistered? address=nil
+            if address.nil?
+              @unregistered_addresses.any?
+            else
+              @unregistered_addresses.include? address
+            end
+          end
+
+          def published? message=nil, wait: nil
+            @records.each do |record|
+              next unless message.nil? or record.message == message
+              next unless wait.nil? or record.wait == wait
+
+              return true
+            end
+
+            false
+          end
+        end
+
+        singleton_class.send :alias_method, :build, :new # subst-attr compat
+      end
+    end
+  end
+end

data/lib/actor/messaging/queue.rb

@@ -0,0 +1,21 @@
+module Actor
+  module Messaging
+    module Queue
+      def self.get max_size: nil
+        max_size ||= Defaults.maximum_size
+
+        SizedQueue.new max_size
+      end
+
+      module Defaults
+        def self.maximum_size
+          size = ENV['ACTOR_MAXIMUM_QUEUE_SIZE']
+
+          return size.to_i if size
+
+          1_000
+        end
+      end
+    end
+  end
+end

data/lib/actor/messaging/queue/substitute.rb

@@ -0,0 +1,53 @@
+module Actor
+  module Messaging
+    module Queue
+      class Substitute
+        def initialize
+          @enqueued_records = []
+        end
+
+        def self.build
+          instance = new
+          instance
+        end
+
+        def deq non_block=nil
+          if non_block
+            raise ThreadError
+          else
+            raise WouldBlockError
+          end
+        end
+
+        def empty?
+          true
+        end
+
+        def enq message, non_block=nil
+          non_block = false if non_block.nil?
+
+          record = Record.new message, non_block
+          @enqueued_records << record
+          record
+        end
+
+        WouldBlockError = Class.new StandardError
+
+        Record = Struct.new :message, :non_block
+
+        module Assertions
+          def enqueued? message=nil, wait: nil
+            @enqueued_records.any? do |record|
+              next unless message.nil? or record.message == message
+              next unless wait.nil? or record.non_block == !wait
+
+              true
+            end
+          end
+        end
+
+        singleton_class.send :alias_method, :build, :new # subst-attr compat
+      end
+    end
+  end
+end

data/lib/actor/messaging/reader.rb

@@ -0,0 +1,32 @@
+module Actor
+  module Messaging
+    class Reader
+      attr_reader :queue
+
+      def initialize queue
+        @queue = queue
+      end
+
+      def self.build address
+        queue = address.queue
+
+        new queue
+      end
+
+      def self.call address, wait: nil
+        instance = build address
+
+        instance.read wait: wait
+      end
+
+      def read wait: nil
+        non_block = wait == false
+
+        queue.deq non_block
+
+      rescue ThreadError
+        return nil
+      end
+    end
+  end
+end

data/lib/actor/messaging/reader/assertions.rb

@@ -0,0 +1,25 @@
+module Actor
+  module Messaging
+    class Reader
+      module Assertions
+        def address? address
+          queue? address.queue
+        end
+
+        def next_message? message
+          begin
+            next_message = @queue.deq true
+          rescue ThreadError
+            return false
+          end
+
+          next_message == message
+        end
+
+        def queue? queue
+          @queue == queue
+        end
+      end
+    end
+  end
+end

data/lib/actor/messaging/reader/dependency.rb

@@ -0,0 +1,13 @@
+module Actor
+  module Messaging
+    class Reader
+      module Dependency
+        attr_writer :reader
+
+        def reader
+          @reader ||= Substitute.build
+        end
+      end
+    end
+  end
+end

data/lib/actor/messaging/reader/substitute.rb

@@ -0,0 +1,31 @@
+module Actor
+  module Messaging
+    class Reader
+      class Substitute < Reader
+        attr_writer :next_message
+
+        def self.build
+          queue = Queue::Substitute.new
+
+          instance = new queue
+          instance.extend Controls
+          instance
+        end
+
+        def read wait: nil
+          if @next_message.nil?
+            super
+          else
+            @next_message
+          end
+        end
+
+        module Controls
+          def add message
+            @next_message = message
+          end
+        end
+      end
+    end
+  end
+end

data/lib/actor/messaging/writer.rb

@@ -0,0 +1,28 @@
+module Actor
+  module Messaging
+    class Writer
+      def write message, address, wait: nil
+        non_block = wait == false
+
+        queue = address.queue
+
+        if message.instance_of? ::Module
+          message = message.message_name
+        end
+
+        begin
+          queue.enq message, non_block
+        rescue ThreadError
+          raise WouldBlockError
+        end
+      end
+
+      WouldBlockError = Class.new StandardError
+
+      def self.call *arguments
+        instance = new
+        instance.write *arguments
+      end
+    end
+  end
+end

data/lib/actor/messaging/writer/dependency.rb

@@ -0,0 +1,13 @@
+module Actor
+  module Messaging
+    class Writer
+      module Dependency
+        attr_writer :writer
+
+        def writer
+          @writer ||= Substitute.build
+        end
+      end
+    end
+  end
+end

data/lib/actor/messaging/writer/substitute.rb

@@ -0,0 +1,45 @@
+module Actor
+  module Messaging
+    class Writer
+      class Substitute
+        def initialize
+          @records = []
+        end
+
+        def write message, address, wait: nil
+          wait = true if wait.nil?
+
+          record = Record.new message, address, wait
+
+          @records << record
+        end
+
+        Record = Struct.new :message, :address, :wait do
+          def message? pattern
+            return true if message == pattern
+
+            if pattern.is_a? Symbol and message.is_a? Message
+              message.message_name == pattern
+            end
+          end
+        end
+
+        module Assertions
+          def written? message=nil, address: nil, wait: nil
+            @records.each do |record|
+              next unless message.nil? or record.message? message
+              next unless address.nil? or record.address == address
+              next unless wait.nil? or record.wait == wait
+
+              return true
+            end
+
+            false
+          end
+        end
+
+        singleton_class.send :alias_method, :build, :new # subst-attr compat
+      end
+    end
+  end
+end

data/lib/actor/module/dependencies.rb

@@ -0,0 +1,30 @@
+module Actor
+  module Module
+    module Dependencies
+      def self.included receiver
+        receiver.class_exec do
+          include Messaging::Address::Dependency
+          include Messaging::Reader::Dependency
+          include Messaging::Writer::Dependency
+
+          prepend Configure
+
+          IncludeAssertions.(Assertions, self)
+        end
+      end
+
+      def configure
+      end
+
+      module Configure
+        def configure
+          self.address = Messaging::Address.build
+          self.reader = Messaging::Reader.build address
+          self.writer = Messaging::Writer.new
+
+          super
+        end
+      end
+    end
+  end
+end