polyphony 0.19 → 0.20

data/ext/ev/ev_ext.c

@@ -1,23 +0,0 @@
-#include "ev.h"
-#include "../libev/ev.c"
-
-void Init_EV();
-void Init_EV_Async();
-void Init_EV_Child();
-void Init_EV_IO();
-void Init_EV_Signal();
-void Init_EV_Timer();
-void Init_Socket();
-
-void Init_ev_ext() {
-  ev_set_allocator(xrealloc);
-
-  Init_EV();
-  Init_EV_Async();
-  Init_EV_Child();
-  Init_EV_IO();
-  Init_EV_Signal();
-  Init_EV_Timer();
-
-  Init_Socket();
-}

data/ext/ev/ev_module.c

@@ -1,242 +0,0 @@
-#include "ev.h"
-
-static VALUE mEV = Qnil;
-
-static VALUE EV_run(VALUE self);
-static VALUE EV_break(VALUE self);
-static VALUE EV_restart(VALUE self);
-static VALUE EV_rerun(VALUE self);
-
-static VALUE EV_ref(VALUE self);
-static VALUE EV_unref(VALUE self);
-
-static VALUE EV_next_tick(VALUE self);
-static VALUE EV_snooze(VALUE self);
-static VALUE EV_post_fork(VALUE self);
-
-static VALUE EV_suspend(VALUE self);
-static VALUE EV_schedule_fiber(VALUE self, VALUE fiber, VALUE value);
-
-static VALUE Fiber_safe_transfer(int argc, VALUE *argv, VALUE self);
-
-static VALUE watcher_refs;
-static VALUE next_tick_items;
-
-static struct ev_idle next_tick_watcher;
-static int next_tick_active;
-void EV_next_tick_callback(ev_loop *ev_loop, struct ev_idle *watcher, int revents);
-
-VALUE EV_reactor_fiber;
-VALUE EV_root_fiber;
-
-ID ID_call;
-ID ID_caller;
-ID ID_clear;
-ID ID_each;
-ID ID_inspect;
-ID ID_raise;
-ID ID_read_watcher;
-ID ID_scheduled_value;
-ID ID_transfer;
-ID ID_write_watcher;
-ID ID_R;
-ID ID_W;
-ID ID_RW;
-
-void Init_EV() {
-  mEV = rb_define_module("EV");
-
-  rb_define_singleton_method(mEV, "break", EV_break, 0);
-  rb_define_singleton_method(mEV, "restart", EV_restart, 0);
-  rb_define_singleton_method(mEV, "rerun", EV_rerun, 0);
-  rb_define_singleton_method(mEV, "ref", EV_ref, 0);
-  rb_define_singleton_method(mEV, "unref", EV_unref, 0);
-  rb_define_singleton_method(mEV, "next_tick", EV_next_tick, 0);
-  rb_define_singleton_method(mEV, "snooze", EV_snooze, 0);
-  rb_define_singleton_method(mEV, "post_fork", EV_post_fork, 0);
-  rb_define_singleton_method(mEV, "schedule_fiber", EV_schedule_fiber, 2);
-
-  rb_define_global_function("suspend", EV_suspend, 0);
-  rb_define_global_function("snooze", EV_snooze, 0);
-  rb_define_global_function("next_tick", EV_next_tick, 0);
-
-  VALUE cFiber = rb_const_get(rb_cObject, rb_intern("Fiber"));
-  rb_define_method(cFiber, "safe_transfer", Fiber_safe_transfer, -1);
-
-  ID_call                 = rb_intern("call");
-  ID_caller               = rb_intern("caller");
-  ID_clear                = rb_intern("clear");
-  ID_each                 = rb_intern("each");
-  ID_inspect              = rb_intern("inspect");
-  ID_raise                = rb_intern("raise");
-  ID_read_watcher         = rb_intern("read_watcher");
-  ID_scheduled_value      = rb_intern("@scheduled_value");
-  ID_transfer             = rb_intern("transfer");
-  ID_write_watcher        = rb_intern("write_watcher");
-  ID_R                    = rb_intern("r");
-  ID_W                    = rb_intern("w");
-  ID_RW                   = rb_intern("rw");
-
-  EV_root_fiber = rb_fiber_current();
-  EV_reactor_fiber = rb_fiber_new(EV_run, Qnil);
-  rb_gv_set("__reactor_fiber__", EV_reactor_fiber);
-  
-
-  watcher_refs = rb_hash_new();
-  rb_global_variable(&watcher_refs);
-
-  next_tick_items = rb_ary_new();
-  rb_global_variable(&next_tick_items);
-
-  ev_idle_init(&next_tick_watcher, EV_next_tick_callback);
-  next_tick_active = 0;
-}
-
-static VALUE EV_run(VALUE self) {
-  ev_run(EV_DEFAULT, 0);
-  rb_gv_set("__reactor_fiber__", Qnil);
-  return Qnil;
-}
-
-static VALUE EV_break(VALUE self) {
-  // make sure reactor fiber is alive
-  if (!RTEST(rb_fiber_alive_p(EV_reactor_fiber))) {
-    return Qnil;
-  }
-
-  ev_break(EV_DEFAULT, EVBREAK_ALL);
-  return YIELD_TO_REACTOR();
-}
-
-static VALUE EV_restart(VALUE self) {
-  EV_reactor_fiber = rb_fiber_new(EV_run, Qnil);
-  rb_gv_set("__reactor_fiber__", EV_reactor_fiber);
-  return Qnil;
-}
-
-static VALUE EV_rerun(VALUE self) {
-  EV_break(self);
-  EV_restart(self);
-  return Qnil;
-}
-
-static VALUE EV_ref(VALUE self) {
-  ev_ref(EV_DEFAULT);
-  return Qnil;
-}
-
-static VALUE EV_unref(VALUE self) {
-  ev_unref(EV_DEFAULT);
-  return Qnil;
-}
-
-void EV_add_watcher_ref(VALUE obj) {
-  rb_hash_aset(watcher_refs, rb_obj_id(obj), obj);
-}
-
-void EV_del_watcher_ref(VALUE obj) {
-  rb_hash_delete(watcher_refs, rb_obj_id(obj));
-}
-
-static VALUE EV_next_tick(VALUE self) {
-  VALUE proc = rb_block_proc();
-  if (RTEST(proc)) {
-    rb_ary_push(next_tick_items, proc);
-    if (!next_tick_active) {
-      next_tick_active = 1;
-      ev_idle_start(EV_DEFAULT, &next_tick_watcher);
-    }
-  }
-  return Qnil;
-}
-
-static VALUE EV_snooze(VALUE self) {
-  VALUE ret;
-  VALUE fiber = rb_fiber_current();
-
-  rb_ary_push(next_tick_items, fiber);
-  if (!next_tick_active) {
-    next_tick_active = 1;
-    ev_idle_start(EV_DEFAULT, &next_tick_watcher);
-  }
-
-  ret = YIELD_TO_REACTOR();
-  
-  // fiber is resumed, check if resumed value is an exception
-  if (RTEST(rb_obj_is_kind_of(ret, rb_eException))) {
-    rb_ary_delete(next_tick_items, fiber);
-    return rb_funcall(ret, ID_raise, 1, ret);
-  }
-  else {
-    return ret;
-  }
-}
-
-static VALUE EV_post_fork(VALUE self) {
-  ev_loop_fork(EV_DEFAULT);
-  
-  EV_reactor_fiber = rb_fiber_new(EV_run, Qnil);
-  rb_gv_set("__reactor_fiber__", EV_reactor_fiber);
-  EV_root_fiber = rb_fiber_current();
-
-  return Qnil;
-}
-
-VALUE EV_next_tick_runner(VALUE proc) {
-  if (rb_obj_is_proc(proc)) {
-    rb_funcall(proc, ID_call, 1, Qtrue);
-  }
-  else {
-    SCHEDULE_FIBER(proc, 1, rb_ivar_get(proc, ID_scheduled_value));
-  }
-  return Qnil;
-}
-
-void EV_next_tick_callback(ev_loop *ev_loop, struct ev_idle *watcher, int revents) {
-  VALUE scheduled_items = next_tick_items;
-  next_tick_items = rb_ary_new();
-
-  long len = RARRAY_LEN(scheduled_items);
-  for (long i = 0; i < len; i++) {
-    EV_next_tick_runner(RARRAY_AREF(scheduled_items, i));
-  }
-
-  // if no next tick items were added during callback, stop the idle watcher
-  if (rb_array_len(next_tick_items) == 0) {
-    next_tick_active = 0;
-    ev_idle_stop(EV_DEFAULT, &next_tick_watcher);
-  }
-}
-
-static VALUE EV_suspend(VALUE self) {
-  if (!RTEST(rb_fiber_alive_p(EV_reactor_fiber))) {
-    return Qnil;
-  }
-
-  VALUE ret = YIELD_TO_REACTOR();
-
-  // fiber is resumed, check if resumed value is an exception
-  return RTEST(rb_obj_is_kind_of(ret, rb_eException)) ? 
-    rb_funcall(ret, ID_raise, 1, ret) : ret;
-}
-
-static VALUE EV_schedule_fiber(VALUE self, VALUE fiber, VALUE value) {
-  rb_ivar_set(fiber, ID_scheduled_value, value);
-
-  rb_ary_push(next_tick_items, fiber);
-  if (!next_tick_active) {
-    next_tick_active = 1;
-    ev_idle_start(EV_DEFAULT, &next_tick_watcher);
-  }
-
-  return Qnil;
-}
-
-static VALUE Fiber_safe_transfer(int argc, VALUE *argv, VALUE self) {
-  VALUE arg = (argc == 0) ? Qnil : argv[0];
-  VALUE ret = rb_funcall(self, ID_transfer, 1, arg);
-
-  // fiber is resumed, check if resumed value is an exception
-  return RTEST(rb_obj_is_kind_of(ret, rb_eException)) ? 
-    rb_funcall(ret, ID_raise, 1, ret) : ret;
-}

