polyphony 0.44.0 → 0.45.5

data/examples/adapters/sequel_mysql.rb

@@ -2,7 +2,7 @@
 
 require 'bundler/setup'
 require 'polyphony/adapters/sequel'
-require 'polyphony/adapters/mysql2'
+require 'polyphony/adapters/postgres'
 
 time_printer = spin do
   last = Time.now

data/examples/adapters/sequel_pg.rb

@@ -0,0 +1,24 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony/adapters/sequel'
+require 'polyphony/adapters/postgres'
+
+URL = ENV['SEQUEL_URL'] || 'postgres://localhost/test'
+
+x = 10000
+query_count = 0
+
+spin do
+  db = Sequel.connect(URL)
+  x.times { query_count += 1; db.execute('select 1 as test') }
+end
+
+spin do
+  db = Sequel.connect(URL)
+  x.times { query_count += 1; db.execute('select 2 as test') }
+end
+
+t0 = Time.now
+Fiber.current.await_all_children
+puts "query rate: #{query_count / (Time.now - t0)} reqs/s; count = #{query_count}"

data/examples/core/deferring-an-operation.rb

@@ -0,0 +1,16 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+
+spin do
+  puts 'two'
+  # spinning a fiber from the parent fiber allows us to schedule an operation to
+  # be performed even after the current fiber is terminated
+  Fiber.current.parent.spin { puts 'four' }
+  puts 'three'
+end
+
+puts 'one'
+
+suspend

data/examples/core/{xx-erlang-style-genserver.rb → erlang-style-genserver.rb}

@@ -3,8 +3,10 @@
 require 'bundler/setup'
 require 'polyphony'
 
-class GenServer
-  def self.start(receiver, *args)
+module GenServer
+  module_function
+
+  def start(receiver, *args)
     fiber = spin do
       state = receiver.initial_state(*args)
       loop do
@@ -14,11 +16,10 @@ class GenServer
       end
     end
     build_api(fiber, receiver)
-    snooze
     fiber
   end
 
-  def self.build_api(fiber, receiver)
+  def build_api(fiber, receiver)
     receiver.methods(false).each do |m|
       if m =~ /!$/
         fiber.define_singleton_method(m) do |*args|
@@ -32,7 +33,7 @@ class GenServer
     end
   end
 
-  def self.cast(process, method, *args)
+  def cast(process, method, *args)
     process << {
       from:   Fiber.current,
       method: method,
@@ -40,7 +41,7 @@ class GenServer
     }
   end
 
