ruby/ext/-test-/struct/duplicate.c

25 строки
685 B
C

#include "ruby.h"
static VALUE
bug_struct_new_duplicate(VALUE obj, VALUE name, VALUE mem)
{
const char *n = NIL_P(name) ? 0 : StringValueCStr(name);
const char *m = StringValueCStr(mem);
return rb_struct_define(n, m, m, NULL);
}
static VALUE
bug_struct_new_duplicate_under(VALUE obj, VALUE name, VALUE mem)
{
const char *n = StringValueCStr(name);
const char *m = StringValueCStr(mem);
return rb_struct_define_under(obj, n, m, m, NULL);
}
void
Init_duplicate(VALUE klass)
{
rb_define_singleton_method(klass, "new_duplicate", bug_struct_new_duplicate, 2);
rb_define_singleton_method(klass, "new_duplicate_under", bug_struct_new_duplicate_under, 2);
}