1 files changed, 40 insertions, 0 deletions
diff --git a/spec/ruby/optional/capi/ext/integer_spec.c b/spec/ruby/optional/capi/ext/integer_spec.c
new file mode 100644
index 0000000000..792fc0652a
--- /dev/null
+++ b/spec/ruby/optional/capi/ext/integer_spec.c
@@ -0,0 +1,40 @@
+#include "ruby.h"
+#include "rubyspec.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+static VALUE integer_spec_rb_integer_pack(VALUE self, VALUE value,
+    VALUE words, VALUE numwords, VALUE wordsize, VALUE nails, VALUE flags) {
+  int result = rb_integer_pack(value, (void*)RSTRING_PTR(words), FIX2INT(numwords),
+      FIX2INT(wordsize), FIX2INT(nails), FIX2INT(flags));
+  return INT2FIX(result);
+}
+
+RUBY_EXTERN VALUE rb_int_positive_pow(long x, unsigned long y); /* internal.h, used in ripper */
+
+static VALUE integer_spec_rb_int_positive_pow(VALUE self, VALUE a, VALUE b) {
+  return rb_int_positive_pow(FIX2INT(a), FIX2INT(b));
+}
+
+void Init_integer_spec(void) {
+  VALUE cls = rb_define_class("CApiIntegerSpecs", rb_cObject);
+  rb_define_const(cls, "MSWORD", INT2NUM(INTEGER_PACK_MSWORD_FIRST));
+  rb_define_const(cls, "LSWORD", INT2NUM(INTEGER_PACK_LSWORD_FIRST));
+  rb_define_const(cls, "MSBYTE", INT2NUM(INTEGER_PACK_MSBYTE_FIRST));
+  rb_define_const(cls, "LSBYTE", INT2NUM(INTEGER_PACK_LSBYTE_FIRST));
+  rb_define_const(cls, "NATIVE", INT2NUM(INTEGER_PACK_NATIVE_BYTE_ORDER));
+  rb_define_const(cls, "PACK_2COMP", INT2NUM(INTEGER_PACK_2COMP));
+  rb_define_const(cls, "LITTLE_ENDIAN", INT2NUM(INTEGER_PACK_LITTLE_ENDIAN));
+  rb_define_const(cls, "BIG_ENDIAN", INT2NUM(INTEGER_PACK_BIG_ENDIAN));
+  rb_define_const(cls, "FORCE_BIGNUM", INT2NUM(INTEGER_PACK_FORCE_BIGNUM));
+  rb_define_const(cls, "NEGATIVE", INT2NUM(INTEGER_PACK_NEGATIVE));
+
+  rb_define_method(cls, "rb_integer_pack", integer_spec_rb_integer_pack, 6);
+  rb_define_method(cls, "rb_int_positive_pow", integer_spec_rb_int_positive_pow, 2);
+}
+
+#ifdef __cplusplus
+}
+#endif