polyphony 0.45.0 → 0.46.0

data/examples/core/xx-readpartial.rb

@@ -1,18 +0,0 @@
-# frozen_string_literal: true
-
-require 'bundler/setup'
-require 'polyphony'
-
-Exception.__disable_sanitized_backtrace__ = true
-
-buffer = +''
-socket = TCPSocket.new('google.com', 80)
-socket.send("GET /?q=time HTTP/1.1\r\nHost: google.com\r\n\r\n", 0)
-move_on_after(5) {
-  while (data = socket.readpartial(8192))
-    buffer << data
-  end
-}
-
-puts "*" * 40
-p buffer

data/examples/core/xx-signals.rb

@@ -1,16 +0,0 @@
-# frozen_string_literal: true
-
-require 'bundler/setup'
-require 'polyphony'
-
-waiter = spin do
-  puts 'Waiting for HUP'
-  Polyphony.wait_for_signal('SIGHUP')
-  puts 'Got HUP'
-end
-
-sleep 1
-puts 'Sending HUP'
-Process.kill('SIGHUP', Process.pid)
-
-suspend

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

@@ -1,9 +0,0 @@
-# frozen_string_literal: true
-
-require 'bundler/setup'
-require 'polyphony'
-
-Exception.__disable_sanitized_backtrace__ = true
-
-puts "press Ctrl-C!"
-sleep

data/examples/core/xx-sleeping.rb

@@ -1,25 +0,0 @@
-# frozen_string_literal: true
-
-require 'bundler/setup'
-require 'polyphony'
-
-Exception.__disable_sanitized_backtrace__ = true
-
-# spin {
-#   10.times {
-#     STDOUT << '.'
-#     sleep 0.1
-#   }
-# }
-
-puts 'going to sleep...'
-sleep 1
-puts 'woke up'
-
-counter = 0
-t = Polyphony::Throttler.new(5)
-t.process do
-  p counter
-  counter += 1
-  t.stop if counter > 5
-end

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

@@ -1,16 +0,0 @@
-# frozen_string_literal: true
-
-require 'bundler/setup'
-require 'polyphony'
-
-Exception.__disable_sanitized_backtrace__ = true
-
-f = spin_loop {
-  snooze
-}
-
-puts 'going to sleep...'
-sleep 1
-puts 'woke up'
-f.stop
-

data/examples/core/xx-spin-fork.rb

@@ -1,49 +0,0 @@
-# frozen_string_literal: true
-
-require 'bundler/setup'
-require 'polyphony'
-
-Exception.__disable_sanitized_backtrace__ = true
-
-puts "Parent pid: #{Process.pid}"
-
-def start_worker
-  Polyphony.fork do
-    p :sleep
-    sleep 5
-    p :done_sleeping
-  ensure
-    p :start_worker_fork_ensure
-  end
-end
-
-f = spin do
-  Polyphony::ProcessSupervisor.supervise do
-    spin do
-      spin do
-        p :sleep
-        sleep 5
-        p :done_sleeping
-      end.await
-    end.await
-  ensure
-    p :start_worker_fork_ensure
-  end
-  # spin do
-  #   pid = start_worker
-  #   p [:before_child_await, pid]
-  #   Gyro::Child.new(pid).await
-  #   p :after_child_await
-  # ensure
-  #   puts "child done"
-  # end
-  # supervise
-# ensure
-#   puts "kill child"
-#   Process.kill('TERM', pid) rescue nil
-end
-
-sleep 1
-puts "terminate worker"
-f.terminate
-f.await

data/examples/core/xx-state-machine.rb

