summaryrefslogtreecommitdiff
path: root/spec/rubyspec/optional/capi/ext/struct_spec.c
diff options
context:
space:
mode:
Diffstat (limited to 'spec/rubyspec/optional/capi/ext/struct_spec.c')
-rw-r--r--spec/rubyspec/optional/capi/ext/struct_spec.c131
1 files changed, 0 insertions, 131 deletions
diff --git a/spec/rubyspec/optional/capi/ext/struct_spec.c b/spec/rubyspec/optional/capi/ext/struct_spec.c
deleted file mode 100644
index 8f373d9f48..0000000000
--- a/spec/rubyspec/optional/capi/ext/struct_spec.c
+++ /dev/null
@@ -1,131 +0,0 @@
-#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