emit 0.1.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: f7f3459190a3ae6b0f8d872f97e14cbe8524468e
+  data.tar.gz: 417ad5f6609d7ec63cabab3c0349e854842e2888
+SHA512:
+  metadata.gz: 8755bc73dd138ba8ea36a02613e7a6c99ea4a9ad0d5e3f9542ad2a592a398b7e18bf6f9a027b536f692ebf147de2c4a248a7aeda4cfed0967777c4cadb2e0e40
+  data.tar.gz: ab3bce60704fe9de7b22af564721704ea9fcb6f088bce47373085f9decab9aaca23c60172e73636b448394567dc89b2f4831117ae3928a376a97189e1b0cbd08

data/.gitignore

@@ -0,0 +1,9 @@
+/.bundle/
+/.yardoc
+/_yardoc/
+/coverage/
+/doc/
+/pkg/
+/spec/reports/
+/tmp/
+Gemfile.lock

data/.travis.yml

@@ -0,0 +1,17 @@
+sudo: false
+language: ruby
+
+os:
+  - osx
+  - linux
+
+rvm:
+  - 2.4.2
+  - 2.5.0
+
+before_install:
+  - gem install bundler -v 1.16.1
+  - bundle
+
+script:
+  - bundle exec rspec

data/CODE_OF_CONDUCT.md

