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