summaryrefslogtreecommitdiff
path: root/ext/-test-/typeddata/typeddata.c
blob: ae060960cdcdafe81b166610657be26c8f0ab14c (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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
#include <ruby.h>

static const rb_data_type_t test_data = {
    "typed_data",
    {NULL, ruby_xfree, NULL},
    NULL, NULL,
    0/* deferred free */,
};

static VALUE
test_alloc(VALUE klass)
{
    char *p;
    return TypedData_Make_Struct(klass, char, &test_data, p);
}

static VALUE
test_check(VALUE self, VALUE obj)
{
    rb_check_typeddata(obj, &test_data);
    return obj;
}

static VALUE
test_make(VALUE klass, VALUE num)
{
    unsigned long i, n = NUM2UINT(num);

    for (i = 0; i < n; i++) {
	test_alloc(klass);
    }

    return Qnil;
}

void
Init_typeddata(void)
{
    VALUE mBug = rb_define_module("Bug");
    VALUE klass = rb_define_class_under(mBug, "TypedData", rb_cData);
    rb_define_alloc_func(klass, test_alloc);
    rb_define_singleton_method(klass, "check", test_check, 1);
    rb_define_singleton_method(klass, "make", test_make, 1);
}