ntl-actor 0.6.2 → 1.0.0.pre1

data/lib/actor/duration.rb

@@ -1,7 +0,0 @@
-module Actor
-  module Duration
-    def self.millisecond
-      0.001
-    end
-  end
-end

data/lib/actor/future.rb

@@ -1,38 +0,0 @@
-module Actor
-  class Future
-    attr_reader :reader
-    attr_accessor :message
-
-    def initialize reader
-      @reader = reader
-    end
-
-    def self.build &block
-      address = Address.build
-      reader = Messaging::Read.build address
-
-      instance = new reader
-
-      block.(address)
-
-      instance
-    end
-
-    def self.get wait: nil, &block
-      instance = build &block
-      instance.get wait: wait
-    end
-
-    def get wait: nil
-      return message unless message.nil?
-
-      self.message = reader.(wait: wait)
-    end
-
-    def ready?
-      get
-
-      message ? true : false
-    end
-  end
-end

data/lib/actor/handle_macro.rb

@@ -1,37 +0,0 @@
-module Actor
-  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

data/lib/actor/messaging/read.rb

@@ -1,54 +0,0 @@
-module Actor
-  module Messaging
-    class Read
-      attr_reader :queue
-      attr_reader :stream
-
-      def initialize queue, stream
-        @queue = queue
-        @stream = stream
-      end
-
-      def self.build address, queue=nil
-        queue ||= Queue.new
-
-        stream = address.stream
-        stream.add_queue queue
-
-        instance = new queue, stream
-        instance
-      end
-
-      def self.call address, wait: nil
-        instance = build address
-        instance.(wait: wait)
-      end
-
-      def self.configure receiver, address, attr_name: nil
-        attr_name ||= :reader
-
-        instance = build address
-        receiver.public_send "#{attr_name}=", instance
-        instance
-      end
-
-      def call wait: nil
-        if wait
-          queue.deq
-        else
-          non_block = true
-
-          begin
-            queue.deq non_block
-          rescue ThreadError
-            nil
-          end
-        end
-      end
-
-      def messages_available?
-        not queue.empty?
-      end
-    end
-  end
-end

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

@@ -1,33 +0,0 @@
-module Actor
-  module Messaging
-    class Read
-      class Substitute
-        def call wait: nil
-          message = messages.shift
-
-          if message.nil? and wait
-            raise WouldWait
-          end
-
-          message
-        end
-
-        def messages_available?
-          messages.any?
-        end
-
-        def add_message message
-          messages << message
-        end
-
-        def messages
-          @messages ||= []
-        end
-
-        WouldWait = Class.new StandardError
-
-        singleton_class.send :alias_method, :build, :new
-      end
-    end
-  end
-end

data/lib/actor/messaging/write.rb

@@ -1,26 +0,0 @@
-module Actor
-  module Messaging
-    class Write
-      def self.call message, address
-        instance = new
-        instance.(message, address)
-      end
-
-      def self.configure receiver, attr_name: nil
-        attr_name ||= :writer
-
-        instance = new
-        receiver.public_send "#{attr_name}=", instance
-        instance
-      end
-
-      def call message, address
-        stream = address.stream
-
-        stream.write message
-
-        nil
-      end
-    end
-  end
-end

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

@@ -1,39 +0,0 @@
-module Actor
-  module Messaging
-    class Write
-      class Substitute
-        attr_reader :records
-
-        def initialize
-          @records = []
-        end
-
-        def call message, address
-          record = Record.new message, address
-
-          records << record
-
-          record
-        end
-
-        Record = Struct.new :message, :address
-
-        singleton_class.send :alias_method, :build, :new
-
-        module Assertions
-          def written? message=nil, &block
-            if message.nil?
-              block ||= proc { true }
-            else
-              block ||= proc { |msg| msg == message }
-            end
-
-            records.any? do |record|
-              block.(record.message, record.address)
-            end
-          end
-        end
-      end
-    end
-  end
-end

data/lib/actor/observers.rb

@@ -1,45 +0,0 @@
-module Actor
-  module Observers
-    def observe message_pattern, &callback
-      handler_method = HandleMacro::MethodName.get message_pattern
-
-      observer_id = callback.object_id
-
-      record = Observer.new observer_id, handler_method, callback
-
-      add_observer record
-    end
-
-    def add_observer record
-      observers = observer_registry[record.handler_method]
-
-      observers[record.observer_id] = record
-    end
-
-    def notify_observers message
-      handler_method = HandleMacro::MethodName.get message
-
-      observers = observer_registry[handler_method]
-
-      observers.each_value.map do |record|
-        callback = record.callback
-
-        callback.(message)
-      end
-    end
-
-    def remove_observer record
-      observers = observer_registry[record.handler_method]
-
-      observers.delete record.observer_id
-    end
-
-    def observer_registry
-      @observer_registry ||= Hash.new do |hash, handler_method|
-        hash[handler_method] = {}
-      end
-    end
-
-    Observer = Struct.new :observer_id, :handler_method, :callback
-  end
-end

data/lib/actor/router.rb

@@ -1,94 +0,0 @@
-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 = route_messages
-
-      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
-
-    handle :stop do
-      if routes.any? { |reader, _| reader.messages_available? }
-        route_messages
-        :stop
-      else
-        super()
-      end
-    end
-
-    def add reader, output_address
-      routes[reader] << output_address
-    end
-
-    def remove reader, output_address
-      routes[reader].delete output_address
-    end
-
-    def route_messages
-      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
-
-      routed_messages
-    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/stream.rb

@@ -1,36 +0,0 @@
-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

@@ -1,23 +0,0 @@
-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