io-event 1.8.4 → 1.9.0

data/ext/io/event/selector/epoll.c

@@ -157,7 +157,7 @@ size_t IO_Event_Selector_EPoll_Type_size(const void *_selector)
 }
 
 static const rb_data_type_t IO_Event_Selector_EPoll_Type = {
-	.wrap_struct_name = "IO_Event::Backend::EPoll",
+	.wrap_struct_name = "IO::Event::Backend::EPoll",
 	.function = {
 		.dmark = IO_Event_Selector_EPoll_Type_mark,
 		.dcompact = IO_Event_Selector_EPoll_Type_compact,
@@ -394,7 +394,7 @@ VALUE IO_Event_Selector_EPoll_transfer(VALUE self)
 	struct IO_Event_Selector_EPoll *selector = NULL;
 	TypedData_Get_Struct(self, struct IO_Event_Selector_EPoll, &IO_Event_Selector_EPoll_Type, selector);
 	
-	return IO_Event_Selector_fiber_transfer(selector->backend.loop, 0, NULL);
+	return IO_Event_Selector_loop_yield(&selector->backend);
 }
 
 VALUE IO_Event_Selector_EPoll_resume(int argc, VALUE *argv, VALUE self)
@@ -450,7 +450,7 @@ static
 VALUE process_wait_transfer(VALUE _arguments) {
 	struct process_wait_arguments *arguments = (struct process_wait_arguments *)_arguments;
 	
-	IO_Event_Selector_fiber_transfer(arguments->selector->backend.loop, 0, NULL);
+	IO_Event_Selector_loop_yield(&arguments->selector->backend);
 	
 	if (arguments->waiting->ready) {
 		return IO_Event_Selector_process_status_wait(arguments->pid, arguments->flags);
@@ -538,7 +538,7 @@ static
 VALUE io_wait_transfer(VALUE _arguments) {
 	struct io_wait_arguments *arguments = (struct io_wait_arguments *)_arguments;
 	
-	IO_Event_Selector_fiber_transfer(arguments->selector->backend.loop, 0, NULL);
+	IO_Event_Selector_loop_yield(&arguments->selector->backend);
 	
 	if (arguments->waiting->ready) {
 		return RB_INT2NUM(arguments->waiting->ready);
@@ -925,7 +925,7 @@ int IO_Event_Selector_EPoll_handle(struct IO_Event_Selector_EPoll *selector, con
 			
 			// Resume the fiber:
 			waiting->ready = matching_events;
-			IO_Event_Selector_fiber_transfer_user(waiting->fiber, 0, NULL);
+			IO_Event_Selector_loop_resume(&selector->backend, waiting->fiber, 0, NULL);
 			
 			node = saved->tail;
 			IO_Event_List_pop(saved);

data/ext/io/event/selector/kqueue.c

@@ -156,7 +156,7 @@ size_t IO_Event_Selector_KQueue_Type_size(const void *_selector)
 }
 
 static const rb_data_type_t IO_Event_Selector_KQueue_Type = {
-	.wrap_struct_name = "IO_Event::Backend::KQueue",
+	.wrap_struct_name = "IO::Event::Backend::KQueue",
 	.function = {
 		.dmark = IO_Event_Selector_KQueue_Type_mark,
 		.dcompact = IO_Event_Selector_KQueue_Type_compact,
@@ -381,7 +381,7 @@ VALUE IO_Event_Selector_KQueue_transfer(VALUE self)
 	struct IO_Event_Selector_KQueue *selector = NULL;
 	TypedData_Get_Struct(self, struct IO_Event_Selector_KQueue, &IO_Event_Selector_KQueue_Type, selector);
 	
-	return IO_Event_Selector_fiber_transfer(selector->backend.loop, 0, NULL);
+	return IO_Event_Selector_loop_yield(&selector->backend);
 }
 
 VALUE IO_Event_Selector_KQueue_resume(int argc, VALUE *argv, VALUE self)
@@ -455,7 +455,7 @@ static
 VALUE process_wait_transfer(VALUE _arguments) {
 	struct process_wait_arguments *arguments = (struct process_wait_arguments *)_arguments;
 	
-	IO_Event_Selector_fiber_transfer(arguments->selector->backend.loop, 0, NULL);
+	IO_Event_Selector_loop_yield(&arguments->selector->backend);
 	
 	if (arguments->waiting->ready) {
 		process_prewait(arguments->pid);
@@ -531,7 +531,7 @@ static
 VALUE io_wait_transfer(VALUE _arguments) {
 	struct io_wait_arguments *arguments = (struct io_wait_arguments *)_arguments;
 	
-	IO_Event_Selector_fiber_transfer(arguments->selector->backend.loop, 0, NULL);
+	IO_Event_Selector_loop_yield(&arguments->selector->backend);
 	
 	if (arguments->waiting->ready) {
 		return RB_INT2NUM(arguments->waiting->ready);
@@ -897,7 +897,7 @@ int IO_Event_Selector_KQueue_handle(struct IO_Event_Selector_KQueue *selector, u
 			IO_Event_List_append(node, saved);
 			
 			waiting->ready = matching_events;
-			IO_Event_Selector_fiber_transfer_user(waiting->fiber, 0, NULL);
+			IO_Event_Selector_loop_resume(&selector->backend, waiting->fiber, 0, NULL);
 			
 			node = saved->tail;
 			IO_Event_List_pop(saved);

data/ext/io/event/selector/selector.c

@@ -2,76 +2,12 @@
 // Copyright, 2021-2025, by Samuel Williams.
 
 #include "selector.h"
-#include "../profile.h"
 
 #include <fcntl.h>
 #include <stdlib.h>
 
 static const int DEBUG = 0;
 
-static ID id_transfer, id_alive_p;
-
-static float IO_Event_Selector_stall_log_threshold = 0;
-static int IO_Event_Selector_stall_log_profile = 0;
-
-VALUE IO_Event_Selector_fiber_transfer(VALUE fiber, int argc, VALUE *argv) {
-	// TODO Consider introducing something like `rb_fiber_scheduler_transfer(...)`.
-#ifdef HAVE__RB_FIBER_TRANSFER
-	if (RTEST(rb_obj_is_fiber(fiber))) {
-		if (RTEST(rb_fiber_alive_p(fiber))) {
-			return rb_fiber_transfer(fiber, argc, argv);
-		}
-		
-		return Qnil;
-	}
-#endif
-	if (RTEST(rb_funcall(fiber, id_alive_p, 0))) {
-		return rb_funcallv(fiber, id_transfer, argc, argv);
-	}
-	
-	return Qnil;
-}
-
-VALUE IO_Event_Selector_fiber_transfer_user(VALUE fiber, int argc, VALUE *argv) {
-	// Bypass if the threshold is not set:
-	if (IO_Event_Selector_stall_log_threshold == 0) {
-		return IO_Event_Selector_fiber_transfer(fiber, argc, argv);
-	}
-	
-	VALUE profile = IO_Event_Profile_allocate(IO_Event_Profile);
-	
-	IO_Event_Profile_start(profile, IO_Event_Selector_stall_log_profile);
-	
-	// Transfer control to the fiber:
-	VALUE result = IO_Event_Selector_fiber_transfer(fiber, argc, argv);
-	
-	IO_Event_Profile_stop(profile);
-	
-	float duration = IO_Event_Profile_duration(profile);
-	if (duration > IO_Event_Selector_stall_log_threshold) {
-		IO_Event_Profile_print(profile, stderr);
-	}
-	
-	return result;
-}
-
-#ifndef HAVE__RB_FIBER_RAISE
-static ID id_raise;
-
-VALUE IO_Event_Selector_fiber_raise(VALUE fiber, int argc, VALUE *argv) {
-	return rb_funcallv(fiber, id_raise, argc, argv);
-}
-#endif
-
-#ifndef HAVE_RB_FIBER_CURRENT
-static ID id_current;
-
-static VALUE rb_fiber_current() {
-	return rb_funcall(rb_cFiber, id_current, 0);
-}
-#endif
-
-
 #ifndef HAVE_RB_IO_DESCRIPTOR
 static ID id_fileno;
 
@@ -148,17 +84,6 @@ static VALUE IO_Event_Selector_nonblock(VALUE class, VALUE io)
 }
 
 void Init_IO_Event_Selector(VALUE IO_Event_Selector) {
-	id_transfer = rb_intern("transfer");
-	id_alive_p = rb_intern("alive?");
-	
-#ifndef HAVE__RB_FIBER_RAISE
-	id_raise = rb_intern("raise");
-#endif
-	
-#ifndef HAVE_RB_FIBER_CURRENT
-	id_current = rb_intern("current");
-#endif
-	
 #ifndef HAVE_RB_IO_DESCRIPTOR
 	id_fileno = rb_intern("fileno");
 #endif
@@ -170,31 +95,25 @@ void Init_IO_Event_Selector(VALUE IO_Event_Selector) {
 #endif
 	
 	rb_define_singleton_method(IO_Event_Selector, "nonblock", IO_Event_Selector_nonblock, 1);
+}
+
+void IO_Event_Selector_initialize(struct IO_Event_Selector *backend, VALUE self, VALUE loop) {
+	RB_OBJ_WRITE(self, &backend->self, self);
+	RB_OBJ_WRITE(self, &backend->loop, loop);
 	
-	// Extract the stall log threshold if specified:
-	
-	char *stall_log_threshold = getenv("IO_EVENT_SELECTOR_STALL_LOG_THRESHOLD");
-	// Can be true, false or a floating point time in seconds:
-	
-	if (stall_log_threshold) {
-		if (strcmp(stall_log_threshold, "true") == 0) {
-			IO_Event_Selector_stall_log_threshold = 0.01;
-		} else if (strcmp(stall_log_threshold, "false") == 0) {
-			IO_Event_Selector_stall_log_threshold = 0;
-		} else {
-			IO_Event_Selector_stall_log_threshold = strtof(stall_log_threshold, NULL);
-		}
-		
-		if (DEBUG) fprintf(stderr, "IO_EVENT_SELECTOR_STALL_LOG_THRESHOLD = %.3f\n", IO_Event_Selector_stall_log_threshold);
-	}
-	
-	char *stall_log_profile = getenv("IO_EVENT_SELECTOR_STALL_LOG_PROFILE");
-	
-	if (stall_log_profile) {
-		if (strcmp(stall_log_profile, "true") == 0) {
-			IO_Event_Selector_stall_log_profile = 1;
-		}
-	}
+	backend->waiting = NULL;
+	backend->ready = NULL;
+}
+
+VALUE IO_Event_Selector_loop_resume(struct IO_Event_Selector *backend, VALUE fiber, int argc, VALUE *argv) {
+	return IO_Event_Fiber_transfer(fiber, argc, argv);
+}
+
+VALUE IO_Event_Selector_loop_yield(struct IO_Event_Selector *backend)
+{
+	// TODO Why is this assertion failing in async?
+	// RUBY_ASSERT(backend->loop != IO_Event_Fiber_current());
+	return IO_Event_Fiber_transfer(backend->loop, 0, NULL);
 }
 
 struct wait_and_transfer_arguments {
@@ -248,7 +167,7 @@ static VALUE wait_and_transfer(VALUE _arguments) {
 	int argc = arguments->argc - 1;
 	VALUE *argv = arguments->argv + 1;
 	
-	return IO_Event_Selector_fiber_transfer_user(fiber, argc, argv);
+	return IO_Event_Selector_loop_resume(arguments->backend, fiber, argc, argv);
 }
 
 static VALUE wait_and_transfer_ensure(VALUE _arguments) {
@@ -267,7 +186,7 @@ VALUE IO_Event_Selector_resume(struct IO_Event_Selector *backend, int argc, VALU
 		.head = NULL,
 		.tail = NULL,
 		.flags = IO_EVENT_SELECTOR_QUEUE_FIBER,
-		.fiber = rb_fiber_current()
+		.fiber = IO_Event_Fiber_current()
 	};
 	
 	RB_OBJ_WRITTEN(backend->self, Qundef, waiting.fiber);
@@ -291,7 +210,7 @@ static VALUE wait_and_raise(VALUE _arguments) {
 	int argc = arguments->argc - 1;
 	VALUE *argv = arguments->argv + 1;
 	
-	return IO_Event_Selector_fiber_raise(fiber, argc, argv);
+	return IO_Event_Fiber_raise(fiber, argc, argv);
 }
 
 VALUE IO_Event_Selector_raise(struct IO_Event_Selector *backend, int argc, VALUE *argv)
@@ -302,7 +221,7 @@ VALUE IO_Event_Selector_raise(struct IO_Event_Selector *backend, int argc, VALUE
 		.head = NULL,
 		.tail = NULL,
 		.flags = IO_EVENT_SELECTOR_QUEUE_FIBER,
-		.fiber = rb_fiber_current()
+		.fiber = IO_Event_Fiber_current()
 	};
 	
 	RB_OBJ_WRITTEN(backend->self, Qundef, waiting.fiber);
@@ -350,7 +269,7 @@ void IO_Event_Selector_ready_pop(struct IO_Event_Selector *backend, struct IO_Ev
 		rb_raise(rb_eRuntimeError, "Unknown queue type!");
 	}
 	
-	IO_Event_Selector_fiber_transfer_user(fiber, 0, NULL);
+	IO_Event_Selector_loop_resume(backend, fiber, 0, NULL);
 }
 
 int IO_Event_Selector_ready_flush(struct IO_Event_Selector *backend)

data/ext/io/event/selector/selector.h

@@ -8,6 +8,7 @@
 #include <ruby/io.h>
 
 #include "../time.h"
+#include "../fiber.h"
 
 #ifdef HAVE_RUBY_IO_BUFFER_H
 #include <ruby/io/buffer.h>
@@ -39,17 +40,6 @@ static inline int IO_Event_try_again(int error) {
 	return error == EAGAIN || error == EWOULDBLOCK;
 }
 
-VALUE IO_Event_Selector_fiber_transfer(VALUE fiber, int argc, VALUE *argv);
-
-// Specifically for transferring control to a user fiber.
-VALUE IO_Event_Selector_fiber_transfer_user(VALUE fiber, int argc, VALUE *argv);
-
-#ifdef HAVE__RB_FIBER_RAISE
-#define IO_Event_Selector_fiber_raise(fiber, argc, argv) rb_fiber_raise(fiber, argc, argv)
-#else
-VALUE IO_Event_Selector_fiber_raise(VALUE fiber, int argc, VALUE *argv);
-#endif
-
 #ifdef HAVE_RB_IO_DESCRIPTOR
 #define IO_Event_Selector_io_descriptor(io) rb_io_descriptor(io)
 #else
@@ -80,23 +70,20 @@ struct IO_Event_Selector_Queue {
 	VALUE fiber;
 };
 
+// The internal state of the event selector.
+// The event selector is responsible for managing the scheduling of fibers, as well as selecting for events.
 struct IO_Event_Selector {
 	VALUE self;
 	VALUE loop;
 	
+	// The ready queue is a list of fibers that are ready to be resumed from the event loop fiber.
 	// Append to waiting (front/head of queue).
 	struct IO_Event_Selector_Queue *waiting;
 	// Process from ready (back/tail of queue).
 	struct IO_Event_Selector_Queue *ready;
 };
 
-static inline
-void IO_Event_Selector_initialize(struct IO_Event_Selector *backend, VALUE self, VALUE loop) {
-	RB_OBJ_WRITE(self, &backend->self, self);
-	RB_OBJ_WRITE(self, &backend->loop, loop);
-	backend->waiting = NULL;
-	backend->ready = NULL;
-}
+void IO_Event_Selector_initialize(struct IO_Event_Selector *backend, VALUE self, VALUE loop);
 
 static inline
 void IO_Event_Selector_mark(struct IO_Event_Selector *backend) {
@@ -123,16 +110,48 @@ void IO_Event_Selector_compact(struct IO_Event_Selector *backend) {
 	}
 }
 
+// Transfer control from the event loop to a user fiber.
+// This is used to transfer control to a user fiber when it may proceed.
+// Strictly speaking, it's not a scheduling operation (does not schedule the current fiber).
+VALUE IO_Event_Selector_loop_resume(struct IO_Event_Selector *backend, VALUE fiber, int argc, VALUE *argv);
+
+// Transfer from a user fiber back to the event loop.
+// This is used to transfer control back to the event loop in order to wait for events.
+// Strictly speaking, it's not a scheduling operation (does not schedule the current fiber).
+VALUE IO_Event_Selector_loop_yield(struct IO_Event_Selector *backend);
+
+// Resume a specific fiber. This is a scheduling operation.
+// The first argument is the fiber, the rest are the arguments to the resume.
+//
+// The implementation has two possible strategies:
+// 1. Add the current fiber to the ready queue and transfer control to the target fiber.
+// 2. Schedule the target fiber to be resumed by the event loop later on.
+//
+// We currently only implement the first strategy.
 VALUE IO_Event_Selector_resume(struct IO_Event_Selector *backend, int argc, VALUE *argv);
+
+// Raise an exception on a specific fiber.
+// The first argument is the fiber, the rest are the arguments to the exception.
+//
+// The implementation has two possible strategies:
+// 1. Add the current fiber to the ready queue and transfer control to the target fiber.
+// 2. Schedule the target fiber to be resumed by the event loop with an exception later on.
+//
+// We currently only implement the first strategy.
 VALUE IO_Event_Selector_raise(struct IO_Event_Selector *backend, int argc, VALUE *argv);
 
+// Yield control to the event loop. This is a scheduling operation.
+//
+// The implementation adds the current fiber to the ready queue and transfers control to the event loop.
 static inline
 VALUE IO_Event_Selector_yield(struct IO_Event_Selector *backend)
 {
 	return IO_Event_Selector_resume(backend, 1, &backend->loop);
 }
 
-// Append to the ready queue.
+// Append a specific fiber to the ready queue.
+// The fiber can be an actual fiber or an object that responds to `alive?` and `transfer`.
+// The implementation will transfer control to the fiber later on.
 void IO_Event_Selector_ready_push(struct IO_Event_Selector *backend, VALUE fiber);
 
 // Flush the ready queue by transferring control one at a time.

data/ext/io/event/selector/uring.c

@@ -127,7 +127,7 @@ size_t IO_Event_Selector_URing_Type_size(const void *_selector)
 }
 
 static const rb_data_type_t IO_Event_Selector_URing_Type = {
-	.wrap_struct_name = "IO_Event::Backend::URing",
+	.wrap_struct_name = "IO::Event::Backend::URing",
 	.function = {
 		.dmark = IO_Event_Selector_URing_Type_mark,
 		.dcompact = IO_Event_Selector_URing_Type_compact,
@@ -277,7 +277,7 @@ VALUE IO_Event_Selector_URing_transfer(VALUE self)
 	struct IO_Event_Selector_URing *selector = NULL;
 	TypedData_Get_Struct(self, struct IO_Event_Selector_URing, &IO_Event_Selector_URing_Type, selector);
 	
-	return IO_Event_Selector_fiber_transfer(selector->backend.loop, 0, NULL);
+	return IO_Event_Selector_loop_yield(&selector->backend);
 }
 
 VALUE IO_Event_Selector_URing_resume(int argc, VALUE *argv, VALUE self)
@@ -433,7 +433,7 @@ static
 VALUE process_wait_transfer(VALUE _arguments) {
 	struct process_wait_arguments *arguments = (struct process_wait_arguments *)_arguments;
 	
-	IO_Event_Selector_fiber_transfer(arguments->selector->backend.loop, 0, NULL);
+	IO_Event_Selector_loop_yield(&arguments->selector->backend);
 	
 	if (arguments->waiting->result) {
 		return IO_Event_Selector_process_status_wait(arguments->pid, arguments->flags);
@@ -548,7 +548,7 @@ VALUE io_wait_transfer(VALUE _arguments) {
 	struct io_wait_arguments *arguments = (struct io_wait_arguments *)_arguments;
 	struct IO_Event_Selector_URing *selector = arguments->selector;
 	
-	IO_Event_Selector_fiber_transfer(selector->backend.loop, 0, NULL);
+	IO_Event_Selector_loop_yield(&selector->backend);
 	
 	if (DEBUG) fprintf(stderr, "io_wait_transfer:waiting=%p, result=%d\n", (void*)arguments->waiting, arguments->waiting->result);
 	
@@ -638,7 +638,7 @@ io_read_submit(VALUE _arguments)
 	io_uring_sqe_set_data(sqe, arguments->waiting->completion);
 	io_uring_submit_now(selector);
 	
-	IO_Event_Selector_fiber_transfer(selector->backend.loop, 0, NULL);
+	IO_Event_Selector_loop_yield(&selector->backend);
 	
 	return RB_INT2NUM(arguments->waiting->result);
 }
@@ -802,7 +802,7 @@ io_write_submit(VALUE _argument)
 	io_uring_sqe_set_data(sqe, arguments->waiting->completion);
 	io_uring_submit_pending(selector);
 	
-	IO_Event_Selector_fiber_transfer(selector->backend.loop, 0, NULL);
+	IO_Event_Selector_loop_yield(&selector->backend);
 	
 	return RB_INT2NUM(arguments->waiting->result);
 }
@@ -1086,7 +1086,7 @@ unsigned select_process_completions(struct IO_Event_Selector_URing *selector) {
 		if (waiting && waiting->fiber) {
 			assert(waiting->result != -ECANCELED);
 			
-			IO_Event_Selector_fiber_transfer_user(waiting->fiber, 0, NULL);
+			IO_Event_Selector_loop_resume(&selector->backend, waiting->fiber, 0, NULL);
 		}
 	}
 	

data/ext/io/event/time.c

@@ -3,7 +3,7 @@
 
 #include "time.h"
 
-void IO_Event_Time_elapsed(struct timespec* start, struct timespec* stop, struct timespec *duration)
+void IO_Event_Time_elapsed(const struct timespec* start, const struct timespec* stop, struct timespec *duration)
 {
 	if ((stop->tv_nsec - start->tv_nsec) < 0) {
 		duration->tv_sec = stop->tv_sec - start->tv_sec - 1;
@@ -14,7 +14,7 @@ void IO_Event_Time_elapsed(struct timespec* start, struct timespec* stop, struct
 	}
 }
 
-float IO_Event_Time_duration(struct timespec *duration)
+float IO_Event_Time_duration(const struct timespec *duration)
 {
 	return duration->tv_sec + duration->tv_nsec / 1000000000.0;
 }
@@ -23,6 +23,13 @@ void IO_Event_Time_current(struct timespec *time) {
 	clock_gettime(CLOCK_MONOTONIC, time);
 }
 
-float IO_Event_Time_proportion(struct timespec *duration, struct timespec *total_duration) {
+float IO_Event_Time_proportion(const struct timespec *duration, const struct timespec *total_duration) {
 	return IO_Event_Time_duration(duration) / IO_Event_Time_duration(total_duration);
 }
+
+float IO_Event_Time_delta(const struct timespec *start, const struct timespec *stop) {
+	struct timespec duration;
+	IO_Event_Time_elapsed(start, stop, &duration);
+	
+	return IO_Event_Time_duration(&duration);
+}

data/ext/io/event/time.h

@@ -6,11 +6,12 @@
 #include <ruby.h>
 #include <time.h>
 
-void IO_Event_Time_elapsed(struct timespec* start, struct timespec* stop, struct timespec *duration);
-float IO_Event_Time_duration(struct timespec *duration);
+void IO_Event_Time_elapsed(const struct timespec* start, const struct timespec* stop, struct timespec *duration);
+float IO_Event_Time_duration(const struct timespec *duration);
 void IO_Event_Time_current(struct timespec *time);
 
-float IO_Event_Time_proportion(struct timespec *duration, struct timespec *total_duration);
+float IO_Event_Time_delta(const struct timespec *start, const struct timespec *stop);
+float IO_Event_Time_proportion(const struct timespec *duration, const struct timespec *total_duration);
 
 #define IO_EVENT_TIME_PRINTF_TIMESPEC "%.3g"
 #define IO_EVENT_TIME_PRINTF_TIMESPEC_ARGUMENTS(ts) ((double)(ts).tv_sec + (ts).tv_nsec / 1e9)

data/lib/io/event/native.rb

@@ -0,0 +1,11 @@
+# frozen_string_literal: true
+
+# Released under the MIT License.
+# Copyright, 2025, by Samuel Williams.
+
+begin
+	require "IO_Event"
+rescue LoadError => error
+	warn "Could not load native event selector: #{error}"
+	require_relative "selector/nonblock"
+end

data/lib/io/event/profiler.rb

@@ -0,0 +1,18 @@
+# frozen_string_literal: true
+
+# Released under the MIT License.
+# Copyright, 2025, by Samuel Williams.
+
+require_relative "native"
+
+module IO::Event
+	unless self.const_defined?(:Profiler)
+		module Profiler
+			# The default profiler, if the platform supports it.
+			# Use `IO_EVENT_PROFILER=true` to enable it.
+			def self.default
+				nil
+			end
+		end
+	end
+end

data/lib/io/event/version.rb

@@ -1,12 +1,12 @@
 # frozen_string_literal: true
 
 # Released under the MIT License.
-# Copyright, 2021-2024, by Samuel Williams.
+# Copyright, 2021-2025, by Samuel Williams.
 
 # @namespace
 class IO
 	# @namespace
 	module Event
-		VERSION = "1.8.4"
+		VERSION = "1.9.0"
 	end
 end

data/lib/io/event.rb

@@ -1,15 +1,9 @@
 # frozen_string_literal: true
 
 # Released under the MIT License.
-# Copyright, 2021-2024, by Samuel Williams.
+# Copyright, 2021-2025, by Samuel Williams.
 
 require_relative "event/version"
 require_relative "event/selector"
 require_relative "event/timers"
-
-begin
-	require "IO_Event"
-rescue LoadError => error
-	warn "Could not load native event selector: #{error}"
-	require_relative "event/selector/nonblock"
-end
+require_relative "event/native"

data/license.md

@@ -1,7 +1,7 @@
 # MIT License
 
 Copyright, 2021, by Wander Hillen.  
-Copyright, 2021-2024, by Samuel Williams.  
+Copyright, 2021-2025, by Samuel Williams.  
 Copyright, 2021, by Delton Ding.  
 Copyright, 2021-2024, by Benoit Daloze.  
 Copyright, 2022, by Alex Matchneer.  

data/readme.md

@@ -18,6 +18,10 @@ Please see the [project documentation](https://socketry.github.io/io-event/) for
 
 Please see the [project releases](https://socketry.github.io/io-event/releases/index) for all releases.
 
+### v1.9.0
+
+  - [Improved `IO::Event::Profiler` for detecting stalls.](https://socketry.github.io/io-event/releases/index#improved-io::event::profiler-for-detecting-stalls.)
+
 ### v1.8.0
 
   - [Detecting fibers that are stalling the event loop.](https://socketry.github.io/io-event/releases/index#detecting-fibers-that-are-stalling-the-event-loop.)

data/releases.md

@@ -1,5 +1,31 @@
 # Releases
 
+## v1.9.0
+
+### Improved `IO::Event::Profiler` for detecting stalls.
+
+A new `IO::Event::Profiler` class has been added to help detect stalls in the event loop. The previous approach was insufficient to detect all possible stalls. This new approach uses the `RUBY_EVENT_FIBER_SWITCH` event to track context switching by the scheduler, and can detect stalls no matter how they occur.
+
+``` ruby
+profiler = IO::Event::Profiler.new
+
+profiler.start
+		
+Fiber.new do
+	sleep 1.0
+end.transfer
+
+profiler.stop
+```
+
+A default profiler is exposed using `IO::Event::Profiler.default` which is controlled by the following environment variables:
+
+  - `IO_EVENT_PROFILER=true` - Enable the profiler, otherwise `IO::Event::Profiler.default` will return `nil`.
+  - `IO_EVENT_PROFILER_LOG_THRESHOLD` - Specify the threshold in seconds for logging a stall. Defaults to `0.01`.
+  - `IO_EVENT_PROFILER_TRACK_CALLS` - Track the method call for each event, in order to log specifically which method is causing the stall. Defaults to `true`.
+
+The previous environment variables `IO_EVENT_SELECTOR_STALL_LOG_THRESHOLD` and `IO_EVENT_SELECTOR_STALL_LOG` no longer have any effect.
+
 ## v1.8.0
 
 ### Detecting fibers that are stalling the event loop.

metadata

@@ -1,18 +1,20 @@
 --- !ruby/object:Gem::Specification
 name: io-event
 version: !ruby/object:Gem::Version
-  version: 1.8.4
+  version: 1.9.0
 platform: ruby
 authors:
 - Samuel Williams
 - Math Ieu
 - Wander Hillen
+- Jean Boussier
 - Benoit Daloze
 - Bruno Sutic
 - Alex Matchneer
 - Anthony Ross
 - Delton Ding
 - Pavel Rosický
+- Shizuo Fujita
 bindir: bin
 cert_chain:
 - |
@@ -44,7 +46,7 @@ cert_chain:
   Q2K9NVun/S785AP05vKkXZEFYxqG6EW012U4oLcFl5MySFajYXRYbuUpH6AY+HP8
   voD0MPg1DssDLKwXyt1eKD/+Fq0bFWhwVM/1XiAXL7lyYUyOq24KHgQ2Csg=
   -----END CERTIFICATE-----
-date: 2025-02-05 00:00:00.000000000 Z
+date: 2025-02-10 00:00:00.000000000 Z
 dependencies: []
 executables: []
 extensions:
@@ -56,11 +58,13 @@ files:
 - ext/io/event/array.h
 - ext/io/event/event.c
 - ext/io/event/event.h
+- ext/io/event/fiber.c
+- ext/io/event/fiber.h
 - ext/io/event/interrupt.c
 - ext/io/event/interrupt.h
 - ext/io/event/list.h
-- ext/io/event/profile.c
-- ext/io/event/profile.h
+- ext/io/event/profiler.c
+- ext/io/event/profiler.h
 - ext/io/event/selector/epoll.c
 - ext/io/event/selector/epoll.h
 - ext/io/event/selector/kqueue.c
@@ -75,7 +79,9 @@ files:
 - lib/io/event.rb
 - lib/io/event/debug/selector.rb
 - lib/io/event/interrupt.rb
+- lib/io/event/native.rb
 - lib/io/event/priority_heap.rb
+- lib/io/event/profiler.rb
 - lib/io/event/selector.rb
 - lib/io/event/selector/nonblock.rb
 - lib/io/event/selector/select.rb