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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
#include "ruby.h"
#include "rubyspec.h"
#include "ruby/intern.h"
#ifdef __cplusplus
extern "C" {
#endif
#ifdef HAVE_RB_STRUCT_AREF
static VALUE struct_spec_rb_struct_aref(VALUE self, VALUE st, VALUE key) {
return rb_struct_aref(st, key);
}
#endif
#ifdef HAVE_RB_STRUCT_GETMEMBER
static VALUE struct_spec_rb_struct_getmember(VALUE self, VALUE st, VALUE key) {
return rb_struct_getmember(st, SYM2ID(key));
}
#endif
#ifdef HAVE_RB_STRUCT_S_MEMBERS
static VALUE struct_spec_rb_struct_s_members(VALUE self, VALUE klass)
{
return rb_ary_dup(rb_struct_s_members(klass));
}
#endif
#ifdef HAVE_RB_STRUCT_MEMBERS
static VALUE struct_spec_rb_struct_members(VALUE self, VALUE st)
{
return rb_ary_dup(rb_struct_members(st));
}
#endif
#ifdef HAVE_RB_STRUCT_ASET
static VALUE struct_spec_rb_struct_aset(VALUE self, VALUE st, VALUE key, VALUE value) {
return rb_struct_aset(st, key, value);
}
#endif
#ifdef HAVE_RB_STRUCT_DEFINE
/* Only allow setting three attributes, should be sufficient for testing. */
static VALUE struct_spec_struct_define(VALUE self, VALUE name,
VALUE attr1, VALUE attr2, VALUE attr3) {
const char *a1 = StringValuePtr(attr1);
const char *a2 = StringValuePtr(attr2);
const char *a3 = StringValuePtr(attr3);
char *nm = NULL;
if (name != Qnil) nm = StringValuePtr(name);
return rb_struct_define(nm, a1, a2, a3, NULL);
}
#endif
#ifdef HAVE_RB_STRUCT_DEFINE_UNDER
/* Only allow setting three attributes, should be sufficient for testing. */
static VALUE struct_spec_struct_define_under(VALUE self, VALUE outer,
VALUE name, VALUE attr1, VALUE attr2, VALUE attr3) {
const char *nm = StringValuePtr(name);
const char *a1 = StringValuePtr(attr1);
const char *a2 = StringValuePtr(attr2);
const char *a3 = StringValuePtr(attr3);
return rb_struct_define_under(outer, nm, a1, a2, a3, NULL);
}
#endif
#ifdef HAVE_RB_STRUCT_NEW
static VALUE struct_spec_rb_struct_new(VALUE self, VALUE klass,
VALUE a, VALUE b, VALUE c)
{
return rb_struct_new(klass, a, b, c);
}
#endif
#ifdef HAVE_RB_STRUCT_SIZE
static VALUE struct_spec_rb_struct_size(VALUE self, VALUE st)
{
return rb_struct_size(st);
}
#endif
void Init_struct_spec(void) {
VALUE cls;
cls = rb_define_class("CApiStructSpecs", rb_cObject);
#ifdef HAVE_RB_STRUCT_AREF
rb_define_method(cls, "rb_struct_aref", struct_spec_rb_struct_aref, 2);
#endif
#ifdef HAVE_RB_STRUCT_GETMEMBER
rb_define_method(cls, "rb_struct_getmember", struct_spec_rb_struct_getmember, 2);
#endif
#ifdef HAVE_RB_STRUCT_S_MEMBERS
rb_define_method(cls, "rb_struct_s_members", struct_spec_rb_struct_s_members, 1);
#endif
#ifdef HAVE_RB_STRUCT_MEMBERS
rb_define_method(cls, "rb_struct_members", struct_spec_rb_struct_members, 1);
#endif
#ifdef HAVE_RB_STRUCT_ASET
rb_define_method(cls, "rb_struct_aset", struct_spec_rb_struct_aset, 3);
#endif
#ifdef HAVE_RB_STRUCT_DEFINE
rb_define_method(cls, "rb_struct_define", struct_spec_struct_define, 4);
#endif
#ifdef HAVE_RB_STRUCT_DEFINE_UNDER
rb_define_method(cls, "rb_struct_define_under", struct_spec_struct_define_under, 5);
#endif
#ifdef HAVE_RB_STRUCT_NEW
rb_define_method(cls, "rb_struct_new", struct_spec_rb_struct_new, 4);
#endif
#ifdef HAVE_RB_STRUCT_SIZE
rb_define_method(cls, "rb_struct_size", struct_spec_rb_struct_size, 1);
#endif
}
#ifdef __cplusplus
}
#endif
|
