polyphony 0.77 → 0.80

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 10f049946dc02d9cdd984cc8658687d2319e0fd85f6f2cce74aa0a887bc714cb
-  data.tar.gz: 5118859d4640aebeddb9186c43d58617e9b455a63ea97c1dc8283432db954fd1
+  metadata.gz: cf3658689c8bb7614624ad75492b16fc31401c5c8ee37cd510bb4aab1c9d1449
+  data.tar.gz: 5e2520d758db10e9dfe8022d6a85df61e1702f2e1e6560a95968e37b6f4f6e82
 SHA512:
-  metadata.gz: e107e21d6c42f9cd9e91521e288dfee37a6f0da4b7d8a8d311924bf88ccf732d2cc94de834dbbaa3c7a974e5bb84ce1d8d20efd68870c9f2dac9b73155d28558
-  data.tar.gz: 8e4f7005c9cbc46cd084bbe66a4e8f7145f6a4a3062ce027a70eee07c0e648f79289515591ef4b48010580b7125c403ab09e45417781346ebf6da4b2d528ec45
+  metadata.gz: 7bd42d8fed28064941281c0e010f86a7ff7fff56e28c8e8190c8bc5c68eebd26a8d568e03ce20120db64684a036afb8d9b8586668c59f39fadebdaba2624ba75
+  data.tar.gz: cd91d0394a0642fbb43d59cc3ba6a3100377be955f1cabeebc051f8f6159d6fb0e78fa7deedabc6bc4fabc20b12453c963b85ed9ce76002211d3423b05f51542

data/.github/workflows/test.yml

@@ -19,7 +19,7 @@ jobs:
       POLYPHONY_USE_LIBEV: "1"
 
     steps:
-    - name: Setup OS
+    - name: Setup machine
       uses: actions/checkout@v1
     - name: Setup Ruby
       uses: ruby/setup-ruby@v1

data/CHANGELOG.md

