add Kernel#send

mrblib/kernel.rb

@@ -28,13 +28,14 @@ module Kernel
   # Alias for +send+.
   #
   # ISO 15.3.1.3.4
-  def __send__(symbol, *args, &block)
+  #def __send__(symbol, *args, &block)
     ### *** TODO *** ###
-  end
+  #end
 
   # 15.3.1.3.18
   def instance_eval(string=nil, &block)
     ### *** TODO *** ###
+    raise "Not implemented yet"
   end
 
   ##
@@ -62,9 +63,9 @@ module Kernel
   # block.
   #
   # ISO 15.3.1.3.44
-  def send(symbol, *args, &block)
+  #def send(symbol, *args, &block)
     ### *** TODO *** ###
-  end
+  #end
 
   ##
   # Print arguments

src/kernel.c

@@ -274,11 +274,11 @@ mrb_f_send(int argc, mrb_value *argv, mrb_value recv)
 static mrb_value
 mrb_f_send_m(mrb_state *mrb, mrb_value self)
 {
-  mrb_value *argv;
+  mrb_value name, block, *argv;
   int argc;
-
-  mrb_get_args(mrb, "*", &argv, &argc);
-  return mrb_f_send(argc, argv, self);
+  
+  mrb_get_args(mrb, "&o*", &block, &name, &argv, &argc);
+  return mrb_funcall_with_block(mrb,self, mrb_string_value_ptr(mrb, name), argc, argv, block);
 }
 
 /* 15.3.1.2.1  */