From d0c0beb880f1e6b65851724d410ace6de0ad782f Mon Sep 17 00:00:00 2001
From: take_cheeze <takechi101010@gmail.com>
Date: Fri, 9 May 2014 22:44:10 +0900
Subject: Move `__method__` to mruby-kernel-ext since it's not ISO method.

---
 mrbgems/mruby-kernel-ext/src/kernel.c | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

(limited to 'mrbgems/mruby-kernel-ext/src')

diff --git a/mrbgems/mruby-kernel-ext/src/kernel.c b/mrbgems/mruby-kernel-ext/src/kernel.c
index d13cf00da..1ce63ac94 100644
--- a/mrbgems/mruby-kernel-ext/src/kernel.c
+++ b/mrbgems/mruby-kernel-ext/src/kernel.c
@@ -1,12 +1,33 @@
 #include "mruby.h"
 #include "mruby/error.h"
 
+/*
+ *  call-seq:
+ *     __method__         -> symbol
+ *
+ *  Returns the name at the definition of the current method as a
+ *  Symbol.
+ *  If called outside of a method, it returns <code>nil</code>.
+ *
+ */
+static mrb_value
+mrb_f_method(mrb_state *mrb, mrb_value self)
+{
+  mrb_callinfo *ci = mrb->c->ci;
+  ci--;
+  if (ci->mid)
+    return mrb_symbol_value(ci->mid);
+  else
+    return mrb_nil_value();
+}
+
 void
 mrb_mruby_kernel_ext_gem_init(mrb_state *mrb)
 {
   struct RClass *krn = mrb->kernel_module;
 
   mrb_define_module_function(mrb, krn, "fail", mrb_f_raise, MRB_ARGS_NONE());
+  mrb_define_method(mrb, krn, "__method__", mrb_f_method, MRB_ARGS_NONE());
 }
 
 void
-- 
cgit v1.2.3