From c40802865a756f97ec8ffbd2361864b1fa291d4e Mon Sep 17 00:00:00 2001 From: dearblue Date: Sat, 19 Jun 2021 15:08:09 +0900 Subject: Added `MRB_API` function to get block arguments info. - ` mrb_block_given_p()` -- The name comes from CRuby's `rb_block_given_p ()` At the same time, it applies to `f_instance_eval()` and `f_class_eval()` of `mruby-eval`. --- src/class.c | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'src') diff --git a/src/class.c b/src/class.c index f02e280ef..f9474815e 100644 --- a/src/class.c +++ b/src/class.c @@ -859,6 +859,17 @@ mrb_get_arg1(mrb_state *mrb) return array_argv[0]; } +MRB_API mrb_bool +mrb_block_given_p(mrb_state *mrb) +{ + const mrb_callinfo *ci = mrb->c->ci; + int argc = ci->argc; + int idx = (argc < 0) ? 2 : argc + 1; + mrb_value b = ci->stack[idx]; + + return !mrb_nil_p(b); +} + void mrb_hash_check_kdict(mrb_state *mrb, mrb_value self); /* -- cgit v1.2.3