polyphony 0.40 → 0.43.2

data/ext/gyro/gyro.h

@@ -1,158 +0,0 @@
-#ifndef RUBY_EV_H
-#define RUBY_EV_H
-
-#include "ruby.h"
-#include "ruby/io.h"
-#include "libev.h"
-
-// debugging
-#define OBJ_ID(obj) (NUM2LONG(rb_funcall(obj, rb_intern("object_id"), 0)))
-#define INSPECT(...) (rb_funcall(rb_cObject, rb_intern("p"), __VA_ARGS__))
-#define FIBER_TRACE(...) if (__tracing_enabled__) { \
-  rb_funcall(rb_cObject, ID_fiber_trace, __VA_ARGS__); \
-}
-
-#define TEST_RESUME_EXCEPTION(ret) if (RTEST(rb_obj_is_kind_of(ret, rb_eException))) { \
-  return rb_funcall(rb_mKernel, ID_raise, 1, ret); \
-}
-
-typedef struct Gyro_watcher {
-  int active;
-  int generation;
-
-  struct  ev_loop *ev_loop;
-
-  VALUE   self;
-  VALUE   fiber;
-  VALUE   selector;
-} Gyro_watcher_t;
-
-
-#define GYRO_WATCHER_DECL(type) \
-  struct type type; \
-  int active; \
-  int generation; \
-  struct ev_loop *ev_loop; \
-  VALUE self; \
-  VALUE fiber; \
-  VALUE selector;
-
-#define GYRO_WATCHER_INITIALIZE(o, self) \
-  o->active     = 0; \
-  o->generation = __gyro_current_generation__; \
-  o->ev_loop    = 0; \
-  o->self       = self; \
-  o->fiber      = Qnil; \
-  o->selector   = Qnil;
-
-#define GYRO_WATCHER_MARK(o) \
-  if (o->fiber != Qnil) rb_gc_mark(o->fiber); \
-  if (o->selector != Qnil) rb_gc_mark(o->selector);
-
-#define GYRO_WATCHER_STOP_EXPAND(o) ev_ ## o ## _stop
-#define GYRO_WATCHER_STOP(o) GYRO_WATCHER_STOP_EXPAND(o)
-
-#define GYRO_WATCHER_FIELD_EXPAND(o) ev_ ## o
-#define GYRO_WATCHER_FIELD(o) GYRO_WATCHER_FIELD_EXPAND(o)
-
-#define GYRO_WATCHER_FREE(o) \
-  if (o->generation < __gyro_current_generation__) return; \
-  if (o->active) { \
-    ev_clear_pending(o->ev_loop, &o->GYRO_WATCHER_FIELD(o)); \
-    GYRO_WATCHER_STOP(o)(o->ev_loop, &o->GYRO_WATCHER_FIELD(o)); \
-  } \
-  xfree(o);
-
-extern VALUE mGyro;
-extern VALUE cGyro_Async;
-extern VALUE cGyro_IO;
-extern VALUE cGyro_Queue;
-extern VALUE cGyro_Selector;
-extern VALUE cGyro_Timer;
-
-extern ID ID_call;
-extern ID ID_caller;
-extern ID ID_clear;
-extern ID ID_each;
-extern ID ID_fiber_trace;
-extern ID ID_inspect;
-extern ID ID_ivar_running;
-extern ID ID_ivar_thread;
-extern ID ID_new;
-extern ID ID_raise;
-extern ID ID_runnable;
-extern ID ID_runnable_value;
-extern ID ID_signal;
-extern ID ID_size;
-extern ID ID_switch_fiber;
-extern ID ID_transfer;
-extern ID ID_R;
-extern ID ID_W;
-extern ID ID_RW;
-
-extern VALUE SYM_fiber_create;
-extern VALUE SYM_fiber_ev_loop_enter;
-extern VALUE SYM_fiber_ev_loop_leave;
-extern VALUE SYM_fiber_run;
-extern VALUE SYM_fiber_schedule;
-extern VALUE SYM_fiber_switchpoint;
-extern VALUE SYM_fiber_terminate;
-
-extern int __tracing_enabled__;
-extern int __gyro_current_generation__;
-
-enum {
-  FIBER_STATE_NOT_SCHEDULED = 0,
-  FIBER_STATE_WAITING       = 1,
-  FIBER_STATE_SCHEDULED     = 2
-};
-
-// watcher flags
-enum {
-  // a watcher's active field will be set to this after fork
-  GYRO_WATCHER_POST_FORK = 0xFF
-};
-
-VALUE Fiber_auto_async(VALUE self);
-VALUE Fiber_auto_io(VALUE self);
-void Fiber_make_runnable(VALUE fiber, VALUE value);
-
-VALUE Gyro_Async_await(VALUE async);
-VALUE Gyro_Async_await_no_raise(VALUE async);
-
-VALUE Gyro_IO_auto_io(int fd, int events);
-VALUE Gyro_IO_await(VALUE self);
-
-void Gyro_Selector_add_active_watcher(VALUE self, VALUE watcher);
-VALUE Gyro_Selector_break_out_of_ev_loop(VALUE self);
-struct ev_loop *Gyro_Selector_current_thread_ev_loop();
-struct ev_loop *Gyro_Selector_ev_loop(VALUE selector);
-ev_tstamp Gyro_Selector_now(VALUE selector);
-long Gyro_Selector_pending_count(VALUE self);
-VALUE Gyro_Selector_post_fork(VALUE self);
-void Gyro_Selector_remove_active_watcher(VALUE self, VALUE watcher);
-VALUE Gyro_Selector_run(VALUE self, VALUE current_fiber);
-void Gyro_Selector_run_no_wait(VALUE self, VALUE current_fiber, long runnable_count);
-VALUE Gyro_switchpoint();
-
-
-VALUE Gyro_snooze(VALUE self);
-VALUE Gyro_Timer_await(VALUE self);
-
-VALUE IO_read_watcher(VALUE io);
-VALUE IO_write_watcher(VALUE io);
-
-VALUE Gyro_Queue_push(VALUE self, VALUE value);
-
-VALUE Thread_current_event_selector();
-VALUE Thread_post_fork(VALUE thread);
-VALUE Thread_ref(VALUE thread);
-VALUE Thread_schedule_fiber(VALUE thread, VALUE fiber, VALUE value);
-VALUE Thread_switch_fiber(VALUE thread);
-VALUE Thread_unref(VALUE thread);
-
-int io_setstrbuf(VALUE *str, long len);
-void io_set_read_length(VALUE str, long n, int shrinkable);
-VALUE io_enc_str(VALUE str, rb_io_t *fptr);
-
-#endif /* RUBY_EV_H */

