1#include <ruby.h>
2
3static VALUE
4usr_dumper(VALUE self)
5{
6    return self;
7}
8
9static VALUE
10usr_loader(VALUE self, VALUE m)
11{
12    VALUE val = rb_ivar_get(m, rb_intern("@value"));
13    *(int *)DATA_PTR(self) = NUM2INT(val);
14    return self;
15}
16
17static VALUE
18compat_mload(VALUE self, VALUE data)
19{
20    rb_ivar_set(self, rb_intern("@value"), data);
21    return self;
22}
23
24void
25Init_compat(void)
26{
27    VALUE newclass = rb_path2class("Bug::Marshal::UsrMarshal");
28    VALUE oldclass = rb_define_class_under(newclass, "compat", rb_cObject);
29
30    rb_define_method(oldclass, "marshal_load", compat_mload, 1);
31    rb_marshal_define_compat(newclass, oldclass, usr_dumper, usr_loader);
32}
33