polyphony 0.43.8

data/examples/core/xx-thread-sleep.rb

@@ -0,0 +1,17 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+
+Exception.__disable_sanitized_backtrace__ = true
+
+t = Thread.new {
+  t0 = Time.now
+  puts "sleep"
+  sleep 0.01
+  puts "wake up #{Time.now - t0}"
+}
+
+t0 = Time.now
+t.join
+puts "elapsed: #{Time.now - t0}"

data/examples/core/xx-thread-snooze.rb

@@ -0,0 +1,34 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+
+Exception.__disable_sanitized_backtrace__ = true
+
+def work
+  puts "creating fibers..."
+  100000.times {
+    spin {
+      loop { snooze }
+    }
+  }
+
+  puts "done"
+  suspend
+end
+
+def work_thread
+  t = Thread.new { work }
+  t.join
+end
+
+main = Fiber.current
+p [:main, main]
+
+# trap('SIGINT') do
+#   p [:SIGINT, Fiber.current]
+#   p caller
+#   exit!
+# end
+
+work

data/examples/core/xx-thread_pool.rb

@@ -0,0 +1,17 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+
+def lengthy_op
+  data = IO.orig_read(__FILE__)
+  data.bytesize
+end
+
+10.times do |_i|
+  spin {
+    p [_i, 2, Polyphony::ThreadPool.process { lengthy_op }]
+  }
+end
+
+suspend

data/examples/core/xx-throttling.rb

@@ -0,0 +1,18 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+
+spin do
+  throttled_loop(3) { STDOUT << '.' }
+end
+
+spin do
+  throttled_loop(rate: 2) { STDOUT << '?' }
+end
+
+spin do
+  throttled_loop(interval: 1) { STDOUT << '*' }
+end
+
+suspend

data/examples/core/xx-timeout.rb

@@ -0,0 +1,10 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+
+puts 'going to sleep...'
+Timeout.timeout(1) do
+  sleep 60
+end
+puts 'woke up'

data/examples/core/xx-timer-gc.rb

@@ -0,0 +1,17 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+
+Exception.__disable_sanitized_backtrace__ = true
+
+timers = 10.times.map do
+  spin do
+    t = Gyro::Timer.new(1, 1)
+    t.await
+  end
+end
+
+sleep 0.1
+GC.start
+sleep 0.1

data/examples/core/xx-trace.rb

@@ -0,0 +1,79 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+
+Exception.__disable_sanitized_backtrace__ = true
+
+
+sleep 0
+$records = []
+
+Gyro.trace(true)
+trace = Polyphony::Trace.new { |r| $records << r }
+trace.enable
+
+f2 = spin(:f2) { 3.times { sleep 0.1 } }
+
+10.times {
+  spin { 3.times { sleep rand(0.05..0.15) } }
+}
+
+suspend
+trace.disable
+puts("record count: %d" % $records.size)
+
+analysis = Polyphony::Trace.analyze $records
+
+puts("fiber count: %d" % analysis[:by_fiber].size)
+puts
+
+worker_fibers = analysis[:by_fiber].keys - [Fiber.current]
+
+analysis[:by_fiber][f2].each { |r| 
+  case r[:event]
+  when /^fiber_/
+    STDOUT.orig_puts "#{r[:stamp]} #{r[:event]} (#{r[:value].inspect})"
+  else
+    STDOUT.orig_puts "#{r[:stamp]} #{r[:fiber]&.tag} #{r[:event]} (#{r[:value].inspect})"
+  end
+}
+
+state = 0
+run_wait_stamp = nil
+schedule_stamp = nil
+run_time = 0
+wait_time = 0
+schedule_count = 0
+schedule_acc = 0
+worker_fibers.each do |f|
+  analysis[:by_fiber][f].each { |r|
+    case r[:event]
+    when :fiber_create
+      state = 0
+      run_wait_stamp = r[:stamp]
+    when :fiber_schedule
+      schedule_count += 1
+      schedule_stamp = r[:stamp]
+    when :fiber_run
+      schedule_acc += r[:stamp] - schedule_stamp
+      wait_time += r[:stamp] - run_wait_stamp
+      state = 1
+      schedule_stamp = run_wait_stamp = r[:stamp]
+    when :fiber_switchpoint, :fiber_terminate
+      run_time += r[:stamp] - run_wait_stamp
+      state = 0
+      run_wait_stamp = r[:stamp]
+    end
+  }
+end
+
+puts(
+  format(
+    "f2 run: %f wait: %f schedule_count: %d avg schedule latency: %f",
+    run_time,
+    wait_time,
+    schedule_count,
+    schedule_acc / schedule_count
+  )
+)

data/examples/core/xx-using-a-mutex.rb

@@ -0,0 +1,21 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+
+def loop_it(number, lock)
+  loop do
+    sleep(rand * 0.2)
+    lock.synchronize do
+      puts "child #{number} has the lock"
+      sleep(rand * 0.05)
+    end
+  end
+end
+
+lock = Polyphony::Sync::Mutex.new
+spin { loop_it(1, lock) }
+spin { loop_it(2, lock) }
+spin { loop_it(3, lock) }
+
+suspend

data/examples/core/xx-worker-thread.rb

