14#include "ruby/internal/config.h"
16#ifdef HAVE_SYS_PRCTL_H
20#include "eval_intern.h"
22#include "internal/class.h"
23#include "internal/cont.h"
24#include "internal/error.h"
25#include "internal/eval.h"
26#include "internal/gc.h"
27#include "internal/hash.h"
28#include "internal/inits.h"
29#include "internal/io.h"
30#include "internal/object.h"
31#include "internal/thread.h"
32#include "internal/variable.h"
36#include "probes_helper.h"
39#include "ractor_core.h"
41NORETURN(
static void rb_raise_jump(
VALUE,
VALUE));
51ID ruby_static_id_signo, ruby_static_id_status;
52extern ID ruby_static_id_cause;
53#define id_cause ruby_static_id_cause
55#define exception_error GET_VM()->special_exceptions[ruby_error_reenter]
57#include "eval_error.c"
60#define CLASS_OR_MODULE_P(obj) \
61 (!SPECIAL_CONST_P(obj) && \
62 (BUILTIN_TYPE(obj) == T_CLASS || BUILTIN_TYPE(obj) == T_MODULE))
67 enum ruby_tag_type state;
76#if defined(__linux__) && defined(PR_SET_THP_DISABLE)
77 prctl(PR_SET_THP_DISABLE, 1, 0, 0, 0);
80 rb_vm_encoded_insn_data_table_init();
81 Init_enable_namespace();
85 EC_PUSH_TAG(GET_EC());
86 if ((state = EC_EXEC_TAG()) == TAG_NONE) {
89 GET_VM()->running = 1;
103 rb_ec_error_print(ec, ec->errinfo);
110ruby_options(
int argc,
char **argv)
113 enum ruby_tag_type state;
114 void *
volatile iseq = 0;
117 if ((state = EC_EXEC_TAG()) == TAG_NONE) {
121 rb_ec_clear_current_thread_trace_func(ec);
122 int exitcode = error_handle(ec, ec->errinfo, state);
124 iseq = (
void *)
INT2FIX(exitcode);
133 enum ruby_tag_type state;
136 if ((state = EC_EXEC_TAG()) == TAG_NONE) {
140 state = error_handle(ec, ec->errinfo, state);
149 rb_ec_fiber_scheduler_finalize(ec);
152 if (EC_EXEC_TAG() == TAG_NONE) {
153 rb_vm_trap_exit(rb_ec_vm_ptr(ec));
156 rb_ec_exec_end_proc(ec);
157 rb_ec_clear_all_trace_func(ec);
165 rb_objspace_call_finalizer();
179 return rb_ec_cleanup(GET_EC(), (
enum ruby_tag_type)ex);
187 volatile int sysex = EXIT_SUCCESS;
188 volatile int signaled = 0;
191 volatile int step = 0;
195 rb_threadptr_interrupt(th);
196 rb_threadptr_check_signal(th);
199 if ((state = EC_EXEC_TAG()) == TAG_NONE) {
200 RUBY_VM_CHECK_INTS(ec);
203 save_error = ec->errinfo;
204 if (THROW_DATA_P(ec->errinfo)) ec->errinfo =
Qnil;
211 VALUE err = ec->errinfo;
212 volatile int mode0 = 0, mode1 = 0;
213 if (err != save_error && !
NIL_P(err)) {
214 mode0 = exiting_split(err, &sysex, &signaled);
220 err = ATOMIC_VALUE_EXCHANGE(save_error,
Qnil);
222 if (!
NIL_P(err) && !THROW_DATA_P(err)) {
223 mode1 = exiting_split(err, (mode0 & EXITING_WITH_STATUS) ? NULL : &sysex, &signaled);
224 if (mode1 & EXITING_WITH_MESSAGE) {
226 rb_ec_error_print_detailed(ec, err, buf,
Qundef);
233 th->status = THREAD_KILLED;
235 rb_ractor_terminate_all();
238 if (!
NIL_P(buf = message)) {
241 else if (!NIL_OR_UNDEF_P(err = save_error) ||
242 (ex != TAG_NONE && !((mode0|mode1) & EXITING_WITH_STATUS))) {
243 sysex = error_handle(ec, err, ex);
259 rb_threadptr_unlock_all_locking_mutexes(th);
263 rb_thread_stop_timer_thread();
266 rb_jit_cont_finish();
281 if ((state = EC_EXEC_TAG()) == TAG_NONE) {
282 rb_iseq_eval_main(iseq);
301 case Qtrue: s = EXIT_SUCCESS;
break;
302 case Qfalse: s = EXIT_FAILURE;
break;
307 if (status) *status = s;
312ruby_run_node(
void *n)
317 rb_ec_cleanup(ec, (
NIL_P(ec->errinfo) ? TAG_NONE : TAG_RAISE));
320 return rb_ec_cleanup(ec, rb_ec_exec_node(ec, n));
326 return rb_ec_exec_node(GET_EC(), n);
350 while (cref && CREF_NEXT(cref)) {
351 VALUE klass = CREF_CLASS(cref);
352 if (!CREF_PUSHED_BY_EVAL(cref) &&
356 cref = CREF_NEXT(cref);
384rb_mod_s_constants(
int argc,
VALUE *argv,
VALUE mod)
396 klass = CREF_CLASS(cref);
397 if (!CREF_PUSHED_BY_EVAL(cref) &&
404 cref = CREF_NEXT(cref);
427 rb_class_set_initialized(klass);
432 if (RCLASS_SINGLETON_P(klass)) {
434 klass = RCLASS_ATTACHED_OBJECT(klass);
468static VALUE get_errinfo(
void);
469#define get_ec_errinfo(ec) rb_ec_get_errinfo(ec)
477 CONST_ID(id_true_cause,
"true_cause");
479 cause = rb_attr_get(
rb_eFatal, id_true_cause);
488 if (!
NIL_P(cause) && cause != exc) {
505 if (INTERNAL_EXCEPTION_P(mesg)) EC_JUMP_TAG(ec, TAG_FATAL);
513 if (UNDEF_P(*cause)) {
519 *cause = get_ec_errinfo(ec);
529 if (!nocircular && !
NIL_P(*cause) && !UNDEF_P(*cause) && *cause != mesg) {
531 rb_exc_check_circular_cause(*cause);
536 rb_raise(rb_eArgError,
"circular causes");
538 if (THROW_DATA_P(c)) {
541 c = rb_attr_get(c, id_cause);
553 const char *file = rb_source_location_cstr(&line);
554 const char *
const volatile file0 = file;
556 if ((file && !
NIL_P(mesg)) || !UNDEF_P(cause)) {
557 volatile int state = 0;
560 if (EC_EXEC_TAG() == TAG_NONE && !(state = rb_ec_set_raised(ec))) {
561 VALUE bt = rb_get_backtrace(mesg);
562 if (!
NIL_P(bt) || UNDEF_P(cause)) {
567 if (!UNDEF_P(cause) && !THROW_DATA_P(cause)) {
568 exc_setup_cause(mesg, cause);
571 VALUE at = rb_ec_backtrace_object(ec);
573 set_backtrace(mesg, at);
575 rb_ec_reset_raised(ec);
579 if (state)
goto fatal;
588 enum ruby_tag_type state;
592 if ((state = EC_EXEC_TAG()) == TAG_NONE) {
597 e = rb_sprintf(
"Exception '%"PRIsVALUE
"' at %s:%d - %"PRIsVALUE
"\n",
601 e = rb_sprintf(
"Exception '%"PRIsVALUE
"' at %s - %"PRIsVALUE
"\n",
605 e = rb_sprintf(
"Exception '%"PRIsVALUE
"' - %"PRIsVALUE
"\n",
611 if (state == TAG_FATAL && ec->errinfo == exception_error) {
615 rb_ec_reset_raised(ec);
616 EC_JUMP_TAG(ec, state);
620 if (rb_ec_set_raised(ec)) {
624 if (tag != TAG_FATAL) {
631 ec->errinfo = exception_error;
632 rb_ec_reset_raised(ec);
633 EC_JUMP_TAG(ec, TAG_FATAL);
640 if (UNDEF_P(cause)) {
641 cause = get_ec_errinfo(ec);
644 if (THROW_DATA_P(cause)) {
655 mesg = exc_setup_message(ec, mesg, &cause);
656 setup_exception(ec, tag, mesg, cause);
657 rb_ec_raised_clear(ec);
658 EC_JUMP_TAG(ec, tag);
661static VALUE make_exception(
int argc,
const VALUE *argv,
int isstr);
663NORETURN(
static void rb_exc_exception(
VALUE mesg,
enum ruby_tag_type tag,
VALUE cause));
666rb_exc_exception(
VALUE mesg,
enum ruby_tag_type tag,
VALUE cause)
669 mesg = make_exception(1, &mesg, FALSE);
671 rb_longjmp(GET_EC(), tag, mesg, cause);
684 rb_exc_exception(mesg, TAG_RAISE,
Qundef);
697 rb_exc_exception(mesg, TAG_FATAL,
Qnil);
706enum {raise_opt_cause, raise_max_opt};
709extract_raise_opts(
int argc,
VALUE *argv,
VALUE *opts)
725 for (i = 0; i < raise_max_opt; ++i) {
732rb_f_raise(
int argc,
VALUE *argv)
735 VALUE opts[raise_max_opt], *
const cause = &opts[raise_opt_cause];
737 argc = extract_raise_opts(argc, argv, opts);
739 if (!UNDEF_P(*cause)) {
740 rb_raise(rb_eArgError,
"only cause is given with no arguments");
748 rb_raise_jump(rb_make_exception(argc, argv), *cause);
866 return rb_f_raise(c, v);
870make_exception(
int argc,
const VALUE *argv,
int isstr)
880 if (isstr &&!
NIL_P(exc)) {
891 rb_error_arity(argc, 0, 3);
903 set_backtrace(mesg, argv[2]);
910rb_make_exception(
int argc,
const VALUE *argv)
912 return make_exception(argc, argv, TRUE);
923 VALUE klass = me->owner;
924 VALUE self = cfp->self;
925 ID mid = me->called_id;
930 rb_longjmp(ec, TAG_RAISE, mesg, cause);
936 if (UNLIKELY(tag < TAG_RETURN || tag > TAG_FATAL)) {
937 unknown_longjmp_status(tag);
939 EC_JUMP_TAG(GET_EC(), tag);
945 if (rb_vm_frame_block_handler(GET_EC()->cfp) == VM_BLOCK_HANDLER_NONE) {
958 return rb_vm_cframe_keyword_p(GET_EC()->cfp);
967 rb_vm_localjump_error(
"no block given",
Qnil, 0);
987 enum ruby_tag_type state;
991 volatile VALUE e_info = ec->errinfo;
994 if ((state = EC_EXEC_TAG()) == TAG_NONE) {
996 result = (*b_proc) (data1);
1000 if (state == TAG_RETRY) {
1008 rb_vm_rewind_cfp(ec, cfp);
1010 if (state == TAG_RAISE) {
1018 while ((eclass = va_arg(ap,
VALUE)) != 0) {
1029 result = (*r_proc) (data2, ec->errinfo);
1031 ec->errinfo = e_info;
1037 EC_JUMP_TAG(ec, state);
1054 volatile enum ruby_tag_type state;
1059 if ((state = EC_EXEC_TAG()) == TAG_NONE) {
1060 result = (*proc)(data);
1063 rb_vm_rewind_cfp(ec, cfp);
1067 if (pstate != NULL) *pstate = state;
1074 enum ruby_tag_type state;
1079 if ((state = EC_EXEC_TAG()) == TAG_NONE) {
1080 result = (*b_proc) (data1);
1083 errinfo = ec->errinfo;
1088 ec->errinfo = errinfo;
1090 EC_JUMP_TAG(ec, state);
1100 return me->def->original_id;
1113 return me->called_id;
1121rb_frame_this_func(
void)
1123 return frame_func_id(GET_EC()->cfp);
1127rb_frame_callee(
void)
1129 return frame_called_id(GET_EC()->cfp);
1137 if ((
void *)(ec->vm_stack + ec->vm_stack_size) == (
void *)(prev_cfp)) {
1144prev_frame_callee(
void)
1147 if (!prev_cfp)
return 0;
1148 return frame_called_id(prev_cfp);
1152prev_frame_func(
void)
1155 if (!prev_cfp)
return 0;
1156 return frame_func_id(prev_cfp);
1166rb_frame_last_func(
void)
1172 while (!(mid = frame_func_id(cfp)) &&
1173 (cfp = RUBY_VM_PREVIOUS_CONTROL_FRAME(cfp),
1174 !RUBY_VM_CONTROL_FRAME_STACK_OVERFLOW_P(ec, cfp)));
1191rb_mod_append_features(
VALUE module,
VALUE include)
1193 if (!CLASS_OR_MODULE_P(include)) {
1201static VALUE refinement_import_methods(
int argc,
VALUE *argv,
VALUE refinement);
1211rb_mod_include(
int argc,
VALUE *argv,
VALUE module)
1214 ID id_append_features, id_included;
1216 CONST_ID(id_append_features,
"append_features");
1220 rb_raise(
rb_eTypeError,
"Refinement#include has been removed");
1224 for (i = 0; i < argc; i++) {
1226 if (
FL_TEST(argv[i], RMODULE_IS_REFINEMENT)) {
1231 rb_funcall(argv[argc], id_append_features, 1, module);
1232 rb_funcall(argv[argc], id_included, 1, module);
1250rb_mod_prepend_features(
VALUE module,
VALUE prepend)
1252 if (!CLASS_OR_MODULE_P(prepend)) {
1268rb_mod_prepend(
int argc,
VALUE *argv,
VALUE module)
1271 ID id_prepend_features, id_prepended;
1274 rb_raise(
rb_eTypeError,
"Refinement#prepend has been removed");
1277 CONST_ID(id_prepend_features,
"prepend_features");
1278 CONST_ID(id_prepended,
"prepended");
1281 for (i = 0; i < argc; i++) {
1283 if (
FL_TEST(argv[i], RMODULE_IS_REFINEMENT)) {
1288 rb_funcall(argv[argc], id_prepend_features, 1, module);
1289 rb_funcall(argv[argc], id_prepended, 1, module);
1295ensure_class_or_module(
VALUE obj)
1299 "wrong argument type %"PRIsVALUE
" (expected Class or Module)",
1305hidden_identity_hash_new(
void)
1307 VALUE hash = rb_ident_hash_new();
1309 RBASIC_CLEAR_CLASS(hash);
1314refinement_superclass(
VALUE superclass)
1318 return rb_include_class_new(RCLASS_ORIGIN(superclass),
rb_cBasicObject);
1331 VALUE iclass, c, superclass = klass;
1333 ensure_class_or_module(klass);
1335 if (
NIL_P(CREF_REFINEMENTS(cref))) {
1336 CREF_REFINEMENTS_SET(cref, hidden_identity_hash_new());
1339 if (CREF_OMOD_SHARED(cref)) {
1340 CREF_REFINEMENTS_SET(cref, rb_hash_dup(CREF_REFINEMENTS(cref)));
1341 CREF_OMOD_SHARED_UNSET(cref);
1343 if (!
NIL_P(c = rb_hash_lookup(CREF_REFINEMENTS(cref), klass))) {
1346 if (
RBASIC(c)->klass == module) {
1354 superclass = refinement_superclass(superclass);
1355 c = iclass = rb_include_class_new(module, superclass);
1356 RCLASS_SET_REFINED_CLASS(c, klass);
1358 RCLASS_WRITE_M_TBL(c, RCLASS_M_TBL(module));
1360 rb_hash_aset(CREF_REFINEMENTS(cref), klass, iclass);
1368 rb_using_refinement(cref, klass, module);
1376 VALUE super, module, refinements;
1380 using_module_recursive(cref, super);
1388 module = RBASIC(klass)->klass;
1392 rb_raise(
rb_eTypeError,
"wrong argument type %s (expected Module)",
1396 CONST_ID(id_refinements,
"__refinements__");
1397 refinements = rb_attr_get(module, id_refinements);
1398 if (
NIL_P(refinements))
return;
1409 using_module_recursive(cref, module);
1410 rb_clear_all_refinement_method_cache();
1414rb_vm_using_module(
VALUE module)
1416 rb_using_module(rb_vm_cref_replace_with_duplicated_cref(), module);
1433rb_refinement_module_get_refined_class(
VALUE module)
1435 ID id_refined_class;
1437 CONST_ID(id_refined_class,
"__refined_class__");
1438 return rb_attr_get(module, id_refined_class);
1442add_activated_refinement(
VALUE activated_refinements,
1445 VALUE iclass, c, superclass = klass;
1447 if (!
NIL_P(c = rb_hash_lookup(activated_refinements, klass))) {
1450 if (
RBASIC(c)->klass == refinement) {
1457 superclass = refinement_superclass(superclass);
1458 c = iclass = rb_include_class_new(refinement, superclass);
1459 RCLASS_SET_REFINED_CLASS(c, klass);
1461 while (refinement && refinement != klass) {
1462 c = rb_class_set_super(c, rb_include_class_new(refinement,
RCLASS_SUPER(c)));
1463 RCLASS_SET_REFINED_CLASS(c, klass);
1466 rb_hash_aset(activated_refinements, klass, iclass);
1473 ID id_refinements, id_activated_refinements,
1474 id_refined_class, id_defined_at;
1475 VALUE refinements, activated_refinements;
1477 CONST_ID(id_refinements,
"__refinements__");
1478 refinements = rb_attr_get(module, id_refinements);
1479 if (
NIL_P(refinements)) {
1480 refinements = hidden_identity_hash_new();
1483 CONST_ID(id_activated_refinements,
"__activated_refinements__");
1484 activated_refinements = rb_attr_get(module, id_activated_refinements);
1485 if (
NIL_P(activated_refinements)) {
1486 activated_refinements = hidden_identity_hash_new();
1488 activated_refinements);
1490 refinement = rb_hash_lookup(refinements, klass);
1491 if (
NIL_P(refinement)) {
1492 VALUE superclass = refinement_superclass(klass);
1494 rb_class_set_super(refinement, superclass);
1496 FL_SET(refinement, RMODULE_IS_REFINEMENT);
1497 CONST_ID(id_refined_class,
"__refined_class__");
1499 CONST_ID(id_defined_at,
"__defined_at__");
1501 rb_hash_aset(refinements, klass, refinement);
1502 add_activated_refinement(activated_refinements, klass, refinement);
1505 data->refinement = refinement;
1506 data->refinements = activated_refinements;
1523 VALUE block_handler = rb_vm_frame_block_handler(th->ec->cfp);
1526 if (block_handler == VM_BLOCK_HANDLER_NONE) {
1527 rb_raise(rb_eArgError,
"no block given");
1529 if (vm_block_handler_type(block_handler) != block_handler_type_iseq) {
1530 rb_raise(rb_eArgError,
"can't pass a Proc as a block to Module#refine");
1533 ensure_class_or_module(klass);
1535 rb_refinement_setup(&data, module, klass);
1537 rb_yield_refine_block(data.refinement, data.refinements);
1538 return data.refinement;
1542ignored_block(
VALUE module,
const char *klass)
1544 const char *anon =
"";
1546 if (!
RTEST(rb_search_class_path(module))) {
1547 anon =
", maybe for Module.new";
1549 rb_warn(
"%s""using doesn't call the given block""%s.", klass, anon);
1565 if (prev_frame_func()) {
1567 "Module#using is not permitted in methods");
1569 if (prev_cfp && prev_cfp->self != self) {
1573 ignored_block(module,
"Module#");
1575 rb_using_module(rb_vm_cref_replace_with_duplicated_cref(), module);
1601mod_refinements(
VALUE self)
1606 CONST_ID(id_refinements,
"__refinements__");
1607 refinements = rb_attr_get(self, id_refinements);
1608 if (
NIL_P(refinements)) {
1611 return rb_hash_values(refinements);
1618 CONST_ID(id_defined_at,
"__defined_at__");
1652rb_mod_s_used_modules(
VALUE _)
1658 if (!
NIL_P(CREF_REFINEMENTS(cref))) {
1661 cref = CREF_NEXT(cref);
1664 return rb_funcall(ary, rb_intern(
"uniq"), 0);
1703rb_mod_s_used_refinements(
VALUE _)
1709 if (!
NIL_P(CREF_REFINEMENTS(cref))) {
1712 cref = CREF_NEXT(cref);
1727static enum rb_id_table_iterator_result
1728refinement_import_methods_i(
ID key,
VALUE value,
void *data)
1733 if (me->def->type != VM_METHOD_TYPE_ISEQ) {
1734 rb_raise(rb_eArgError,
"Can't import method which is not defined with Ruby code: %"PRIsVALUE
"#%"PRIsVALUE,
rb_class_path(arg->module), rb_id2str(key));
1736 rb_cref_t *new_cref = rb_vm_cref_dup_without_refinements(me->def->body.iseq.
cref);
1737 CREF_REFINEMENTS_SET(new_cref, CREF_REFINEMENTS(arg->cref));
1738 rb_add_method_iseq(arg->refinement, key, me->def->body.iseq.
iseqptr, new_cref, METHOD_ENTRY_VISI(me));
1739 return ID_TABLE_CONTINUE;
1747refinement_import_methods(
int argc,
VALUE *argv,
VALUE refinement)
1753 for (i = 0; i < argc; i++) {
1756 rb_warn(
"%"PRIsVALUE
" has ancestors, but Refinement#import_methods doesn't import their methods",
rb_class_path(argv[i]));
1759 arg.cref = rb_vm_cref_replace_with_duplicated_cref();
1760 arg.refinement = refinement;
1761 for (i = 0; i < argc; i++) {
1762 arg.module = argv[i];
1763 struct rb_id_table *m_tbl = RCLASS_M_TBL(argv[i]);
1764 if (!m_tbl)
continue;
1765 rb_id_table_foreach(m_tbl, refinement_import_methods_i, &arg);
1777rb_obj_call_init_kw(
VALUE obj,
int argc,
const VALUE *argv,
int kw_splat)
1779 PASS_PASSED_BLOCK_HANDLER();
1849rb_obj_extend(
int argc,
VALUE *argv,
VALUE obj)
1852 ID id_extend_object, id_extended;
1854 CONST_ID(id_extend_object,
"extend_object");
1858 for (i = 0; i < argc; i++) {
1860 if (
FL_TEST(argv[i], RMODULE_IS_REFINEMENT)) {
1861 rb_raise(
rb_eTypeError,
"Cannot extend object with refinement");
1865 rb_funcall(argv[argc], id_extend_object, 1, obj);
1872rb_top_main_class(
const char *method)
1874 VALUE klass = GET_THREAD()->top_wrapper;
1876 if (!klass)
return rb_cObject;
1877 rb_warning(
"main.%s in the wrapped load is effective only in wrapper module", method);
1891top_include(
int argc,
VALUE *argv,
VALUE self)
1893 return rb_mod_include(argc, argv, rb_top_main_class(
"include"));
1907 const rb_cref_t *cref = CREF_NEXT(rb_vm_cref());
1911 if ((th->top_wrapper ? CREF_NEXT(cref) : cref) ||
1912 (prev_cfp && rb_vm_frame_method_entry(prev_cfp))) {
1916 ignored_block(module,
"main.");
1918 rb_using_module(rb_vm_cref_replace_with_duplicated_cref(), module);
1928 while (RUBY_VM_VALID_CONTROL_FRAME_P(cfp, end_cfp)) {
1929 if (VM_FRAME_RUBYFRAME_P(cfp)) {
1930 if (ISEQ_BODY(cfp->iseq)->type == ISEQ_TYPE_RESCUE) {
1931 return &cfp->ep[VM_ENV_INDEX_LAST_LVAR];
1933 else if (ISEQ_BODY(cfp->iseq)->type == ISEQ_TYPE_ENSURE &&
1934 !THROW_DATA_P(cfp->ep[VM_ENV_INDEX_LAST_LVAR]) &&
1935 !
FIXNUM_P(cfp->ep[VM_ENV_INDEX_LAST_LVAR])) {
1936 return &cfp->ep[VM_ENV_INDEX_LAST_LVAR];
1939 cfp = RUBY_VM_PREVIOUS_CONTROL_FRAME(cfp);
1947 const VALUE *ptr = errinfo_place(ec);
1959 return get_ec_errinfo(GET_EC());
1965 return get_errinfo();
1971 return GET_EC()->errinfo;
1980 GET_EC()->errinfo = err;
1986 VALUE err = get_errinfo();
1988 return rb_get_backtrace(err);
1998 VALUE err = get_errinfo();
2000 rb_raise(rb_eArgError,
"$! not set");
2002 set_backtrace(err, val);
2018 ID fname = prev_frame_func();
2040 ID fname = prev_frame_callee();
2061f_current_dirname(
VALUE _)
2063 VALUE base = rb_current_realfilepath();
2067 base = rb_file_dirname(base);
2084f_global_variables(
VALUE _)
2140 rb_gvar_ractor_local(
"$@");
2141 rb_gvar_ractor_local(
"$!");
2162 rb_mod_s_used_modules, 0);
2164 rb_mod_s_used_refinements, 0);
2181 "include", top_include, -1);
2183 "using", top_using, 1);
2190 rb_vm_register_special_exception(ruby_error_reenter,
rb_eFatal,
"exception reentered");
2191 rb_vm_register_special_exception(ruby_error_stackfatal,
rb_eFatal,
"machine stack overflow in critical region");
#define RUBY_ASSERT(...)
Asserts that the given expression is truthy if and only if RUBY_DEBUG is truthy.
#define rb_define_method(klass, mid, func, arity)
Defines klass#mid.
#define rb_define_singleton_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_RAISE
Encountered a raise statement.
#define RUBY_EVENT_C_RETURN
Return from a method, written in C.
void rb_include_module(VALUE klass, VALUE module)
Includes a module to a class.
VALUE rb_refinement_new(void)
Creates a new, anonymous refinement.
void rb_extend_object(VALUE obj, VALUE module)
Extend the object with the module.
void rb_prepend_module(VALUE klass, VALUE module)
Identical to rb_include_module(), except it "prepends" the passed module to the klass,...
VALUE rb_singleton_class(VALUE obj)
Finds or creates the singleton class of the passed object.
void rb_class_modify_check(VALUE klass)
Asserts that klass is not a frozen class.
void rb_need_block(void)
Declares that the current method needs a block.
void rb_undef_method(VALUE klass, const char *name)
Defines an undef of a method.
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.
int rb_keyword_given_p(void)
Determines if the current method is given a keyword argument.
int rb_block_given_p(void)
Determines if the current method is given a block.
int rb_get_kwargs(VALUE keyword_hash, const ID *table, int required, int optional, VALUE *values)
Keyword argument deconstructor.
#define Qundef
Old name of RUBY_Qundef.
#define INT2FIX
Old name of RB_INT2FIX.
#define OBJ_FROZEN
Old name of RB_OBJ_FROZEN.
#define UNREACHABLE
Old name of RBIMPL_UNREACHABLE.
#define ID2SYM
Old name of RB_ID2SYM.
#define SPECIAL_CONST_P
Old name of RB_SPECIAL_CONST_P.
#define OBJ_FREEZE
Old name of RB_OBJ_FREEZE.
#define UNREACHABLE_RETURN
Old name of RBIMPL_UNREACHABLE_RETURN.
#define FIX2INT
Old name of RB_FIX2INT.
#define T_MODULE
Old name of RUBY_T_MODULE.
#define T_ICLASS
Old name of RUBY_T_ICLASS.
#define FL_SET
Old name of RB_FL_SET.
#define rb_exc_new3
Old name of rb_exc_new_str.
#define Qtrue
Old name of RUBY_Qtrue.
#define Qnil
Old name of RUBY_Qnil.
#define Qfalse
Old name of RUBY_Qfalse.
#define T_OBJECT
Old name of RUBY_T_OBJECT.
#define NIL_P
Old name of RB_NIL_P.
#define T_CLASS
Old name of RUBY_T_CLASS.
#define BUILTIN_TYPE
Old name of RB_BUILTIN_TYPE.
#define FL_TEST
Old name of RB_FL_TEST.
#define FIXNUM_P
Old name of RB_FIXNUM_P.
#define CONST_ID
Old name of RUBY_CONST_ID.
void ruby_stop(int ex)
Calls ruby_cleanup() and exits the process.
int ruby_exec_node(void *n)
Identical to ruby_run_node(), except it returns an opaque execution status.
int ruby_setup(void)
Initializes the VM and builtin libraries.
void ruby_finalize(void)
Runs the VM finalization processes.
int ruby_cleanup(int ex)
Destructs the VM.
void * ruby_process_options(int argc, char **argv)
Identical to ruby_options(), except it raises ruby-level exceptions on failure.
void ruby_prog_init(void)
Defines built-in variables.
void ruby_sig_finalize(void)
Clear signal handlers.
#define ruby_debug
This variable controls whether the interpreter is in debug mode.
VALUE rb_eLocalJumpError
LocalJumpError exception.
VALUE rb_rescue2(VALUE(*b_proc)(VALUE), VALUE data1, VALUE(*r_proc)(VALUE, VALUE), VALUE data2,...)
An equivalent of rescue clause.
void rb_exc_raise(VALUE mesg)
Raises an exception in the current thread.
VALUE rb_eSystemExit
SystemExit exception.
VALUE rb_eStandardError
StandardError exception.
VALUE rb_eTypeError
TypeError exception.
VALUE rb_vrescue2(VALUE(*b_proc)(VALUE), VALUE data1, VALUE(*r_proc)(VALUE, VALUE), VALUE data2, va_list args)
Identical to rb_rescue2(), except it takes va_list instead of variadic number of arguments.
void rb_frozen_error_raise(VALUE frozen_obj, const char *fmt,...)
Raises an instance of rb_eFrozenError.
VALUE rb_eFatal
fatal exception.
VALUE rb_eInterrupt
Interrupt exception.
void rb_exc_fatal(VALUE mesg)
Raises a fatal error in the current thread.
VALUE rb_eRuntimeError
RuntimeError exception.
void rb_warn(const char *fmt,...)
Identical to rb_warning(), except it reports unless $VERBOSE is nil.
VALUE rb_exc_new(VALUE etype, const char *ptr, long len)
Creates an instance of the passed exception class.
VALUE rb_eException
Mother of all exceptions.
VALUE rb_rescue(VALUE(*b_proc)(VALUE), VALUE data1, VALUE(*r_proc)(VALUE, VALUE), VALUE data2)
Identical to rb_rescue2(), except it does not take a list of exception classes.
VALUE rb_ensure(VALUE(*b_proc)(VALUE), VALUE data1, VALUE(*e_proc)(VALUE), VALUE data2)
An equivalent to ensure clause.
VALUE rb_errinfo(void)
This is the same as $! in Ruby.
VALUE rb_eSysStackError
SystemStackError exception.
VALUE rb_eThreadError
ThreadError exception.
void rb_warning(const char *fmt,...)
Issues a warning.
VALUE rb_cClass
Class class.
VALUE rb_mKernel
Kernel module.
VALUE rb_cRefinement
Refinement class.
static VALUE rb_class_of(VALUE obj)
Object to class mapping function.
VALUE rb_obj_class(VALUE obj)
Queries the class of an object.
VALUE rb_obj_dup(VALUE obj)
Duplicates the given object.
VALUE rb_cBasicObject
BasicObject class.
VALUE rb_cModule
Module class.
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.
void ruby_init(void)
Calls ruby_setup() and check error.
int ruby_executable_node(void *n, int *status)
Checks the return value of ruby_options().
VALUE rb_funcall(VALUE recv, ID mid, int n,...)
Calls a method.
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.
VALUE rb_ary_new(void)
Allocates a new, empty array.
VALUE rb_ary_push(VALUE ary, VALUE elem)
Special case of rb_ary_cat() that it adds only one element.
#define UNLIMITED_ARGUMENTS
This macro is used in conjunction with rb_check_arity().
static int rb_check_arity(int argc, int min, int max)
Ensures that the passed integer is in the passed range.
void ruby_default_signal(int sig)
Pretends as if there was no custom signal handler.
#define rb_str_new(str, len)
Allocates an instance of rb_cString.
#define rb_exc_new_cstr(exc, str)
Identical to rb_exc_new(), except it assumes the passed pointer is a pointer to a C string.
VALUE rb_check_string_type(VALUE obj)
Try converting an object to its stringised representation using its to_str method,...
VALUE rb_obj_as_string(VALUE obj)
Try converting an object to its stringised representation using its to_s method, if any.
VALUE rb_f_untrace_var(int argc, const VALUE *argv)
Deletes the passed tracer from the passed global variable, or if omitted, deletes everything.
VALUE rb_const_list(void *)
This is another mysterious API that comes with no documents at all.
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.
VALUE rb_f_trace_var(int argc, const VALUE *argv)
Traces a global variable.
VALUE rb_mod_constants(int argc, const VALUE *argv, VALUE recv)
Resembles Module#constants.
void * rb_mod_const_of(VALUE, void *)
This is a variant of rb_mod_const_at().
void * rb_mod_const_at(VALUE, void *)
This API is mysterious.
VALUE rb_ivar_defined(VALUE obj, ID name)
Queries if the instance variable is defined at the object.
VALUE rb_f_global_variables(void)
Queries the list of global variables.
VALUE rb_class_path(VALUE mod)
Identical to rb_mod_name(), except it returns #<Class: ...> style inspection for anonymous modules.
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.
static ID rb_intern_const(const char *str)
This is a "tiny optimisation" over rb_intern().
int ruby_vm_destruct(ruby_vm_t *vm)
Destructs the passed VM.
void rb_hash_foreach(VALUE q, int_type *w, VALUE e)
Iteration over the given hash.
void rb_define_virtual_variable(const char *q, type *w, void_type *e)
Define a function-backended global variable.
#define RBASIC(obj)
Convenient casting macro.
#define RCLASS_SUPER
Just another name of rb_class_get_superclass.
#define RHASH_EMPTY_P(h)
Checks if the hash is empty.
const char * rb_obj_classname(VALUE obj)
Queries the name of the class of the passed object.
static int * rb_orig_errno_ptr(void)
Not sure if it is necessary for extension libraries but this is where the "bare" errno is located.
#define RB_NO_KEYWORDS
Do not pass keywords.
VALUE rb_fiber_scheduler_set(VALUE scheduler)
Destructively assigns the passed scheduler to that of the current thread that is calling this functio...
#define RTEST
This is an old name of RB_TEST.
#define _(args)
This was a transition path from K&R to ANSI.
rb_cref_t * cref
class reference, should be marked
const rb_iseq_t * iseqptr
iseq pointer, should be separated from iseqval
uintptr_t ID
Type that represents a Ruby identifier such as a variable name.
uintptr_t VALUE
Type that represents a Ruby object.
static void Check_Type(VALUE v, enum ruby_value_type t)
Identical to RB_TYPE_P(), except it raises exceptions on predication failure.
static bool RB_TYPE_P(VALUE obj, enum ruby_value_type t)
Queries if the given object is of given type.