#eql? and #hash delegation for CRuby

deli.c

#include <ruby.h>

static void
deli_mark(void *ptr)
{
    rb_gc_mark((VALUE)ptr);
}

static const rb_data_type_t deli_type = {
    "Type",
    {deli_mark,},
    0, 0,
    RUBY_TYPED_FREE_IMMEDIATELY
};

static VALUE
deli_alloc(VALUE klass)
{
    return TypedData_Wrap_Struct(klass, &deli_type, (void *)Qnil);
}

static VALUE
deli_initialize(VALUE self, VALUE i)
{
    RTYPEDDATA(self)->data = (void *)i;
    return Qnil;
}

static VALUE
deli_eqlp(VALUE self, VALUE o)
{
    o = (VALUE)rb_check_typeddata(o, &deli_type);
    return rb_eql((VALUE)(RTYPEDDATA(self)->data), o);
}

static VALUE
deli_hash(VALUE self)
{
    return rb_hash((VALUE)(RTYPEDDATA(self)->data));
}

void
Init_deli(void)
{
    VALUE cDeli;

    cDeli = rb_define_class("Deli", rb_cObject);
    rb_define_alloc_func(cDeli, deli_alloc);
    rb_define_method(cDeli, "initialize", deli_initialize, 1);
    rb_define_method(cDeli, "eql?", deli_eqlp, 1);
    rb_define_method(cDeli, "hash", deli_hash, 0);
}