@@ -0,0 +1,30 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+
+def do_work(client)
+  result = yield
+  client.schedule(result)
+rescue Exception => e
+  client.schedule(e)
+end
+
+$worker = Thread.new do
+  Fiber.current.tag = :worker
+  loop do
+    client, block = receive
+    do_work(client, &block)
+  end
+rescue Exception => e
+  p e
+end
+
+def process(&block)
+  $worker.main_fiber << [Fiber.current, block]
+  receive
+end
+
+sleep 0.1
+
+p process { 1 + 1 }

data/examples/io/tunnel.rb

@@ -0,0 +1,48 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+
+Ports = ARGV[0..1]
+EndPoints = []
+
+def log(msg)
+  puts "#{Time.now.strftime('%Y-%m-%d %H:%M:%S.%3N')} #{msg}"
+end
+
+def endpoint_loop(idx, peer_idx)
+  port = Ports[idx]
+  server = Polyphony::Net.tcp_listen(
+    '0.0.0.0',
+    port,
+    reuse_addr: true
+  ) 
+  # server = TCPServer.open('0.0.0.0', port)
+  log "Listening on port #{port}"
+  loop do
+    conn = server.accept
+    conn.binmode
+    EndPoints[idx] = conn
+    log "Client connected on port #{port} (#{conn.remote_address.inspect})"
+    while data = conn.readpartial(8192)
+      peer = EndPoints[peer_idx]
+      if peer
+        peer << data
+        log "#{idx} => #{peer_idx} #{data.inspect}"
+      else
+        log "#{idx}: #{data.inspect}"
+      end
+    end
+    EndPoints[idx] = nil
+    log "Connection closed on port #{port}"
+  rescue => e
+    log "Error on port #{port}: #{e.inspect}"
+  end
+end
+
+spin { endpoint_loop(0, 1) }
+spin { endpoint_loop(1, 0) }
+
+log "Tunneling port #{Ports[0]} to port #{Ports[1]}..."
+sleep
+

data/examples/io/xx-backticks.rb

@@ -0,0 +1,11 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+
+timer = spin do
+  throttled_loop(5) { STDOUT << '.' }
+end
+
+puts `ruby -e "sleep 1; puts :done; STDOUT.close"`
+timer.stop

data/examples/io/xx-echo_client.rb

@@ -0,0 +1,25 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+
+socket = Polyphony::Net.tcp_connect('127.0.0.1', 1234)
+
+writer = spin do
+  throttled_loop(1) do
+    socket << "#{Time.now}\n"
+  rescue StandardError
+    nil
+  end
+end
+
+reader = spin do
+  puts 'received from echo server:'
+  while (data = socket.readpartial(8192))
+    STDOUT << data
+  end
+end
+
+sleep(5)
+[reader, writer].each(&:stop)
+socket.close

data/examples/io/xx-echo_client_from_stdin.rb

@@ -0,0 +1,21 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+
+socket = Polyphony::Net.tcp_connect('127.0.0.1', 1234)
+
+writer = spin do
+  while (data = gets)
+    socket << data
+  end
+end
+
+spin do
+  while (data = socket.readpartial(8192))
+    STDOUT << 'received: ' + data
+  end
+  writer.interrupt
+end
+
+suspend

data/examples/io/xx-echo_pipe.rb

@@ -0,0 +1,16 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+
+i, o = IO.pipe
+
+puts 'Say something:'
+spin do
+  loop { o << STDIN.gets }
+  o.close
+end
+
+while (data = i.readpartial(8192))
+  STDOUT << "You said: #{data}"
+end

data/examples/io/xx-echo_server.rb

@@ -0,0 +1,17 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+
+server = TCPServer.open('127.0.0.1', 1234)
+puts "Pid: #{Process.pid}"
+puts 'Echoing on port 1234...'
+while (client = server.accept)
+  spin do
+    while (data = client.gets)
+      client.write('you said: ', data.chomp, "!\n")
+    end
+  rescue Errno::ECONNRESET
+    'Connection reset...'
+  end
+end

data/examples/io/xx-echo_server_with_timeout.rb

@@ -0,0 +1,34 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+
+begin
+  server = Polyphony::Net.tcp_listen(
+    nil, 1234, reuse_addr: true, dont_linger: true
+  )
+  puts 'listening on port 1234...'
+
+  loop do
+    client = server.accept
+    client.write "Hi there\n"
+    spin do
+      move_on_after(5) do |scope|
+        scope.when_cancelled do
+          client.write "Disconnecting due to inactivity\n"
+        end
+        while (data = client.readpartial(8192))
+          scope.reset_timeout
+          client.write "You said: #{data}"
+        end
+      end
+    rescue StandardError => e
+      puts "client error: #{e.inspect}"
+    ensure
+      client.close
+    end
+  end
+rescue Exception => e
+  puts "uncaught exception: #{e.inspect}"
+  server&.close
+end

data/examples/io/xx-echo_stdin.rb

@@ -0,0 +1,14 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+
+puts 'Write something...'
+move_on_after(5) do |scope|
+  loop do
+    data = STDIN.gets
+    scope.reset_timeout
+    puts "you wrote: #{data}"
+  end
+end
+puts 'quitting due to inactivity'