@@ -1,51 +0,0 @@
-# frozen_string_literal: true
-
-# require 'bundler/setup'
-# require 'polyphony'
-
-require 'fiber'
-
-class StateMachine < ::Fiber
-  def initialize(state, rules)
-    @state = state
-    @rules = rules
-    super() { |input| state_loop(input) }
-  end
-
-  attr_reader :state
-  def state_loop(input)
-    loop do
-      @state = apply(input)
-      input = Fiber.yield(@state)
-    end
-  end
-
-  def apply(input)
-    f = @rules[@state][input]
-    return f.(@state) if f.is_a?(Proc)
-
-    raise 'Invalid input'
-  rescue => e
-    @state
-  end
-
-  def transition(input)
-    state = self.resume(input)
-    # state.is_a?(Exception) ? (raise state) : state
-  end
-end
-
-o = StateMachine.new(
-  :off,
-  {
-    off: { turnon: ->(s) { :on } },
-    on: { turnoff: ->(s) { :off } }
-  }
-)
-
-loop do
-  STDOUT << "#{o.state}: "
-  input = gets.strip.to_sym
-  # puts "  command: #{input.inspect}"
-  o.transition(input)
-end

data/examples/core/xx-stop.rb

@@ -1,20 +0,0 @@
-# frozen_string_literal: true
-
-require 'bundler/setup'
-require 'polyphony'
-
-f1 = spin do
-  f2 = spin { sleep 60 }
-  f3 = spin { sleep 60 }
-  sleep 60
-ensure
-  p 1
-  f2.stop
-  p 2
-  f3.stop
-  p "should reach here!"
-end
-
-sleep 0.1
-f1.stop
-snooze

data/examples/core/xx-supervisors.rb

@@ -1,21 +0,0 @@
-# frozen_string_literal: true
-
-require 'bundler/setup'
-require 'polyphony'
-
-def my_sleep(t)
-  puts "#{t} start"
-  sleep(t)
-  puts "#{t} done"
-end
-
-puts "#{Time.now} waiting..."
-supervise do |s|
-  s.spin { my_sleep(1) }
-  s.spin { my_sleep(2) }
-  s.spin { my_sleep(3) }
-  s.spin do
-    puts "fiber count: #{Fiber.count}"
-  end
-end
-puts "#{Time.now} done waiting"

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

@@ -1,51 +0,0 @@
-# frozen_string_literal: true
-
-require 'bundler/setup'
-require 'polyphony'
-
-# Thread.event_selector = Gyro::Selector
-# Thread.current.setup_fiber_scheduling
-
-t = Gyro::Timer.new(1, 1)
-s = spin {
-  last = Time.now
-  loop do
-    t.await
-    now = Time.now
-    puts "elapsed: #{now - last}"
-    last = now
-  end
-}
-s.await
-exit!
-
-p :go_to_sleep
-sleep 1
-p :wake_up
-
-puts "*" * 60
-
-t = Thread.new {
-  Thread.current.setup_fiber_scheduling
-
-  spin {
-    p :go_to_sleep1
-    sleep 1
-    p :wake_up1
-  }
-
-  spin {
-    p :go_to_sleep2
-    sleep 2
-    p :wake_up2
-  }
-
-  p :waiting
-  suspend
-}
-
-t.join
-
-at_exit {
-  p :at_exit
-}

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

@@ -1,46 +0,0 @@
-# frozen_string_literal: true
-
-require 'bundler/setup'
-require 'polyphony'
-
-Exception.__disable_sanitized_backtrace__ = true
-Thread.event_selector = Gyro::Selector
-Thread.current.setup_fiber_scheduling
-
-def bm(fibers, iterations)
-  count = {}
-
-  t0 = Time.now
-  threads = (1..1).map do |i|
-    Thread.new do
-      count[i] = 0
-      supervise do |s|
-        fibers.times do
-          s.spin do
-            iterations.times do
-              snooze
-              count[i] += 1
-            end
-          end
-        end
-      end
-    end
-  end
-  threads.each(&:join)
-  dt = Time.now - t0
-  count = count.values.inject(0, &:+)
-  puts "#{[fibers, iterations].inspect} count: #{count} #{count / dt.to_f}/s"
-end
-
-# GC.disable
-
-loop {
-  puts "*" * 60
-  bm(1, 1_000_000)
-  bm(10,  100_000)
-  bm(100,  10_000)
-  bm(1_000, 1_000)
-  bm(10_000,  100)
-  bm(100_000,  10)
-  # bm(1_000_000, 1)
-}

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

@@ -1,34 +0,0 @@
-# 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-timer-gc.rb

@@ -1,17 +0,0 @@
-# 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

@@ -1,79 +0,0 @@
-# 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
-  )
-)