tra 0.0.2 → 0.0.3

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 4a84b53b34c31d8bb637f5ee409bf0d3aaec9d25
-  data.tar.gz: c38aa19122fec744ec828a5ce3c64b4ad3a7545d
+  metadata.gz: feb23af2174e0f8e50c07497804c47b6442929e7
+  data.tar.gz: f620d3dbff3a2c91360351216904a2721e926e79
 SHA512:
-  metadata.gz: 4180e1fdb9f22d1248f93a4185e61d058df415e6b20edb1614566528d450fea658081cff936e0b3c926afd5d8b77f81390725d2918cbf05b515a43371dc92d55
-  data.tar.gz: 258cfcac05bfecc92dd59a79da29514f61853a3658c194ee6772ce9c6e911ce4e72f71cd8a8d34f1847bc6659e16208511d612fc6d32962eea9e3249a172aa7c
+  metadata.gz: 91800584d8ec4999a3cf5e8a49cfff2157a539cbbaaf0cf7e5b54367639f03e5b912fc1c6150657f38a5d19531538031e17fe9f8262745e7d23fd3122be9df29
+  data.tar.gz: 18cb9b1a4a50243bc4627bca9354523eba341fb56bdabd7166f1206707206d27d318d0223f6d39634a93dd74a50ecb97d2698515793d9d37d1b9b8443a5ced32

data/lib/tra.rb

@@ -5,10 +5,8 @@ require_relative 'tra/mailbox'
 require_relative 'tra/fork'
 
 module Tra
-  QUEUE = Queue.new
-
-  DIRECTORY = "/tmp/tra"
-  FILE = -> pid { "#{DIRECTORY}/#{pid}" }
+  QUEUE, PATTERNS = Queue.new, {}
+  DIRECTORY, FILE = '/tmp/tra', -> pid { "#{DIRECTORY}/#{pid}" }
 
   class << self
     def enumerator
@@ -20,6 +18,10 @@ module Tra
     extend Forwardable
     delegate [:next, :take] => :enumerator
 
+    def on pattern, &action
+      PATTERNS[pattern] = action
+    end
+
     def run
       Mailbox.receive
 

data/lib/tra/fork.rb

@@ -1,7 +1,7 @@
 module Tra
   module Fork
     def fork
-      super { QUEUE.clear; Mailbox.receive; yield }
+      super { QUEUE.clear; PATTERNS.clear; Mailbox.receive; yield }
     end
   end
 end

data/lib/tra/mailbox.rb

@@ -7,7 +7,18 @@ module Tra
 
         Thread.new do
           Socket.unix_server_loop file do |socket|
-            QUEUE << (Marshal.load socket.read size_of_message_from socket)
+            message = Marshal.load socket.read size_of_message_from socket
+            patterns = PATTERNS.select { |pattern, _| pattern === message }
+
+            if patterns.empty?
+              QUEUE << message
+            else
+              Thread.new do
+                patterns.each do |_, action|
+                  Thread.new { action.call message }
+                end
+              end
+            end
           end
         end
 

data/test.rb

@@ -15,3 +15,37 @@ p Tra.next
 =end
 Tra.take(5).each { |message| p message }
 child.put [:my, :message, "with\n newlines\n"]
+
+
+# sloppy patterns' test goes underneath
+class A
+end
+
+class B
+end
+
+As = []
+Bs = []
+
+Tra.on A do |message|
+  As << message
+end
+
+Tra.on B do |message|
+  Bs << message
+end
+
+fork do
+  Process.ppid.put A.new
+  Process.ppid.put :asd
+  Process.ppid.put B.new
+  Process.ppid.put B.new
+  Process.ppid.put B.new
+  Process.ppid.put A.new
+  Process.ppid.put 42
+end
+
+sleep 1
+p As.size #2
+p Bs.size #3
+p Tra.take 2

data/tra.gemspec

@@ -1,7 +1,7 @@
 Gem::Specification.new do |g|
   g.name    = 'tra'
   g.files   = `git ls-files`.split($/)
-  g.version = '0.0.2'
+  g.version = '0.0.3'
   g.summary = 'Erlang-style messaging for Ruby processes'
   g.authors = ['Anatoly Chernow']
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: tra
 version: !ruby/object:Gem::Version
-  version: 0.0.2
+  version: 0.0.3
 platform: ruby
 authors:
 - Anatoly Chernow
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2017-01-21 00:00:00.000000000 Z
+date: 2017-02-27 00:00:00.000000000 Z
 dependencies: []
 description: 
 email: