ext/rubype/rubype.c in rubype-0.1.0 vs ext/rubype/rubype.c in rubype-0.2.0

@@ -1,9 +1,38 @@
 #include "rubype.h"
 
-VALUE rb_mRubype;
+VALUE rb_mRubype, rb_cAny, rb_mBoolean, rb_cTypePair;
 
+#define STR2SYM(x) ID2SYM(rb_intern(x))
+
+static VALUE
+rb_mod_prepend(int argc, VALUE *argv, VALUE module)
+{
+  int i;
+  ID id_prepend_features, id_prepended;
+
+  CONST_ID(id_prepend_features, "prepend_features");
+  CONST_ID(id_prepended, "prepended");
+  for (i = 0; i < argc; i++)
+    Check_Type(argv[i], T_MODULE);
+    while (argc--) {
+      rb_funcall(argv[argc], id_prepend_features, 1, module);
+      rb_funcall(argv[argc], id_prepended, 1, module);
+    }
+
+  return module;
+}
+
 void
 Init_rubype(void)
 {
-  rb_mRubype = rb_define_module("Rubype");
+  // rb_mRubype  = rb_define_module("Rubype");
+  // rb_cAny     = rb_define_class("Any", rb_cObject);
+  // rb_mBoolean = rb_define_module("Boolean");
+  // rb_include_module(rb_cTrueClass, rb_mBoolean);
+  // rb_include_module(rb_cFalseClass, rb_mBoolean);
+  // rb_define_class(
+  //   "TypePair",
+  //   rb_funcall(rb_cStruct, rb_intern("new"), 2, STR2SYM("last_arg_type"), STR2SYM("rtn_type"))
+  // );
+  rb_define_method(rb_cModule, "prepend", rb_mod_prepend, -1);
 }