spec/subtend/ext/subtend_cv_get_set.c

   1 #include <ruby.h>
   2 #include <intern.h>
   3
   4 static VALUE sa_cv_set(VALUE self, VALUE klass, VALUE name, VALUE val) {
   5         return rb_cv_set(klass, StringValuePtr(name), val);
   6 }
   7
   8 static VALUE sa_cvar_set(VALUE self, VALUE klass, VALUE name, VALUE val) {
   9         return rb_cvar_set(klass, rb_intern(StringValuePtr(name)), val);
  10 }
  11
  12 static VALUE sa_cv_get(VALUE self, VALUE klass, VALUE name) {
  13         return rb_cv_get(klass, StringValuePtr(name));
  14 }
  15
  16 static VALUE sa_cvar_get(VALUE self, VALUE klass, VALUE name) {
  17         return rb_cvar_get(klass, rb_intern(StringValuePtr(name)));
  18 }
  19
  20 void Init_subtend_cv_get_set() {
  21   VALUE cls;
  22   cls = rb_define_class("SubtendCVGetSet", rb_cObject);
  23   rb_define_method(cls, "rb_cv_set", sa_cv_set, 3);
  24   rb_define_method(cls, "rb_cvar_set", sa_cvar_set, 3);
  25   rb_define_method(cls, "rb_cv_get", sa_cv_get, 2);
  26   rb_define_method(cls, "rb_cvar_get", sa_cvar_get, 2);
  27 }