data/ext/gyro/gyro_ext.c

@@ -1,33 +0,0 @@
-#include "gyro.h"
-
-void Init_Fiber();
-void Init_Gyro();
-void Init_Gyro_Async();
-void Init_Gyro_Child();
-void Init_Gyro_IO();
-void Init_Gyro_Queue();
-void Init_Gyro_Selector();
-void Init_Gyro_Signal();
-void Init_Gyro_Timer();
-void Init_Socket();
-void Init_Thread();
-void Init_Tracing();
-
-void Init_gyro_ext() {
-  ev_set_allocator(xrealloc);
-
-  Init_Gyro();
-  Init_Gyro_Async();
-  Init_Gyro_Child();
-  Init_Gyro_IO();
-  Init_Gyro_Queue();
-  Init_Gyro_Selector();
-  Init_Gyro_Signal();
-  Init_Gyro_Timer();
-
-  Init_Fiber();
-  Init_Socket();
-  Init_Thread();
-
-  Init_Tracing();
-}

data/ext/gyro/io.c

@@ -1,457 +0,0 @@
-#include "gyro.h"
-
-#ifdef GetReadFile
-# define FPTR_TO_FD(fptr) (fileno(GetReadFile(fptr)))
-#else
-# define FPTR_TO_FD(fptr) fptr->fd
-#endif /* GetReadFile */
-
-struct Gyro_IO {
-  GYRO_WATCHER_DECL(ev_io);
-};
-
-VALUE cGyro_IO = Qnil;
-
-ID ID_ivar_read_watcher;
-ID ID_ivar_write_watcher;
-VALUE SYM_r;
-VALUE SYM_w;
-
-static void Gyro_IO_mark(void *ptr) {
-  struct Gyro_IO *io = ptr;
-  GYRO_WATCHER_MARK(io);
-}
-
-static void Gyro_IO_free(void *ptr) {
-  struct Gyro_IO *io = ptr;
-  GYRO_WATCHER_FREE(io);
-}
-
-static size_t Gyro_IO_size(const void *ptr) {
-  return sizeof(struct Gyro_IO);
-}
-
-static const rb_data_type_t Gyro_IO_type = {
-    "Gyro_IO",
-    {Gyro_IO_mark, Gyro_IO_free, Gyro_IO_size,},
-    0, 0, 0
-};
-
-static VALUE Gyro_IO_allocate(VALUE klass) {
-  struct Gyro_IO *io = ALLOC(struct Gyro_IO);
-
-  return TypedData_Wrap_Struct(klass, &Gyro_IO_type, io);
-}
-
-inline void io_activate(struct Gyro_IO *io) {
-  if (io->active) return;
-
-  io->active = 1;
-  io->fiber = rb_fiber_current();
-  io->selector = Thread_current_event_selector();
-  io->ev_loop = Gyro_Selector_ev_loop(io->selector);
-  Gyro_Selector_add_active_watcher(io->selector, io->self);
-  ev_io_start(io->ev_loop, &io->ev_io);
-}
-
-inline void io_deactivate(struct Gyro_IO *io) {
-  if (!io->active) return;
-
-  ev_io_stop(io->ev_loop, &io->ev_io);
-  Gyro_Selector_remove_active_watcher(io->selector, io->self);
-  io->active = 0;
-  io->ev_loop = 0;
-  io->selector = Qnil;
-  io->fiber = Qnil;
-}
-
-void Gyro_IO_callback(struct ev_loop *ev_loop, struct ev_io *ev_io, int revents) {
-  struct Gyro_IO *io = (struct Gyro_IO*)ev_io;
-
-  Fiber_make_runnable(io->fiber, Qnil);
-  io_deactivate(io);
-}
-
-static int Gyro_IO_symbol2event_mask(VALUE sym) {
-  ID sym_id;
-
-  if (NIL_P(sym)) {
-    return 0;
-  }
-
-  sym_id = SYM2ID(sym);
-
-  if(sym_id == ID_R) {
-    return EV_READ;
-  } else if(sym_id == ID_W) {
-    return EV_WRITE;
-  } else if(sym_id == ID_RW) {
-    return EV_READ | EV_WRITE;
-  } else {
-    rb_raise(rb_eArgError, "invalid interest type %s (must be :r, :w, or :rw)",
-      RSTRING_PTR(rb_funcall(sym, ID_inspect, 0)));
-  }
-}
-
-#define GetGyro_IO(obj, io) TypedData_Get_Struct((obj), struct Gyro_IO, &Gyro_IO_type, (io))
-
-static const char * S_IO = "IO";
-static const char * S_to_io = "to_io";
-
-static VALUE Gyro_IO_initialize(VALUE self, VALUE io_obj, VALUE event_mask) {
-  struct Gyro_IO *io;
-  rb_io_t *fptr;
-  int fd;
-  int events;
-
-  GetGyro_IO(self, io);
-  GYRO_WATCHER_INITIALIZE(io, self);
-  if (NIL_P(io_obj)) {
-    fd = 0;
-  }
-  else {
-    GetOpenFile(rb_convert_type(io_obj, T_FILE, S_IO, S_to_io), fptr);
-    fd = FPTR_TO_FD(fptr);
-  }
-  events = Gyro_IO_symbol2event_mask(event_mask);
-  ev_io_init(&io->ev_io, Gyro_IO_callback, fd, events);
-
-  return Qnil;
-}
-
-VALUE Gyro_IO_await(VALUE self) {
-  struct Gyro_IO *io;
-  VALUE ret;
-  GetGyro_IO(self, io);
-
-  io_activate(io);
-  ret = Gyro_switchpoint();
-  io_deactivate(io);
-
-  TEST_RESUME_EXCEPTION(ret);
-  RB_GC_GUARD(ret);
-  return ret;
-}
-
-VALUE Gyro_IO_auto_io(int fd, int events) {
-  VALUE watcher = Fiber_auto_io(rb_fiber_current());
-  struct Gyro_IO *io;
-  GetGyro_IO(watcher, io);
-
-  ev_io_set(&io->ev_io, fd, events);
-
-  RB_GC_GUARD(watcher);
-  return watcher;
-}
-
-
-//////////////////////////////////////////////////////////////////////
-//////////////////////////////////////////////////////////////////////
-// the following is copied verbatim from the Ruby source code (io.c)
-struct io_internal_read_struct {
-    int fd;
-    int nonblock;
-    void *buf;
-    size_t capa;
-};
-
-int io_setstrbuf(VALUE *str, long len) {
-  #ifdef _WIN32
-    len = (len + 1) & ~1L;	/* round up for wide char */
-  #endif
-  if (NIL_P(*str)) {
-    *str = rb_str_new(0, len);
-    return 1;
-  }
-  else {
-    VALUE s = StringValue(*str);
-    long clen = RSTRING_LEN(s);
-    if (clen >= len) {
-      rb_str_modify(s);
-      return 0;
-    }
-    len -= clen;
-  }
-  rb_str_modify_expand(*str, len);
-  return 0;
-}
-
-#define MAX_REALLOC_GAP 4096
-static void io_shrink_read_string(VALUE str, long n) {
-  if (rb_str_capacity(str) - n > MAX_REALLOC_GAP) {
-    rb_str_resize(str, n);
-  }
-}
-
-void io_set_read_length(VALUE str, long n, int shrinkable) {
-  if (RSTRING_LEN(str) != n) {
-    rb_str_modify(str);
-    rb_str_set_len(str, n);
-    if (shrinkable) io_shrink_read_string(str, n);
-  }
-}
-
-static rb_encoding* io_read_encoding(rb_io_t *fptr) {
-    if (fptr->encs.enc) {
-	return fptr->encs.enc;
-    }
-    return rb_default_external_encoding();
-}
-
-VALUE io_enc_str(VALUE str, rb_io_t *fptr) {
-    OBJ_TAINT(str);
-    rb_enc_associate(str, io_read_encoding(fptr));
-    return str;
-}
-
-//////////////////////////////////////////////////////////////////////
-//////////////////////////////////////////////////////////////////////
-
-static VALUE IO_read(int argc, VALUE *argv, VALUE io) {
-  VALUE underlying_io = rb_iv_get(io, "@io");
-  if (!NIL_P(underlying_io)) io = underlying_io;
-
-  long len = argc == 1 ? NUM2LONG(argv[0]) : (1 << 30);
-
-  rb_io_t *fptr;
-  long n;
-  int shrinkable;
-  VALUE read_watcher = Qnil;
-
-  if (len < 0) {
-    rb_raise(rb_eArgError, "negative length %ld given", len);
-  }
-
-  VALUE str = argc >= 2 ? argv[1] : Qnil;
-
-  shrinkable = io_setstrbuf(&str, len);
-  OBJ_TAINT(str);
-  GetOpenFile(io, fptr);
-  rb_io_check_byte_readable(fptr);
-  rb_io_set_nonblock(fptr);
-
-  if (len == 0)
-  	return str;
-
-  char *buf = RSTRING_PTR(str);
-  long total = 0;
-
-  while (1) {
-    n = read(fptr->fd, buf, len);
-    if (n < 0) {
-      int e = errno;
-      if ((e == EWOULDBLOCK || e == EAGAIN)) {
-        if (NIL_P(read_watcher))
-          read_watcher = Gyro_IO_auto_io(fptr->fd, EV_READ);
-        Gyro_IO_await(read_watcher);
-      }
-      else
-        rb_syserr_fail(e, strerror(e));
-        // rb_syserr_fail_path(e, fptr->pathv);
-    }
-    else if (n == 0)
-      break;
-    else {
-      total = total + n;
-      buf += n;
-      len -= n;
-      if (len == 0)
-        break;
-    }
-  }
-
-  if (total == 0)
-    return Qnil;
-
-  io_set_read_length(str, total, shrinkable);
-  io_enc_str(str, fptr);
-
-  return str;
-}
-
-#define READ_DATA_PENDING_COUNT(fptr) ((fptr)->rbuf.len)
-#define MEMMOVE(p1,p2,type,n) memmove((p1), (p2), sizeof(type)*(size_t)(n))
-
-static long
-read_buffered_data(char *ptr, long len, rb_io_t *fptr)
-{
-    int n;
-
-    n = READ_DATA_PENDING_COUNT(fptr);
-    if (n <= 0) return 0;
-    if (n > len) n = (int)len;
-    MEMMOVE(ptr, fptr->rbuf.ptr+fptr->rbuf.off, char, n);
-    fptr->rbuf.off += n;
-    fptr->rbuf.len -= n;
-    return n;
-}
-
-static VALUE IO_readpartial(int argc, VALUE *argv, VALUE io) {
-  VALUE underlying_io = rb_iv_get(io, "@io");
-  if (!NIL_P(underlying_io)) io = underlying_io;
-
-  long len = argc >= 1 ? NUM2LONG(argv[0]) : 8192;
-
-  rb_io_t *fptr;
-  long n;
-  int shrinkable;
-  VALUE read_watcher = Qnil;
-
-  if (len < 0) {
-    rb_raise(rb_eArgError, "negative length %ld given", len);
-  }
-
-  VALUE str = argc >= 2 ? argv[1] : Qnil;
-
-  shrinkable = io_setstrbuf(&str, len);
-  OBJ_TAINT(str);
-  GetOpenFile(io, fptr);
-  rb_io_set_nonblock(fptr);
-  rb_io_check_byte_readable(fptr);
-
-  if (len == 0)
-  	return str;
-
-  n = read_buffered_data(RSTRING_PTR(str), len, fptr);
-  if (n <= 0) {
-    while (1) {
-      n = read(fptr->fd, RSTRING_PTR(str), len);
-      if (n < 0) {
-        int e = errno;
-        if (e == EWOULDBLOCK || e == EAGAIN) {
-          if (NIL_P(read_watcher))
-            read_watcher = Gyro_IO_auto_io(fptr->fd, EV_READ);
-          Gyro_IO_await(read_watcher);
-        }
-        else
-          rb_syserr_fail(e, strerror(e));
-          // rb_syserr_fail_path(e, fptr->pathv);
-      }
-      else
-        break;
-    }
-  }
-
-  io_set_read_length(str, n, shrinkable);
-  io_enc_str(str, fptr);
-
-  // ensure yielding to reactor if haven't yielded while reading
-  // if (read_watcher == Qnil) {
-  //   Gyro_snooze(Qnil);
-  // }
-
-  if (n == 0)
-    return Qnil;
-
-  return str;
-}
-
-static VALUE IO_write(int argc, VALUE *argv, VALUE io) {
-  VALUE underlying_io = rb_iv_get(io, "@io");
-  if (!NIL_P(underlying_io)) io = underlying_io;
-
-  long i;
-  long n;
-  long total = 0;
-  rb_io_t *fptr;
-
-  io = rb_io_get_write_io(io);
-  VALUE write_watcher = Qnil;
-
-  GetOpenFile(io, fptr);
-  rb_io_check_writable(fptr);
-  rb_io_set_nonblock(fptr);
-
-  for (i = 0; i < argc; i++) {
-    VALUE str = argv[i];
-    if (!RB_TYPE_P(str, T_STRING))
-	    str = rb_obj_as_string(str);
-    char *buf = RSTRING_PTR(str);
-    long len = RSTRING_LEN(str);
-    RB_GC_GUARD(str);
-    while (1) {
-      n = write(fptr->fd, buf, len);
-
-      if (n < 0) {
-        int e = errno;
-        if (e == EWOULDBLOCK || e == EAGAIN) {
-          if (NIL_P(write_watcher))
-            write_watcher = Gyro_IO_auto_io(fptr->fd, EV_WRITE);
-          Gyro_IO_await(write_watcher);
-        }
-        else {
-          rb_syserr_fail(e, strerror(e));
-          // rb_syserr_fail_path(e, fptr->pathv);
-        }
-      }
-      else {
-        total += n;
-        if (n < len) {
-          buf += n;
-          len -= n;
-        }
-        else break;
-      }
-    }
-  }
-
-  // ensure yielding to reactor if haven't yielded while writing
-  // if (write_watcher == Qnil) {
-  //   Gyro_snooze(Qnil);
-  // }
-
-  return LONG2FIX(total);
-}
-
-static VALUE IO_write_chevron(VALUE io, VALUE str) {
-  IO_write(1, &str, io);
-  return io;
-}
-
-VALUE IO_read_watcher(VALUE self) {
-  VALUE watcher = rb_ivar_get(self, ID_ivar_read_watcher);
-  if (watcher == Qnil) {
-    VALUE args[] = {self, SYM_r};
-    watcher = rb_class_new_instance(2, args, cGyro_IO);
-    rb_ivar_set(self, ID_ivar_read_watcher, watcher);
-  }
-  return watcher;
-}
-
-VALUE IO_write_watcher(VALUE self) {
-  VALUE watcher = rb_ivar_get(self, ID_ivar_write_watcher);
-  if (watcher == Qnil) {
-    VALUE args[] = {self, SYM_w};
-    watcher = rb_class_new_instance(2, args, cGyro_IO);
-    rb_ivar_set(self, ID_ivar_write_watcher, watcher);
-  }
-  return watcher;
-}
-
-void Init_Gyro_IO() {
-  VALUE cIO;
-  
-  cGyro_IO = rb_define_class_under(mGyro, "IO", rb_cData);
-  rb_define_alloc_func(cGyro_IO, Gyro_IO_allocate);
-
-  rb_define_method(cGyro_IO, "initialize", Gyro_IO_initialize, 2);
-  rb_define_method(cGyro_IO, "await", Gyro_IO_await, 0);
-
-  cIO = rb_const_get(rb_cObject, rb_intern("IO"));
-  // rb_define_method(cIO, "gets", IO_gets, -1);
-  rb_define_method(cIO, "read", IO_read, -1);
-  rb_define_method(cIO, "readpartial", IO_readpartial, -1);
-  rb_define_method(cIO, "write", IO_write, -1);
-  rb_define_method(cIO, "write_nonblock", IO_write, -1);
-  rb_define_method(cIO, "<<", IO_write_chevron, 1);
-  rb_define_method(cIO, "read_watcher", IO_read_watcher, 0);
-  rb_define_method(cIO, "write_watcher", IO_write_watcher, 0);
-
-  ID_ivar_read_watcher = rb_intern("@read_watcher");
-  ID_ivar_write_watcher = rb_intern("@write_watcher");
-  SYM_r = ID2SYM(rb_intern("r"));
-  SYM_w = ID2SYM(rb_intern("w"));
-
-  rb_global_variable(&SYM_r);
-  rb_global_variable(&SYM_w);
-}