tra 0.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: cd1da5cafab185749f54bea2504134b1938be798
+  data.tar.gz: 180cbc81a2ed58a413207cd2a76c805351d3e3e2
+SHA512:
+  metadata.gz: 476768c1029e5d715004a3339b5c5121409e8e44c45e8f0f65cc85001f4a73bf2db2cd3f2698718187ab611be10b7b2d2d0d92cade11e268d5795cdb3009ee64
+  data.tar.gz: e7d27d0e95e8419d24fbaf6079b543a538859fa96b23be7f0e9aec0884586eb4843d69ec0b64a23f45b23f6dc3151cf6b9e0da6982004dffea46388451094fe5

data/lib/tra/fork.rb

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

data/lib/tra/mailbox.rb

@@ -0,0 +1,16 @@
+module Tra
+  module Mailbox
+    def self.receive
+      Dir.mkdir DIRECTORY unless Dir.exist? DIRECTORY
+      file = FILE[Process.pid]
+
+      Thread.new do
+        Socket.unix_server_loop file do |socket|
+          QUEUE << (Marshal.load socket.gets)
+        end
+      end
+
+      sleep 0.01 until File.exist? file
+    end
+  end
+end

data/lib/tra/run.rb

@@ -0,0 +1,2 @@
+require 'tra'
+Tra.run

data/lib/tra.rb

@@ -0,0 +1,41 @@
+require 'forwardable'
+require 'socket'
+
+require_relative 'tra/mailbox'
+require_relative 'tra/fork'
+
+module Tra
+  QUEUE = Queue.new
+
+  DIRECTORY = "/tmp/tractor"
+  FILE = -> pid { "#{DIRECTORY}/#{pid}" }
+
+  class << self
+    ENUMERATOR = Enumerator.new do |y|
+      loop { y << QUEUE.pop }
+    end
+
+    extend Forwardable
+    delegate [:next, :take] => :ENUMERATOR
+
+    def run
+      Mailbox.receive
+
+      patch_Object_shamelessly
+      patch_Integer_shamelessly
+    end
+
+    private
+      def patch_Object_shamelessly
+        Object.prepend Fork
+      end
+
+      def patch_Integer_shamelessly
+        Integer.class_eval do
+          def put message
+            Socket.unix(FILE[self]).write "#{Marshal.dump message}\n"
+          end
+        end
+      end
+  end
+end

data/test.rb

@@ -0,0 +1,17 @@
+require_relative 'lib/tra'
+Tra.run
+
+child = fork do
+  message = [1,2,3]
+  p Process.ppid
+  5.times { Process.ppid.put message }
+  p Tra.next
+end
+
+=begin
+require 'pry'
+binding.pry
+p Tra.next
+=end
+Tra.take(5).each { |message| p message }
+child.put [:my, :message]

data/tra.gemspec

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

metadata

@@ -0,0 +1,48 @@
+--- !ruby/object:Gem::Specification
+name: tra
+version: !ruby/object:Gem::Version
+  version: 0.0.0
+platform: ruby
+authors:
+- Anatoly Chernow
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2016-10-29 00:00:00.000000000 Z
+dependencies: []
+description: 
+email: 
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/tra.rb
+- lib/tra/fork.rb
+- lib/tra/mailbox.rb
+- lib/tra/run.rb
+- test.rb
+- tra.gemspec
+homepage: 
+licenses: []
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.5.1
+signing_key: 
+specification_version: 4
+summary: Erlang-style messaging for Ruby processes
+test_files: []