summaryrefslogtreecommitdiff
path: root/ext/-test-/struct/duplicate.c
blob: 596d32aad8ce913dd7d98dfb05057cbd7b9b8129 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#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);
}