root/ext/-test-/marshal/internal_ivar/internal_ivar.c

/* [previous][next][first][last][top][bottom][index][help] */

DEFINITIONS

This source file includes following definitions.
  1. init
  2. get_normal
  3. get_internal
  4. Init_internal_ivar

#include <ruby.h>

static ID id_normal_ivar, id_internal_ivar;

static VALUE
init(VALUE self, VALUE arg1, VALUE arg2)
{
    rb_ivar_set(self, id_normal_ivar, arg1);
    rb_ivar_set(self, id_internal_ivar, arg2);
    return self;
}

static VALUE
get_normal(VALUE self)
{
    return rb_attr_get(self, id_normal_ivar);
}

static VALUE
get_internal(VALUE self)
{
    return rb_attr_get(self, id_internal_ivar);
}

void
Init_internal_ivar(void)
{
    VALUE mMarshal = rb_define_module_under(rb_define_module("Bug"), "Marshal");
    VALUE newclass = rb_define_class_under(mMarshal, "InternalIVar", rb_cObject);

    id_normal_ivar = rb_intern_const("normal");
#if 0
    /* leave id_internal_ivar being 0 */
    id_internal_ivar = rb_make_internal_id();
#endif
    rb_define_method(newclass, "initialize", init, 2);
    rb_define_method(newclass, "normal", get_normal, 0);
    rb_define_method(newclass, "internal", get_internal, 0);
}

/* [previous][next][first][last][top][bottom][index][help] */