support Class.new()

src/class.c

@@ -806,6 +806,20 @@ mrb_instance_new(mrb_state *mrb, mrb_value cv)
   return obj;
 }
 
+mrb_value
+mrb_class_new_class(mrb_state *mrb, mrb_value cv)
+{
+  mrb_value super;
+  if(mrb->ci->argc > 0) {
+    mrb_get_args(mrb, "o", &super);
+  }
+  else {
+    super = mrb_obj_value(mrb->object_class);
+  }
+  struct RClass *new_class = mrb_class_new(mrb, mrb_class_ptr(super));
+  return mrb_obj_value(new_class);
+}
+
 static mrb_value
 mrb_bob_init(mrb_state *mrb, mrb_value cv)
 {
@@ -1226,6 +1240,7 @@ mrb_init_class(mrb_state *mrb)
   mrb_define_method(mrb, bob, "initialize", mrb_bob_init, ARGS_NONE());
   mrb_define_method(mrb, bob, "!", mrb_bob_not, ARGS_NONE());
   mrb_define_method(mrb, bob, "method_missing", mrb_bob_missing, ARGS_ANY());     /* 15.3.1.3.30 */
+  mrb_define_class_method(mrb, cls, "new", mrb_class_new_class, ARGS_ANY());
   mrb_define_method(mrb, cls, "new", mrb_instance_new, ARGS_ANY());
   mrb_define_method(mrb, cls, "inherited", mrb_bob_init, ARGS_REQ(1));
   mrb_define_method(mrb, mod, "include", mrb_mod_include, ARGS_REQ(1));