@@ -0,0 +1,74 @@
+# Contributor Covenant Code of Conduct
+
+## Our Pledge
+
+In the interest of fostering an open and welcoming environment, we as
+contributors and maintainers pledge to making participation in our project and
+our community a harassment-free experience for everyone, regardless of age, body
+size, disability, ethnicity, gender identity and expression, level of experience,
+nationality, personal appearance, race, religion, or sexual identity and
+orientation.
+
+## Our Standards
+
+Examples of behavior that contributes to creating a positive environment
+include:
+
+* Using welcoming and inclusive language
+* Being respectful of differing viewpoints and experiences
+* Gracefully accepting constructive criticism
+* Focusing on what is best for the community
+* Showing empathy towards other community members
+
+Examples of unacceptable behavior by participants include:
+
+* The use of sexualized language or imagery and unwelcome sexual attention or
+advances
+* Trolling, insulting/derogatory comments, and personal or political attacks
+* Public or private harassment
+* Publishing others' private information, such as a physical or electronic
+  address, without explicit permission
+* Other conduct which could reasonably be considered inappropriate in a
+  professional setting
+
+## Our Responsibilities
+
+Project maintainers are responsible for clarifying the standards of acceptable
+behavior and are expected to take appropriate and fair corrective action in
+response to any instances of unacceptable behavior.
+
+Project maintainers have the right and responsibility to remove, edit, or
+reject comments, commits, code, wiki edits, issues, and other contributions
+that are not aligned to this Code of Conduct, or to ban temporarily or
+permanently any contributor for other behaviors that they deem inappropriate,
+threatening, offensive, or harmful.
+
+## Scope
+
+This Code of Conduct applies both within project spaces and in public spaces
+when an individual is representing the project or its community. Examples of
+representing a project or community include using an official project e-mail
+address, posting via an official social media account, or acting as an appointed
+representative at an online or offline event. Representation of a project may be
+further defined and clarified by project maintainers.
+
+## Enforcement
+
+Instances of abusive, harassing, or otherwise unacceptable behavior may be
+reported by contacting the project team at mads.ohm@gmail.com. All
+complaints will be reviewed and investigated and will result in a response that
+is deemed necessary and appropriate to the circumstances. The project team is
+obligated to maintain confidentiality with regard to the reporter of an incident.
+Further details of specific enforcement policies may be posted separately.
+
+Project maintainers who do not follow or enforce the Code of Conduct in good
+faith may face temporary or permanent repercussions as determined by other
+members of the project's leadership.
+
+## Attribution
+
+This Code of Conduct is adapted from the [Contributor Covenant][homepage], version 1.4,
+available at [http://contributor-covenant.org/version/1/4][version]
+
+[homepage]: http://contributor-covenant.org
+[version]: http://contributor-covenant.org/version/1/4/

data/Gemfile

@@ -0,0 +1,6 @@
+source "https://rubygems.org"
+
+git_source(:github) {|repo_name| "https://github.com/#{repo_name}" }
+
+# Specify your gem's dependencies in emit.gemspec
+gemspec

data/LICENSE.txt

@@ -0,0 +1,21 @@
+The MIT License (MIT)
+
+Copyright (c) 2018 Mads Ohm Larsen
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.

data/README.md

@@ -0,0 +1,35 @@
+# Emit
+
+[![Build Status](https://travis-ci.org/omegahm/emit.svg?branch=master)](https://travis-ci.org/omegahm/emit)
+
+Emit is an implementation of Hoare's CSP in Ruby.
+
+Emit supports channels and processes to communicate and be run in parallel utilizing Ruby fibers.
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+```ruby
+gem 'emit'
+```
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install emit
+
+## Contributing
+
+Bug reports and pull requests are welcome on GitHub at https://github.com/omegahm/emit. This project is intended to be a safe, welcoming space for collaboration, and contributors are expected to adhere to the [Contributor Covenant](http://contributor-covenant.org) code of conduct.
+
+## License
+
+The gem is available as open source under the terms of the [MIT License](https://opensource.org/licenses/MIT).
+
+## Code of Conduct
+
+Everyone interacting in the Emit project’s codebases, issue trackers, chat rooms and mailing lists is expected to follow the [code of conduct](https://github.com/omegahm/emit/blob/master/CODE_OF_CONDUCT.md).

data/Rakefile

@@ -0,0 +1,10 @@
+require "bundler/gem_tasks"
+require "rake/testtask"
+
+Rake::TestTask.new(:test) do |t|
+  t.libs << "test"
+  t.libs << "lib"
+  t.test_files = FileList["test/**/*_test.rb"]
+end
+
+task :default => :test

data/benchmarks/commstime.rb

@@ -0,0 +1,66 @@
+require "emit"
+
+def prefix(cin, cout, item)
+  loop do
+    cout << item
+    item = cin.()
+  end
+end
+
+def delta2(cin, cout1, cout2)
+  loop do
+    t = cin.()
+    cout1 << t
+    cout2 << t
+  end
+end
+
+def successor(cin, cout)
+  loop do
+    cout << cin.() + 1
+  end
+end
+
+def consumer(cin, n)
+  cin.()
+
+  cin.()
+  t1 = Time.now
+  n.times { cin.() }
+  t2 = Time.now
+
+  dt = t2 - t1
+  tchan = dt.fdiv(4 * n)
+
+  puts "Total time elapsed          = %.6fs" % dt
+  puts "Avg. time per communication = %.6fs = %.6fµs" % [tchan, tchan * 1_000_000]
+  puts
+
+  Emit.poison(cin)
+end
+
+n = 3
+comms = 500
+n.times do |i|
+  puts "Running with #{4*comms} communications"
+  puts
+
+  begin
+    puts "---------- run: #{i+1} / #{n} ----------"
+
+    a = Emit.channel
+    b = Emit.channel
+    c = Emit.channel
+    d = Emit.channel
+    puts "Running commstime"
+
+    Emit.parallel(
+      Emit.prefix(+c, -a, 0),
+      Emit.delta2(+a, -b, -d),
+      Emit.successor(+b, -c),
+      Emit.consumer(+d, comms)
+    )
+  rescue Emit::ChannelPoisonedException
+    Emit::Scheduler.reset!
+  end
+end

data/benchmarks/many_processes.rb

@@ -0,0 +1,37 @@
+require "emit"
+
+def master(cout)
+  100000.times do |i|
+    cout << i
+  end
+  Emit.poison(cout)
+end
+
+def worker(cin, cout)
+  loop do
+    cout << 2*cin.()
+  end
+rescue Emit::ChannelPoisonedException
+  Emit.poison(cout)
+end
+
+def sink(cin)
+  loop do
+    cin.()
+  end
+rescue Emit::ChannelPoisonedException
+  # no-op
+end
+
+ch1 = Emit.channel
+ch2 = Emit.channel
+
+t1 = Time.now
+Emit.parallel(
+  Emit.master(-ch1),
+  10 * Emit.worker(+ch1, -ch2),
+  Emit.sink(+ch2)
+)
+t2 = Time.now
+
+puts "Total time elapsed = %.6fs" % (t2-t1)

data/benchmarks/montecarlopi.rb

@@ -0,0 +1,40 @@
+require "emit"
+
+def producer(job_out, bagsize, bags)
+  bags.times { job_out << bagsize }
+  Emit.retire(job_out)
+end
+
+def worker(job_in, result_out)
+  loop do
+    cnt = job_in.()
+    sum = cnt.times.count { (rand**2 + rand**2) < 1 }
+    result_out << (4.0 * sum) / cnt
+  end
+rescue Emit::ChannelRetiredException
+  Emit.retire(result_out)
+end
+
+def consumer(result_in)
+  cnt = 0
+  sum = result_in.()
+  loop do
+    cnt += 1
+    sum = (sum * cnt + result_in.()) / (cnt+1)
+  end
+rescue Emit::ChannelRetiredException
+  puts sum
+end
+
+jobs    = Emit.channel
+results = Emit.channel
+
+t1 = Time.now
+Emit.parallel(
+  Emit.producer(-jobs, 1000, 10000),
+  10.times.map { Emit.worker(+jobs, -results) },
+  Emit.consumer(+results)
+)
+t2 = Time.now
+
+puts "Total time elapsed = %.6fs" % (t2-t1)

data/benchmarks/select.rb

@@ -0,0 +1,30 @@
+require "emit"
+
+@result = []
+def action(message: nil)
+  @result << message
+end
+
+def p1(cout, n)
+  n.times { |i| cout << i }
+end
+
+def p2(cin1, cin2, n)
+  n.times do
+    Emit.select(
+      Emit::InputGuard.new(cin1, action: method(:action)),
+      Emit::InputGuard.new(cin2, action: method(:action))
+    )
+  end
+end
+
+ch1 = Emit.channel
+ch2 = Emit.channel
+
+Emit.parallel(
+  Emit.process(-ch1, 50, &method(:p1)),
+  Emit.process(-ch2, 50, &method(:p1)),
+  Emit.process(+ch1, +ch2, 100, &method(:p2))
+)
+
+puts @result.inspect

data/benchmarks/starvation.rb

@@ -0,0 +1,22 @@
+require "emit"
+
+c = Emit.channel
+d = Emit.channel
+
+def p(cout, cin)
+  puts "START"
+  cout << 1
+  puts "WRITE"
+  cin.()
+  puts "DONE"
+end
+
+def q(cout, cin)
+  cout << 1
+  cin.()
+end
+
+Emit.parallel(
+  Emit.p(-c, +d),
+  Emit.q(-d, +c)
+)

data/bin/console

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+
+require "bundler/setup"
+require "emit"
+
+# You can add fixtures and/or initialization code here to make experimenting
+# with your gem easier. You can also use a different console, if you like.
+
+# (If you use this, don't forget to add pry to your Gemfile!)
+# require "pry"
+# Pry.start
+
+require "irb"
+IRB.start(__FILE__)

data/bin/setup

@@ -0,0 +1,8 @@
+#!/usr/bin/env bash
+set -euo pipefail
+IFS=$'\n\t'
+set -vx
+
+bundle install
+
+# Do any other automated setup that you need to do here

data/emit.gemspec

@@ -0,0 +1,26 @@
+
+lib = File.expand_path("../lib", __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require "emit/version"
+
+Gem::Specification.new do |spec|
+  spec.name          = "emit"
+  spec.version       = Emit::VERSION
+  spec.authors       = ["Mads Ohm Larsen"]
+  spec.email         = ["mads.ohm@gmail.com"]
+
+  spec.summary       = "CSP for Ruby"
+  spec.description   = "Communicating Sequential Processes with Ruby fibers"
+  spec.homepage      = "https://github.com/omegahm/emit"
+  spec.license       = "MIT"
+
+  spec.files         = `git ls-files -z`.split("\x0").reject do |f|
+    f.match(%r{^(test|spec|features)/})
+  end
+  spec.executables   = spec.files.grep(%r{^exe/}) { |f| File.basename(f) }
+  spec.require_paths = ["lib"]
+
+  spec.add_development_dependency "bundler", "~> 1.16"
+  spec.add_development_dependency "rake", "~> 10.0"
+  spec.add_development_dependency "rspec", "~> 3.7"
+end

data/lib/emit.rb

@@ -0,0 +1,76 @@
+require "fiber"
+
+require "emit/version"
+require "emit/exceptions"
+
+require "emit/scheduler"
+require "emit/process"
+require "emit/channel_request"
+require "emit/channel"
+
+require "emit/channel_end"
+require "emit/channel_end_read"
+require "emit/channel_end_write"
+
+require "emit/input_guard"
+require "emit/output_guard"
+
+require "emit/alternation"
+require "emit/choice"
+
+module Emit
+  class << self
+    def parallel(*processes)
+      processes.flatten!
+
+      processes.each do |process|
+        process.start
+        Scheduler.enqueue(process)
+      end
+
+      Scheduler.join(processes)
+      processes.map(&:return_value)
+    end
+
+    def sequence(*processes)
+      processes.flatten.each(&:run)
+    end
+
+    def channel
+      Channel.new
+    end
+
+    def process(*args, **kwargs, &block)
+      Process.new(*args, **kwargs, &block)
+    end
+
+    def poison(*channel_ends)
+      channel_ends.each(&:poison)
+    end
+
+    def retire(*channel_ends)
+      channel_ends.each(&:retire)
+    end
+
+    def select(*guards)
+      Alternation.new(guards.map(&:guard_action)).execute
+    end
+
+    def method_missing(name, *args, **kwargs)
+      Emit.process(*args, **kwargs, &method(name.to_sym))
+    end
+  end
+
+  private_constant :ChannelEnd
+  private_constant :ChannelEndRead
+  private_constant :ChannelEndWrite
+  private_constant :ChannelRequest
+end
+
+class Integer
+  alias :old_mult :*
+  def *(other)
+    return other * self if Emit::Process === other
+    old_mult(other)
+  end
+end

data/lib/emit/alternation.rb

@@ -0,0 +1,106 @@
+module Emit
+  class Alternation
+    def initialize(guards)
+      @guards = guards
+    end
+
+    def execute
+      idx, request, channel, operation = choose
+
+      if @guards[idx]
+        action = @guards[idx].last[:action]
+
+        case action
+        when Choice
+          case operation
+          when :write then action.invoke_on_output
+          when :read  then action.invoke_on_input(request.message)
+          end
+        when Proc, Method
+          case operation
+          when :write then action.()
+          when :read  then action.(message: request.message)
+          end
+        when nil
+          # no-op
+        else
+          fail "Failed executing action: #{action}."
+        end
+      end
+
+      [channel, request.message]
+    end
+
+    private
+
+    def choose
+      requests  = {}
+      act       = nil
+      poison    = false
+      retire    = false
+
+      Scheduler.current.state = :active
+
+      begin
+        idx = 0
+        @guards.each do |guard|
+          if guard.size == 3 # write
+            operation = :write
+            channel, message, action = guard
+            request = ChannelRequest.new(Scheduler.current, message)
+            channel.send(:post_write, request)
+          elsif guard.size == 2 # read
+            operation = :read
+            channel, action = guard
+            request = ChannelRequest.new(Scheduler.current)
+            channel.send(:post_read, request)
+          else
+            fail "Guard was neither write or read."
+          end
+
+          requests[request] = [idx, channel, operation]
+          idx += 1
+        end
+      rescue ChannelPoisonedException, ChannelRetiredException
+        act = result(requests).first
+        raise unless act
+      end
+
+      Scheduler.current.wait unless act
+
+      unless act
+        act, poisoned, retired = result(requests)
+        unless act
+          raise ChannelPoisonedException if poisoned
+          raise ChannelRetiredException if retired
+          abort "We should not get here in choice."
+        end
+      end
+
+      idx, channel, operation = requests[act]
+      [idx, act, channel, operation]
+    end
+
+    def result(requests)
+      act      = nil
+      poisoned = false
+      retired  = false
+
+      requests.each do |request, value|
+        _, channel, operation = value
+
+        if operation == :read
+          channel.send(:remove_read, request)
+        else
+          channel.send(:remove_write, request)
+        end
+
+        act = request if request.success?
+        poisoned ||= request.poisoned?
+        retired  ||= request.retired?
+      end
+
+      [act, poisoned, retired]
+    end
+  end
+end

data/lib/emit/channel.rb

@@ -0,0 +1,167 @@
+require "securerandom"
+
+module Emit
+  class Channel
+    def initialize(name=nil)
+      @name        = name || SecureRandom.uuid
+      @read_queue  = []
+      @readers     = 0
+      @write_queue = []
+      @writers     = 0
+      @state       = :alive
+    end
+
+    def read
+      check_termination!
+
+      process = Scheduler.current
+
+      fast_read(process).tap do |msg|
+        return msg unless msg.nil?
+      end
+
+      process.state = :active
+      request = ChannelRequest.new(process)
+      post_read(request)
+      request.process.wait
+      remove_read(request)
+
+      return request.message if request.success?
+
+      check_termination!
+      abort "Should not get here..."
+    end
+
+    def write(message)
+      check_termination!
+
+      process = Scheduler.current
+
+      fast_write(process, message).tap do |written|
+        return true unless written.nil?
+      end
+
+      process.state = :active
+      request = ChannelRequest.new(process, message)
+      post_write(request)
+      request.process.wait
+      remove_write(request)
+
+      return true if request.success?
+
+      check_termination!
+      abort "Should not get here..."
+    end
+
+    def poison
+      return if poisoned?
+      @state = :poisoned
+      @read_queue.each(&:poison)
+      @write_queue.each(&:poison)
+    end
+
+    def reader
+      @readers += 1
+      ChannelEndRead.new(self)
+    end
+    alias :+@ :reader
+
+    def writer
+      @writers += 1
+      ChannelEndWrite.new(self)
+    end
+    alias :-@ :writer
+
+    def poisoned?
+      @state == :poisoned
+    end
+
+    def retired?
+      @state == :retired
+    end
+
+    def leave_reader
+      return if retired?
+      @readers -= 1
+      if @readers.zero?
+        @state = :retired
+        @write_queue.each(&:retire)
+      end
+    end
+
+    def leave_writer
+      return if retired?
+      @writers -= 1
+      if @writers.zero?
+        @state = :retired
+        @read_queue.each(&:retire)
+      end
+    end
+
+    # private
+
+    def post_read(request)
+      check_termination!
+      @read_queue << request
+      match
+    end
+
+    def post_write(request)
+      check_termination!
+      @write_queue << request
+      match
+    end
+
+    def remove_read(request)
+      @read_queue.delete(request)
+    end
+
+    def remove_write(request)
+      @write_queue.delete(request)
+    end
+
+    private
+
+    def fast_read(process)
+      writer = @write_queue.shuffle.find(&:active?)
+      return nil if writer.nil?
+
+      writer.result = :success
+      writer.process.state = :done
+      Scheduler.activate(writer.process) unless process == writer.process
+
+      writer.message
+    end
+
+    def fast_write(process, message)
+      reader = @read_queue.shuffle.find(&:active?)
+      return nil if reader.nil?
+
+      reader.message = message
+      reader.result = :success
+      reader.process.state = :done
+      Scheduler.activate(reader.process) unless process == reader.process
+
+      true
+    end
+
+    def check_termination!
+      case @state
+      when :poisoned
+        raise ChannelPoisonedException
+      when :retired
+        raise ChannelRetiredException
+      end
+    end
+
+    def match
+      @write_queue.shuffle.each do |writer|
+        @read_queue.shuffle.each do |reader|
+          return true if writer.offer(reader)
+        end
+      end
+
+      false
+    end
+  end
+end

data/lib/emit/channel_end.rb

@@ -0,0 +1,19 @@
+module Emit
+  class ChannelEnd
+    extend Forwardable
+
+    def initialize(channel)
+      @channel = channel
+      @retired = false
+    end
+    def_delegators :@channel, :poison
+
+    def reader?
+      false
+    end
+
+    def writer?
+      false
+    end
+  end
+end

data/lib/emit/channel_end_read.rb

@@ -0,0 +1,25 @@
+module Emit
+  class ChannelEndRead < ChannelEnd
+    def_delegators :@channel, :post_read
+    def_delegators :@channel, :remove_read
+
+    def call
+      @channel.read
+    end
+    alias :read :call
+
+    def retire
+      return if @retired
+
+      @retired = true
+      @channel.leave_reader
+      [:call, :read, :post_read].each do |sym|
+        define_singleton_method(sym) { raise ChannelRetiredException }
+      end
+    end
+
+    def reader?
+      true
+    end
+  end
+end

data/lib/emit/channel_end_write.rb

@@ -0,0 +1,25 @@
+module Emit
+  class ChannelEndWrite < ChannelEnd
+    def_delegators :@channel, :post_write
+    def_delegators :@channel, :remove_write
+
+    def call(message)
+      @channel.write(message)
+    end
+    alias :<< :call
+
+    def retire
+      return if @retired
+
+      @retired = true
+      @channel.leave_writer
+      [:call, :<<, :post_write].each do |sym|
+        define_singleton_method(sym) { raise ChannelRetiredException }
+      end
+    end
+
+    def writer?
+      true
+    end
+  end
+end

data/lib/emit/channel_request.rb

@@ -0,0 +1,52 @@
+module Emit
+  class ChannelRequest
+    attr_accessor :message, :result, :process
+
+    def initialize(process, message=nil)
+      @message = message
+      @process = process
+      @result  = :fail
+    end
+
+    def poison
+      return if success?
+      @result = :poison
+      @process.notify(:poison)
+    end
+
+    def retire
+      return if success?
+      @result = :retire
+      @process.notify(:retire)
+    end
+
+    def offer(recipient)
+      return false unless @process.active? && recipient.process.active?
+      recipient.message = @message
+
+      @result = :success
+      recipient.result = :success
+
+      @process.notify(:done)
+      recipient.process.notify(:done)
+
+      true
+    end
+
+    def active?
+      @process.active?
+    end
+
+    def success?
+      @result == :success
+    end
+
+    def poisoned?
+      @result == :poison
+    end
+
+    def retired?
+      @result == :retired
+    end
+  end
+end

data/lib/emit/choice.rb

@@ -0,0 +1,18 @@
+module Emit
+  class Choice
+    def initialize(*args, **kwargs, &block)
+      @block  = block
+      @args   = args
+      @kwargs = kwargs
+    end
+
+    def invoke_on_output
+      @block.call(*@args, **@kwargs)
+    end
+
+    def invoke_on_input(message)
+      @kwargs[:message] = message
+      @block.call(*@args, **@kwargs)
+    end
+  end
+end

data/lib/emit/exceptions.rb

@@ -0,0 +1,5 @@
+module Emit
+  class DeadlockException        < StandardError; end
+  class ChannelRetiredException  < StandardError; end
+  class ChannelPoisonedException < StandardError; end
+end

data/lib/emit/input_guard.rb

@@ -0,0 +1,13 @@
+module Emit
+  class InputGuard
+    attr_reader :guard_action
+
+    def initialize(channel_end, action=nil)
+      if ChannelEndRead === channel_end
+        @guard_action = [channel_end, action]
+      else
+        fail "InputGuard must have a reading channel end."
+      end
+    end
+  end
+end

data/lib/emit/output_guard.rb

@@ -0,0 +1,13 @@
+module Emit
+  class GuardGuard
+    attr_reader :guard_action
+
+    def initialize(channel_end, message, action=nil)
+      if ChannelEndWrite === channel_end
+        @guard_action = [channel_end, message, action]
+      else
+        fail "OutputGuard must have a writing channel end."
+      end
+    end
+  end
+end

data/lib/emit/process.rb

@@ -0,0 +1,86 @@
+require "forwardable"
+
+module Emit
+  class Process
+    attr_accessor :state
+    attr_reader :return_value, :fiber
+
+    def initialize(*args, **kwargs, &block)
+      fail ArgumentError.new("Must have a block as argument for Emit::Process.") unless block_given?
+      @block        = block
+      @args         = args
+      @kwargs       = kwargs
+
+      @state        = nil
+      @executed     = false
+      @return_value = nil
+
+      @fiber        = nil
+    end
+
+    def wait
+      Scheduler.get_next.transfer while active?
+    end
+
+    def notify(new_state)
+      @state = new_state
+      Scheduler.activate(self) unless Scheduler.current == self
+    end
+
+    def start
+      @fiber = Fiber.new { run }
+    end
+
+    def transfer
+      @fiber.transfer
+    end
+
+    def run
+      @executed = false
+
+      begin
+        if @block.arity.negative?
+          @return_value = @block.call(*@args, **@kwargs)
+        elsif @block.arity > 0
+          @return_value = @block.call(*@args)
+        else
+          @return_value = @block.call
+        end
+      rescue ::Emit::ChannelPoisonedException => e
+        propagate_poison
+        raise e
+      rescue ::Emit::ChannelRetiredException => e
+        propagate_retire
+        raise e
+      end
+
+      @executed = true
+    end
+
+    def active?
+      @state == :active
+    end
+
+    def executed?
+      @executed
+    end
+
+    def *(number)
+      [*number.times.map { self.dup }]
+    end
+
+    private
+
+    def propagate_poison
+      @args.each do |arg|
+        arg.poison if arg.methods.include?(:poison)
+      end
+    end
+
+    def propagate_retire
+      @args.each do |arg|
+        arg.retire if arg.methods.include?(:retire)
+      end
+    end
+  end
+end

data/lib/emit/scheduler.rb

@@ -0,0 +1,90 @@
+require "singleton"
+require_relative "process"
+
+module Emit
+  class MainProcess < Process
+    include Singleton
+
+    def initialize
+      @fiber = Fiber.current
+    end
+  end
+
+  class Scheduler
+    include Singleton
+
+    attr_reader :current
+
+    def initialize
+      reset!
+    end
+
+    def reset!
+      @root       = MainProcess.instance
+      @current    = @root
+      @new_queue  = []
+      @next_queue = []
+      @fiber      = Fiber.new { start_mainloop }
+      @done       = false
+    end
+
+    def enqueue(process)
+      @new_queue << process
+    end
+    alias :<< :enqueue
+
+    def join(processes)
+      tmp = @current
+      @done = false
+
+      processes.each do |process|
+        until process.executed?
+          raise DeadlockException if @done
+          get_next.transfer
+        end
+      end
+
+      @current = tmp
+    end
+
+    def activate(process)
+      @next_queue << process
+    end
+
+    def get_next
+      if !@new_queue.empty?
+        @fiber
+      elsif !@next_queue.empty?
+        @current = @next_queue.shift
+        @current
+      else
+        @fiber
+      end
+    end
+
+    private
+
+    def start_mainloop
+      loop do
+        if !@new_queue.empty?
+          @current = @new_queue.pop
+          @current.transfer
+        elsif !@next_queue.empty?
+          @current = @next_queue.pop
+          @current.transfer
+        end
+
+        if @new_queue.empty? && @next_queue.empty?
+          @done = true
+          @root.fiber.transfer
+        end
+      end
+    end
+  end
+
+  # Need to create the singleton instance in main fiber.
+  Scheduler = Scheduler.instance.tap do
+    # We remove the class and replace it with the instance.
+    remove_const("Scheduler")
+  end
+end

data/lib/emit/version.rb

@@ -0,0 +1,3 @@
+module Emit
+  VERSION = "0.1.0"
+end

metadata

@@ -0,0 +1,115 @@
+--- !ruby/object:Gem::Specification
+name: emit
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+platform: ruby
+authors:
+- Mads Ohm Larsen
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2018-05-09 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.16'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.16'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.7'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.7'
+description: Communicating Sequential Processes with Ruby fibers
+email:
+- mads.ohm@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- ".travis.yml"
+- CODE_OF_CONDUCT.md
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- benchmarks/commstime.rb
+- benchmarks/many_processes.rb
+- benchmarks/montecarlopi.rb
+- benchmarks/select.rb
+- benchmarks/starvation.rb
+- bin/console
+- bin/setup
+- emit.gemspec
+- lib/emit.rb
+- lib/emit/alternation.rb
+- lib/emit/channel.rb
+- lib/emit/channel_end.rb
+- lib/emit/channel_end_read.rb
+- lib/emit/channel_end_write.rb
+- lib/emit/channel_request.rb
+- lib/emit/choice.rb
+- lib/emit/exceptions.rb
+- lib/emit/input_guard.rb
+- lib/emit/output_guard.rb
+- lib/emit/process.rb
+- lib/emit/scheduler.rb
+- lib/emit/version.rb
+homepage: https://github.com/omegahm/emit
+licenses:
+- MIT
+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.6.13
+signing_key: 
+specification_version: 4
+summary: CSP for Ruby
+test_files: []