@@ -1,3 +1,21 @@
+## 0.80 2022-02-28
+
+- Prevent reentry into `trace_proc`
+- Rename `__parser_read_method__` to `__read_method__`
+- Rename `ResourcePool#preheat!` to `#fill`.
+- Remove ability to use `#cancel_after` or `#move_on` without a block
+- Add #move_on alias to `Fiber#interrupt`
+- Allow specifying exception in `Fiber#cancel`
+- Remove deprecated `Polyphony::Channel` class
+
+## 0.79 2022-02-19
+
+- Overhaul trace events system (#73)
+
+## 0.78 2022-02-16
+
+- Fix Polyphony::Queue API compatibility (#72)
+
 ## 0.77 2022-02-07
 
 - Fix behaviour of signal traps (#71)

data/Gemfile.lock

@@ -1,7 +1,7 @@
 PATH
   remote: .
   specs:
-    polyphony (0.77)
+    polyphony (0.80)
 
 GEM
   remote: https://rubygems.org/
@@ -60,6 +60,7 @@ GEM
     unicode-display_width (1.8.0)
 
 PLATFORMS
+  ruby
   universal-darwin
   universal-freebsd
   universal-linux

data/examples/core/pingpong.rb

@@ -3,18 +3,21 @@
 require 'bundler/setup'
 require 'polyphony'
 
-pong = spin_loop do
+require 'polyphony/core/debug'
+Polyphony::Trace.start_event_firehose(STDOUT)
+
+pong = spin_loop(:pong) do
   msg, ping = receive
   puts msg
   ping << 'pong'
 end
 
-ping = spin do
-  3.times do
+ping = spin(:ping) do
+  1.times do
     pong << ['ping', Fiber.current]
     msg = receive
     puts msg
   end
 end
 
-ping.await
+ping.await

data/examples/core/zlib_stream.rb

@@ -0,0 +1,15 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'polyphony'
+require 'zlib'
+
+r, w = IO.pipe
+writer = Zlib::GzipWriter.new(w)
+
+writer << 'chunk'
+writer.flush
+p pos: writer.pos
+w.close
+
+p r.read

data/ext/polyphony/backend_common.c

@@ -17,6 +17,7 @@ inline void backend_base_initialize(struct Backend_base *base) {
   base->idle_gc_last_time = 0;
   base->idle_proc = Qnil;
   base->trace_proc = Qnil;
+  base->in_trace_proc = 0;
 }
 
 inline void backend_base_finalize(struct Backend_base *base) {
@@ -65,7 +66,7 @@ VALUE backend_base_switch_fiber(VALUE backend, struct Backend_base *base) {
 
   base->switch_count++;
   if (SHOULD_TRACE(base))
-    TRACE(base, 3, SYM_fiber_switchpoint, current_fiber, CALLER());
+    TRACE(base, 3, SYM_block, current_fiber, CALLER());
 
   while (1) {
     next = runqueue_shift(&base->runqueue);
@@ -96,8 +97,6 @@ VALUE backend_base_switch_fiber(VALUE backend, struct Backend_base *base) {
   if (next.fiber == Qnil) return Qnil;
 
   // run next fiber
-  COND_TRACE(base, 3, SYM_fiber_run, next.fiber, next.value);
-
   rb_ivar_set(next.fiber, ID_ivar_runnable, Qnil);
   RB_GC_GUARD(next.fiber);
   RB_GC_GUARD(next.value);
@@ -112,7 +111,7 @@ void backend_base_schedule_fiber(VALUE thread, VALUE backend, struct Backend_bas
   if (rb_fiber_alive_p(fiber) != Qtrue) return;
   already_runnable = rb_ivar_get(fiber, ID_ivar_runnable) != Qnil;
 
-  COND_TRACE(base, 4, SYM_fiber_schedule, fiber, value, prioritize ? Qtrue : Qfalse);
+  COND_TRACE(base, 5, SYM_schedule, fiber, value, prioritize ? Qtrue : Qfalse, CALLER());
 
   runqueue = rb_ivar_get(fiber, ID_ivar_parked) == Qtrue ? &base->parked_runqueue : &base->runqueue;
 
@@ -139,7 +138,7 @@ inline void backend_base_unpark_fiber(struct Backend_base *base, VALUE fiber) {
 }
 
 inline void backend_trace(struct Backend_base *base, int argc, VALUE *argv) {
-  if (base->trace_proc == Qnil) return;
+  if (base->trace_proc == Qnil || base->in_trace_proc) return;
 
   rb_funcallv(base->trace_proc, ID_call, argc, argv);
 }
@@ -244,15 +243,24 @@ inline VALUE backend_await(struct Backend_base *backend) {
   VALUE ret;
   backend->pending_count++;
   ret = Thread_switch_fiber(rb_thread_current());
+
+  // run next fiber
+  COND_TRACE(backend, 4, SYM_unblock, rb_fiber_current(), ret, CALLER());
+
   backend->pending_count--;
   RB_GC_GUARD(ret);
   return ret;
 }
 
-inline VALUE backend_snooze() {
+inline VALUE backend_snooze(struct Backend_base *backend) {
   VALUE ret;
-  Fiber_make_runnable(rb_fiber_current(), Qnil);
-  ret = Thread_switch_fiber(rb_thread_current());
+  VALUE fiber = rb_fiber_current();
+  VALUE thread = rb_thread_current();
+  Fiber_make_runnable(fiber, Qnil);
+  ret = Thread_switch_fiber(thread);
+
+  COND_TRACE(backend, 4, SYM_unblock, fiber, ret, CALLER());
+  
   return ret;
 }
 

data/ext/polyphony/backend_common.h

@@ -32,6 +32,7 @@ struct Backend_base {
   double idle_gc_last_time;
   VALUE idle_proc;
   VALUE trace_proc;
+  unsigned int in_trace_proc;
 };
 
 void backend_base_initialize(struct Backend_base *base);
@@ -46,8 +47,12 @@ void backend_trace(struct Backend_base *base, int argc, VALUE *argv);
 struct backend_stats backend_base_stats(struct Backend_base *base);
 
 // tracing
-#define SHOULD_TRACE(base) ((base)->trace_proc != Qnil)
-#define TRACE(base, ...)  rb_funcall((base)->trace_proc, ID_call, __VA_ARGS__)
+#define SHOULD_TRACE(base) ((base)->trace_proc != Qnil && !(base)->in_trace_proc)
+#define TRACE(base, ...) { \
+  (base)->in_trace_proc = 1; \
+  rb_funcall((base)->trace_proc, ID_call, __VA_ARGS__); \
+  (base)->in_trace_proc = 0; \
+}
 #define COND_TRACE(base, ...) if (SHOULD_TRACE(base)) { TRACE(base, __VA_ARGS__); }
 
 
@@ -80,7 +85,7 @@ void fptr_finalize(rb_io_t *fptr);
 
 struct backend_stats backend_get_stats(VALUE self);
 VALUE backend_await(struct Backend_base *backend);
-VALUE backend_snooze();
+VALUE backend_snooze(struct Backend_base *backend);
 
 // macros for doing read loops
 #define READ_LOOP_PREPARE_STR() { \

data/ext/polyphony/backend_io_uring.c

@@ -216,12 +216,12 @@ inline VALUE Backend_poll(VALUE self, VALUE blocking) {
     io_uring_submit(&backend->ring);
   }
 
-  COND_TRACE(&backend->base, 2, SYM_fiber_event_poll_enter, rb_fiber_current());
+  COND_TRACE(&backend->base, 2, SYM_enter_poll, rb_fiber_current());
   
   if (is_blocking) io_uring_backend_poll(backend);
   io_uring_backend_handle_ready_cqes(backend);
   
-  COND_TRACE(&backend->base, 2, SYM_fiber_event_poll_leave, rb_fiber_current());
+  COND_TRACE(&backend->base, 2, SYM_leave_poll, rb_fiber_current());
 
   return self;
 }
@@ -1108,7 +1108,7 @@ VALUE Backend_timer_loop(VALUE self, VALUE interval) {
       if (!completed) return resume_value;
     }
     else {
-      resume_value = backend_snooze();
+      resume_value = backend_snooze(&backend->base);
       RAISE_IF_EXCEPTION(resume_value);
     }
 
@@ -1591,6 +1591,22 @@ VALUE Backend_trace_proc_set(VALUE self, VALUE block) {
   return self;
 }
 
+VALUE Backend_snooze(VALUE self) {
+  VALUE ret;
+  VALUE fiber = rb_fiber_current();
+  Backend_t *backend;
+  GetBackend(self, backend);
+
+  Fiber_make_runnable(fiber, Qnil);
+  ret = Thread_switch_fiber(rb_thread_current());
+
+  COND_TRACE(&backend->base, 4, SYM_unblock, rb_fiber_current(), ret, CALLER());
+
+  RAISE_IF_EXCEPTION(ret);
+  RB_GC_GUARD(ret);
+  return ret;
+}
+
 void Backend_park_fiber(VALUE self, VALUE fiber) {
   Backend_t *backend;
   GetBackend(self, backend);

data/ext/polyphony/backend_libev.c

@@ -168,7 +168,7 @@ inline VALUE Backend_poll(VALUE self, VALUE blocking) {
 
   backend->base.poll_count++;
 
-  COND_TRACE(&backend->base, 2, SYM_fiber_event_poll_enter, rb_fiber_current());
+  COND_TRACE(&backend->base, 2, SYM_enter_poll, rb_fiber_current());
   
 ev_run:
   backend->base.currently_polling = 1;
@@ -177,7 +177,7 @@ ev_run:
   backend->base.currently_polling = 0;
   if (errno == EINTR && runqueue_empty_p(&backend->base.runqueue)) goto ev_run;
   
-  COND_TRACE(&backend->base, 2, SYM_fiber_event_poll_leave, rb_fiber_current());
+  COND_TRACE(&backend->base, 2, SYM_leave_poll, rb_fiber_current());
 
   return self;
 }
@@ -305,7 +305,7 @@ VALUE Backend_read(VALUE self, VALUE io, VALUE str, VALUE length, VALUE to_eof,
       if (TEST_EXCEPTION(switchpoint_result)) goto error;
     }
     else {
-      switchpoint_result = backend_snooze();
+      switchpoint_result = backend_snooze(&backend->base);
       if (TEST_EXCEPTION(switchpoint_result)) goto error;
 
       if (n == 0) break; // EOF
@@ -375,7 +375,7 @@ VALUE Backend_read_loop(VALUE self, VALUE io, VALUE maxlen) {
       if (TEST_EXCEPTION(switchpoint_result)) goto error;
     }
     else {
-      switchpoint_result = backend_snooze();
+      switchpoint_result = backend_snooze(&backend->base);
 
       if (TEST_EXCEPTION(switchpoint_result)) goto error;
 
@@ -428,7 +428,7 @@ VALUE Backend_feed_loop(VALUE self, VALUE io, VALUE receiver, VALUE method) {
       if (TEST_EXCEPTION(switchpoint_result)) goto error;
     }
     else {
-      switchpoint_result = backend_snooze();
+      switchpoint_result = backend_snooze(&backend->base);
 
       if (TEST_EXCEPTION(switchpoint_result)) goto error;
 
@@ -483,7 +483,7 @@ VALUE Backend_write(VALUE self, VALUE io, VALUE str) {
   }
 
   if (watcher.fiber == Qnil) {
-    switchpoint_result = backend_snooze();
+    switchpoint_result = backend_snooze(&backend->base);
 
     if (TEST_EXCEPTION(switchpoint_result)) goto error;
   }
@@ -558,7 +558,7 @@ VALUE Backend_writev(VALUE self, VALUE io, int argc, VALUE *argv) {
     }
   }
   if (watcher.fiber == Qnil) {
-    switchpoint_result = backend_snooze();
+    switchpoint_result = backend_snooze(&backend->base);
     if (TEST_EXCEPTION(switchpoint_result)) goto error;
   }
 
@@ -611,7 +611,7 @@ VALUE Backend_accept(VALUE self, VALUE server_socket, VALUE socket_class) {
     else {
       VALUE socket;
       rb_io_t *fp;
-      switchpoint_result = backend_snooze();
+      switchpoint_result = backend_snooze(&backend->base);
 
       if (TEST_EXCEPTION(switchpoint_result)) {
         close(fd); // close fd since we're raising an exception
@@ -669,7 +669,7 @@ VALUE Backend_accept_loop(VALUE self, VALUE server_socket, VALUE socket_class) {
     }
     else {
       rb_io_t *fp;
-      switchpoint_result = backend_snooze();
+      switchpoint_result = backend_snooze(&backend->base);
 
       if (TEST_EXCEPTION(switchpoint_result)) {
         close(fd); // close fd since we're raising an exception
@@ -727,7 +727,7 @@ VALUE Backend_connect(VALUE self, VALUE sock, VALUE host, VALUE port) {
     if (TEST_EXCEPTION(switchpoint_result)) goto error;
   }
   else {
-    switchpoint_result = backend_snooze();
+    switchpoint_result = backend_snooze(&backend->base);
 
     if (TEST_EXCEPTION(switchpoint_result)) goto error;
   }
@@ -774,7 +774,7 @@ VALUE Backend_send(VALUE self, VALUE io, VALUE str, VALUE flags) {
   }
 
   if (watcher.fiber == Qnil) {
-    switchpoint_result = backend_snooze();
+    switchpoint_result = backend_snooze(&backend->base);
 
     if (TEST_EXCEPTION(switchpoint_result)) goto error;
   }
@@ -880,7 +880,7 @@ VALUE Backend_splice(VALUE self, VALUE src, VALUE dest, VALUE maxlen) {
   }
 
   if (watcher.ctx.fiber == Qnil) {
-    switchpoint_result = backend_snooze();
+    switchpoint_result = backend_snooze(&backend->base);
     if (TEST_EXCEPTION(switchpoint_result)) goto error;
   }
 
@@ -935,7 +935,7 @@ VALUE Backend_splice_to_eof(VALUE self, VALUE src, VALUE dest, VALUE maxlen) {
   }
 
   if (watcher.ctx.fiber == Qnil) {
-    switchpoint_result = backend_snooze();
+    switchpoint_result = backend_snooze(&backend->base);
     if (TEST_EXCEPTION(switchpoint_result)) goto error;
   }
 
@@ -1009,7 +1009,7 @@ VALUE Backend_splice(VALUE self, VALUE src, VALUE dest, VALUE maxlen) {
   }
 
   if (watcher.fiber == Qnil) {
-    switchpoint_result = backend_snooze();
+    switchpoint_result = backend_snooze(&backend->base);
     if (TEST_EXCEPTION(switchpoint_result)) goto error;
   }
 
@@ -1089,7 +1089,7 @@ VALUE Backend_splice_to_eof(VALUE self, VALUE src, VALUE dest, VALUE maxlen) {
 
 done:
   if (watcher.fiber == Qnil) {
-    switchpoint_result = backend_snooze();
+    switchpoint_result = backend_snooze(&backend->base);
     if (TEST_EXCEPTION(switchpoint_result)) goto error;
   }
 
@@ -1171,7 +1171,7 @@ noreturn VALUE Backend_timer_loop(VALUE self, VALUE interval) {
       RAISE_IF_EXCEPTION(resume_value);
     }
     else {
-      resume_value = backend_snooze();
+      resume_value = backend_snooze(&backend->base);
       RAISE_IF_EXCEPTION(resume_value);
     }
 
@@ -1530,7 +1530,7 @@ VALUE Backend_splice_chunks(VALUE self, VALUE src, VALUE dest, VALUE prefix, VAL
   }
 
   if (watcher.ctx.fiber == Qnil) {
-    result = backend_snooze();
+    result = backend_snooze(&backend->base);
     if (TEST_EXCEPTION(result)) goto error;
   }
   RB_GC_GUARD(str);
@@ -1564,6 +1564,22 @@ VALUE Backend_trace_proc_set(VALUE self, VALUE block) {
   return self;
 }
 
+VALUE Backend_snooze(VALUE self) {
+  VALUE ret;
+  VALUE fiber = rb_fiber_current();
+  Backend_t *backend;
+  GetBackend(self, backend);
+
+  Fiber_make_runnable(fiber, Qnil);
+  ret = Thread_switch_fiber(rb_thread_current());
+
+  COND_TRACE(&backend->base, 4, SYM_unblock, rb_fiber_current(), ret, CALLER());
+
+  RAISE_IF_EXCEPTION(ret);
+  RB_GC_GUARD(ret);
+  return ret;
+}
+
 void Backend_park_fiber(VALUE self, VALUE fiber) {
   Backend_t *backend;
   GetBackend(self, backend);

data/ext/polyphony/fiber.c

@@ -10,13 +10,13 @@ VALUE SYM_running;
 VALUE SYM_runnable;
 VALUE SYM_waiting;
 
-VALUE SYM_fiber_create;
-VALUE SYM_fiber_event_poll_enter;
-VALUE SYM_fiber_event_poll_leave;
-VALUE SYM_fiber_run;
-VALUE SYM_fiber_schedule;
-VALUE SYM_fiber_switchpoint;
-VALUE SYM_fiber_terminate;
+VALUE SYM_spin;
+VALUE SYM_enter_poll;
+VALUE SYM_leave_poll;
+VALUE SYM_unblock;
+VALUE SYM_schedule;
+VALUE SYM_block;
+VALUE SYM_terminate;
 
 static VALUE Fiber_safe_transfer(int argc, VALUE *argv, VALUE self) {
   VALUE arg = (argc == 0) ? Qnil : argv[0];
@@ -97,7 +97,7 @@ VALUE Fiber_receive(VALUE self) {
     mailbox = rb_funcall(cQueue, ID_new, 0);
     rb_ivar_set(self, ID_ivar_mailbox, mailbox);
   }
-  return Queue_shift(mailbox);
+  return Queue_shift(0, 0, mailbox);
 }
 
 VALUE Fiber_mailbox(VALUE self) {
@@ -157,24 +157,24 @@ void Init_Fiber() {
   rb_global_variable(&SYM_runnable);
   rb_global_variable(&SYM_waiting);
 
-  ID_ivar_auto_watcher        = rb_intern("@auto_watcher");
-  ID_ivar_mailbox             = rb_intern("@mailbox");
-  ID_ivar_result              = rb_intern("@result");
-  ID_ivar_waiting_fibers      = rb_intern("@waiting_fibers");
-
-  SYM_fiber_create            = ID2SYM(rb_intern("fiber_create"));
-  SYM_fiber_event_poll_enter  = ID2SYM(rb_intern("fiber_event_poll_enter"));
-  SYM_fiber_event_poll_leave  = ID2SYM(rb_intern("fiber_event_poll_leave"));
-  SYM_fiber_run               = ID2SYM(rb_intern("fiber_run"));
-  SYM_fiber_schedule          = ID2SYM(rb_intern("fiber_schedule"));
-  SYM_fiber_switchpoint       = ID2SYM(rb_intern("fiber_switchpoint"));
-  SYM_fiber_terminate         = ID2SYM(rb_intern("fiber_terminate"));
-
-  rb_global_variable(&SYM_fiber_create);
-  rb_global_variable(&SYM_fiber_event_poll_enter);
-  rb_global_variable(&SYM_fiber_event_poll_leave);
-  rb_global_variable(&SYM_fiber_run);
-  rb_global_variable(&SYM_fiber_schedule);
-  rb_global_variable(&SYM_fiber_switchpoint);
-  rb_global_variable(&SYM_fiber_terminate);
+  ID_ivar_auto_watcher    = rb_intern("@auto_watcher");
+  ID_ivar_mailbox         = rb_intern("@mailbox");
+  ID_ivar_result          = rb_intern("@result");
+  ID_ivar_waiting_fibers  = rb_intern("@waiting_fibers");
+
+  SYM_spin                = ID2SYM(rb_intern("spin"));
+  SYM_enter_poll          = ID2SYM(rb_intern("enter_poll"));
+  SYM_leave_poll          = ID2SYM(rb_intern("leave_poll"));
+  SYM_unblock             = ID2SYM(rb_intern("unblock"));
+  SYM_schedule            = ID2SYM(rb_intern("schedule"));
+  SYM_block               = ID2SYM(rb_intern("block"));
+  SYM_terminate           = ID2SYM(rb_intern("terminate"));
+
+  rb_global_variable(&SYM_spin);
+  rb_global_variable(&SYM_enter_poll);
+  rb_global_variable(&SYM_leave_poll);
+  rb_global_variable(&SYM_unblock);
+  rb_global_variable(&SYM_schedule);
+  rb_global_variable(&SYM_block);
+  rb_global_variable(&SYM_terminate);
 }

data/ext/polyphony/polyphony.c

@@ -27,14 +27,7 @@ ID ID_W;
 ID ID_RW;
 
 VALUE Polyphony_snooze(VALUE self) {
-  VALUE ret;
-  VALUE fiber = rb_fiber_current();
-
-  Fiber_make_runnable(fiber, Qnil);
-  ret = Thread_switch_fiber(rb_thread_current());
-  RAISE_IF_EXCEPTION(ret);
-  RB_GC_GUARD(ret);
-  return ret;
+  return Backend_snooze(BACKEND());
 }
 
 static VALUE Polyphony_suspend(VALUE self) {

data/ext/polyphony/polyphony.h

@@ -61,20 +61,20 @@ extern ID ID_switch_fiber;
 extern ID ID_to_s;
 extern ID ID_transfer;
 
-extern VALUE SYM_fiber_create;
-extern VALUE SYM_fiber_event_poll_enter;
-extern VALUE SYM_fiber_event_poll_leave;
-extern VALUE SYM_fiber_run;
-extern VALUE SYM_fiber_schedule;
-extern VALUE SYM_fiber_switchpoint;
-extern VALUE SYM_fiber_terminate;
+extern VALUE SYM_spin;
+extern VALUE SYM_enter_poll;
+extern VALUE SYM_leave_poll;
+extern VALUE SYM_unblock;
+extern VALUE SYM_schedule;
+extern VALUE SYM_block;
+extern VALUE SYM_terminate;
 
 VALUE Fiber_auto_watcher(VALUE self);
 void Fiber_make_runnable(VALUE fiber, VALUE value);
 
 VALUE Queue_push(VALUE self, VALUE value);
 VALUE Queue_unshift(VALUE self, VALUE value);
-VALUE Queue_shift(VALUE self);
+VALUE Queue_shift(int argc,VALUE *argv, VALUE self);
 VALUE Queue_shift_all(VALUE self);
 
 void Runqueue_push(VALUE self, VALUE fiber, VALUE value, int reschedule);
@@ -121,11 +121,14 @@ VALUE Backend_wait_event(VALUE self, VALUE raise_on_exception);
 VALUE Backend_wakeup(VALUE self);
 VALUE Backend_run_idle_tasks(VALUE self);
 VALUE Backend_switch_fiber(VALUE self);
+
 void Backend_schedule_fiber(VALUE thread, VALUE self, VALUE fiber, VALUE value, int prioritize);
 void Backend_unschedule_fiber(VALUE self, VALUE fiber);
 void Backend_park_fiber(VALUE self, VALUE fiber);
 void Backend_unpark_fiber(VALUE self, VALUE fiber);
 
+VALUE Backend_snooze(VALUE self);
+
 void Thread_schedule_fiber(VALUE thread, VALUE fiber, VALUE value);
 void Thread_schedule_fiber_with_priority(VALUE thread, VALUE fiber, VALUE value);
 VALUE Thread_switch_fiber(VALUE thread);