-  def self.call(process, method, *args)
+  def call(process, method, *args)
     process << {
       from:   Fiber.current,
       method: method,
@@ -50,21 +51,27 @@ class GenServer
   end
 end
 
+# In a generic server the state is not held in an instance variable but rather
+# passed as the first parameter to method calls. The return value of each method
+# is an array consisting of the result and the potentially mutated state.
 module Map
-  def self.initial_state(hash = {})
+  module_function
+
+  def initial_state(hash = {})
     hash
   end
 
-  def self.get(state, key)
+  def get(state, key)
     [state[key], state]
   end
 
-  def self.put!(state, key, value)
+  def put!(state, key, value)
     state[key] = value
     [:noreply, state]
   end
 end
 
+# start server with initial state
 map_server = GenServer.start(Map, {foo: :bar})
 
 puts 'getting value from map server'

data/examples/core/{xx-forking.rb → forking.rb}

@@ -20,5 +20,5 @@ end
 puts "got child pid #{pid}"
 
 puts 'parent waiting for child'
-Gyro::Child.new(pid).await
+Thread.current.backend.waitpid(pid)
 puts 'parent done waiting'

data/examples/core/handling-signals.rb

@@ -0,0 +1,11 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+
+puts "going to sleep (press Ctrl-C to stop)"
+begin
+  sleep
+ensure
+  puts "done sleeping"
+end

data/examples/core/{xx-pingpong.rb → pingpong.rb}

@@ -9,10 +9,12 @@ pong = spin_loop do
   ping << 'pong'
 end
 
-ping = spin_loop do
-  pong << ['ping', Fiber.current]
-  msg = receive
-  puts msg
+ping = spin do
+  3.times do
+    pong << ['ping', Fiber.current]
+    msg = receive
+    puts msg
+  end
 end
 
-suspend
+ping.await

data/examples/core/{xx-recurrent-timer.rb → recurrent-timer.rb}

@@ -3,7 +3,7 @@
 require 'bundler/setup'
 require 'polyphony'
 
-move_on_after(3) do
+move_on_after(3.1) do
   puts 'Start...'
   every(1) do
     puts Time.now

data/examples/core/{xx-resource_delegate.rb → resource_delegate.rb}

@@ -10,7 +10,7 @@ class Number
 
   def greet(other)
     puts "You are number #{other}, I am number #{@id}"
-    sleep(0.05 + rand * 0.2)
+    sleep rand(0.2..0.3)
   end
 end
 
@@ -25,7 +25,6 @@ def meet(number)
   end
 end
 
-3.times { |x| spin { meet(x) } }
+(4..10).each { |x| spin { meet(x) } }
 
-t0 = Time.now
-every(10) { puts "uptime: #{Time.now - t0}" }
+sleep 1

data/examples/core/{01-spinning-up-fibers.rb → spin.rb}

@@ -14,5 +14,5 @@ end
 spin { nap(:a, 1) }
 spin { nap(:b, 2) }
 
-# Calling suspend will block until all child fibers have terminated
+# Calling suspend will block until no work is left to do
 suspend

data/examples/core/{xx-spin_error_backtrace.rb → spin_error_backtrace.rb}

@@ -9,7 +9,7 @@ end
 
 def deferred_error(t)
   puts "deferred_error"
-  spin { de2(t) }
+  spin { de2(t) }.await
 end
 
 def de2(t)

data/examples/core/{xx-supervise-process.rb → supervise-process.rb}

@@ -8,7 +8,7 @@ Exception.__disable_sanitized_backtrace__ = true
 supervisor = spin do
   puts "parent pid #{Process.pid}"
 
-  Polyphony::ProcessSupervisor.supervise do
+  Polyphony.watch_process do
     puts "child pid #{Process.pid}"
     puts "go to sleep"
     sleep 5
@@ -22,9 +22,12 @@ supervisor = spin do
 end
 
 begin
+  spin do
+    sleep 2.5
+    Process.kill('TERM', Process.pid)
+  end
+  supervisor.await
+rescue SystemExit
+  supervisor.terminate
   supervisor.await
-rescue Interrupt
-  exit!
-  # supervisor.terminate
-  # supervisor.await
 end

data/examples/core/supervisor.rb

@@ -0,0 +1,20 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+
+def my_sleep(t)
+  puts "#{t} start"
+  sleep(t)
+  puts "#{t} done"
+end
+
+spin { my_sleep(1) }
+spin { my_sleep(2) }
+spin { my_sleep(3) }
+spin { puts "fiber count: #{Fiber.current.children.count}" }
+snooze
+
+puts "#{Time.now} supervising..."
+supervise
+puts "#{Time.now} done supervising"

data/examples/core/{xx-worker-thread.rb → worker-thread.rb}

@@ -5,9 +5,9 @@ require 'polyphony'
 
 def do_work(client)
   result = yield
-  client.schedule(result)
+  client << result
 rescue Exception => e
-  client.schedule(e)
+  client << e
 end
 
 $worker = Thread.new do

data/examples/io/{xx-echo_client.rb → echo_client.rb}

@@ -15,7 +15,7 @@ end
 
 reader = spin do
   puts 'received from echo server:'
-  while (data = socket.readpartial(8192))
+  socket.read_loop do |data|
     STDOUT << data
   end
 end

data/examples/io/{xx-echo_client_from_stdin.rb → echo_client_from_stdin.rb}

@@ -11,8 +11,8 @@ writer = spin do
   end
 end
 
-spin do
-  while (data = socket.readpartial(8192))
+reader = spin do
+  socket.read_loop do |data|
     STDOUT << 'received: ' + data
   end
   writer.interrupt

data/examples/io/{xx-echo_pipe.rb → echo_pipe.rb}

@@ -11,6 +11,6 @@ spin do
   o.close
 end
 
-while (data = i.readpartial(8192))
+i.read_loop do |data|
   STDOUT << "You said: #{data}"
 end

data/examples/io/{xx-echo_server_with_timeout.rb → echo_server_with_timeout.rb}

@@ -17,7 +17,7 @@ begin
         scope.when_cancelled do
           client.write "Disconnecting due to inactivity\n"
         end
-        while (data = client.readpartial(8192))
+        client.read_loop do |data|
           scope.reset_timeout
           client.write "You said: #{data}"
         end

data/examples/io/{xx-httparty.rb → httparty.rb}

@@ -16,23 +16,14 @@ end
 zones = %w{
   Europe/London Europe/Paris Europe/Bucharest America/New_York Asia/Bangkok
 }
-# zones.each do |tzone|
-#   spin do
-#     time = get_time(tzone)
-#     puts "Time in #{tzone}: #{time}"
-#   end
-# end
-
-# suspend
 
 def get_times(zones)
-  Polyphony::Supervisor.new do |s|
-    zones.each do |tzone|
-      s.spin { [tzone, get_time(tzone)] }
-    end
+  fibers = zones.map do |tzone|
+    spin { [tzone, get_time(tzone)] }
   end
+  Fiber.await(*fibers)
 end
 
-get_times(zones).await.each do |tzone, time|
+get_times(zones).each do |tzone, time|
   puts "Time in #{tzone}: #{time}"
 end

data/examples/io/pry.rb

@@ -0,0 +1,18 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+require 'polyphony/adapters/readline'
+require 'pry'
+
+$counter = 0
+timer = spin do
+  throttled_loop(5) do
+    $counter += 1
+  end
+end
+
+at_exit { timer.stop }
+
+puts 'try typing $counter to see the counter incremented in the background'
+binding.pry

data/examples/io/rack_server.rb

@@ -0,0 +1,71 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+require 'http/parser'
+require 'rack'
+
+module RackAdapter
+  class << self
+    def run(app)
+      ->(socket, req) { respond(socket, req, app.(env(req))) }
+    end
+
+    def env(req)
+      {}
+    end
+    
+    def respond(socket, request, (status_code, headers, body))
+      body = body.join
+      headers = "Content-Type: text/plain\r\nContent-Length: #{body.bytesize}\r\n"
+      socket.write "HTTP/1.1 #{status_code}\r\n#{headers}\r\n#{body}"
+    end
+  end
+end
+
+$connection_count = 0
+
+def handle_client(socket, &handler)
+  $connection_count += 1
+  parser = Http::Parser.new
+  reqs = []
+  parser.on_message_complete = proc do |env|
+    reqs << Object.new # parser
+  end
+  socket.read_loop do |data|
+    parser << data
+    while (req = reqs.shift)
+      handler.call(socket, req)
+      req = nil
+    end
+  end
+rescue IOError, SystemCallError => e
+  # do nothing
+ensure
+  $connection_count -= 1
+  socket&.close
+end
+
+def handle_request(client, parser)
+  status_code = "200 OK"
+  data = "Hello world!\n"
+  headers = "Content-Type: text/plain\r\nContent-Length: #{data.bytesize}\r\n"
+  client.write "HTTP/1.1 #{status_code}\r\n#{headers}\r\n#{data}"
+end
+
+server = TCPServer.open('0.0.0.0', 1234)
+puts "pid #{Process.pid}"
+puts "listening on port 1234"
+
+app = RackAdapter.run(lambda { |env|
+  [
+    200,
+    {"Content-Type" => "text/plain"},
+    ["Hello, world!\n"]
+  ]
+})
+
+loop do
+  client = server.accept
+  spin { handle_client(client, &app) }
+end