data/ext/ev/signal.c

@@ -1,119 +0,0 @@
-#include "ev.h"
-
-struct EV_Signal {
-  struct  ev_signal ev_signal;
-  int     active;
-  int     signum;
-  VALUE   callback;
-};
-
-static VALUE mEV = Qnil;
-static VALUE cEV_Signal = Qnil;
-
-/* Allocator/deallocator */
-static VALUE EV_Signal_allocate(VALUE klass);
-static void EV_Signal_mark(void *ptr);
-static void EV_Signal_free(void *ptr);
-static size_t EV_Signal_size(const void *ptr);
-
-/* Methods */
-static VALUE EV_Signal_initialize(VALUE self, VALUE sig);
-
-static VALUE EV_Signal_start(VALUE self);
-static VALUE EV_Signal_stop(VALUE self);
-
-void EV_Signal_callback(ev_loop *ev_loop, struct ev_signal *signal, int revents);
-
-/* Signal encapsulates a signal watcher */
-void Init_EV_Signal() {
-  mEV = rb_define_module("EV");
-  cEV_Signal = rb_define_class_under(mEV, "Signal", rb_cData);
-  rb_define_alloc_func(cEV_Signal, EV_Signal_allocate);
-
-  rb_define_method(cEV_Signal, "initialize", EV_Signal_initialize, 1);
-  rb_define_method(cEV_Signal, "start", EV_Signal_start, 0);
-  rb_define_method(cEV_Signal, "stop", EV_Signal_stop, 0);
-}
-
-static const rb_data_type_t EV_Signal_type = {
-    "EV_Signal",
-    {EV_Signal_mark, EV_Signal_free, EV_Signal_size,},
-    0, 0,
-    RUBY_TYPED_FREE_IMMEDIATELY,
-};
-
-static VALUE EV_Signal_allocate(VALUE klass) {
-  struct EV_Signal *signal = (struct EV_Signal *)xmalloc(sizeof(struct EV_Signal));
-  return TypedData_Wrap_Struct(klass, &EV_Signal_type, signal);
-}
-
-static void EV_Signal_mark(void *ptr) {
-  struct EV_Signal *signal = ptr;
-  if (signal->callback != Qnil) {
-    rb_gc_mark(signal->callback);
-  }
-}
-
-static void EV_Signal_free(void *ptr) {
-  struct EV_Signal *signal = ptr;
-  ev_signal_stop(EV_DEFAULT, &signal->ev_signal);
-  xfree(signal);
-}
-
-static size_t EV_Signal_size(const void *ptr) {
-  return sizeof(struct EV_Signal);
-}
-
-#define GetEV_Signal(obj, signal) \
-  TypedData_Get_Struct((obj), struct EV_Signal, &EV_Signal_type, (signal))
-
-static VALUE EV_Signal_initialize(VALUE self, VALUE sig) {
-  struct EV_Signal *signal;
-  VALUE signum = sig;
- 
-  GetEV_Signal(self, signal);
-  signal->signum = NUM2INT(signum);
-
-  if (rb_block_given_p()) {
-    signal->callback = rb_block_proc();
-  }
-
-  ev_signal_init(&signal->ev_signal, EV_Signal_callback, signal->signum);
-
-  signal->active = 1;
-  ev_signal_start(EV_DEFAULT, &signal->ev_signal);
-
-  return Qnil;
-}
-
-void EV_Signal_callback(ev_loop *ev_loop, struct ev_signal *ev_signal, int revents) {
-  struct EV_Signal *signal = (struct EV_Signal*)ev_signal;
-
-  if (signal->callback != Qnil) {
-    rb_funcall(signal->callback, ID_call, 1, INT2NUM(signal->signum));
-  }
-}
-
-static VALUE EV_Signal_start(VALUE self) {
-  struct EV_Signal *signal;
-  GetEV_Signal(self, signal);
-
-  if (!signal->active) {
-    ev_signal_start(EV_DEFAULT, &signal->ev_signal);
-    signal->active = 1;
-  }
-
-  return self;
-}
-
-static VALUE EV_Signal_stop(VALUE self) {
-  struct EV_Signal *signal;
-  GetEV_Signal(self, signal);
-
-  if (signal->active) {
-    ev_signal_stop(EV_DEFAULT, &signal->ev_signal);
-    signal->active = 0;
-  }
-
-  return self;
-}

