Ruby 3.5.0dev (2025-04-25 revision ffa40d3418360eb58423ef1a5756d2ec7b18e8e7)
vm_eval.c (ffa40d3418360eb58423ef1a5756d2ec7b18e8e7)
1/**********************************************************************
2
3 vm_eval.c -
4
5 $Author$
6 created at: Sat May 24 16:02:32 JST 2008
7
8 Copyright (C) 1993-2007 Yukihiro Matsumoto
9 Copyright (C) 2000 Network Applied Communication Laboratory, Inc.
10 Copyright (C) 2000 Information-technology Promotion Agency, Japan
11
12**********************************************************************/
13
14#include "internal/thread.h"
16 VALUE tbl;
17};
18
19static inline VALUE method_missing(rb_execution_context_t *ec, VALUE obj, ID id, int argc, const VALUE *argv, enum method_missing_reason call_status, int kw_splat);
20static inline VALUE vm_yield_with_cref(rb_execution_context_t *ec, int argc, const VALUE *argv, int kw_splat, const rb_cref_t *cref, int is_lambda);
21static inline VALUE vm_yield(rb_execution_context_t *ec, int argc, const VALUE *argv, int kw_splat);
22static inline VALUE vm_yield_with_block(rb_execution_context_t *ec, int argc, const VALUE *argv, VALUE block_handler, int kw_splat);
23static inline VALUE vm_yield_force_blockarg(rb_execution_context_t *ec, VALUE args);
24VALUE vm_exec(rb_execution_context_t *ec);
25static void vm_set_eval_stack(rb_execution_context_t * th, const rb_iseq_t *iseq, const rb_cref_t *cref, const struct rb_block *base_block);
26static int vm_collect_local_variables_in_heap(const VALUE *dfp, const struct local_var_list *vars);
27
28static VALUE rb_eUncaughtThrow;
29static ID id_result, id_tag, id_value;
30#define id_mesg idMesg
31
32static VALUE send_internal(int argc, const VALUE *argv, VALUE recv, call_type scope);
33static VALUE vm_call0_body(rb_execution_context_t* ec, struct rb_calling_info *calling, const VALUE *argv);
34
35static VALUE *
36vm_argv_ruby_array(VALUE *av, const VALUE *argv, int *flags, int *argc, int kw_splat)
37{
38 *flags |= VM_CALL_ARGS_SPLAT;
39 VALUE argv_ary = rb_ary_hidden_new(*argc);
40 rb_ary_cat(argv_ary, argv, *argc);
41 *argc = 2;
42 av[0] = argv_ary;
43 if (kw_splat) {
44 av[1] = rb_ary_pop(argv_ary);
45 }
46 else {
47 // Make sure flagged keyword hash passed as regular argument
48 // isn't treated as keywords
49 *flags |= VM_CALL_KW_SPLAT;
50 av[1] = rb_hash_new();
51 }
52 return av;
53}
54
55static inline VALUE vm_call0_cc(rb_execution_context_t *ec, VALUE recv, ID id, int argc, const VALUE *argv, const struct rb_callcache *cc, int kw_splat);
56
58rb_vm_call0(rb_execution_context_t *ec, VALUE recv, ID id, int argc, const VALUE *argv, const rb_callable_method_entry_t *cme, int kw_splat)
59{
60 const struct rb_callcache cc = VM_CC_ON_STACK(Qfalse, vm_call_general, {{ 0 }}, cme);
61 return vm_call0_cc(ec, recv, id, argc, argv, &cc, kw_splat);
62}
63
65rb_vm_call_with_refinements(rb_execution_context_t *ec, VALUE recv, ID id, int argc, const VALUE *argv, int kw_splat)
66{
68 rb_callable_method_entry_with_refinements(CLASS_OF(recv), id, NULL);
69 if (me) {
70 return rb_vm_call0(ec, recv, id, argc, argv, me, kw_splat);
71 }
72 else {
73 /* fallback to funcall (e.g. method_missing) */
74 return rb_funcallv(recv, id, argc, argv);
75 }
76}
77
78static inline VALUE
79vm_call0_cc(rb_execution_context_t *ec, VALUE recv, ID id, int argc, const VALUE *argv, const struct rb_callcache *cc, int kw_splat)
80{
81 int flags = kw_splat ? VM_CALL_KW_SPLAT : 0;
82 VALUE *use_argv = (VALUE *)argv;
83 VALUE av[2];
84
85 if (UNLIKELY(vm_cc_cme(cc)->def->type == VM_METHOD_TYPE_ISEQ && argc > VM_ARGC_STACK_MAX)) {
86 use_argv = vm_argv_ruby_array(av, argv, &flags, &argc, kw_splat);
87 }
88
89 struct rb_calling_info calling = {
90 .cd = &(struct rb_call_data) {
91 .ci = &VM_CI_ON_STACK(id, flags, argc, NULL),
92 .cc = NULL,
93 },
94 .cc = cc,
95 .block_handler = vm_passed_block_handler(ec),
96 .recv = recv,
97 .argc = argc,
98 .kw_splat = kw_splat,
99 };
100
101 return vm_call0_body(ec, &calling, use_argv);
102}
103
104static VALUE
105vm_call0_cme(rb_execution_context_t *ec, struct rb_calling_info *calling, const VALUE *argv, const rb_callable_method_entry_t *cme)
106{
107 calling->cc = &VM_CC_ON_STACK(Qfalse, vm_call_general, {{ 0 }}, cme);
108 return vm_call0_body(ec, calling, argv);
109}
110
111static VALUE
112vm_call0_super(rb_execution_context_t *ec, struct rb_calling_info *calling, const VALUE *argv, VALUE klass, enum method_missing_reason ex)
113{
114 ID mid = vm_ci_mid(calling->cd->ci);
115 klass = RCLASS_SUPER(klass);
116
117 if (klass) {
118 const rb_callable_method_entry_t *cme = rb_callable_method_entry(klass, mid);
119
120 if (cme) {
121 RUBY_VM_CHECK_INTS(ec);
122 return vm_call0_cme(ec, calling, argv, cme);
123 }
124 }
125
126 vm_passed_block_handler_set(ec, calling->block_handler);
127 return method_missing(ec, calling->recv, mid, calling->argc, argv, ex, calling->kw_splat);
128}
129
130static VALUE
131vm_call0_cfunc_with_frame(rb_execution_context_t* ec, struct rb_calling_info *calling, const VALUE *argv)
132{
133 const struct rb_callinfo *ci = calling->cd->ci;
134 VALUE val;
135 const rb_callable_method_entry_t *me = vm_cc_cme(calling->cc);
136 const rb_method_cfunc_t *cfunc = UNALIGNED_MEMBER_PTR(me->def, body.cfunc);
137 int len = cfunc->argc;
138 VALUE recv = calling->recv;
139 int argc = calling->argc;
140 ID mid = vm_ci_mid(ci);
141 VALUE block_handler = calling->block_handler;
142 int frame_flags = VM_FRAME_MAGIC_CFUNC | VM_FRAME_FLAG_CFRAME | VM_ENV_FLAG_LOCAL;
143
144 if (calling->kw_splat) {
145 if (argc > 0 && RB_TYPE_P(argv[argc-1], T_HASH) && RHASH_EMPTY_P(argv[argc-1])) {
146 argc--;
147 }
148 else {
149 frame_flags |= VM_FRAME_FLAG_CFRAME_KW;
150 }
151 }
152
153 RUBY_DTRACE_CMETHOD_ENTRY_HOOK(ec, me->owner, me->def->original_id);
154 EXEC_EVENT_HOOK(ec, RUBY_EVENT_C_CALL, recv, me->def->original_id, mid, me->owner, Qnil);
155 {
156 rb_control_frame_t *reg_cfp = ec->cfp;
157
158 vm_push_frame(ec, 0, frame_flags, recv,
159 block_handler, (VALUE)me,
160 0, reg_cfp->sp, 0, 0);
161
162 if (len >= 0) rb_check_arity(argc, len, len);
163
164 val = (*cfunc->invoker)(recv, argc, argv, cfunc->func);
165
166 CHECK_CFP_CONSISTENCY("vm_call0_cfunc_with_frame");
167 rb_vm_pop_frame(ec);
168 }
169 EXEC_EVENT_HOOK(ec, RUBY_EVENT_C_RETURN, recv, me->def->original_id, mid, me->owner, val);
170 RUBY_DTRACE_CMETHOD_RETURN_HOOK(ec, me->owner, me->def->original_id);
171
172 return val;
173}
174
175static VALUE
176vm_call0_cfunc(rb_execution_context_t *ec, struct rb_calling_info *calling, const VALUE *argv)
177{
178 return vm_call0_cfunc_with_frame(ec, calling, argv);
179}
180
181static void
182vm_call_check_arity(struct rb_calling_info *calling, int argc, const VALUE *argv)
183{
184 if (calling->kw_splat &&
185 calling->argc > 0 &&
186 RB_TYPE_P(argv[calling->argc-1], T_HASH) &&
187 RHASH_EMPTY_P(argv[calling->argc-1])) {
188 calling->argc--;
189 }
190
191 rb_check_arity(calling->argc, argc, argc);
192}
193
194/* `ci' should point temporal value (on stack value) */
195static VALUE
196vm_call0_body(rb_execution_context_t *ec, struct rb_calling_info *calling, const VALUE *argv)
197{
198 const struct rb_callinfo *ci = calling->cd->ci;
199 const struct rb_callcache *cc = calling->cc;
200 VALUE ret;
201
202 retry:
203
204 switch (vm_cc_cme(cc)->def->type) {
205 case VM_METHOD_TYPE_ISEQ:
206 {
207 rb_control_frame_t *reg_cfp = ec->cfp;
208 int i;
209
210 CHECK_VM_STACK_OVERFLOW(reg_cfp, calling->argc + 1);
211 vm_check_canary(ec, reg_cfp->sp);
212
213 *reg_cfp->sp++ = calling->recv;
214 for (i = 0; i < calling->argc; i++) {
215 *reg_cfp->sp++ = argv[i];
216 }
217
218 if (ISEQ_BODY(def_iseq_ptr(vm_cc_cme(cc)->def))->param.flags.forwardable) {
219 vm_call_iseq_fwd_setup(ec, reg_cfp, calling);
220 }
221 else {
222 vm_call_iseq_setup(ec, reg_cfp, calling);
223 }
224 VM_ENV_FLAGS_SET(ec->cfp->ep, VM_FRAME_FLAG_FINISH);
225 return vm_exec(ec); // CHECK_INTS in this function
226 }
227 case VM_METHOD_TYPE_NOTIMPLEMENTED:
228 case VM_METHOD_TYPE_CFUNC:
229 ret = vm_call0_cfunc(ec, calling, argv);
230 goto success;
231 case VM_METHOD_TYPE_ATTRSET:
232 vm_call_check_arity(calling, 1, argv);
233 VM_CALL_METHOD_ATTR(ret,
234 rb_ivar_set(calling->recv, vm_cc_cme(cc)->def->body.attr.id, argv[0]),
235 (void)0);
236 goto success;
237 case VM_METHOD_TYPE_IVAR:
238 vm_call_check_arity(calling, 0, argv);
239 VM_CALL_METHOD_ATTR(ret,
240 rb_attr_get(calling->recv, vm_cc_cme(cc)->def->body.attr.id),
241 (void)0);
242 goto success;
243 case VM_METHOD_TYPE_BMETHOD:
244 ret = vm_call_bmethod_body(ec, calling, argv);
245 goto success;
246 case VM_METHOD_TYPE_ZSUPER:
247 {
248 VALUE klass = RCLASS_ORIGIN(vm_cc_cme(cc)->defined_class);
249 return vm_call0_super(ec, calling, argv, klass, MISSING_SUPER);
250 }
251 case VM_METHOD_TYPE_REFINED:
252 {
253 const rb_callable_method_entry_t *cme = vm_cc_cme(cc);
254
255 if (cme->def->body.refined.orig_me) {
256 const rb_callable_method_entry_t *orig_cme = refined_method_callable_without_refinement(cme);
257 return vm_call0_cme(ec, calling, argv, orig_cme);
258 }
259
260 VALUE klass = cme->defined_class;
261 return vm_call0_super(ec, calling, argv, klass, 0);
262 }
263 case VM_METHOD_TYPE_ALIAS:
264 {
265 const rb_callable_method_entry_t *cme = vm_cc_cme(cc);
266 const rb_callable_method_entry_t *orig_cme = aliased_callable_method_entry(cme);
267
268 if (cme == orig_cme) rb_bug("same!!");
269
270 if (vm_cc_markable(cc)) {
271 return vm_call0_cme(ec, calling, argv, orig_cme);
272 }
273 else {
274 *((const rb_callable_method_entry_t **)&cc->cme_) = orig_cme;
275 goto retry;
276 }
277 }
278 case VM_METHOD_TYPE_MISSING:
279 {
280 vm_passed_block_handler_set(ec, calling->block_handler);
281 return method_missing(ec, calling->recv, vm_ci_mid(ci), calling->argc,
282 argv, MISSING_NOENTRY, calling->kw_splat);
283 }
284 case VM_METHOD_TYPE_OPTIMIZED:
285 switch (vm_cc_cme(cc)->def->body.optimized.type) {
286 case OPTIMIZED_METHOD_TYPE_SEND:
287 ret = send_internal(calling->argc, argv, calling->recv, calling->kw_splat ? CALL_FCALL_KW : CALL_FCALL);
288 goto success;
289 case OPTIMIZED_METHOD_TYPE_CALL:
290 {
291 rb_proc_t *proc;
292 GetProcPtr(calling->recv, proc);
293 ret = rb_vm_invoke_proc(ec, proc, calling->argc, argv, calling->kw_splat, calling->block_handler);
294 goto success;
295 }
296 case OPTIMIZED_METHOD_TYPE_STRUCT_AREF:
297 vm_call_check_arity(calling, 0, argv);
298 VM_CALL_METHOD_ATTR(ret,
299 vm_call_opt_struct_aref0(ec, calling),
300 (void)0);
301 goto success;
302 case OPTIMIZED_METHOD_TYPE_STRUCT_ASET:
303 vm_call_check_arity(calling, 1, argv);
304 VM_CALL_METHOD_ATTR(ret,
305 vm_call_opt_struct_aset0(ec, calling, argv[0]),
306 (void)0);
307 goto success;
308 default:
309 rb_bug("vm_call0: unsupported optimized method type (%d)", vm_cc_cme(cc)->def->body.optimized.type);
310 }
311 break;
312 case VM_METHOD_TYPE_UNDEF:
313 break;
314 }
315 rb_bug("vm_call0: unsupported method type (%d)", vm_cc_cme(cc)->def->type);
316 return Qundef;
317
318 success:
319 RUBY_VM_CHECK_INTS(ec);
320 return ret;
321}
322
323VALUE
324rb_vm_call_kw(rb_execution_context_t *ec, VALUE recv, VALUE id, int argc, const VALUE *argv, const rb_callable_method_entry_t *me, int kw_splat)
325{
326 return rb_vm_call0(ec, recv, id, argc, argv, me, kw_splat);
327}
328
329static inline VALUE
330vm_call_super(rb_execution_context_t *ec, int argc, const VALUE *argv, int kw_splat)
331{
332 VALUE recv = ec->cfp->self;
333 VALUE klass;
334 ID id;
335 rb_control_frame_t *cfp = ec->cfp;
336 const rb_callable_method_entry_t *me = rb_vm_frame_method_entry(cfp);
337
338 if (VM_FRAME_RUBYFRAME_P(cfp)) {
339 rb_bug("vm_call_super: should not be reached");
340 }
341
342 klass = RCLASS_ORIGIN(me->defined_class);
343 klass = RCLASS_SUPER(klass);
344 id = me->def->original_id;
345 me = rb_callable_method_entry(klass, id);
346
347 if (!me) {
348 return method_missing(ec, recv, id, argc, argv, MISSING_SUPER, kw_splat);
349 }
350 return rb_vm_call_kw(ec, recv, id, argc, argv, me, kw_splat);
351}
352
353VALUE
354rb_call_super_kw(int argc, const VALUE *argv, int kw_splat)
355{
356 rb_execution_context_t *ec = GET_EC();
357 PASS_PASSED_BLOCK_HANDLER_EC(ec);
358 return vm_call_super(ec, argc, argv, kw_splat);
359}
360
361VALUE
362rb_call_super(int argc, const VALUE *argv)
363{
364 return rb_call_super_kw(argc, argv, RB_NO_KEYWORDS);
365}
366
367VALUE
369{
370 const rb_execution_context_t *ec = GET_EC();
372 if (!ec || !(cfp = ec->cfp)) {
373 rb_raise(rb_eRuntimeError, "no self, no life");
374 }
375 return cfp->self;
376}
377
378static inline void
379stack_check(rb_execution_context_t *ec)
380{
381 if (!rb_ec_raised_p(ec, RAISED_STACKOVERFLOW) &&
382 rb_ec_stack_check(ec)) {
383 rb_ec_raised_set(ec, RAISED_STACKOVERFLOW);
384 rb_ec_stack_overflow(ec, 0);
385 }
386}
387
388void
389rb_check_stack_overflow(void)
390{
391#ifndef RB_THREAD_LOCAL_SPECIFIER
392 if (!ruby_current_ec_key) return;
393#endif
394 rb_execution_context_t *ec = GET_EC();
395 if (ec) stack_check(ec);
396}
397
398NORETURN(static void uncallable_object(VALUE recv, ID mid));
399static inline const rb_callable_method_entry_t *rb_search_method_entry(VALUE recv, ID mid);
400static inline enum method_missing_reason rb_method_call_status(rb_execution_context_t *ec, const rb_callable_method_entry_t *me, call_type scope, VALUE self);
401
402static VALUE
403gccct_hash(VALUE klass, ID mid)
404{
405 return (klass >> 3) ^ (VALUE)mid;
406}
407
408NOINLINE(static const struct rb_callcache *gccct_method_search_slowpath(rb_vm_t *vm, VALUE klass, unsigned int index, const struct rb_callinfo * ci));
409
410static const struct rb_callcache *
411gccct_method_search_slowpath(rb_vm_t *vm, VALUE klass, unsigned int index, const struct rb_callinfo *ci)
412{
413 struct rb_call_data cd = {
414 .ci = ci,
415 .cc = NULL
416 };
417
418 vm_search_method_slowpath0(vm->self, &cd, klass);
419
420 return vm->global_cc_cache_table[index] = cd.cc;
421}
422
423static void
424scope_to_ci(call_type scope, ID mid, int argc, struct rb_callinfo *ci)
425{
426 int flags = 0;
427
428 switch(scope) {
429 case CALL_PUBLIC:
430 break;
431 case CALL_FCALL:
432 flags |= VM_CALL_FCALL;
433 break;
434 case CALL_VCALL:
435 flags |= VM_CALL_VCALL;
436 break;
437 case CALL_PUBLIC_KW:
438 flags |= VM_CALL_KWARG;
439 break;
440 case CALL_FCALL_KW:
441 flags |= (VM_CALL_KWARG | VM_CALL_FCALL);
442 break;
443 }
444 *ci = VM_CI_ON_STACK(mid, flags, argc, NULL);
445}
446
447static inline const struct rb_callcache *
448gccct_method_search(rb_execution_context_t *ec, VALUE recv, ID mid, const struct rb_callinfo *ci)
449{
450 VALUE klass;
451
452 if (!SPECIAL_CONST_P(recv)) {
453 klass = RBASIC_CLASS(recv);
454 if (UNLIKELY(!klass)) uncallable_object(recv, mid);
455 }
456 else {
457 klass = CLASS_OF(recv);
458 }
459
460 // search global method cache
461 unsigned int index = (unsigned int)(gccct_hash(klass, mid) % VM_GLOBAL_CC_CACHE_TABLE_SIZE);
462 rb_vm_t *vm = rb_ec_vm_ptr(ec);
463 const struct rb_callcache *cc = vm->global_cc_cache_table[index];
464
465 if (LIKELY(cc)) {
466 if (LIKELY(vm_cc_class_check(cc, klass))) {
467 const rb_callable_method_entry_t *cme = vm_cc_cme(cc);
468 if (LIKELY(!METHOD_ENTRY_INVALIDATED(cme) &&
469 cme->called_id == mid)) {
470
471 VM_ASSERT(vm_cc_check_cme(cc, rb_callable_method_entry(klass, mid)));
472 RB_DEBUG_COUNTER_INC(gccct_hit);
473
474 return cc;
475 }
476 }
477 }
478 else {
479 RB_DEBUG_COUNTER_INC(gccct_null);
480 }
481
482 RB_DEBUG_COUNTER_INC(gccct_miss);
483 return gccct_method_search_slowpath(vm, klass, index, ci);
484}
485
502static inline VALUE
503rb_call0(rb_execution_context_t *ec,
504 VALUE recv, ID mid, int argc, const VALUE *argv,
505 call_type call_scope, VALUE self)
506{
507 enum method_missing_reason call_status;
508 call_type scope = call_scope;
509 int kw_splat = RB_NO_KEYWORDS;
510
511 switch (scope) {
512 case CALL_PUBLIC_KW:
513 scope = CALL_PUBLIC;
514 kw_splat = 1;
515 break;
516 case CALL_FCALL_KW:
517 scope = CALL_FCALL;
518 kw_splat = 1;
519 break;
520 default:
521 break;
522 }
523
524 struct rb_callinfo ci;
525 scope_to_ci(scope, mid, argc, &ci);
526
527 const struct rb_callcache *cc = gccct_method_search(ec, recv, mid, &ci);
528
529 if (scope == CALL_PUBLIC) {
530 RB_DEBUG_COUNTER_INC(call0_public);
531
532 const rb_callable_method_entry_t *cc_cme = cc ? vm_cc_cme(cc) : NULL;
533 const rb_callable_method_entry_t *cme = callable_method_entry_refinements0(CLASS_OF(recv), mid, NULL, true, cc_cme);
534 call_status = rb_method_call_status(ec, cme, scope, self);
535
536 if (UNLIKELY(call_status != MISSING_NONE)) {
537 return method_missing(ec, recv, mid, argc, argv, call_status, kw_splat);
538 }
539 else if (UNLIKELY(cc_cme != cme)) { // refinement is solved
540 stack_check(ec);
541 return rb_vm_call_kw(ec, recv, mid, argc, argv, cme, kw_splat);
542 }
543 }
544 else {
545 RB_DEBUG_COUNTER_INC(call0_other);
546 call_status = rb_method_call_status(ec, cc ? vm_cc_cme(cc) : NULL, scope, self);
547
548 if (UNLIKELY(call_status != MISSING_NONE)) {
549 return method_missing(ec, recv, mid, argc, argv, call_status, kw_splat);
550 }
551 }
552
553 stack_check(ec);
554 return vm_call0_cc(ec, recv, mid, argc, argv, cc, kw_splat);
555}
556
558 VALUE defined_class;
559 VALUE recv;
560 ID mid;
563 unsigned int respond: 1;
564 unsigned int respond_to_missing: 1;
565 int argc;
566 const VALUE *argv;
567 int kw_splat;
568};
569
570static VALUE
571check_funcall_exec(VALUE v)
572{
573 struct rescue_funcall_args *args = (void *)v;
574 return call_method_entry(args->ec, args->defined_class,
575 args->recv, idMethodMissing,
576 args->cme, args->argc, args->argv, args->kw_splat);
577}
578
579static VALUE
580check_funcall_failed(VALUE v, VALUE e)
581{
582 struct rescue_funcall_args *args = (void *)v;
583 int ret = args->respond;
584 if (!ret) {
585 switch (method_boundp(args->defined_class, args->mid,
586 BOUND_PRIVATE|BOUND_RESPONDS)) {
587 case 2:
588 ret = TRUE;
589 break;
590 case 0:
591 ret = args->respond_to_missing;
592 break;
593 default:
594 ret = FALSE;
595 break;
596 }
597 }
598 if (ret) {
599 rb_exc_raise(e);
600 }
601 return Qundef;
602}
603
604static int
605check_funcall_respond_to(rb_execution_context_t *ec, VALUE klass, VALUE recv, ID mid)
606{
607 return vm_respond_to(ec, klass, recv, mid, TRUE);
608}
609
610static int
611check_funcall_callable(rb_execution_context_t *ec, const rb_callable_method_entry_t *me)
612{
613 return rb_method_call_status(ec, me, CALL_FCALL, ec->cfp->self) == MISSING_NONE;
614}
615
616static VALUE
617check_funcall_missing(rb_execution_context_t *ec, VALUE klass, VALUE recv, ID mid, int argc, const VALUE *argv, int respond, VALUE def, int kw_splat)
618{
619 struct rescue_funcall_args args;
621 VALUE ret = Qundef;
622
623 ret = basic_obj_respond_to_missing(ec, klass, recv,
624 ID2SYM(mid), Qtrue);
625 if (!RTEST(ret)) return def;
626 args.respond = respond > 0;
627 args.respond_to_missing = !UNDEF_P(ret);
628 ret = def;
629 cme = callable_method_entry(klass, idMethodMissing, &args.defined_class);
630
631 if (cme && !METHOD_ENTRY_BASIC(cme)) {
632 VALUE argbuf, *new_args = ALLOCV_N(VALUE, argbuf, argc+1);
633
634 new_args[0] = ID2SYM(mid);
635 #ifdef __GLIBC__
636 if (!argv) {
637 static const VALUE buf = Qfalse;
638 VM_ASSERT(argc == 0);
639 argv = &buf;
640 }
641 #endif
642 MEMCPY(new_args+1, argv, VALUE, argc);
643 ec->method_missing_reason = MISSING_NOENTRY;
644 args.ec = ec;
645 args.recv = recv;
646 args.cme = cme;
647 args.mid = mid;
648 args.argc = argc + 1;
649 args.argv = new_args;
650 args.kw_splat = kw_splat;
651 ret = rb_rescue2(check_funcall_exec, (VALUE)&args,
652 check_funcall_failed, (VALUE)&args,
654 ALLOCV_END(argbuf);
655 }
656 return ret;
657}
658
659static VALUE rb_check_funcall_default_kw(VALUE recv, ID mid, int argc, const VALUE *argv, VALUE def, int kw_splat);
660
661VALUE
662rb_check_funcall_kw(VALUE recv, ID mid, int argc, const VALUE *argv, int kw_splat)
663{
664 return rb_check_funcall_default_kw(recv, mid, argc, argv, Qundef, kw_splat);
665}
666
667VALUE
668rb_check_funcall(VALUE recv, ID mid, int argc, const VALUE *argv)
669{
670 return rb_check_funcall_default_kw(recv, mid, argc, argv, Qundef, RB_NO_KEYWORDS);
671}
672
673static VALUE
674rb_check_funcall_default_kw(VALUE recv, ID mid, int argc, const VALUE *argv, VALUE def, int kw_splat)
675{
676 VM_ASSERT(ruby_thread_has_gvl_p());
677
678 VALUE klass = CLASS_OF(recv);
680 rb_execution_context_t *ec = GET_EC();
681 int respond = check_funcall_respond_to(ec, klass, recv, mid);
682
683 if (!respond)
684 return def;
685
686 me = rb_search_method_entry(recv, mid);
687 if (!check_funcall_callable(ec, me)) {
688 VALUE ret = check_funcall_missing(ec, klass, recv, mid, argc, argv,
689 respond, def, kw_splat);
690 if (UNDEF_P(ret)) ret = def;
691 return ret;
692 }
693 stack_check(ec);
694 return rb_vm_call_kw(ec, recv, mid, argc, argv, me, kw_splat);
695}
696
697VALUE
698rb_check_funcall_default(VALUE recv, ID mid, int argc, const VALUE *argv, VALUE def)
699{
700 return rb_check_funcall_default_kw(recv, mid, argc, argv, def, RB_NO_KEYWORDS);
701}
702
703VALUE
704rb_check_funcall_with_hook_kw(VALUE recv, ID mid, int argc, const VALUE *argv,
705 rb_check_funcall_hook *hook, VALUE arg, int kw_splat)
706{
707 VALUE klass = CLASS_OF(recv);
709 rb_execution_context_t *ec = GET_EC();
710 int respond = check_funcall_respond_to(ec, klass, recv, mid);
711
712 if (!respond) {
713 (*hook)(FALSE, recv, mid, argc, argv, arg);
714 return Qundef;
715 }
716
717 me = rb_search_method_entry(recv, mid);
718 if (!check_funcall_callable(ec, me)) {
719 VALUE ret = check_funcall_missing(ec, klass, recv, mid, argc, argv,
720 respond, Qundef, kw_splat);
721 (*hook)(!UNDEF_P(ret), recv, mid, argc, argv, arg);
722 return ret;
723 }
724 stack_check(ec);
725 (*hook)(TRUE, recv, mid, argc, argv, arg);
726 return rb_vm_call_kw(ec, recv, mid, argc, argv, me, kw_splat);
727}
728
729const char *
730rb_type_str(enum ruby_value_type type)
731{
732#define type_case(t) t: return #t
733 switch (type) {
734 case type_case(T_NONE);
735 case type_case(T_OBJECT);
736 case type_case(T_CLASS);
737 case type_case(T_MODULE);
738 case type_case(T_FLOAT);
739 case type_case(T_STRING);
740 case type_case(T_REGEXP);
741 case type_case(T_ARRAY);
742 case type_case(T_HASH);
743 case type_case(T_STRUCT);
744 case type_case(T_BIGNUM);
745 case type_case(T_FILE);
746 case type_case(T_DATA);
747 case type_case(T_MATCH);
748 case type_case(T_COMPLEX);
749 case type_case(T_RATIONAL);
750 case type_case(T_NIL);
751 case type_case(T_TRUE);
752 case type_case(T_FALSE);
753 case type_case(T_SYMBOL);
754 case type_case(T_FIXNUM);
755 case type_case(T_IMEMO);
756 case type_case(T_UNDEF);
757 case type_case(T_NODE);
758 case type_case(T_ICLASS);
759 case type_case(T_ZOMBIE);
760 case type_case(T_MOVED);
761 case T_MASK: break;
762 }
763#undef type_case
764 return NULL;
765}
766
767static void
768uncallable_object(VALUE recv, ID mid)
769{
770 VALUE flags;
771 int type;
772 const char *typestr;
773 VALUE mname = rb_id2str(mid);
774
775 if (SPECIAL_CONST_P(recv)) {
776 rb_raise(rb_eNotImpError,
777 "method '%"PRIsVALUE"' called on unexpected immediate object (%p)",
778 mname, (void *)recv);
779 }
780 else if ((flags = RBASIC(recv)->flags) == 0) {
781 rb_raise(rb_eNotImpError,
782 "method '%"PRIsVALUE"' called on terminated object (%p)",
783 mname, (void *)recv);
784 }
785 else if (!(typestr = rb_type_str(type = BUILTIN_TYPE(recv)))) {
786 rb_raise(rb_eNotImpError,
787 "method '%"PRIsVALUE"' called on broken T_?""?""?(0x%02x) object"
788 " (%p flags=0x%"PRIxVALUE")",
789 mname, type, (void *)recv, flags);
790 }
791 else if (T_OBJECT <= type && type < T_NIL) {
792 rb_raise(rb_eNotImpError,
793 "method '%"PRIsVALUE"' called on hidden %s object"
794 " (%p flags=0x%"PRIxVALUE")",
795 mname, typestr, (void *)recv, flags);
796 }
797 else {
798 rb_raise(rb_eNotImpError,
799 "method '%"PRIsVALUE"' called on unexpected %s object"
800 " (%p flags=0x%"PRIxVALUE")",
801 mname, typestr, (void *)recv, flags);
802 }
803}
804
805static inline const rb_callable_method_entry_t *
806rb_search_method_entry(VALUE recv, ID mid)
807{
808 VALUE klass = CLASS_OF(recv);
809
810 if (!klass) uncallable_object(recv, mid);
811 return rb_callable_method_entry(klass, mid);
812}
813
814static inline enum method_missing_reason
815rb_method_call_status(rb_execution_context_t *ec, const rb_callable_method_entry_t *me, call_type scope, VALUE self)
816{
817 if (UNLIKELY(UNDEFINED_METHOD_ENTRY_P(me))) {
818 goto undefined;
819 }
820 else if (UNLIKELY(me->def->type == VM_METHOD_TYPE_REFINED)) {
821 me = rb_resolve_refined_method_callable(Qnil, me);
822 if (UNDEFINED_METHOD_ENTRY_P(me)) goto undefined;
823 }
824
825 rb_method_visibility_t visi = METHOD_ENTRY_VISI(me);
826
827 /* receiver specified form for private method */
828 if (UNLIKELY(visi != METHOD_VISI_PUBLIC)) {
829 if (me->def->original_id == idMethodMissing) {
830 return MISSING_NONE;
831 }
832 else if (visi == METHOD_VISI_PRIVATE &&
833 scope == CALL_PUBLIC) {
834 return MISSING_PRIVATE;
835 }
836 /* self must be kind of a specified form for protected method */
837 else if (visi == METHOD_VISI_PROTECTED &&
838 scope == CALL_PUBLIC) {
839
840 VALUE defined_class = me->owner;
841 if (RB_TYPE_P(defined_class, T_ICLASS)) {
842 defined_class = RBASIC(defined_class)->klass;
843 }
844
845 if (UNDEF_P(self) || !rb_obj_is_kind_of(self, defined_class)) {
846 return MISSING_PROTECTED;
847 }
848 }
849 }
850
851 return MISSING_NONE;
852
853 undefined:
854 return scope == CALL_VCALL ? MISSING_VCALL : MISSING_NOENTRY;
855}
856
857
869static inline VALUE
870rb_call(VALUE recv, ID mid, int argc, const VALUE *argv, call_type scope)
871{
872 rb_execution_context_t *ec = GET_EC();
873 return rb_call0(ec, recv, mid, argc, argv, scope, ec->cfp->self);
874}
875
876NORETURN(static void raise_method_missing(rb_execution_context_t *ec, int argc, const VALUE *argv,
877 VALUE obj, enum method_missing_reason call_status));
878
879/*
880 * call-seq:
881 * obj.method_missing(symbol [, *args] ) -> result
882 *
883 * Invoked by Ruby when <i>obj</i> is sent a message it cannot handle.
884 * <i>symbol</i> is the symbol for the method called, and <i>args</i>
885 * are any arguments that were passed to it. By default, the interpreter
886 * raises an error when this method is called. However, it is possible
887 * to override the method to provide more dynamic behavior.
888 * If it is decided that a particular method should not be handled, then
889 * <i>super</i> should be called, so that ancestors can pick up the
890 * missing method.
891 * The example below creates
892 * a class <code>Roman</code>, which responds to methods with names
893 * consisting of roman numerals, returning the corresponding integer
894 * values.
895 *
896 * class Roman
897 * def roman_to_int(str)
898 * # ...
899 * end
900 *
901 * def method_missing(symbol, *args)
902 * str = symbol.id2name
903 * begin
904 * roman_to_int(str)
905 * rescue
906 * super(symbol, *args)
907 * end
908 * end
909 * end
910 *
911 * r = Roman.new
912 * r.iv #=> 4
913 * r.xxiii #=> 23
914 * r.mm #=> 2000
915 * r.foo #=> NoMethodError
916 */
917
918static VALUE
919rb_method_missing(int argc, const VALUE *argv, VALUE obj)
920{
921 rb_execution_context_t *ec = GET_EC();
922 raise_method_missing(ec, argc, argv, obj, ec->method_missing_reason);
924}
925
926VALUE
927rb_make_no_method_exception(VALUE exc, VALUE format, VALUE obj,
928 int argc, const VALUE *argv, int priv)
929{
930 VALUE name = argv[0];
931
932 if (!format) {
933 format = rb_fstring_lit("undefined method '%1$s' for %3$s%4$s");
934 }
935 if (exc == rb_eNoMethodError) {
936 VALUE args = rb_ary_new4(argc - 1, argv + 1);
937 return rb_nomethod_err_new(format, obj, name, args, priv);
938 }
939 else {
940 return rb_name_err_new(format, obj, name);
941 }
942}
943
944static void
945raise_method_missing(rb_execution_context_t *ec, int argc, const VALUE *argv, VALUE obj,
946 enum method_missing_reason last_call_status)
947{
949 VALUE format = 0;
950
951 if (UNLIKELY(argc == 0)) {
952 rb_raise(rb_eArgError, "no method name given");
953 }
954 else if (UNLIKELY(!SYMBOL_P(argv[0]))) {
955 const VALUE e = rb_eArgError; /* TODO: TypeError? */
956 rb_raise(e, "method name must be a Symbol but %"PRIsVALUE" is given",
957 rb_obj_class(argv[0]));
958 }
959
960 stack_check(ec);
961
962 if (last_call_status & MISSING_PRIVATE) {
963 format = rb_fstring_lit("private method '%1$s' called for %3$s%4$s");
964 }
965 else if (last_call_status & MISSING_PROTECTED) {
966 format = rb_fstring_lit("protected method '%1$s' called for %3$s%4$s");
967 }
968 else if (last_call_status & MISSING_VCALL) {
969 format = rb_fstring_lit("undefined local variable or method '%1$s' for %3$s%4$s");
970 exc = rb_eNameError;
971 }
972 else if (last_call_status & MISSING_SUPER) {
973 format = rb_fstring_lit("super: no superclass method '%1$s' for %3$s%4$s");
974 }
975
976 {
977 exc = rb_make_no_method_exception(exc, format, obj, argc, argv,
978 last_call_status & (MISSING_FCALL|MISSING_VCALL));
979 if (!(last_call_status & MISSING_MISSING)) {
980 rb_vm_pop_cfunc_frame();
981 }
982 rb_exc_raise(exc);
983 }
984}
985
986static void
987vm_raise_method_missing(rb_execution_context_t *ec, int argc, const VALUE *argv,
988 VALUE obj, int call_status)
989{
990 vm_passed_block_handler_set(ec, VM_BLOCK_HANDLER_NONE);
991 raise_method_missing(ec, argc, argv, obj, call_status | MISSING_MISSING);
992}
993
994static inline VALUE
995method_missing(rb_execution_context_t *ec, VALUE obj, ID id, int argc, const VALUE *argv, enum method_missing_reason call_status, int kw_splat)
996{
997 VALUE *nargv, result, work, klass;
998 VALUE block_handler = vm_passed_block_handler(ec);
1000
1001 ec->method_missing_reason = call_status;
1002
1003 if (id == idMethodMissing) {
1004 goto missing;
1005 }
1006
1007 nargv = ALLOCV_N(VALUE, work, argc + 1);
1008 nargv[0] = ID2SYM(id);
1009 #ifdef __GLIBC__
1010 if (!argv) {
1011 static const VALUE buf = Qfalse;
1012 VM_ASSERT(argc == 0);
1013 argv = &buf;
1014 }
1015 #endif
1016 MEMCPY(nargv + 1, argv, VALUE, argc);
1017 ++argc;
1018 argv = nargv;
1019
1020 klass = CLASS_OF(obj);
1021 if (!klass) goto missing;
1022 me = rb_callable_method_entry(klass, idMethodMissing);
1023 if (!me || METHOD_ENTRY_BASIC(me)) goto missing;
1024 vm_passed_block_handler_set(ec, block_handler);
1025 result = rb_vm_call_kw(ec, obj, idMethodMissing, argc, argv, me, kw_splat);
1026 if (work) ALLOCV_END(work);
1027 return result;
1028 missing:
1029 raise_method_missing(ec, argc, argv, obj, call_status | MISSING_MISSING);
1031}
1032
1033static inline VALUE
1034rb_funcallv_scope(VALUE recv, ID mid, int argc, const VALUE *argv, call_type scope)
1035{
1036 rb_execution_context_t *ec = GET_EC();
1037
1038 struct rb_callinfo ci;
1039 scope_to_ci(scope, mid, argc, &ci);
1040
1041 const struct rb_callcache *cc = gccct_method_search(ec, recv, mid, &ci);
1042 VALUE self = ec->cfp->self;
1043
1044 if (LIKELY(cc) &&
1045 LIKELY(rb_method_call_status(ec, vm_cc_cme(cc), scope, self) == MISSING_NONE)) {
1046 // fastpath
1047 return vm_call0_cc(ec, recv, mid, argc, argv, cc, false);
1048 }
1049 else {
1050 return rb_call0(ec, recv, mid, argc, argv, scope, self);
1051 }
1052}
1053
1054#ifdef rb_funcallv
1055#undef rb_funcallv
1056#endif
1057VALUE
1058rb_funcallv(VALUE recv, ID mid, int argc, const VALUE *argv)
1059{
1060 VM_ASSERT(ruby_thread_has_gvl_p());
1061
1062 return rb_funcallv_scope(recv, mid, argc, argv, CALL_FCALL);
1063}
1064
1065VALUE
1066rb_funcallv_kw(VALUE recv, ID mid, int argc, const VALUE *argv, int kw_splat)
1067{
1068 VM_ASSERT(ruby_thread_has_gvl_p());
1069
1070 return rb_call(recv, mid, argc, argv, kw_splat ? CALL_FCALL_KW : CALL_FCALL);
1071}
1072
1073VALUE
1074rb_apply(VALUE recv, ID mid, VALUE args)
1075{
1076 int argc;
1077 VALUE *argv, ret;
1078
1079 argc = RARRAY_LENINT(args);
1080 if (argc >= 0x100) {
1081 args = rb_ary_subseq(args, 0, argc);
1082 RBASIC_CLEAR_CLASS(args);
1083 OBJ_FREEZE(args);
1084 ret = rb_call(recv, mid, argc, RARRAY_CONST_PTR(args), CALL_FCALL);
1085 RB_GC_GUARD(args);
1086 return ret;
1087 }
1088 argv = ALLOCA_N(VALUE, argc);
1089 MEMCPY(argv, RARRAY_CONST_PTR(args), VALUE, argc);
1090
1091 return rb_funcallv(recv, mid, argc, argv);
1092}
1093
1094#ifdef rb_funcall
1095#undef rb_funcall
1096#endif
1097
1098VALUE
1099rb_funcall(VALUE recv, ID mid, int n, ...)
1100{
1101 VALUE *argv;
1102 va_list ar;
1103
1104 if (n > 0) {
1105 long i;
1106
1107 va_start(ar, n);
1108
1109 argv = ALLOCA_N(VALUE, n);
1110
1111 for (i = 0; i < n; i++) {
1112 argv[i] = va_arg(ar, VALUE);
1113 }
1114 va_end(ar);
1115 }
1116 else {
1117 argv = 0;
1118 }
1119 return rb_funcallv(recv, mid, n, argv);
1120}
1121
1132VALUE
1133rb_check_funcall_basic_kw(VALUE recv, ID mid, VALUE ancestor, int argc, const VALUE *argv, int kw_splat)
1134{
1135 const rb_callable_method_entry_t *cme;
1137 VALUE klass = CLASS_OF(recv);
1138 if (!klass) return Qundef; /* hidden object */
1139
1140 cme = rb_callable_method_entry(klass, mid);
1141 if (cme && METHOD_ENTRY_BASIC(cme) && RBASIC_CLASS(cme->defined_class) == ancestor) {
1142 ec = GET_EC();
1143 return rb_vm_call0(ec, recv, mid, argc, argv, cme, kw_splat);
1144 }
1145
1146 return Qundef;
1147}
1148
1149VALUE
1150rb_funcallv_public(VALUE recv, ID mid, int argc, const VALUE *argv)
1151{
1152 return rb_funcallv_scope(recv, mid, argc, argv, CALL_PUBLIC);
1153}
1154
1155VALUE
1156rb_funcallv_public_kw(VALUE recv, ID mid, int argc, const VALUE *argv, int kw_splat)
1157{
1158 return rb_call(recv, mid, argc, argv, kw_splat ? CALL_PUBLIC_KW : CALL_PUBLIC);
1159}
1160
1161VALUE
1162rb_funcall_passing_block(VALUE recv, ID mid, int argc, const VALUE *argv)
1163{
1164 PASS_PASSED_BLOCK_HANDLER();
1165 return rb_funcallv_public(recv, mid, argc, argv);
1166}
1167
1168VALUE
1169rb_funcall_passing_block_kw(VALUE recv, ID mid, int argc, const VALUE *argv, int kw_splat)
1170{
1171 PASS_PASSED_BLOCK_HANDLER();
1172 return rb_call(recv, mid, argc, argv, kw_splat ? CALL_PUBLIC_KW : CALL_PUBLIC);
1173}
1174
1175VALUE
1176rb_funcall_with_block(VALUE recv, ID mid, int argc, const VALUE *argv, VALUE passed_procval)
1177{
1178 if (!NIL_P(passed_procval)) {
1179 vm_passed_block_handler_set(GET_EC(), passed_procval);
1180 }
1181
1182 return rb_funcallv_public(recv, mid, argc, argv);
1183}
1184
1185VALUE
1186rb_funcall_with_block_kw(VALUE recv, ID mid, int argc, const VALUE *argv, VALUE passed_procval, int kw_splat)
1187{
1188 if (!NIL_P(passed_procval)) {
1189 vm_passed_block_handler_set(GET_EC(), passed_procval);
1190 }
1191
1192 return rb_call(recv, mid, argc, argv, kw_splat ? CALL_PUBLIC_KW : CALL_PUBLIC);
1193}
1194
1195static VALUE *
1196current_vm_stack_arg(const rb_execution_context_t *ec, const VALUE *argv)
1197{
1198 rb_control_frame_t *prev_cfp = RUBY_VM_PREVIOUS_CONTROL_FRAME(ec->cfp);
1199 if (RUBY_VM_CONTROL_FRAME_STACK_OVERFLOW_P(ec, prev_cfp)) return NULL;
1200 if (prev_cfp->sp + 1 != argv) return NULL;
1201 return prev_cfp->sp + 1;
1202}
1203
1204static VALUE
1205send_internal(int argc, const VALUE *argv, VALUE recv, call_type scope)
1206{
1207 ID id;
1208 VALUE vid;
1209 VALUE self;
1210 VALUE ret, vargv = 0;
1211 rb_execution_context_t *ec = GET_EC();
1212 int public = scope == CALL_PUBLIC || scope == CALL_PUBLIC_KW;
1213
1214 if (public) {
1215 self = Qundef;
1216 }
1217 else {
1218 self = RUBY_VM_PREVIOUS_CONTROL_FRAME(ec->cfp)->self;
1219 }
1220
1221 if (argc == 0) {
1222 rb_raise(rb_eArgError, "no method name given");
1223 }
1224
1225 vid = *argv;
1226
1227 id = rb_check_id(&vid);
1228 if (!id) {
1229 if (rb_method_basic_definition_p(CLASS_OF(recv), idMethodMissing)) {
1230 VALUE exc = rb_make_no_method_exception(rb_eNoMethodError, 0,
1231 recv, argc, argv,
1232 !public);
1233 rb_exc_raise(exc);
1234 }
1235 if (!SYMBOL_P(*argv)) {
1236 VALUE *tmp_argv = current_vm_stack_arg(ec, argv);
1237 vid = rb_str_intern(vid);
1238 if (tmp_argv) {
1239 tmp_argv[0] = vid;
1240 }
1241 else if (argc > 1) {
1242 tmp_argv = ALLOCV_N(VALUE, vargv, argc);
1243 tmp_argv[0] = vid;
1244 MEMCPY(tmp_argv+1, argv+1, VALUE, argc-1);
1245 argv = tmp_argv;
1246 }
1247 else {
1248 argv = &vid;
1249 }
1250 }
1251 id = idMethodMissing;
1252 ec->method_missing_reason = MISSING_NOENTRY;
1253 }
1254 else {
1255 argv++; argc--;
1256 }
1257 PASS_PASSED_BLOCK_HANDLER_EC(ec);
1258 ret = rb_call0(ec, recv, id, argc, argv, scope, self);
1259 ALLOCV_END(vargv);
1260 return ret;
1261}
1262
1263static VALUE
1264send_internal_kw(int argc, const VALUE *argv, VALUE recv, call_type scope)
1265{
1266 if (rb_keyword_given_p()) {
1267 switch (scope) {
1268 case CALL_PUBLIC:
1269 scope = CALL_PUBLIC_KW;
1270 break;
1271 case CALL_FCALL:
1272 scope = CALL_FCALL_KW;
1273 break;
1274 default:
1275 break;
1276 }
1277 }
1278 return send_internal(argc, argv, recv, scope);
1279}
1280
1281/*
1282 * call-seq:
1283 * foo.send(symbol [, args...]) -> obj
1284 * foo.__send__(symbol [, args...]) -> obj
1285 * foo.send(string [, args...]) -> obj
1286 * foo.__send__(string [, args...]) -> obj
1287 *
1288 * Invokes the method identified by _symbol_, passing it any
1289 * arguments specified.
1290 * When the method is identified by a string, the string is converted
1291 * to a symbol.
1292 *
1293 * BasicObject implements +__send__+, Kernel implements +send+.
1294 * <code>__send__</code> is safer than +send+
1295 * when _obj_ has the same method name like <code>Socket</code>.
1296 * See also <code>public_send</code>.
1297 *
1298 * class Klass
1299 * def hello(*args)
1300 * "Hello " + args.join(' ')
1301 * end
1302 * end
1303 * k = Klass.new
1304 * k.send :hello, "gentle", "readers" #=> "Hello gentle readers"
1305 */
1306
1307VALUE
1308rb_f_send(int argc, VALUE *argv, VALUE recv)
1309{
1310 return send_internal_kw(argc, argv, recv, CALL_FCALL);
1311}
1312
1313/*
1314 * call-seq:
1315 * obj.public_send(symbol [, args...]) -> obj
1316 * obj.public_send(string [, args...]) -> obj
1317 *
1318 * Invokes the method identified by _symbol_, passing it any
1319 * arguments specified. Unlike send, public_send calls public
1320 * methods only.
1321 * When the method is identified by a string, the string is converted
1322 * to a symbol.
1323 *
1324 * 1.public_send(:puts, "hello") # causes NoMethodError
1325 */
1326
1327static VALUE
1328rb_f_public_send(int argc, VALUE *argv, VALUE recv)
1329{
1330 return send_internal_kw(argc, argv, recv, CALL_PUBLIC);
1331}
1332
1333/* yield */
1334
1335static inline VALUE
1336rb_yield_0_kw(int argc, const VALUE * argv, int kw_splat)
1337{
1338 return vm_yield(GET_EC(), argc, argv, kw_splat);
1339}
1340
1341static inline VALUE
1342rb_yield_0(int argc, const VALUE * argv)
1343{
1344 return vm_yield(GET_EC(), argc, argv, RB_NO_KEYWORDS);
1345}
1346
1347VALUE
1348rb_yield_1(VALUE val)
1349{
1350 return rb_yield_0(1, &val);
1351}
1352
1353VALUE
1355{
1356 if (UNDEF_P(val)) {
1357 return rb_yield_0(0, NULL);
1358 }
1359 else {
1360 return rb_yield_0(1, &val);
1361 }
1362}
1363
1364#undef rb_yield_values
1365VALUE
1367{
1368 if (n == 0) {
1369 return rb_yield_0(0, 0);
1370 }
1371 else {
1372 int i;
1373 VALUE *argv;
1374 va_list args;
1375 argv = ALLOCA_N(VALUE, n);
1376
1377 va_start(args, n);
1378 for (i=0; i<n; i++) {
1379 argv[i] = va_arg(args, VALUE);
1380 }
1381 va_end(args);
1382
1383 return rb_yield_0(n, argv);
1384 }
1385}
1386
1387VALUE
1388rb_yield_values2(int argc, const VALUE *argv)
1389{
1390 return rb_yield_0(argc, argv);
1391}
1392
1393VALUE
1394rb_yield_values_kw(int argc, const VALUE *argv, int kw_splat)
1395{
1396 return rb_yield_0_kw(argc, argv, kw_splat);
1397}
1398
1399VALUE
1401{
1402 VALUE tmp = rb_check_array_type(values);
1403 VALUE v;
1404 if (NIL_P(tmp)) {
1405 rb_raise(rb_eArgError, "not an array");
1406 }
1407 v = rb_yield_0(RARRAY_LENINT(tmp), RARRAY_CONST_PTR(tmp));
1408 RB_GC_GUARD(tmp);
1409 return v;
1410}
1411
1412VALUE
1413rb_yield_splat_kw(VALUE values, int kw_splat)
1414{
1415 VALUE tmp = rb_check_array_type(values);
1416 VALUE v;
1417 if (NIL_P(tmp)) {
1418 rb_raise(rb_eArgError, "not an array");
1419 }
1420 v = rb_yield_0_kw(RARRAY_LENINT(tmp), RARRAY_CONST_PTR(tmp), kw_splat);
1421 RB_GC_GUARD(tmp);
1422 return v;
1423}
1424
1425VALUE
1426rb_yield_force_blockarg(VALUE values)
1427{
1428 return vm_yield_force_blockarg(GET_EC(), values);
1429}
1430
1431VALUE
1433{
1434 return vm_yield_with_block(GET_EC(), argc, argv,
1435 NIL_P(blockarg) ? VM_BLOCK_HANDLER_NONE : blockarg,
1437}
1438
1439#if VMDEBUG
1440static const char *
1441vm_frametype_name(const rb_control_frame_t *cfp);
1442#endif
1443
1444static VALUE
1445rb_iterate0(VALUE (* it_proc) (VALUE), VALUE data1,
1446 const struct vm_ifunc *const ifunc,
1448{
1449 enum ruby_tag_type state;
1450 volatile VALUE retval = Qnil;
1451 rb_control_frame_t *const cfp = ec->cfp;
1452
1453 EC_PUSH_TAG(ec);
1454 state = EC_EXEC_TAG();
1455 if (state == 0) {
1456 iter_retry:
1457 {
1458 VALUE block_handler;
1459
1460 if (ifunc) {
1461 struct rb_captured_block *captured = VM_CFP_TO_CAPTURED_BLOCK(cfp);
1462 captured->code.ifunc = ifunc;
1463 block_handler = VM_BH_FROM_IFUNC_BLOCK(captured);
1464 }
1465 else {
1466 block_handler = VM_CF_BLOCK_HANDLER(cfp);
1467 }
1468 vm_passed_block_handler_set(ec, block_handler);
1469 }
1470 retval = (*it_proc) (data1);
1471 }
1472 else if (state == TAG_BREAK || state == TAG_RETRY) {
1473 const struct vm_throw_data *const err = (struct vm_throw_data *)ec->errinfo;
1474 const rb_control_frame_t *const escape_cfp = THROW_DATA_CATCH_FRAME(err);
1475
1476 if (cfp == escape_cfp) {
1477 rb_vm_rewind_cfp(ec, cfp);
1478
1479 state = 0;
1480 ec->tag->state = TAG_NONE;
1481 ec->errinfo = Qnil;
1482
1483 if (state == TAG_RETRY) goto iter_retry;
1484 retval = THROW_DATA_VAL(err);
1485 }
1486 else if (0) {
1487 SDR(); fprintf(stderr, "%p, %p\n", (void *)cfp, (void *)escape_cfp);
1488 }
1489 }
1490 EC_POP_TAG();
1491
1492 if (state) {
1493 EC_JUMP_TAG(ec, state);
1494 }
1495 return retval;
1496}
1497
1498static VALUE
1499rb_iterate_internal(VALUE (* it_proc)(VALUE), VALUE data1,
1500 rb_block_call_func_t bl_proc, VALUE data2)
1501{
1502 return rb_iterate0(it_proc, data1,
1503 bl_proc ? rb_vm_ifunc_proc_new(bl_proc, (void *)data2) : 0,
1504 GET_EC());
1505}
1506
1507VALUE
1508rb_iterate(VALUE (* it_proc)(VALUE), VALUE data1,
1509 rb_block_call_func_t bl_proc, VALUE data2)
1510{
1511 return rb_iterate_internal(it_proc, data1, bl_proc, data2);
1512}
1513
1515 VALUE obj;
1516 ID mid;
1517 int argc;
1518 const VALUE *argv;
1519 int kw_splat;
1520};
1521
1522static VALUE
1523iterate_method(VALUE obj)
1524{
1525 const struct iter_method_arg * arg =
1526 (struct iter_method_arg *) obj;
1527
1528 return rb_call(arg->obj, arg->mid, arg->argc, arg->argv, arg->kw_splat ? CALL_FCALL_KW : CALL_FCALL);
1529}
1530
1531VALUE rb_block_call_kw(VALUE obj, ID mid, int argc, const VALUE * argv, rb_block_call_func_t bl_proc, VALUE data2, int kw_splat);
1532
1533VALUE
1534rb_block_call(VALUE obj, ID mid, int argc, const VALUE * argv,
1535 rb_block_call_func_t bl_proc, VALUE data2)
1536{
1537 return rb_block_call_kw(obj, mid, argc, argv, bl_proc, data2, RB_NO_KEYWORDS);
1538}
1539
1540VALUE
1541rb_block_call_kw(VALUE obj, ID mid, int argc, const VALUE * argv,
1542 rb_block_call_func_t bl_proc, VALUE data2, int kw_splat)
1543{
1544 struct iter_method_arg arg;
1545
1546 arg.obj = obj;
1547 arg.mid = mid;
1548 arg.argc = argc;
1549 arg.argv = argv;
1550 arg.kw_splat = kw_splat;
1551 return rb_iterate_internal(iterate_method, (VALUE)&arg, bl_proc, data2);
1552}
1553
1554/*
1555 * A flexible variant of rb_block_call and rb_block_call_kw.
1556 * This function accepts flags:
1557 *
1558 * RB_NO_KEYWORDS, RB_PASS_KEYWORDS, RB_PASS_CALLED_KEYWORDS:
1559 * Works as the same as rb_block_call_kw.
1560 *
1561 * RB_BLOCK_NO_USE_PACKED_ARGS:
1562 * The given block ("bl_proc") does not use "yielded_arg" of rb_block_call_func_t.
1563 * Instead, the block accesses the yielded arguments via "argc" and "argv".
1564 * This flag allows the called method to yield arguments without allocating an Array.
1565 */
1566VALUE
1567rb_block_call2(VALUE obj, ID mid, int argc, const VALUE *argv,
1568 rb_block_call_func_t bl_proc, VALUE data2, long flags)
1569{
1570 struct iter_method_arg arg;
1571
1572 arg.obj = obj;
1573 arg.mid = mid;
1574 arg.argc = argc;
1575 arg.argv = argv;
1576 arg.kw_splat = flags & 1;
1577
1578 struct vm_ifunc *ifunc = rb_vm_ifunc_proc_new(bl_proc, (void *)data2);
1579 if (flags & RB_BLOCK_NO_USE_PACKED_ARGS)
1580 ifunc->flags |= IFUNC_YIELD_OPTIMIZABLE;
1581
1582 return rb_iterate0(iterate_method, (VALUE)&arg, ifunc, GET_EC());
1583}
1584
1585VALUE
1586rb_lambda_call(VALUE obj, ID mid, int argc, const VALUE *argv,
1587 rb_block_call_func_t bl_proc, int min_argc, int max_argc,
1588 VALUE data2)
1589{
1590 struct iter_method_arg arg;
1591 struct vm_ifunc *block;
1592
1593 if (!bl_proc) rb_raise(rb_eArgError, "NULL lambda function");
1594 arg.obj = obj;
1595 arg.mid = mid;
1596 arg.argc = argc;
1597 arg.argv = argv;
1598 arg.kw_splat = 0;
1599 block = rb_vm_ifunc_new(bl_proc, (void *)data2, min_argc, max_argc);
1600 return rb_iterate0(iterate_method, (VALUE)&arg, block, GET_EC());
1601}
1602
1603static VALUE
1604iterate_check_method(VALUE obj)
1605{
1606 const struct iter_method_arg * arg =
1607 (struct iter_method_arg *) obj;
1608
1609 return rb_check_funcall(arg->obj, arg->mid, arg->argc, arg->argv);
1610}
1611
1612VALUE
1613rb_check_block_call(VALUE obj, ID mid, int argc, const VALUE *argv,
1614 rb_block_call_func_t bl_proc, VALUE data2)
1615{
1616 struct iter_method_arg arg;
1617
1618 arg.obj = obj;
1619 arg.mid = mid;
1620 arg.argc = argc;
1621 arg.argv = argv;
1622 arg.kw_splat = 0;
1623 return rb_iterate_internal(iterate_check_method, (VALUE)&arg, bl_proc, data2);
1624}
1625
1626VALUE
1628{
1629 return rb_call(obj, idEach, 0, 0, CALL_FCALL);
1630}
1631
1632static VALUE eval_default_path = Qfalse;
1633
1634#define EVAL_LOCATION_MARK "eval at "
1635#define EVAL_LOCATION_MARK_LEN (int)rb_strlen_lit(EVAL_LOCATION_MARK)
1636
1637static VALUE
1638get_eval_default_path(void)
1639{
1640 int location_lineno;
1641 VALUE location_path = rb_source_location(&location_lineno);
1642 if (!NIL_P(location_path)) {
1643 return rb_fstring(rb_sprintf("("EVAL_LOCATION_MARK"%"PRIsVALUE":%d)",
1644 location_path, location_lineno));
1645 }
1646
1647 if (!eval_default_path) {
1648 eval_default_path = rb_fstring_lit("(eval)");
1649 rb_vm_register_global_object(eval_default_path);
1650 }
1651 return eval_default_path;
1652}
1653
1654static const rb_iseq_t *
1655pm_eval_make_iseq(VALUE src, VALUE fname, int line,
1656 const struct rb_block *base_block)
1657{
1658 const rb_iseq_t *const parent = vm_block_iseq(base_block);
1659 const rb_iseq_t *iseq = parent;
1660 VALUE name = rb_fstring_lit("<compiled>");
1661
1662 // Conditionally enable coverage depending on the current mode:
1663 int coverage_enabled = ((rb_get_coverage_mode() & COVERAGE_TARGET_EVAL) != 0) ? 1 : 0;
1664
1665 if (!fname) {
1666 fname = rb_source_location(&line);
1667 }
1668
1669 if (!UNDEF_P(fname)) {
1670 if (!NIL_P(fname)) fname = rb_fstring(fname);
1671 }
1672 else {
1673 fname = get_eval_default_path();
1674 coverage_enabled = 0;
1675 }
1676
1677 pm_parse_result_t result = { 0 };
1678 pm_options_line_set(&result.options, line);
1679 result.node.coverage_enabled = coverage_enabled;
1680
1681 // Cout scopes, one for each parent iseq, plus one for our local scope
1682 int scopes_count = 0;
1683 do {
1684 scopes_count++;
1685 } while ((iseq = ISEQ_BODY(iseq)->parent_iseq));
1686 pm_options_scopes_init(&result.options, scopes_count + 1);
1687
1688 // Walk over the scope tree, adding known locals at the correct depths. The
1689 // scope array should be deepest -> shallowest. so lower indexes in the
1690 // scopes array refer to root nodes on the tree, and higher indexes are the
1691 // leaf nodes.
1692 iseq = parent;
1693 rb_encoding *encoding = rb_enc_get(src);
1694
1695#define FORWARDING_POSITIONALS_CHR '*'
1696#define FORWARDING_POSITIONALS_STR "*"
1697#define FORWARDING_KEYWORDS_CHR ':'
1698#define FORWARDING_KEYWORDS_STR ":"
1699#define FORWARDING_BLOCK_CHR '&'
1700#define FORWARDING_BLOCK_STR "&"
1701#define FORWARDING_ALL_CHR '.'
1702#define FORWARDING_ALL_STR "."
1703
1704 for (int scopes_index = 0; scopes_index < scopes_count; scopes_index++) {
1705 VALUE iseq_value = (VALUE)iseq;
1706 int locals_count = ISEQ_BODY(iseq)->local_table_size;
1707
1708 pm_options_scope_t *options_scope = &result.options.scopes[scopes_count - scopes_index - 1];
1709 pm_options_scope_init(options_scope, locals_count);
1710
1711 uint8_t forwarding = PM_OPTIONS_SCOPE_FORWARDING_NONE;
1712
1713 for (int local_index = 0; local_index < locals_count; local_index++) {
1714 pm_string_t *scope_local = &options_scope->locals[local_index];
1715 ID local = ISEQ_BODY(iseq)->local_table[local_index];
1716
1717 if (rb_is_local_id(local)) {
1718 VALUE name_obj = rb_id2str(local);
1719 const char *name = RSTRING_PTR(name_obj);
1720 size_t length = strlen(name);
1721
1722 // Explicitly skip numbered parameters. These should not be sent
1723 // into the eval.
1724 if (length == 2 && name[0] == '_' && name[1] >= '1' && name[1] <= '9') {
1725 continue;
1726 }
1727
1728 // Check here if this local can be represented validly in the
1729 // encoding of the source string. If it _cannot_, then it should
1730 // not be added to the constant pool as it would not be able to
1731 // be referenced anyway.
1732 if (rb_enc_str_coderange_scan(name_obj, encoding) == ENC_CODERANGE_BROKEN) {
1733 continue;
1734 }
1735
1736 /* We need to duplicate the string because the Ruby string may
1737 * be embedded so compaction could move the string and the pointer
1738 * will change. */
1739 char *name_dup = xmalloc(length + 1);
1740 strlcpy(name_dup, name, length + 1);
1741
1742 RB_GC_GUARD(name_obj);
1743
1744 pm_string_owned_init(scope_local, (uint8_t *) name_dup, length);
1745 }
1746 else if (local == idMULT) {
1748 pm_string_constant_init(scope_local, FORWARDING_POSITIONALS_STR, 1);
1749 }
1750 else if (local == idPow) {
1752 pm_string_constant_init(scope_local, FORWARDING_KEYWORDS_STR, 1);
1753 }
1754 else if (local == idAnd) {
1756 pm_string_constant_init(scope_local, FORWARDING_BLOCK_STR, 1);
1757 }
1758 else if (local == idDot3) {
1759 forwarding |= PM_OPTIONS_SCOPE_FORWARDING_ALL;
1760 pm_string_constant_init(scope_local, FORWARDING_ALL_STR, 1);
1761 }
1762 }
1763
1764 pm_options_scope_forwarding_set(options_scope, forwarding);
1765 iseq = ISEQ_BODY(iseq)->parent_iseq;
1766
1767 /* We need to GC guard the iseq because the code above malloc memory
1768 * which could trigger a GC. Since we only use ISEQ_BODY, the compiler
1769 * may optimize out the iseq local variable so we need to GC guard it. */
1770 RB_GC_GUARD(iseq_value);
1771 }
1772
1773 // Add our empty local scope at the very end of the array for our eval
1774 // scope's locals.
1775 pm_options_scope_init(&result.options.scopes[scopes_count], 0);
1776
1777 VALUE script_lines;
1778 VALUE error = pm_parse_string(&result, src, fname, ruby_vm_keep_script_lines ? &script_lines : NULL);
1779
1780 // If the parse failed, clean up and raise.
1781 if (error != Qnil) {
1782 pm_parse_result_free(&result);
1783 rb_exc_raise(error);
1784 }
1785
1786 // Create one scope node for each scope passed in, initialize the local
1787 // lookup table with all the local variable information attached to the
1788 // scope used by the parser.
1789 pm_scope_node_t *node = &result.node;
1790 iseq = parent;
1791
1792 for (int scopes_index = 0; scopes_index < scopes_count; scopes_index++) {
1793 pm_scope_node_t *parent_scope = ruby_xcalloc(1, sizeof(pm_scope_node_t));
1794 RUBY_ASSERT(parent_scope != NULL);
1795
1796 pm_options_scope_t *options_scope = &result.options.scopes[scopes_count - scopes_index - 1];
1797 parent_scope->coverage_enabled = coverage_enabled;
1798 parent_scope->parser = &result.parser;
1799 parent_scope->index_lookup_table = st_init_numtable();
1800
1801 int locals_count = ISEQ_BODY(iseq)->local_table_size;
1802 parent_scope->local_table_for_iseq_size = locals_count;
1803 pm_constant_id_list_init(&parent_scope->locals);
1804
1805 for (int local_index = 0; local_index < locals_count; local_index++) {
1806 const pm_string_t *scope_local = &options_scope->locals[local_index];
1807 pm_constant_id_t constant_id = 0;
1808
1809 const uint8_t *source = pm_string_source(scope_local);
1810 size_t length = pm_string_length(scope_local);
1811
1812 if (length > 0) {
1813 if (length == 1) {
1814 switch (*source) {
1815 case FORWARDING_POSITIONALS_CHR:
1816 constant_id = PM_CONSTANT_MULT;
1817 break;
1818 case FORWARDING_KEYWORDS_CHR:
1819 constant_id = PM_CONSTANT_POW;
1820 break;
1821 case FORWARDING_BLOCK_CHR:
1822 constant_id = PM_CONSTANT_AND;
1823 break;
1824 case FORWARDING_ALL_CHR:
1825 constant_id = PM_CONSTANT_DOT3;
1826 break;
1827 default:
1828 constant_id = pm_constant_pool_insert_constant(&result.parser.constant_pool, source, length);
1829 break;
1830 }
1831 }
1832 else {
1833 constant_id = pm_constant_pool_insert_constant(&result.parser.constant_pool, source, length);
1834 }
1835
1836 st_insert(parent_scope->index_lookup_table, (st_data_t) constant_id, (st_data_t) local_index);
1837 }
1838
1839 pm_constant_id_list_append(&parent_scope->locals, constant_id);
1840 }
1841
1842 node->previous = parent_scope;
1843 node = parent_scope;
1844 iseq = ISEQ_BODY(iseq)->parent_iseq;
1845 }
1846
1847#undef FORWARDING_POSITIONALS_CHR
1848#undef FORWARDING_POSITIONALS_STR
1849#undef FORWARDING_KEYWORDS_CHR
1850#undef FORWARDING_KEYWORDS_STR
1851#undef FORWARDING_BLOCK_CHR
1852#undef FORWARDING_BLOCK_STR
1853#undef FORWARDING_ALL_CHR
1854#undef FORWARDING_ALL_STR
1855
1856 int error_state;
1857 iseq = pm_iseq_new_eval(&result.node, name, fname, Qnil, line, parent, 0, &error_state);
1858
1859 pm_scope_node_t *prev = result.node.previous;
1860 while (prev) {
1861 pm_scope_node_t *next = prev->previous;
1862 pm_constant_id_list_free(&prev->locals);
1863 pm_scope_node_destroy(prev);
1864 ruby_xfree(prev);
1865 prev = next;
1866 }
1867
1868 pm_parse_result_free(&result);
1869
1870 // If there was an error, raise it after memory has been cleaned up
1871 if (error_state) {
1872 RUBY_ASSERT(iseq == NULL);
1873 rb_jump_tag(error_state);
1874 }
1875
1876 rb_exec_event_hook_script_compiled(GET_EC(), iseq, src);
1877
1878 return iseq;
1879}
1880
1881static const rb_iseq_t *
1882eval_make_iseq(VALUE src, VALUE fname, int line,
1883 const struct rb_block *base_block)
1884{
1885 if (rb_ruby_prism_p()) {
1886 return pm_eval_make_iseq(src, fname, line, base_block);
1887 }
1888 const VALUE parser = rb_parser_new();
1889 const rb_iseq_t *const parent = vm_block_iseq(base_block);
1890 rb_iseq_t *iseq = NULL;
1891 VALUE ast_value;
1892 rb_ast_t *ast;
1893 int isolated_depth = 0;
1894
1895 // Conditionally enable coverage depending on the current mode:
1896 int coverage_enabled = (rb_get_coverage_mode() & COVERAGE_TARGET_EVAL) != 0;
1897
1898 {
1899 int depth = 1;
1900 const VALUE *ep = vm_block_ep(base_block);
1901
1902 while (1) {
1903 if (VM_ENV_FLAGS(ep, VM_ENV_FLAG_ISOLATED)) {
1904 isolated_depth = depth;
1905 break;
1906 }
1907 else if (VM_ENV_LOCAL_P(ep)) {
1908 break;
1909 }
1910 ep = VM_ENV_PREV_EP(ep);
1911 depth++;
1912 }
1913 }
1914
1915 if (!fname) {
1916 fname = rb_source_location(&line);
1917 }
1918
1919 if (!UNDEF_P(fname)) {
1920 if (!NIL_P(fname)) fname = rb_fstring(fname);
1921 }
1922 else {
1923 fname = get_eval_default_path();
1924 coverage_enabled = FALSE;
1925 }
1926
1927 rb_parser_set_context(parser, parent, FALSE);
1928 if (ruby_vm_keep_script_lines) rb_parser_set_script_lines(parser);
1929 ast_value = rb_parser_compile_string_path(parser, fname, src, line);
1930
1931 ast = rb_ruby_ast_data_get(ast_value);
1932
1933 if (ast->body.root) {
1934 ast->body.coverage_enabled = coverage_enabled;
1935 iseq = rb_iseq_new_eval(ast_value,
1936 ISEQ_BODY(parent)->location.label,
1937 fname, Qnil, line,
1938 parent, isolated_depth);
1939 }
1940 rb_ast_dispose(ast);
1941
1942 if (iseq != NULL) {
1943 if (0 && iseq) { /* for debug */
1944 VALUE disasm = rb_iseq_disasm(iseq);
1945 printf("%s\n", StringValuePtr(disasm));
1946 }
1947
1948 rb_exec_event_hook_script_compiled(GET_EC(), iseq, src);
1949 }
1950
1951 return iseq;
1952}
1953
1954static VALUE
1955eval_string_with_cref(VALUE self, VALUE src, rb_cref_t *cref, VALUE file, int line)
1956{
1957 rb_execution_context_t *ec = GET_EC();
1958 struct rb_block block;
1959 const rb_iseq_t *iseq;
1960 rb_control_frame_t *cfp = rb_vm_get_ruby_level_next_cfp(ec, ec->cfp);
1961 if (!cfp) {
1962 rb_raise(rb_eRuntimeError, "Can't eval on top of Fiber or Thread");
1963 }
1964
1965 block.as.captured = *VM_CFP_TO_CAPTURED_BLOCK(cfp);
1966 block.as.captured.self = self;
1967 block.as.captured.code.iseq = cfp->iseq;
1968 block.type = block_type_iseq;
1969
1970 iseq = eval_make_iseq(src, file, line, &block);
1971 if (!iseq) {
1972 rb_exc_raise(ec->errinfo);
1973 }
1974
1975 /* TODO: what the code checking? */
1976 if (!cref && block.as.captured.code.val) {
1977 rb_cref_t *orig_cref = vm_get_cref(vm_block_ep(&block));
1978 cref = vm_cref_dup(orig_cref);
1979 }
1980 vm_set_eval_stack(ec, iseq, cref, &block);
1981
1982 /* kick */
1983 return vm_exec(ec);
1984}
1985
1986static VALUE
1987eval_string_with_scope(VALUE scope, VALUE src, VALUE file, int line)
1988{
1989 rb_execution_context_t *ec = GET_EC();
1990 rb_binding_t *bind = Check_TypedStruct(scope, &ruby_binding_data_type);
1991 const rb_iseq_t *iseq = eval_make_iseq(src, file, line, &bind->block);
1992 if (!iseq) {
1993 rb_exc_raise(ec->errinfo);
1994 }
1995
1996 vm_set_eval_stack(ec, iseq, NULL, &bind->block);
1997
1998 /* save new env */
1999 if (ISEQ_BODY(iseq)->local_table_size > 0) {
2000 vm_bind_update_env(scope, bind, vm_make_env_object(ec, ec->cfp));
2001 }
2002
2003 /* kick */
2004 return vm_exec(ec);
2005}
2006
2007/*
2008 * call-seq:
2009 * eval(string [, binding [, filename [,lineno]]]) -> obj
2010 *
2011 * Evaluates the Ruby expression(s) in <em>string</em>. If
2012 * <em>binding</em> is given, which must be a Binding object, the
2013 * evaluation is performed in its context. If the optional
2014 * <em>filename</em> and <em>lineno</em> parameters are present, they
2015 * will be used when reporting syntax errors.
2016 *
2017 * def get_binding(str)
2018 * return binding
2019 * end
2020 * str = "hello"
2021 * eval "str + ' Fred'" #=> "hello Fred"
2022 * eval "str + ' Fred'", get_binding("bye") #=> "bye Fred"
2023 */
2024
2025VALUE
2026rb_f_eval(int argc, const VALUE *argv, VALUE self)
2027{
2028 VALUE src, scope, vfile, vline;
2029 VALUE file = Qundef;
2030 int line = 1;
2031
2032 rb_scan_args(argc, argv, "13", &src, &scope, &vfile, &vline);
2033 StringValue(src);
2034 if (argc >= 3) {
2035 StringValue(vfile);
2036 }
2037 if (argc >= 4) {
2038 line = NUM2INT(vline);
2039 }
2040
2041 if (!NIL_P(vfile))
2042 file = vfile;
2043
2044 if (NIL_P(scope))
2045 return eval_string_with_cref(self, src, NULL, file, line);
2046 else
2047 return eval_string_with_scope(scope, src, file, line);
2048}
2049
2051VALUE
2052ruby_eval_string_from_file(const char *str, const char *filename)
2053{
2054 VALUE file = filename ? rb_str_new_cstr(filename) : 0;
2055 rb_execution_context_t *ec = GET_EC();
2056 rb_control_frame_t *cfp = ec ? rb_vm_get_ruby_level_next_cfp(ec, ec->cfp) : NULL;
2057 VALUE self = cfp ? cfp->self : rb_vm_top_self();
2058 return eval_string_with_cref(self, rb_str_new2(str), NULL, file, 1);
2059}
2060
2061VALUE
2062rb_eval_string(const char *str)
2063{
2064 return ruby_eval_string_from_file(str, "eval");
2065}
2066
2067static VALUE
2068eval_string_protect(VALUE str)
2069{
2070 return rb_eval_string((char *)str);
2071}
2072
2073VALUE
2074rb_eval_string_protect(const char *str, int *pstate)
2075{
2076 return rb_protect(eval_string_protect, (VALUE)str, pstate);
2077}
2078
2080 VALUE top_self;
2081 VALUE klass;
2082 const char *str;
2083};
2084
2085static VALUE
2086eval_string_wrap_protect(VALUE data)
2087{
2088 const struct eval_string_wrap_arg *const arg = (struct eval_string_wrap_arg*)data;
2089 rb_cref_t *cref = rb_vm_cref_new_toplevel();
2090 cref->klass_or_self = arg->klass;
2091 return eval_string_with_cref(arg->top_self, rb_str_new_cstr(arg->str), cref, rb_str_new_cstr("eval"), 1);
2092}
2093
2094VALUE
2095rb_eval_string_wrap(const char *str, int *pstate)
2096{
2097 int state;
2098 rb_thread_t *th = GET_THREAD();
2099 VALUE self = th->top_self;
2100 VALUE wrapper = th->top_wrapper;
2101 VALUE val;
2102 struct eval_string_wrap_arg data;
2103
2104 th->top_wrapper = rb_module_new();
2105 th->top_self = rb_obj_clone(rb_vm_top_self());
2106 rb_extend_object(th->top_self, th->top_wrapper);
2107
2108 data.top_self = th->top_self;
2109 data.klass = th->top_wrapper;
2110 data.str = str;
2111
2112 val = rb_protect(eval_string_wrap_protect, (VALUE)&data, &state);
2113
2114 th->top_self = self;
2115 th->top_wrapper = wrapper;
2116
2117 if (pstate) {
2118 *pstate = state;
2119 }
2120 else if (state != TAG_NONE) {
2121 EC_JUMP_TAG(th->ec, state);
2122 }
2123 return val;
2124}
2125
2126VALUE
2127rb_eval_cmd_kw(VALUE cmd, VALUE arg, int kw_splat)
2128{
2129 enum ruby_tag_type state;
2130 volatile VALUE val = Qnil; /* OK */
2131 rb_execution_context_t * volatile ec = GET_EC();
2132
2133 EC_PUSH_TAG(ec);
2134 if ((state = EC_EXEC_TAG()) == TAG_NONE) {
2135 if (!RB_TYPE_P(cmd, T_STRING)) {
2136 val = rb_funcallv_kw(cmd, idCall, RARRAY_LENINT(arg),
2137 RARRAY_CONST_PTR(arg), kw_splat);
2138 }
2139 else {
2140 val = eval_string_with_cref(rb_vm_top_self(), cmd, NULL, 0, 0);
2141 }
2142 }
2143 EC_POP_TAG();
2144
2145 if (state) EC_JUMP_TAG(ec, state);
2146 return val;
2147}
2148
2149/* block eval under the class/module context */
2150
2151static VALUE
2152yield_under(VALUE self, int singleton, int argc, const VALUE *argv, int kw_splat)
2153{
2154 rb_execution_context_t *ec = GET_EC();
2155 rb_control_frame_t *cfp = ec->cfp;
2156 VALUE block_handler = VM_CF_BLOCK_HANDLER(cfp);
2157 VALUE new_block_handler = 0;
2158 const struct rb_captured_block *captured = NULL;
2159 struct rb_captured_block new_captured;
2160 const VALUE *ep = NULL;
2161 rb_cref_t *cref;
2162 int is_lambda = FALSE;
2163
2164 if (block_handler != VM_BLOCK_HANDLER_NONE) {
2165 again:
2166 switch (vm_block_handler_type(block_handler)) {
2167 case block_handler_type_iseq:
2168 captured = VM_BH_TO_CAPT_BLOCK(block_handler);
2169 new_captured = *captured;
2170 new_block_handler = VM_BH_FROM_ISEQ_BLOCK(&new_captured);
2171 break;
2172 case block_handler_type_ifunc:
2173 captured = VM_BH_TO_CAPT_BLOCK(block_handler);
2174 new_captured = *captured;
2175 new_block_handler = VM_BH_FROM_IFUNC_BLOCK(&new_captured);
2176 break;
2177 case block_handler_type_proc:
2178 is_lambda = rb_proc_lambda_p(block_handler) != Qfalse;
2179 block_handler = vm_proc_to_block_handler(VM_BH_TO_PROC(block_handler));
2180 goto again;
2181 case block_handler_type_symbol:
2182 return rb_sym_proc_call(SYM2ID(VM_BH_TO_SYMBOL(block_handler)),
2183 argc, argv, kw_splat,
2184 VM_BLOCK_HANDLER_NONE);
2185 }
2186
2187 new_captured.self = self;
2188 ep = captured->ep;
2189
2190 VM_FORCE_WRITE_SPECIAL_CONST(&VM_CF_LEP(ec->cfp)[VM_ENV_DATA_INDEX_SPECVAL], new_block_handler);
2191 }
2192
2193 VM_ASSERT(singleton || RB_TYPE_P(self, T_MODULE) || RB_TYPE_P(self, T_CLASS));
2194 cref = vm_cref_push(ec, self, ep, TRUE, singleton);
2195
2196 return vm_yield_with_cref(ec, argc, argv, kw_splat, cref, is_lambda);
2197}
2198
2199VALUE
2200rb_yield_refine_block(VALUE refinement, VALUE refinements)
2201{
2202 rb_execution_context_t *ec = GET_EC();
2203 VALUE block_handler = VM_CF_BLOCK_HANDLER(ec->cfp);
2204
2205 if (vm_block_handler_type(block_handler) != block_handler_type_iseq) {
2206 rb_bug("rb_yield_refine_block: an iseq block is required");
2207 }
2208 else {
2209 const struct rb_captured_block *captured = VM_BH_TO_ISEQ_BLOCK(block_handler);
2210 struct rb_captured_block new_captured = *captured;
2211 const VALUE *const argv = &new_captured.self; /* dummy to suppress nonnull warning from gcc */
2212 VALUE new_block_handler = VM_BH_FROM_ISEQ_BLOCK(&new_captured);
2213 const VALUE *ep = captured->ep;
2214 rb_cref_t *cref = vm_cref_push(ec, refinement, ep, TRUE, FALSE);
2215 CREF_REFINEMENTS_SET(cref, refinements);
2216 VM_FORCE_WRITE_SPECIAL_CONST(&VM_CF_LEP(ec->cfp)[VM_ENV_DATA_INDEX_SPECVAL], new_block_handler);
2217 new_captured.self = refinement;
2218 return vm_yield_with_cref(ec, 0, argv, RB_NO_KEYWORDS, cref, FALSE);
2219 }
2220}
2221
2222/* string eval under the class/module context */
2223static VALUE
2224eval_under(VALUE self, int singleton, VALUE src, VALUE file, int line)
2225{
2226 rb_cref_t *cref = vm_cref_push(GET_EC(), self, NULL, FALSE, singleton);
2227 StringValue(src);
2228
2229 return eval_string_with_cref(self, src, cref, file, line);
2230}
2231
2232static VALUE
2233specific_eval(int argc, const VALUE *argv, VALUE self, int singleton, int kw_splat)
2234{
2235 if (rb_block_given_p()) {
2236 rb_check_arity(argc, 0, 0);
2237 return yield_under(self, singleton, 1, &self, kw_splat);
2238 }
2239 else {
2240 VALUE file = Qnil;
2241 int line = 1;
2242 VALUE code;
2243
2244 rb_check_arity(argc, 1, 3);
2245 code = argv[0];
2246 StringValue(code);
2247 if (argc > 2)
2248 line = NUM2INT(argv[2]);
2249 if (argc > 1) {
2250 file = argv[1];
2251 if (!NIL_P(file)) StringValue(file);
2252 }
2253
2254 if (NIL_P(file)) {
2255 file = get_eval_default_path();
2256 }
2257
2258 return eval_under(self, singleton, code, file, line);
2259 }
2260}
2261
2262/*
2263 * call-seq:
2264 * obj.instance_eval(string [, filename [, lineno]] ) -> obj
2265 * obj.instance_eval {|obj| block } -> obj
2266 *
2267 * Evaluates a string containing Ruby source code, or the given block,
2268 * within the context of the receiver (_obj_). In order to set the
2269 * context, the variable +self+ is set to _obj_ while
2270 * the code is executing, giving the code access to _obj_'s
2271 * instance variables and private methods.
2272 *
2273 * When <code>instance_eval</code> is given a block, _obj_ is also
2274 * passed in as the block's only argument.
2275 *
2276 * When <code>instance_eval</code> is given a +String+, the optional
2277 * second and third parameters supply a filename and starting line number
2278 * that are used when reporting compilation errors.
2279 *
2280 * class KlassWithSecret
2281 * def initialize
2282 * @secret = 99
2283 * end
2284 * private
2285 * def the_secret
2286 * "Ssssh! The secret is #{@secret}."
2287 * end
2288 * end
2289 * k = KlassWithSecret.new
2290 * k.instance_eval { @secret } #=> 99
2291 * k.instance_eval { the_secret } #=> "Ssssh! The secret is 99."
2292 * k.instance_eval {|obj| obj == self } #=> true
2293 */
2294
2295static VALUE
2296rb_obj_instance_eval_internal(int argc, const VALUE *argv, VALUE self)
2297{
2298 return specific_eval(argc, argv, self, TRUE, RB_PASS_CALLED_KEYWORDS);
2299}
2300
2301VALUE
2302rb_obj_instance_eval(int argc, const VALUE *argv, VALUE self)
2303{
2304 return specific_eval(argc, argv, self, TRUE, RB_NO_KEYWORDS);
2305}
2306
2307/*
2308 * call-seq:
2309 * obj.instance_exec(arg...) {|var...| block } -> obj
2310 *
2311 * Executes the given block within the context of the receiver
2312 * (_obj_). In order to set the context, the variable +self+ is set
2313 * to _obj_ while the code is executing, giving the code access to
2314 * _obj_'s instance variables. Arguments are passed as block parameters.
2315 *
2316 * class KlassWithSecret
2317 * def initialize
2318 * @secret = 99
2319 * end
2320 * end
2321 * k = KlassWithSecret.new
2322 * k.instance_exec(5) {|x| @secret+x } #=> 104
2323 */
2324
2325static VALUE
2326rb_obj_instance_exec_internal(int argc, const VALUE *argv, VALUE self)
2327{
2328 return yield_under(self, TRUE, argc, argv, RB_PASS_CALLED_KEYWORDS);
2329}
2330
2331VALUE
2332rb_obj_instance_exec(int argc, const VALUE *argv, VALUE self)
2333{
2334 return yield_under(self, TRUE, argc, argv, RB_NO_KEYWORDS);
2335}
2336
2337/*
2338 * call-seq:
2339 * mod.class_eval(string [, filename [, lineno]]) -> obj
2340 * mod.class_eval {|mod| block } -> obj
2341 * mod.module_eval(string [, filename [, lineno]]) -> obj
2342 * mod.module_eval {|mod| block } -> obj
2343 *
2344 * Evaluates the string or block in the context of _mod_, except that when
2345 * a block is given, constant/class variable lookup is not affected. This
2346 * can be used to add methods to a class. <code>module_eval</code> returns
2347 * the result of evaluating its argument. The optional _filename_ and
2348 * _lineno_ parameters set the text for error messages.
2349 *
2350 * class Thing
2351 * end
2352 * a = %q{def hello() "Hello there!" end}
2353 * Thing.module_eval(a)
2354 * puts Thing.new.hello()
2355 * Thing.module_eval("invalid code", "dummy", 123)
2356 *
2357 * <em>produces:</em>
2358 *
2359 * Hello there!
2360 * dummy:123:in `module_eval': undefined local variable
2361 * or method `code' for Thing:Class
2362 */
2363
2364static VALUE
2365rb_mod_module_eval_internal(int argc, const VALUE *argv, VALUE mod)
2366{
2367 return specific_eval(argc, argv, mod, FALSE, RB_PASS_CALLED_KEYWORDS);
2368}
2369
2370VALUE
2371rb_mod_module_eval(int argc, const VALUE *argv, VALUE mod)
2372{
2373 return specific_eval(argc, argv, mod, FALSE, RB_NO_KEYWORDS);
2374}
2375
2376/*
2377 * call-seq:
2378 * mod.module_exec(arg...) {|var...| block } -> obj
2379 * mod.class_exec(arg...) {|var...| block } -> obj
2380 *
2381 * Evaluates the given block in the context of the class/module.
2382 * The method defined in the block will belong to the receiver.
2383 * Any arguments passed to the method will be passed to the block.
2384 * This can be used if the block needs to access instance variables.
2385 *
2386 * class Thing
2387 * end
2388 * Thing.class_exec{
2389 * def hello() "Hello there!" end
2390 * }
2391 * puts Thing.new.hello()
2392 *
2393 * <em>produces:</em>
2394 *
2395 * Hello there!
2396 */
2397
2398static VALUE
2399rb_mod_module_exec_internal(int argc, const VALUE *argv, VALUE mod)
2400{
2401 return yield_under(mod, FALSE, argc, argv, RB_PASS_CALLED_KEYWORDS);
2402}
2403
2404VALUE
2405rb_mod_module_exec(int argc, const VALUE *argv, VALUE mod)
2406{
2407 return yield_under(mod, FALSE, argc, argv, RB_NO_KEYWORDS);
2408}
2409
2410/*
2411 * Document-class: UncaughtThrowError
2412 *
2413 * Raised when +throw+ is called with a _tag_ which does not have
2414 * corresponding +catch+ block.
2415 *
2416 * throw "foo", "bar"
2417 *
2418 * <em>raises the exception:</em>
2419 *
2420 * UncaughtThrowError: uncaught throw "foo"
2421 */
2422
2423static VALUE
2424uncaught_throw_init(int argc, const VALUE *argv, VALUE exc)
2425{
2427 rb_call_super(argc - 2, argv + 2);
2428 rb_ivar_set(exc, id_tag, argv[0]);
2429 rb_ivar_set(exc, id_value, argv[1]);
2430 return exc;
2431}
2432
2433/*
2434 * call-seq:
2435 * uncaught_throw.tag -> obj
2436 *
2437 * Return the tag object which was called for.
2438 */
2439
2440static VALUE
2441uncaught_throw_tag(VALUE exc)
2442{
2443 return rb_ivar_get(exc, id_tag);
2444}
2445
2446/*
2447 * call-seq:
2448 * uncaught_throw.value -> obj
2449 *
2450 * Return the return value which was called for.
2451 */
2452
2453static VALUE
2454uncaught_throw_value(VALUE exc)
2455{
2456 return rb_ivar_get(exc, id_value);
2457}
2458
2459/*
2460 * call-seq:
2461 * uncaught_throw.to_s -> string
2462 *
2463 * Returns formatted message with the inspected tag.
2464 */
2465
2466static VALUE
2467uncaught_throw_to_s(VALUE exc)
2468{
2469 VALUE mesg = rb_attr_get(exc, id_mesg);
2470 VALUE tag = uncaught_throw_tag(exc);
2471 return rb_str_format(1, &tag, mesg);
2472}
2473
2474/*
2475 * call-seq:
2476 * throw(tag [, obj])
2477 *
2478 * Transfers control to the end of the active +catch+ block
2479 * waiting for _tag_. Raises +UncaughtThrowError+ if there
2480 * is no +catch+ block for the _tag_. The optional second
2481 * parameter supplies a return value for the +catch+ block,
2482 * which otherwise defaults to +nil+. For examples, see
2483 * Kernel::catch.
2484 */
2485
2486static VALUE
2487rb_f_throw(int argc, VALUE *argv, VALUE _)
2488{
2489 VALUE tag, value;
2490
2491 rb_scan_args(argc, argv, "11", &tag, &value);
2492 rb_throw_obj(tag, value);
2494}
2495
2496void
2498{
2499 rb_execution_context_t *ec = GET_EC();
2500 struct rb_vm_tag *tt = ec->tag;
2501
2502 while (tt) {
2503 if (tt->tag == tag) {
2504 tt->retval = value;
2505 break;
2506 }
2507 tt = tt->prev;
2508 }
2509 if (!tt) {
2510 VALUE desc[3];
2511 desc[0] = tag;
2512 desc[1] = value;
2513 desc[2] = rb_str_new_cstr("uncaught throw %p");
2514 rb_exc_raise(rb_class_new_instance(numberof(desc), desc, rb_eUncaughtThrow));
2515 }
2516
2517 ec->errinfo = (VALUE)THROW_DATA_NEW(tag, NULL, TAG_THROW);
2518 EC_JUMP_TAG(ec, TAG_THROW);
2519}
2520
2521void
2522rb_throw(const char *tag, VALUE val)
2523{
2524 rb_throw_obj(rb_sym_intern_ascii_cstr(tag), val);
2525}
2526
2527static VALUE
2528catch_i(RB_BLOCK_CALL_FUNC_ARGLIST(tag, _))
2529{
2530 return rb_yield_0(1, &tag);
2531}
2532
2533/*
2534 * call-seq:
2535 * catch([tag]) {|tag| block } -> obj
2536 *
2537 * +catch+ executes its block. If +throw+ is not called, the block executes
2538 * normally, and +catch+ returns the value of the last expression evaluated.
2539 *
2540 * catch(1) { 123 } # => 123
2541 *
2542 * If <code>throw(tag2, val)</code> is called, Ruby searches up its stack for
2543 * a +catch+ block whose +tag+ has the same +object_id+ as _tag2_. When found,
2544 * the block stops executing and returns _val_ (or +nil+ if no second argument
2545 * was given to +throw+).
2546 *
2547 * catch(1) { throw(1, 456) } # => 456
2548 * catch(1) { throw(1) } # => nil
2549 *
2550 * When +tag+ is passed as the first argument, +catch+ yields it as the
2551 * parameter of the block.
2552 *
2553 * catch(1) {|x| x + 2 } # => 3
2554 *
2555 * When no +tag+ is given, +catch+ yields a new unique object (as from
2556 * +Object.new+) as the block parameter. This object can then be used as the
2557 * argument to +throw+, and will match the correct +catch+ block.
2558 *
2559 * catch do |obj_A|
2560 * catch do |obj_B|
2561 * throw(obj_B, 123)
2562 * puts "This puts is not reached"
2563 * end
2564 *
2565 * puts "This puts is displayed"
2566 * 456
2567 * end
2568 *
2569 * # => 456
2570 *
2571 * catch do |obj_A|
2572 * catch do |obj_B|
2573 * throw(obj_A, 123)
2574 * puts "This puts is still not reached"
2575 * end
2576 *
2577 * puts "Now this puts is also not reached"
2578 * 456
2579 * end
2580 *
2581 * # => 123
2582 */
2583
2584static VALUE
2585rb_f_catch(int argc, VALUE *argv, VALUE self)
2586{
2587 VALUE tag = rb_check_arity(argc, 0, 1) ? argv[0] : rb_obj_alloc(rb_cObject);
2588 return rb_catch_obj(tag, catch_i, 0);
2589}
2590
2591VALUE
2592rb_catch(const char *tag, rb_block_call_func_t func, VALUE data)
2593{
2594 VALUE vtag = tag ? rb_sym_intern_ascii_cstr(tag) : rb_obj_alloc(rb_cObject);
2595 return rb_catch_obj(vtag, func, data);
2596}
2597
2598static VALUE
2599vm_catch_protect(VALUE tag, rb_block_call_func *func, VALUE data,
2600 enum ruby_tag_type *stateptr, rb_execution_context_t *volatile ec)
2601{
2602 enum ruby_tag_type state;
2603 VALUE val = Qnil; /* OK */
2604 rb_control_frame_t *volatile saved_cfp = ec->cfp;
2605
2606 EC_PUSH_TAG(ec);
2607
2608 _tag.tag = tag;
2609
2610 if ((state = EC_EXEC_TAG()) == TAG_NONE) {
2611 /* call with argc=1, argv = [tag], block = Qnil to insure compatibility */
2612 val = (*func)(tag, data, 1, (const VALUE *)&tag, Qnil);
2613 }
2614 else if (state == TAG_THROW && THROW_DATA_VAL((struct vm_throw_data *)ec->errinfo) == tag) {
2615 rb_vm_rewind_cfp(ec, saved_cfp);
2616 val = ec->tag->retval;
2617 ec->errinfo = Qnil;
2618 state = 0;
2619 }
2620 EC_POP_TAG();
2621 if (stateptr)
2622 *stateptr = state;
2623
2624 return val;
2625}
2626
2627VALUE
2628rb_catch_protect(VALUE t, rb_block_call_func *func, VALUE data, enum ruby_tag_type *stateptr)
2629{
2630 return vm_catch_protect(t, func, data, stateptr, GET_EC());
2631}
2632
2633VALUE
2635{
2636 enum ruby_tag_type state;
2637 rb_execution_context_t *ec = GET_EC();
2638 VALUE val = vm_catch_protect(t, (rb_block_call_func *)func, data, &state, ec);
2639 if (state) EC_JUMP_TAG(ec, state);
2640 return val;
2641}
2642
2643static void
2644local_var_list_init(struct local_var_list *vars)
2645{
2646 vars->tbl = rb_ident_hash_new();
2647 RBASIC_CLEAR_CLASS(vars->tbl);
2648}
2649
2650static VALUE
2651local_var_list_finish(struct local_var_list *vars)
2652{
2653 /* TODO: not to depend on the order of st_table */
2654 VALUE ary = rb_hash_keys(vars->tbl);
2655 rb_hash_clear(vars->tbl);
2656 vars->tbl = 0;
2657 return ary;
2658}
2659
2660static int
2661local_var_list_update(st_data_t *key, st_data_t *value, st_data_t arg, int existing)
2662{
2663 if (existing) return ST_STOP;
2664 *value = (st_data_t)Qtrue; /* INT2FIX(arg) */
2665 return ST_CONTINUE;
2666}
2667
2668extern int rb_numparam_id_p(ID id);
2669
2670static void
2671local_var_list_add(const struct local_var_list *vars, ID lid)
2672{
2673 /* should skip temporary variable */
2674 if (!lid) return;
2675 if (!rb_is_local_id(lid)) return;
2676
2677 /* should skip numbered parameters as well */
2678 if (rb_numparam_id_p(lid)) return;
2679
2680 st_data_t idx = 0; /* tbl->num_entries */
2681 rb_hash_stlike_update(vars->tbl, ID2SYM(lid), local_var_list_update, idx);
2682}
2683
2684static void
2685numparam_list_add(const struct local_var_list *vars, ID lid)
2686{
2687 /* should skip temporary variable */
2688 if (!lid) return;
2689 if (!rb_is_local_id(lid)) return;
2690
2691 /* should skip anything but numbered parameters */
2692 if (rb_numparam_id_p(lid)) {
2693 st_data_t idx = 0; /* tbl->num_entries */
2694 rb_hash_stlike_update(vars->tbl, ID2SYM(lid), local_var_list_update, idx);
2695 }
2696}
2697
2698/*
2699 * call-seq:
2700 * local_variables -> array
2701 *
2702 * Returns the names of the current local variables.
2703 *
2704 * fred = 1
2705 * for i in 1..10
2706 * # ...
2707 * end
2708 * local_variables #=> [:fred, :i]
2709 */
2710
2711static VALUE
2712rb_f_local_variables(VALUE _)
2713{
2714 struct local_var_list vars;
2715 rb_execution_context_t *ec = GET_EC();
2716 rb_control_frame_t *cfp = vm_get_ruby_level_caller_cfp(ec, RUBY_VM_PREVIOUS_CONTROL_FRAME(ec->cfp));
2717 unsigned int i;
2718
2719 local_var_list_init(&vars);
2720 while (cfp) {
2721 if (cfp->iseq) {
2722 for (i = 0; i < ISEQ_BODY(cfp->iseq)->local_table_size; i++) {
2723 local_var_list_add(&vars, ISEQ_BODY(cfp->iseq)->local_table[i]);
2724 }
2725 }
2726 if (!VM_ENV_LOCAL_P(cfp->ep)) {
2727 /* block */
2728 const VALUE *ep = VM_CF_PREV_EP(cfp);
2729
2730 if (vm_collect_local_variables_in_heap(ep, &vars)) {
2731 break;
2732 }
2733 else {
2734 while (cfp->ep != ep) {
2735 cfp = RUBY_VM_PREVIOUS_CONTROL_FRAME(cfp);
2736 }
2737 }
2738 }
2739 else {
2740 break;
2741 }
2742 }
2743 return local_var_list_finish(&vars);
2744}
2745
2746/*
2747 * call-seq:
2748 * block_given? -> true or false
2749 *
2750 * Returns <code>true</code> if <code>yield</code> would execute a
2751 * block in the current context. The <code>iterator?</code> form
2752 * is mildly deprecated.
2753 *
2754 * def try
2755 * if block_given?
2756 * yield
2757 * else
2758 * "no block"
2759 * end
2760 * end
2761 * try #=> "no block"
2762 * try { "hello" } #=> "hello"
2763 * try do "hello" end #=> "hello"
2764 */
2765
2766static VALUE
2767rb_f_block_given_p(VALUE _)
2768{
2769 rb_execution_context_t *ec = GET_EC();
2770 rb_control_frame_t *cfp = ec->cfp;
2771 cfp = vm_get_ruby_level_caller_cfp(ec, RUBY_VM_PREVIOUS_CONTROL_FRAME(cfp));
2772
2773 return RBOOL(cfp != NULL && VM_CF_BLOCK_HANDLER(cfp) != VM_BLOCK_HANDLER_NONE);
2774}
2775
2776/*
2777 * call-seq:
2778 * iterator? -> true or false
2779 *
2780 * Deprecated. Use block_given? instead.
2781 */
2782
2783static VALUE
2784rb_f_iterator_p(VALUE self)
2785{
2786 rb_warn_deprecated("iterator?", "block_given?");
2787 return rb_f_block_given_p(self);
2788}
2789
2790VALUE
2791rb_current_realfilepath(void)
2792{
2793 const rb_execution_context_t *ec = GET_EC();
2794 rb_control_frame_t *cfp = ec->cfp;
2795 cfp = vm_get_ruby_level_caller_cfp(ec, RUBY_VM_PREVIOUS_CONTROL_FRAME(cfp));
2796 if (cfp != NULL) {
2797 VALUE path = rb_iseq_realpath(cfp->iseq);
2798 if (RTEST(path)) return path;
2799 // eval context
2800 path = rb_iseq_path(cfp->iseq);
2801 if (path == eval_default_path) {
2802 return Qnil;
2803 }
2804
2805 // [Feature #19755] implicit eval location is "(eval at #{__FILE__}:#{__LINE__})"
2806 const long len = RSTRING_LEN(path);
2807 if (len > EVAL_LOCATION_MARK_LEN+1) {
2808 const char *const ptr = RSTRING_PTR(path);
2809 if (ptr[len - 1] == ')' &&
2810 memcmp(ptr, "("EVAL_LOCATION_MARK, EVAL_LOCATION_MARK_LEN+1) == 0) {
2811 return Qnil;
2812 }
2813 }
2814
2815 return path;
2816 }
2817 return Qnil;
2818}
2819
2820// Assert that an internal function is running and return
2821// the imemo object that represents it.
2822struct vm_ifunc *
2823rb_current_ifunc(void)
2824{
2825 // Search VM_FRAME_MAGIC_IFUNC to see ifunc imemos put on the iseq field.
2826 VALUE ifunc = (VALUE)GET_EC()->cfp->iseq;
2827 RUBY_ASSERT_ALWAYS(imemo_type_p(ifunc, imemo_ifunc));
2828 return (struct vm_ifunc *)ifunc;
2829}
2830
2831void
2832Init_vm_eval(void)
2833{
2834 rb_define_global_function("eval", rb_f_eval, -1);
2835 rb_define_global_function("local_variables", rb_f_local_variables, 0);
2836 rb_define_global_function("iterator?", rb_f_iterator_p, 0);
2837 rb_define_global_function("block_given?", rb_f_block_given_p, 0);
2838
2839 rb_define_global_function("catch", rb_f_catch, -1);
2840 rb_define_global_function("throw", rb_f_throw, -1);
2841
2842 rb_define_method(rb_cBasicObject, "instance_eval", rb_obj_instance_eval_internal, -1);
2843 rb_define_method(rb_cBasicObject, "instance_exec", rb_obj_instance_exec_internal, -1);
2844 rb_define_private_method(rb_cBasicObject, "method_missing", rb_method_missing, -1);
2845
2846#if 1
2847 rb_add_method(rb_cBasicObject, id__send__,
2848 VM_METHOD_TYPE_OPTIMIZED, (void *)OPTIMIZED_METHOD_TYPE_SEND, METHOD_VISI_PUBLIC);
2849 rb_add_method(rb_mKernel, idSend,
2850 VM_METHOD_TYPE_OPTIMIZED, (void *)OPTIMIZED_METHOD_TYPE_SEND, METHOD_VISI_PUBLIC);
2851#else
2852 rb_define_method(rb_cBasicObject, "__send__", rb_f_send, -1);
2853 rb_define_method(rb_mKernel, "send", rb_f_send, -1);
2854#endif
2855 rb_define_method(rb_mKernel, "public_send", rb_f_public_send, -1);
2856
2857 rb_define_method(rb_cModule, "module_exec", rb_mod_module_exec_internal, -1);
2858 rb_define_method(rb_cModule, "class_exec", rb_mod_module_exec_internal, -1);
2859 rb_define_method(rb_cModule, "module_eval", rb_mod_module_eval_internal, -1);
2860 rb_define_method(rb_cModule, "class_eval", rb_mod_module_eval_internal, -1);
2861
2862 rb_eUncaughtThrow = rb_define_class("UncaughtThrowError", rb_eArgError);
2863 rb_define_method(rb_eUncaughtThrow, "initialize", uncaught_throw_init, -1);
2864 rb_define_method(rb_eUncaughtThrow, "tag", uncaught_throw_tag, 0);
2865 rb_define_method(rb_eUncaughtThrow, "value", uncaught_throw_value, 0);
2866 rb_define_method(rb_eUncaughtThrow, "to_s", uncaught_throw_to_s, 0);
2867
2868 id_result = rb_intern_const("result");
2869 id_tag = rb_intern_const("tag");
2870 id_value = rb_intern_const("value");
2871}
#define RUBY_ASSERT_ALWAYS(expr,...)
A variant of RUBY_ASSERT that does not interface with RUBY_DEBUG.
Definition assert.h:199
#define RUBY_ASSERT(...)
Asserts that the given expression is truthy if and only if RUBY_DEBUG is truthy.
Definition assert.h:219
#define rb_define_method(klass, mid, func, arity)
Defines klass#mid.
#define rb_define_private_method(klass, mid, func, arity)
Defines klass#mid and makes it private.
#define rb_define_global_function(mid, func, arity)
Defines rb_mKernel #mid.
#define RUBY_EVENT_C_CALL
A method, written in C, is called.
Definition event.h:43
#define RUBY_EVENT_C_RETURN
Return from a method, written in C.
Definition event.h:44
VALUE rb_define_class(const char *name, VALUE super)
Defines a top-level class.
Definition class.c:980
void rb_extend_object(VALUE obj, VALUE module)
Extend the object with the module.
Definition eval.c:1756
VALUE rb_module_new(void)
Creates a new, anonymous module.
Definition class.c:1076
int rb_scan_args(int argc, const VALUE *argv, const char *fmt,...)
Retrieves argument from argc and argv to given VALUE references according to the format string.
Definition class.c:2635
int rb_keyword_given_p(void)
Determines if the current method is given a keyword argument.
Definition eval.c:950
int rb_block_given_p(void)
Determines if the current method is given a block.
Definition eval.c:937
#define rb_str_new2
Old name of rb_str_new_cstr.
Definition string.h:1675
#define T_COMPLEX
Old name of RUBY_T_COMPLEX.
Definition value_type.h:59
#define T_FILE
Old name of RUBY_T_FILE.
Definition value_type.h:62
#define T_STRING
Old name of RUBY_T_STRING.
Definition value_type.h:78
#define T_MASK
Old name of RUBY_T_MASK.
Definition value_type.h:68
#define Qundef
Old name of RUBY_Qundef.
#define T_NIL
Old name of RUBY_T_NIL.
Definition value_type.h:72
#define T_FLOAT
Old name of RUBY_T_FLOAT.
Definition value_type.h:64
#define T_IMEMO
Old name of RUBY_T_IMEMO.
Definition value_type.h:67
#define ID2SYM
Old name of RB_ID2SYM.
Definition symbol.h:44
#define T_BIGNUM
Old name of RUBY_T_BIGNUM.
Definition value_type.h:57
#define SPECIAL_CONST_P
Old name of RB_SPECIAL_CONST_P.
#define T_STRUCT
Old name of RUBY_T_STRUCT.
Definition value_type.h:79
#define OBJ_FREEZE
Old name of RB_OBJ_FREEZE.
Definition fl_type.h:135
#define T_FIXNUM
Old name of RUBY_T_FIXNUM.
Definition value_type.h:63
#define UNREACHABLE_RETURN
Old name of RBIMPL_UNREACHABLE_RETURN.
Definition assume.h:29
#define SYM2ID
Old name of RB_SYM2ID.
Definition symbol.h:45
#define T_DATA
Old name of RUBY_T_DATA.
Definition value_type.h:60
#define CLASS_OF
Old name of rb_class_of.
Definition globals.h:203
#define T_NONE
Old name of RUBY_T_NONE.
Definition value_type.h:74
#define T_NODE
Old name of RUBY_T_NODE.
Definition value_type.h:73
#define rb_ary_new4
Old name of rb_ary_new_from_values.
Definition array.h:659
#define xmalloc
Old name of ruby_xmalloc.
Definition xmalloc.h:53
#define T_MODULE
Old name of RUBY_T_MODULE.
Definition value_type.h:70
#define T_TRUE
Old name of RUBY_T_TRUE.
Definition value_type.h:81
#define T_RATIONAL
Old name of RUBY_T_RATIONAL.
Definition value_type.h:76
#define T_ICLASS
Old name of RUBY_T_ICLASS.
Definition value_type.h:66
#define T_HASH
Old name of RUBY_T_HASH.
Definition value_type.h:65
#define T_FALSE
Old name of RUBY_T_FALSE.
Definition value_type.h:61
#define T_UNDEF
Old name of RUBY_T_UNDEF.
Definition value_type.h:82
#define Qtrue
Old name of RUBY_Qtrue.
#define NUM2INT
Old name of RB_NUM2INT.
Definition int.h:44
#define T_ZOMBIE
Old name of RUBY_T_ZOMBIE.
Definition value_type.h:83
#define Qnil
Old name of RUBY_Qnil.
#define Qfalse
Old name of RUBY_Qfalse.
#define ENC_CODERANGE_BROKEN
Old name of RUBY_ENC_CODERANGE_BROKEN.
Definition coderange.h:182
#define T_ARRAY
Old name of RUBY_T_ARRAY.
Definition value_type.h:56
#define T_OBJECT
Old name of RUBY_T_OBJECT.
Definition value_type.h:75
#define NIL_P
Old name of RB_NIL_P.
#define ALLOCV_N
Old name of RB_ALLOCV_N.
Definition memory.h:405
#define T_SYMBOL
Old name of RUBY_T_SYMBOL.
Definition value_type.h:80
#define T_MATCH
Old name of RUBY_T_MATCH.
Definition value_type.h:69
#define T_CLASS
Old name of RUBY_T_CLASS.
Definition value_type.h:58
#define BUILTIN_TYPE
Old name of RB_BUILTIN_TYPE.
Definition value_type.h:85
#define T_MOVED
Old name of RUBY_T_MOVED.
Definition value_type.h:71
#define Check_TypedStruct(v, t)
Old name of rb_check_typeddata.
Definition rtypeddata.h:105
#define ALLOCV_END
Old name of RB_ALLOCV_END.
Definition memory.h:406
#define SYMBOL_P
Old name of RB_SYMBOL_P.
Definition value_type.h:88
#define T_REGEXP
Old name of RUBY_T_REGEXP.
Definition value_type.h:77
VALUE rb_eNotImpError
NotImplementedError exception.
Definition error.c:1440
void rb_exc_raise(VALUE mesg)
Raises an exception in the current thread.
Definition eval.c:676
VALUE rb_eNameError
NameError exception.
Definition error.c:1435
VALUE rb_eNoMethodError
NoMethodError exception.
Definition error.c:1438
VALUE rb_eRuntimeError
RuntimeError exception.
Definition error.c:1428
VALUE rb_mKernel
Kernel module.
Definition object.c:65
VALUE rb_obj_alloc(VALUE klass)
Allocates an instance of the given class.
Definition object.c:2121
VALUE rb_class_new_instance(int argc, const VALUE *argv, VALUE klass)
Allocates, then initialises an instance of the given class.
Definition object.c:2162
VALUE rb_obj_class(VALUE obj)
Queries the class of an object.
Definition object.c:247
VALUE rb_cBasicObject
BasicObject class.
Definition object.c:64
VALUE rb_cModule
Module class.
Definition object.c:67
VALUE rb_obj_clone(VALUE obj)
Produces a shallow copy of the given object.
Definition object.c:521
VALUE rb_obj_is_kind_of(VALUE obj, VALUE klass)
Queries if the given object is an instance (of possibly descendants) of the given class.
Definition object.c:865
VALUE rb_eval_string_wrap(const char *str, int *state)
Identical to rb_eval_string_protect(), except it evaluates the given string under a module binding in...
Definition vm_eval.c:2095
VALUE rb_funcall_passing_block(VALUE recv, ID mid, int argc, const VALUE *argv)
Identical to rb_funcallv_public(), except you can pass the passed block.
Definition vm_eval.c:1162
VALUE rb_funcall(VALUE recv, ID mid, int n,...)
Calls a method.
Definition vm_eval.c:1099
VALUE rb_funcallv_kw(VALUE recv, ID mid, int argc, const VALUE *argv, int kw_splat)
Identical to rb_funcallv(), except you can specify how to handle the last element of the given array.
Definition vm_eval.c:1066
VALUE rb_funcall_with_block(VALUE recv, ID mid, int argc, const VALUE *argv, VALUE procval)
Identical to rb_funcallv_public(), except you can pass a block.
Definition vm_eval.c:1176
VALUE rb_eval_string_protect(const char *str, int *state)
Identical to rb_eval_string(), except it avoids potential global escapes.
Definition vm_eval.c:2074
VALUE rb_call_super_kw(int argc, const VALUE *argv, int kw_splat)
Identical to rb_call_super(), except you can specify how to handle the last element of the given arra...
Definition vm_eval.c:354
VALUE rb_funcallv_public(VALUE recv, ID mid, int argc, const VALUE *argv)
Identical to rb_funcallv(), except it only takes public methods into account.
Definition vm_eval.c:1150
VALUE rb_current_receiver(void)
This resembles ruby's self.
Definition vm_eval.c:368
VALUE rb_funcall_passing_block_kw(VALUE recv, ID mid, int argc, const VALUE *argv, int kw_splat)
Identical to rb_funcallv_passing_block(), except you can specify how to handle the last element of th...
Definition vm_eval.c:1169
VALUE rb_funcall_with_block_kw(VALUE recv, ID mid, int argc, const VALUE *argv, VALUE procval, int kw_splat)
Identical to rb_funcallv_with_block(), except you can specify how to handle the last element of the g...
Definition vm_eval.c:1186
VALUE rb_eval_string(const char *str)
Evaluates the given string.
Definition vm_eval.c:2062
VALUE rb_call_super(int argc, const VALUE *argv)
This resembles ruby's super.
Definition vm_eval.c:362
VALUE rb_funcallv_public_kw(VALUE recv, ID mid, int argc, const VALUE *argv, int kw_splat)
Identical to rb_funcallv_public(), except you can specify how to handle the last element of the given...
Definition vm_eval.c:1156
#define UNLIMITED_ARGUMENTS
This macro is used in conjunction with rb_check_arity().
Definition error.h:35
static int rb_check_arity(int argc, int min, int max)
Ensures that the passed integer is in the passed range.
Definition error.h:284
int rb_is_local_id(ID id)
Classifies the given ID, then sees if it is a local variable.
Definition symbol.c:1109
VALUE rb_proc_lambda_p(VALUE recv)
Queries if the given object is a lambda.
Definition proc.c:244
#define rb_str_new_cstr(str)
Identical to rb_str_new, except it assumes the passed pointer is a pointer to a C string.
Definition string.h:1514
VALUE rb_str_intern(VALUE str)
Identical to rb_to_symbol(), except it assumes the receiver being an instance of RString.
Definition symbol.c:894
VALUE rb_ivar_set(VALUE obj, ID name, VALUE val)
Identical to rb_iv_set(), except it accepts the name as an ID instead of a C string.
Definition variable.c:1924
VALUE rb_ivar_get(VALUE obj, ID name)
Identical to rb_iv_get(), except it accepts the name as an ID instead of a C string.
Definition variable.c:1415
VALUE rb_check_funcall(VALUE recv, ID mid, int argc, const VALUE *argv)
Identical to rb_funcallv(), except it returns RUBY_Qundef instead of raising rb_eNoMethodError.
Definition vm_eval.c:668
VALUE rb_check_funcall_kw(VALUE recv, ID mid, int argc, const VALUE *argv, int kw_splat)
Identical to rb_check_funcall(), except you can specify how to handle the last element of the given a...
Definition vm_eval.c:662
VALUE rb_mod_module_eval(int argc, const VALUE *argv, VALUE mod)
Identical to rb_obj_instance_eval(), except it evaluates within the context of module.
Definition vm_eval.c:2371
VALUE rb_mod_module_exec(int argc, const VALUE *argv, VALUE mod)
Identical to rb_obj_instance_exec(), except it evaluates within the context of module.
Definition vm_eval.c:2405
VALUE rb_obj_instance_exec(int argc, const VALUE *argv, VALUE recv)
Executes the given block within the context of the receiver.
Definition vm_eval.c:2332
VALUE rb_eval_cmd_kw(VALUE cmd, VALUE arg, int kw_splat)
This API is practically a variant of rb_proc_call_kw() now.
Definition vm_eval.c:2127
VALUE rb_apply(VALUE recv, ID mid, VALUE args)
Identical to rb_funcallv(), except it takes Ruby's array instead of C's.
Definition vm_eval.c:1074
VALUE rb_obj_instance_eval(int argc, const VALUE *argv, VALUE recv)
Evaluates a string containing Ruby source code, or the given block, within the context of the receive...
Definition vm_eval.c:2302
static ID rb_intern_const(const char *str)
This is a "tiny optimisation" over rb_intern().
Definition symbol.h:284
ID rb_check_id(volatile VALUE *namep)
Detects if the given name is already interned or not.
Definition symbol.c:1133
int len
Length of the buffer.
Definition io.h:8
VALUE rb_str_format(int argc, const VALUE *argv, VALUE fmt)
Formats a string.
Definition sprintf.c:215
#define RB_BLOCK_CALL_FUNC_ARGLIST(yielded_arg, callback_arg)
Shim for block function parameters.
Definition iterator.h:58
VALUE rb_each(VALUE obj)
This is a shorthand of calling obj.each.
Definition vm_eval.c:1627
VALUE rb_yield_values(int n,...)
Identical to rb_yield(), except it takes variadic number of parameters and pass them to the block.
Definition vm_eval.c:1366
VALUE rb_yield_splat(VALUE ary)
Identical to rb_yield_values(), except it splats an array to generate the list of parameters.
Definition vm_eval.c:1400
void rb_throw(const char *tag, VALUE val)
Transfers control to the end of the active catch block waiting for tag.
Definition vm_eval.c:2522
VALUE rb_yield_values2(int n, const VALUE *argv)
Identical to rb_yield_values(), except it takes the parameters as a C array instead of variadic argum...
Definition vm_eval.c:1388
VALUE rb_yield(VALUE val)
Yields the block.
Definition vm_eval.c:1354
VALUE rb_yield_values_kw(int n, const VALUE *argv, int kw_splat)
Identical to rb_yield_values2(), except you can specify how to handle the last element of the given a...
Definition vm_eval.c:1394
rb_block_call_func * rb_block_call_func_t
Shorthand type that represents an iterator-written-in-C function pointer.
Definition iterator.h:88
VALUE rb_yield_block(RB_BLOCK_CALL_FUNC_ARGLIST(yielded_arg, callback_arg))
Pass a passed block.
void rb_throw_obj(VALUE tag, VALUE val)
Identical to rb_throw(), except it allows arbitrary Ruby object to become a tag.
Definition vm_eval.c:2497
VALUE rb_block_call_func(RB_BLOCK_CALL_FUNC_ARGLIST(yielded_arg, callback_arg))
This is the type of a function that the interpreter expect for C-backended blocks.
Definition iterator.h:83
VALUE rb_block_call_kw(VALUE obj, ID mid, int argc, const VALUE *argv, rb_block_call_func_t proc, VALUE data2, int kw_splat)
Identical to rb_funcallv_kw(), except it additionally passes a function as a block.
Definition vm_eval.c:1541
VALUE rb_yield_splat_kw(VALUE ary, int kw_splat)
Identical to rb_yield_splat(), except you can specify how to handle the last element of the given arr...
Definition vm_eval.c:1413
#define MEMCPY(p1, p2, type, n)
Handy macro to call memcpy.
Definition memory.h:372
#define ALLOCA_N(type, n)
Definition memory.h:292
#define RB_GC_GUARD(v)
Prevents premature destruction of local objects.
Definition memory.h:167
VALUE rb_catch_obj(VALUE q, type *w, VALUE e)
An equivalent of Kernel#catch.
VALUE rb_catch(const char *q, type *w, VALUE e)
An equivalent of Kernel#catch.
VALUE rb_block_call(VALUE q, ID w, int e, const VALUE *r, type *t, VALUE y)
Call a method with a block.
VALUE rb_iterate(onearg_type *q, VALUE w, type *e, VALUE r)
Old way to implement iterators.
VALUE type(ANYARGS)
ANYARGS-ed function type.
VALUE rb_rescue2(type *q, VALUE w, type *e, VALUE r,...)
An equivalent of rescue clause.
static const uint8_t PM_OPTIONS_SCOPE_FORWARDING_NONE
The default value for parameters.
Definition options.h:48
static const uint8_t PM_OPTIONS_SCOPE_FORWARDING_ALL
When the scope is fowarding with the ... parameter.
Definition options.h:60
static const uint8_t PM_OPTIONS_SCOPE_FORWARDING_POSITIONALS
When the scope is fowarding with the * parameter.
Definition options.h:51
static const uint8_t PM_OPTIONS_SCOPE_FORWARDING_KEYWORDS
When the scope is fowarding with the ** parameter.
Definition options.h:54
static const uint8_t PM_OPTIONS_SCOPE_FORWARDING_BLOCK
When the scope is fowarding with the & parameter.
Definition options.h:57
uint32_t pm_constant_id_t
A constant id is a unique identifier for a constant in the constant pool.
static int RARRAY_LENINT(VALUE ary)
Identical to rb_array_len(), except it differs for the return type.
Definition rarray.h:281
#define RARRAY_CONST_PTR
Just another name of rb_array_const_ptr.
Definition rarray.h:52
static VALUE RBASIC_CLASS(VALUE obj)
Queries the class of an object.
Definition rbasic.h:150
#define RBASIC(obj)
Convenient casting macro.
Definition rbasic.h:40
#define RCLASS_SUPER
Just another name of rb_class_get_superclass.
Definition rclass.h:44
#define RHASH_EMPTY_P(h)
Checks if the hash is empty.
Definition rhash.h:79
#define StringValue(v)
Ensures that the parameter object is a String.
Definition rstring.h:66
#define StringValuePtr(v)
Identical to StringValue, except it returns a char*.
Definition rstring.h:76
#define RB_PASS_CALLED_KEYWORDS
Pass keywords if current method is called with keywords, useful for argument delegation.
Definition scan_args.h:78
#define RB_NO_KEYWORDS
Do not pass keywords.
Definition scan_args.h:69
#define RTEST
This is an old name of RB_TEST.
#define _(args)
This was a transition path from K&R to ANSI.
Definition stdarg.h:35
A scope of locals surrounding the code that is being parsed.
Definition options.h:36
pm_string_t * locals
The names of the locals in the scope.
Definition options.h:41
pm_options_scope_t * scopes
The scopes surrounding the code that is being parsed.
Definition options.h:137
pm_scope_node_t node
The resulting scope node that will hold the generated AST.
pm_parser_t parser
The parser that will do the actual parsing.
pm_options_t options
The options that will be passed to the parser.
pm_constant_pool_t constant_pool
This constant pool keeps all of the constants defined throughout the file so that we can reference th...
Definition parser.h:786
A generic string type that can have various ownership semantics.
Definition pm_string.h:33
Definition method.h:63
CREF (Class REFerence)
Definition method.h:45
IFUNC (Internal FUNCtion)
Definition imemo.h:84
THROW_DATA.
Definition imemo.h:57
uintptr_t ID
Type that represents a Ruby identifier such as a variable name.
Definition value.h:52
uintptr_t VALUE
Type that represents a Ruby object.
Definition value.h:40
static bool RB_TYPE_P(VALUE obj, enum ruby_value_type t)
Queries if the given object is of given type.
Definition value_type.h:376
ruby_value_type
C-level type of an object.
Definition value_type.h:113