1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
ruby--ruby/ext/-test-/marshal/usr/usrmarshal.c
nobu 81a0c608eb compatible loader
* marshal.c (r_object0): also load TYPE_USRMARSHAL, TYPE_DATA using
  compatible loader.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@35898 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2012-06-04 02:40:30 +00:00

35 lines
821 B
C

#include <ruby.h>
static VALUE
usr_alloc(VALUE klass)
{
int *p;
return Data_Make_Struct(klass, int, 0, RUBY_DEFAULT_FREE, p);
}
static VALUE
usr_init(VALUE self, VALUE val)
{
*(int *)DATA_PTR(self) = NUM2INT(val);
return self;
}
static VALUE
usr_value(VALUE self)
{
int val = *(int *)DATA_PTR(self);
return INT2NUM(val);
}
void
Init_usr(void)
{
VALUE mMarshal = rb_define_module_under(rb_define_module("Bug"), "Marshal");
VALUE newclass = rb_define_class_under(mMarshal, "UsrMarshal", rb_cObject);
rb_define_alloc_func(newclass, usr_alloc);
rb_define_method(newclass, "initialize", usr_init, 1);
rb_define_method(newclass, "value", usr_value, 0);
rb_define_method(newclass, "marshal_load", usr_init, 1);
rb_define_method(newclass, "marshal_dump", usr_value, 0);
}