data/ext/ev/timer.c

@@ -1,197 +0,0 @@
-#include "ev.h"
-
-struct EV_Timer {
-  struct  ev_timer ev_timer;
-  int     active;
-  double  after;
-  double  repeat;
-  VALUE   self;
-  VALUE   callback;
-  VALUE   fiber;
-};
-
-static VALUE mEV = Qnil;
-static VALUE cEV_Timer = Qnil;
-
-/* Allocator/deallocator */
-static VALUE EV_Timer_allocate(VALUE klass);
-static void EV_Timer_mark(void *ptr);
-static void EV_Timer_free(void *ptr);
-static size_t EV_Timer_size(const void *ptr);
-
-/* Methods */
-static VALUE EV_Timer_initialize(VALUE self, VALUE after, VALUE repeat);
-
-static VALUE EV_Timer_start(VALUE self);
-static VALUE EV_Timer_stop(VALUE self);
-static VALUE EV_Timer_reset(VALUE self);
-static VALUE EV_Timer_await(VALUE self);
-
-void EV_Timer_callback(ev_loop *ev_loop, struct ev_timer *timer, int revents);
-
-/* Timer encapsulates an timer watcher */
-void Init_EV_Timer() {
-  mEV = rb_define_module("EV");
-  cEV_Timer = rb_define_class_under(mEV, "Timer", rb_cData);
-  rb_define_alloc_func(cEV_Timer, EV_Timer_allocate);
-
-  rb_define_method(cEV_Timer, "initialize", EV_Timer_initialize, 2);
-  rb_define_method(cEV_Timer, "start", EV_Timer_start, 0);
-  rb_define_method(cEV_Timer, "stop", EV_Timer_stop, 0);
-  rb_define_method(cEV_Timer, "reset", EV_Timer_reset, 0);
-  rb_define_method(cEV_Timer, "await", EV_Timer_await, 0);
-}
-
-static const rb_data_type_t EV_Timer_type = {
-    "EV_Timer",
-    {EV_Timer_mark, EV_Timer_free, EV_Timer_size,},
-    0, 0,
-    RUBY_TYPED_FREE_IMMEDIATELY,
-};
-
-static VALUE EV_Timer_allocate(VALUE klass) {
-  struct EV_Timer *timer = (struct EV_Timer *)xmalloc(sizeof(struct EV_Timer));
-  return TypedData_Wrap_Struct(klass, &EV_Timer_type, timer);
-}
-
-static void EV_Timer_mark(void *ptr) {
-  struct EV_Timer *timer = ptr;
-  if (timer->callback != Qnil) {
-    rb_gc_mark(timer->callback);
-  }
-  if (timer->fiber != Qnil) {
-    rb_gc_mark(timer->fiber);
-  }
-}
-
-static void EV_Timer_free(void *ptr) {
-  struct EV_Timer *timer = ptr;
-  if (timer->active) {
-    ev_timer_stop(EV_DEFAULT, &timer->ev_timer);
-  }
-  xfree(timer);
-}
-
-static size_t EV_Timer_size(const void *ptr) {
-  return sizeof(struct EV_Timer);
-}
-
-#define GetEV_Timer(obj, timer) \
-  TypedData_Get_Struct((obj), struct EV_Timer, &EV_Timer_type, (timer))
-
-static VALUE EV_Timer_initialize(VALUE self, VALUE after, VALUE repeat) {
-  struct EV_Timer *timer;
-
-  GetEV_Timer(self, timer);
-
-  timer->self     = self;
-  timer->callback = Qnil;
-  timer->fiber    = Qnil;
-  timer->after    = NUM2DBL(after);
-  timer->repeat   = NUM2DBL(repeat);
-  timer->active   = 0;
-  
-  ev_timer_init(&timer->ev_timer, EV_Timer_callback, timer->after, timer->repeat);
-
-  return Qnil;
-}
-
-void EV_Timer_callback(ev_loop *ev_loop, struct ev_timer *ev_timer, int revents) {
-  VALUE fiber;
-  VALUE resume_value;
-  struct EV_Timer *timer = (struct EV_Timer*)ev_timer;
-
-  if (!timer->repeat) {
-    timer->active = 0;
-    EV_del_watcher_ref(timer->self);
-  }
-
-  if (timer->fiber != Qnil) {
-    ev_timer_stop(EV_DEFAULT, ev_timer);
-    EV_del_watcher_ref(timer->self);
-    timer->active = 0;
-    fiber = timer->fiber;
-    timer->fiber = Qnil;
-    resume_value = DBL2NUM(timer->after);
-    SCHEDULE_FIBER(fiber, 1, resume_value);
-  }
-  else if (timer->callback != Qnil) {
-    rb_funcall(timer->callback, ID_call, 1, Qtrue);
-  }
-}
-
-static VALUE EV_Timer_start(VALUE self) {
-  struct EV_Timer *timer;
-  GetEV_Timer(self, timer);
-
-  if (rb_block_given_p()) {
-    timer->callback = rb_block_proc();
-  }
-
-  if (!timer->active) {
-    ev_timer_start(EV_DEFAULT, &timer->ev_timer);
-    timer->active = 1;
-    EV_add_watcher_ref(self);
-  }
-
-  return self;
-}
-
-static VALUE EV_Timer_stop(VALUE self) {
-  struct EV_Timer *timer;
-  GetEV_Timer(self, timer);
-
-  if (timer->active) {
-    ev_timer_stop(EV_DEFAULT, &timer->ev_timer);
-    timer->active = 0;
-    EV_del_watcher_ref(self);
-  }
-
-  return self;
-}
-
-static VALUE EV_Timer_reset(VALUE self) {
-  struct EV_Timer *timer;
-  int prev_active;
-  GetEV_Timer(self, timer);
-
-  prev_active = timer->active;
-
-  if (prev_active) {
-    ev_timer_stop(EV_DEFAULT, &timer->ev_timer);
-  }
-  ev_timer_set(&timer->ev_timer, timer->after, timer->repeat);
-  ev_timer_start(EV_DEFAULT, &timer->ev_timer);
-  if (!prev_active) {
-    timer->active = 1;
-    EV_add_watcher_ref(self);
-  }
-
-  return self;
-}
-
-static VALUE EV_Timer_await(VALUE self) {
-  struct EV_Timer *timer;
-  VALUE ret;
-  
-  GetEV_Timer(self, timer);
-
-  timer->fiber = rb_fiber_current();
-  timer->active = 1;
-  ev_timer_start(EV_DEFAULT, &timer->ev_timer);
-  EV_add_watcher_ref(self);
-
-  ret = YIELD_TO_REACTOR();
-
-  // fiber is resumed, check if resumed value is an exception
-  if (RTEST(rb_obj_is_kind_of(ret, rb_eException))) {
-    if (timer->active) {
-      timer->active = 0;
-      ev_timer_stop(EV_DEFAULT, &timer->ev_timer);
-    }
-    return rb_funcall(ret, ID_raise, 1, ret);
-  }
-  else {
-    return ret;
-  }
-}