6 #include "eval_intern.h"
8 #include "internal/dir.h"
9 #include "internal/error.h"
10 #include "internal/file.h"
11 #include "internal/hash.h"
12 #include "internal/load.h"
13 #include "internal/ruby_parser.h"
14 #include "internal/thread.h"
15 #include "internal/variable.h"
21 #include "ractor_core.h"
23 static VALUE ruby_dln_libmap;
25 #define IS_RBEXT(e) (strcmp((e), ".rb") == 0)
26 #define IS_SOEXT(e) (strcmp((e), ".so") == 0 || strcmp((e), ".o") == 0)
27 #define IS_DLEXT(e) (strcmp((e), DLEXT) == 0)
29 #if SIZEOF_VALUE <= SIZEOF_LONG
30 # define SVALUE2NUM(x) LONG2NUM((long)(x))
31 # define NUM2SVALUE(x) (SIGNED_VALUE)NUM2LONG(x)
32 #elif SIZEOF_VALUE <= SIZEOF_LONG_LONG
33 # define SVALUE2NUM(x) LL2NUM((LONG_LONG)(x))
34 # define NUM2SVALUE(x) (SIGNED_VALUE)NUM2LL(x)
36 # error Need integer for VALUE
44 static const char *
const loadable_ext[] = {
49 static const char *
const ruby_ext[] = {
67 rb_construct_expanded_load_path(
rb_vm_t *vm,
enum expand_type
type,
int *has_relative,
int *has_non_cache)
69 VALUE load_path = vm->load_path;
70 VALUE expanded_load_path = vm->expanded_load_path;
76 VALUE path, as_str, expanded_path;
77 int is_string, non_cache;
81 non_cache = !is_string ? 1 : 0;
82 as_str = rb_get_path_check_to_string(path);
86 if ((
type == EXPAND_RELATIVE &&
88 (
type == EXPAND_HOME &&
89 (!as_cstr[0] || as_cstr[0] !=
'~')) ||
90 (
type == EXPAND_NON_CACHE)) {
98 if (!*has_non_cache && non_cache)
103 as_str = rb_get_path_check_convert(as_str);
104 expanded_path = rb_check_realpath(
Qnil, as_str, NULL);
105 if (
NIL_P(expanded_path)) expanded_path = as_str;
109 vm->expanded_load_path = ary;
114 get_expanded_load_path(
rb_vm_t *vm)
120 int has_relative = 0, has_non_cache = 0;
121 rb_construct_expanded_load_path(vm, EXPAND_ALL, &has_relative, &has_non_cache);
123 vm->load_path_check_cache = rb_dir_getwd_ospath();
125 else if (has_non_cache) {
127 vm->load_path_check_cache = non_cache;
130 vm->load_path_check_cache = 0;
133 else if (vm->load_path_check_cache == non_cache) {
134 int has_relative = 1, has_non_cache = 1;
136 rb_construct_expanded_load_path(vm, EXPAND_NON_CACHE,
137 &has_relative, &has_non_cache);
139 else if (vm->load_path_check_cache) {
140 int has_relative = 1, has_non_cache = 1;
141 VALUE cwd = rb_dir_getwd_ospath();
145 vm->load_path_check_cache = cwd;
146 rb_construct_expanded_load_path(vm, EXPAND_RELATIVE,
147 &has_relative, &has_non_cache);
151 rb_construct_expanded_load_path(vm, EXPAND_HOME,
152 &has_relative, &has_non_cache);
155 return vm->expanded_load_path;
159 rb_get_expanded_load_path(
void)
161 return get_expanded_load_path(GET_VM());
165 load_path_getter(
ID id,
VALUE * p)
168 return vm->load_path;
172 get_loaded_features(
rb_vm_t *vm)
174 return vm->loaded_features;
178 get_loaded_features_realpaths(
rb_vm_t *vm)
180 return vm->loaded_features_realpaths;
184 get_loaded_features_realpath_map(
rb_vm_t *vm)
186 return vm->loaded_features_realpath_map;
190 get_LOADED_FEATURES(
ID _x,
VALUE *_y)
192 return get_loaded_features(GET_VM());
196 reset_loaded_features_snapshot(
rb_vm_t *vm)
198 rb_ary_replace(vm->loaded_features_snapshot, vm->loaded_features);
202 get_loaded_features_index_raw(
rb_vm_t *vm)
204 return vm->loaded_features_index;
210 return vm->loading_table;
214 feature_key(
const char *str,
size_t len)
216 return st_hash(str,
len, 0xfea7009e);
220 is_rbext_path(
VALUE feature_path)
224 if (
len <= rbext_len)
return false;
228 typedef rb_darray(
long) feature_indexes_t;
230 struct features_index_add_single_args {
237 features_index_add_single_callback(st_data_t *key, st_data_t *value, st_data_t raw_args,
int existing)
239 struct features_index_add_single_args *args = (
struct features_index_add_single_args *)raw_args;
241 VALUE offset = args->offset;
245 VALUE this_feature_index = *value;
248 VALUE loaded_features = get_loaded_features(vm);
251 feature_indexes_t feature_indexes;
252 rb_darray_make(&feature_indexes, 2);
253 int top = (rb && !is_rbext_path(this_feature_path)) ? 1 : 0;
254 rb_darray_set(feature_indexes, top^0,
FIX2LONG(this_feature_index));
255 rb_darray_set(feature_indexes, top^1,
FIX2LONG(offset));
261 *value = (st_data_t)feature_indexes;
264 feature_indexes_t feature_indexes = (feature_indexes_t)this_feature_index;
268 VALUE loaded_features = get_loaded_features(vm);
269 for (
size_t i = 0; i < rb_darray_size(feature_indexes); ++i) {
270 long idx = rb_darray_get(feature_indexes, i);
273 if (!is_rbext_path(this_feature_path)) {
280 rb_darray_append(&feature_indexes,
FIX2LONG(offset));
282 *value = (st_data_t)feature_indexes;
285 long *
ptr = rb_darray_data_ptr(feature_indexes);
286 long len = rb_darray_size(feature_indexes);
300 features_index_add_single(
rb_vm_t *vm,
const char* str,
size_t len,
VALUE offset,
bool rb)
303 st_data_t short_feature_key;
306 short_feature_key = feature_key(str,
len);
308 features_index = get_loaded_features_index_raw(vm);
310 struct features_index_add_single_args args = {
316 st_update(features_index, short_feature_key, features_index_add_single_callback, (st_data_t)&args);
330 const char *feature_str, *feature_end, *ext, *p;
336 for (ext = feature_end; ext > feature_str; ext--)
337 if (*ext ==
'.' || *ext ==
'/')
346 p = ext ? ext : feature_end;
349 while (p >= feature_str && *p !=
'/')
354 features_index_add_single(vm, p + 1, feature_end - p - 1, offset,
false);
356 features_index_add_single(vm, p + 1, ext - p - 1, offset, rb);
359 features_index_add_single(vm, feature_str, feature_end - feature_str, offset,
false);
361 features_index_add_single(vm, feature_str, ext - feature_str, offset, rb);
366 loaded_features_index_clear_i(st_data_t key, st_data_t val, st_data_t arg)
370 rb_darray_free((
void *)obj);
376 rb_free_loaded_features_index(
rb_vm_t *vm)
378 st_foreach(vm->loaded_features_index, loaded_features_index_clear_i, 0);
379 st_free_table(vm->loaded_features_index);
383 get_loaded_features_index(
rb_vm_t *vm)
391 st_foreach(vm->loaded_features_index, loaded_features_index_clear_i, 0);
393 VALUE realpaths = vm->loaded_features_realpaths;
394 VALUE realpath_map = vm->loaded_features_realpath_map;
398 features = vm->loaded_features;
403 as_str = rb_fstring(as_str);
406 features_index_add(vm, as_str,
INT2FIX(i));
408 reset_loaded_features_snapshot(vm);
410 features =
rb_ary_dup(vm->loaded_features_snapshot);
412 for (i = 0; i < j; i++) {
415 if (
NIL_P(realpath)) {
416 realpath = rb_check_realpath(
Qnil, as_str, NULL);
417 if (
NIL_P(realpath)) realpath = as_str;
418 realpath = rb_fstring(realpath);
424 return vm->loaded_features_index;
439 loaded_feature_path(
const char *name,
long vlen,
const char *feature,
long len,
446 if (vlen <
len+1)
return 0;
447 if (strchr(feature,
'.') && !strncmp(name+(vlen-
len), feature,
len)) {
451 for (e = name + vlen; name != e && *e !=
'.' && *e !=
'/'; --e);
454 strncmp(e-
len, feature,
len))
456 plen = e - name -
len;
458 if (plen > 0 && name[plen-1] !=
'/') {
461 if (
type ==
's' ? !IS_DLEXT(&name[plen+
len]) :
462 type ==
'r' ? !IS_RBEXT(&name[plen+
len]) :
469 if (plen > 0) --plen;
475 if (n != plen)
continue;
476 if (n && strncmp(name, s, n))
continue;
491 loaded_feature_path_i(st_data_t v, st_data_t b, st_data_t f)
493 const char *s = (
const char *)v;
495 VALUE p = loaded_feature_path(s, strlen(s), fp->name, fp->len,
496 fp->type, fp->load_path);
497 if (!p)
return ST_CONTINUE;
509 rb_feature_p(
rb_vm_t *vm,
const char *feature,
const char *ext,
int rb,
int expanded,
const char **fn)
511 VALUE features, this_feature_index =
Qnil, v, p, load_path = 0;
513 long i,
len, elen, n;
514 st_table *loading_tbl, *features_index;
522 len = strlen(feature) - elen;
523 type = rb ?
'r' :
's';
526 len = strlen(feature);
530 features = get_loaded_features(vm);
531 features_index = get_loaded_features_index(vm);
533 key = feature_key(feature, strlen(feature));
560 if (st_lookup(features_index, key, &data) && !
NIL_P(this_feature_index = (
VALUE)data)) {
561 for (
size_t i = 0; ; i++) {
565 index =
FIX2LONG(this_feature_index);
568 feature_indexes_t feature_indexes = (feature_indexes_t)this_feature_index;
569 if (i >= rb_darray_size(feature_indexes))
break;
570 index = rb_darray_get(feature_indexes, i);
576 if (strncmp(f, feature,
len) != 0) {
577 if (expanded)
continue;
578 if (!load_path) load_path = get_expanded_load_path(vm);
579 if (!(p = loaded_feature_path(f, n, feature,
len,
type, load_path)))
584 if (!*(e = f +
len)) {
588 if (*e !=
'.')
continue;
589 if ((!rb || !ext) && (IS_SOEXT(e) || IS_DLEXT(e))) {
592 if ((rb || !ext) && (IS_RBEXT(e))) {
598 loading_tbl = get_loading_table(vm);
605 fs.load_path = load_path ? load_path : get_expanded_load_path(vm);
607 st_foreach(loading_tbl, loaded_feature_path_i, (st_data_t)&fs);
608 if ((f = fs.result) != 0) {
613 if (st_get_key(loading_tbl, (st_data_t)feature, &data)) {
614 if (fn) *fn = (
const char*)data;
620 static const char so_ext[][4] = {
624 if (ext && *ext)
return 0;
628 for (i = 0; (e = loadable_ext[i]) != 0; i++) {
629 strlcpy(buf +
len, e, DLEXT_MAXLEN + 1);
630 if (st_get_key(loading_tbl, (st_data_t)buf, &data)) {
632 if (fn) *fn = (
const char*)data;
633 return i ?
's' :
'r';
636 for (i = 0; i < numberof(so_ext); i++) {
637 strlcpy(buf +
len, so_ext[i], DLEXT_MAXLEN + 1);
638 if (st_get_key(loading_tbl, (st_data_t)buf, &data)) {
640 if (fn) *fn = (
const char*)data;
649 if (!ext)
return 'u';
650 return !IS_RBEXT(ext) ?
's' :
'r';
660 feature_provided(
rb_vm_t *vm,
const char *feature,
const char **loading)
662 const char *ext = strrchr(feature,
'.');
665 if (*feature ==
'.' &&
666 (feature[1] ==
'/' || strncmp(feature+1,
"./", 2) == 0)) {
670 if (ext && !strchr(ext,
'/')) {
672 if (rb_feature_p(vm, feature, ext, TRUE, FALSE, loading))
return TRUE;
675 else if (IS_SOEXT(ext) || IS_DLEXT(ext)) {
676 if (rb_feature_p(vm, feature, ext, FALSE, FALSE, loading))
return TRUE;
680 if (rb_feature_p(vm, feature, 0, TRUE, FALSE, loading))
689 return feature_provided(GET_VM(), feature, loading);
697 features = get_loaded_features(vm);
700 "$LOADED_FEATURES is frozen; cannot append feature");
702 feature = rb_fstring(feature);
704 get_loaded_features_index(vm);
711 reset_loaded_features_snapshot(vm);
717 rb_provide_feature(GET_VM(), rb_fstring_cstr(feature));
720 NORETURN(
static void load_failed(
VALUE));
723 realpath_internal_cached(
VALUE hash,
VALUE path)
730 VALUE realpath = rb_realpath_internal(
Qnil, path, 1);
731 rb_hash_aset(hash, rb_fstring(path), rb_fstring(realpath));
738 const rb_iseq_t *iseq = rb_iseq_load_iseq(fname);
742 VALUE v = rb_vm_push_frame_fname(ec, fname);
745 VALUE realpath_map = get_loaded_features_realpath_map(th->vm);
747 if (rb_ruby_prism_p()) {
750 result.
node.coverage_enabled = 1;
752 VALUE error = pm_load_parse_file(&result, fname, NULL);
756 iseq = pm_iseq_new_top(&result.
node, rb_fstring_lit(
"<top (required)>"), fname, realpath_internal_cached(realpath_map, fname), NULL, &error_state);
758 pm_parse_result_free(&result);
768 pm_parse_result_free(&result);
775 VALUE parser = rb_parser_new();
776 rb_parser_set_context(parser, NULL, FALSE);
777 ast_value = rb_parser_load_file(parser, fname);
778 ast = rb_ruby_ast_data_get(ast_value);
780 iseq = rb_iseq_new_top(ast_value, rb_fstring_lit(
"<top (required)>"),
781 fname, realpath_internal_cached(realpath_map, fname), NULL);
788 rb_exec_event_hook_script_compiled(ec, iseq,
Qnil);
792 static inline enum ruby_tag_type
795 enum ruby_tag_type state;
797 volatile VALUE wrapper = th->top_wrapper;
798 volatile VALUE self = th->top_self;
799 #if !defined __GNUC__
807 th->top_wrapper = load_wrapper;
811 state = EC_EXEC_TAG();
812 if (state == TAG_NONE) {
813 load_iseq_eval(ec, fname);
817 #if !defined __GNUC__
822 th->top_wrapper = wrapper;
830 rb_vm_jump_tag_but_local_jump(state);
833 if (!
NIL_P(ec->errinfo)) {
842 enum ruby_tag_type state = TAG_NONE;
847 state = load_wrapping(ec, fname, wrap);
850 load_iseq_eval(ec, fname);
852 raise_load_if_failed(ec, state);
859 if (!tmp) load_failed(fname);
860 rb_load_internal(tmp, RBOOL(wrap));
866 enum ruby_tag_type state;
868 EC_PUSH_TAG(GET_EC());
869 if ((state = EC_EXEC_TAG()) == TAG_NONE) {
874 if (state != TAG_NONE) *pstate = state;
910 VALUE fname, wrap, path, orig_fname;
914 orig_fname = rb_get_path_check_to_string(fname);
916 RUBY_DTRACE_HOOK(LOAD_ENTRY,
RSTRING_PTR(orig_fname));
921 load_failed(orig_fname);
924 rb_load_internal(path, wrap);
926 RUBY_DTRACE_HOOK(LOAD_RETURN,
RSTRING_PTR(orig_fname));
932 load_lock(
rb_vm_t *vm,
const char *ftptr,
bool warn)
935 st_table *loading_tbl = get_loading_table(vm);
937 if (!st_lookup(loading_tbl, (st_data_t)ftptr, &data)) {
940 data = (st_data_t)rb_thread_shield_new();
941 st_insert(loading_tbl, (st_data_t)ftptr, data);
942 return (
char *)ftptr;
945 if (warn && rb_thread_shield_owned((
VALUE)data)) {
946 VALUE warning = rb_warning_string(
"loading in progress, circular require considered harmful - %s", ftptr);
950 switch (rb_thread_shield_wait((
VALUE)data)) {
955 return (
char *)ftptr;
959 release_thread_shield(st_data_t *key, st_data_t *value, st_data_t done,
int existing)
962 if (!existing)
return ST_STOP;
964 rb_thread_shield_destroy(thread_shield);
968 else if (rb_thread_shield_release(thread_shield)) {
977 load_unlock(
rb_vm_t *vm,
const char *ftptr,
int done)
980 st_data_t key = (st_data_t)ftptr;
981 st_table *loading_tbl = get_loading_table(vm);
983 st_update(loading_tbl, key, release_thread_shield, done);
987 static VALUE rb_require_string_internal(
VALUE fname,
bool resurrect);
1042 rb_f_require_relative(
VALUE obj,
VALUE fname)
1044 VALUE base = rb_current_realfilepath();
1052 typedef int (*feature_func)(
rb_vm_t *vm,
const char *feature,
const char *ext,
int rb,
int expanded,
const char **fn);
1055 search_required(
rb_vm_t *vm,
VALUE fname,
volatile VALUE *path, feature_func rb_feature_p)
1060 const char *loading;
1064 if (ext && !strchr(ext,
'/')) {
1065 if (IS_RBEXT(ext)) {
1066 if (rb_feature_p(vm, ftptr, ext, TRUE, FALSE, &loading)) {
1072 if (!rb_feature_p(vm, ftptr, ext, TRUE, TRUE, &loading) || loading)
1078 else if (IS_SOEXT(ext)) {
1079 if (rb_feature_p(vm, ftptr, ext, FALSE, FALSE, &loading)) {
1088 if (!rb_feature_p(vm, ftptr, ext, FALSE, TRUE, &loading) || loading)
1093 else if (IS_DLEXT(ext)) {
1094 if (rb_feature_p(vm, ftptr, ext, FALSE, FALSE, &loading)) {
1100 if (!rb_feature_p(vm, ftptr, ext, FALSE, TRUE, &loading) || loading)
1106 else if ((ft = rb_feature_p(vm, ftptr, 0, FALSE, FALSE, &loading)) ==
'r') {
1115 if (!ft &&
type != loadable_ext_rb && vm->static_ext_inits) {
1116 VALUE lookup_name = tmp;
1125 if (st_lookup(vm->static_ext_inits, (st_data_t)ftptr, NULL)) {
1134 goto feature_present;
1136 return rb_feature_p(vm, ftptr, 0, FALSE, TRUE, 0);
1140 goto feature_present;
1143 case loadable_ext_rb:
1145 if (rb_feature_p(vm, ftptr, ext,
type == loadable_ext_rb, TRUE, &loading) && !loading)
1149 return type > loadable_ext_rb ?
's' :
'r';
1157 load_failed(
VALUE fname)
1159 rb_load_fail(fname,
"cannot load such file");
1163 load_ext(
VALUE path)
1165 rb_scope_visibility_set(METHOD_VISI_PUBLIC);
1170 run_static_ext_init(
rb_vm_t *vm,
const char *feature)
1172 st_data_t key = (st_data_t)feature;
1173 st_data_t init_func;
1175 if (vm->static_ext_inits && st_delete(vm->static_ext_inits, &key, &init_func)) {
1176 ((void (*)(void))init_func)();
1183 no_feature_p(
rb_vm_t *vm,
const char *feature,
const char *ext,
int rb,
int expanded,
const char **fn)
1190 rb_resolve_feature_path(
VALUE klass,
VALUE fname)
1198 found = search_required(GET_VM(), path, &path, no_feature_p);
1217 *prev = th->ext_config;
1224 th->ext_config = *prev;
1230 GET_THREAD()->ext_config.ractor_safe = flag;
1243 volatile int result = -1;
1245 volatile const struct {
1246 VALUE wrapper,
self, errinfo;
1249 th->top_wrapper, th->top_self, ec->errinfo,
1252 enum ruby_tag_type state;
1253 char *
volatile ftptr = 0;
1255 volatile VALUE saved_path;
1256 volatile VALUE realpath = 0;
1257 VALUE realpaths = get_loaded_features_realpaths(th->vm);
1258 VALUE realpath_map = get_loaded_features_realpath_map(th->vm);
1259 volatile bool reset_ext_config =
false;
1263 RUBY_DTRACE_HOOK(REQUIRE_ENTRY,
RSTRING_PTR(fname));
1268 th->top_wrapper = 0;
1269 if ((state = EC_EXEC_TAG()) == TAG_NONE) {
1273 RUBY_DTRACE_HOOK(FIND_REQUIRE_ENTRY,
RSTRING_PTR(fname));
1274 found = search_required(th->vm, path, &saved_path, rb_feature_p);
1275 RUBY_DTRACE_HOOK(FIND_REQUIRE_RETURN,
RSTRING_PTR(fname));
1279 if (!path || !(ftptr = load_lock(th->vm,
RSTRING_PTR(path), warn))) {
1283 result = TAG_RETURN;
1285 else if (found ==
's' && run_static_ext_init(th->vm,
RSTRING_PTR(path))) {
1286 result = TAG_RETURN;
1289 realpath = realpath_internal_cached(realpath_map, path)))) {
1295 load_iseq_eval(saved.ec, path);
1299 reset_ext_config =
true;
1300 ext_config_push(th, &prev_ext_config);
1301 handle = rb_vm_call_cfunc(rb_vm_top_self(), load_ext,
1302 path, VM_BLOCK_HANDLER_NONE, path);
1306 result = TAG_RETURN;
1314 th2->top_self = saved.self;
1315 th2->top_wrapper = saved.wrapper;
1316 if (reset_ext_config) ext_config_pop(th2, &prev_ext_config);
1319 if (ftptr) load_unlock(th2->vm,
RSTRING_PTR(path), !state);
1322 if (state == TAG_FATAL || state == TAG_THROW) {
1323 EC_JUMP_TAG(ec, state);
1325 else if (exception) {
1328 VALUE exc = rb_vm_make_jump_tag_but_local_jump(state,
Qundef);
1329 if (!
NIL_P(exc)) ec->errinfo = exc;
1332 else if (state == TAG_RETURN) {
1339 if (!
NIL_P(ec->errinfo)) {
1340 if (!exception)
return TAG_RAISE;
1344 if (result == TAG_RETURN) {
1345 rb_provide_feature(th2->vm, path);
1346 VALUE real = realpath;
1348 real = rb_fstring(real);
1352 ec->errinfo = saved.errinfo;
1354 RUBY_DTRACE_HOOK(REQUIRE_RETURN,
RSTRING_PTR(fname));
1360 rb_require_internal_silent(
VALUE fname)
1363 return require_internal(ec, fname, 1,
false);
1367 rb_require_internal(
VALUE fname)
1374 ruby_require_internal(
const char *fname,
unsigned int len)
1377 VALUE str = rb_setup_fake_str(&fake, fname,
len, 0);
1381 return result == TAG_RETURN ? 1 : result ? -1 : 0;
1387 return rb_require_string_internal(
FilePathValue(fname),
false);
1391 rb_require_string_internal(
VALUE fname,
bool resurrect)
1396 if (!rb_ractor_main_p()) {
1398 return rb_ractor_require(fname);
1403 if (result > TAG_RETURN) {
1404 EC_JUMP_TAG(ec, result);
1411 return RBOOL(result);
1419 VALUE str = rb_setup_fake_str(&fake, fname, strlen(fname), 0);
1420 return rb_require_string_internal(str,
true);
1424 register_init_ext(st_data_t *key, st_data_t *value, st_data_t init,
int existing)
1426 const char *name = (
char *)*key;
1429 rb_warn(
"%s is already registered", name);
1432 *value = (st_data_t)init;
1441 ruby_init_ext(
const char *name,
void (*init)(
void))
1446 if (feature_provided(vm, name, 0))
1449 inits_table = vm->static_ext_inits;
1451 inits_table = st_init_strtable();
1452 vm->static_ext_inits = inits_table;
1454 st_update(inits_table, (st_data_t)name, register_init_ext, (st_data_t)init);
1481 rb_autoload_str(mod,
id, file);
1512 rb_mod_autoload_p(
int argc,
VALUE *argv,
VALUE mod)
1515 VALUE sym = argv[0];
1521 return rb_autoload_at_p(mod,
id, recur);
1546 return rb_mod_autoload(klass, sym, file);
1573 rb_f_autoload_p(
int argc,
VALUE *argv,
VALUE obj)
1576 VALUE klass = rb_vm_cbase();
1580 return rb_mod_autoload_p(argc, argv, klass);
1592 resolved = rb_resolve_feature_path((
VALUE)NULL, fname_str);
1593 if (
NIL_P(resolved)) {
1594 ext = strrchr(fname,
'.');
1595 if (!ext || !IS_SOEXT(ext)) {
1598 if (rb_feature_p(GET_VM(), fname, 0, FALSE, FALSE, 0)) {
1599 return dln_symbol(NULL, symbol);
1608 if (
NIL_P(handle)) {
1611 return dln_symbol((
void *)NUM2SVALUE(handle), symbol);
1618 static const char var_load_path[] =
"$:";
1619 ID id_load_path =
rb_intern2(var_load_path,
sizeof(var_load_path)-1);
1627 vm->load_path_check_cache = 0;
1634 vm->loaded_features_index = st_init_numtable();
1648 ruby_dln_libmap = rb_hash_new_with_size(0);
1649 rb_vm_register_global_object(ruby_dln_libmap);
#define RUBY_ASSERT(...)
Asserts that the given expression is truthy if and only if RUBY_DEBUG is truthy.
#define rb_define_singleton_method(klass, mid, func, arity)
Defines klass.mid.
void rb_extend_object(VALUE obj, VALUE module)
Extend the object with the module.
VALUE rb_module_new(void)
Creates a new, anonymous module.
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.
void rb_define_method(VALUE klass, const char *name, VALUE(*func)(ANYARGS), int argc)
Defines a method.
void rb_define_global_function(const char *name, VALUE(*func)(ANYARGS), int argc)
Defines a global function.
#define rb_str_new2
Old name of rb_str_new_cstr.
#define T_STRING
Old name of RUBY_T_STRING.
#define xfree
Old name of ruby_xfree.
#define Qundef
Old name of RUBY_Qundef.
#define INT2FIX
Old name of RB_INT2FIX.
#define OBJ_FROZEN
Old name of RB_OBJ_FROZEN.
#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 T_FIXNUM
Old name of RUBY_T_FIXNUM.
#define T_MODULE
Old name of RUBY_T_MODULE.
#define Qtrue
Old name of RUBY_Qtrue.
#define Qnil
Old name of RUBY_Qnil.
#define Qfalse
Old name of RUBY_Qfalse.
#define FIX2LONG
Old name of RB_FIX2LONG.
#define NIL_P
Old name of RB_NIL_P.
#define FIXNUM_P
Old name of RB_FIXNUM_P.
void rb_raise(VALUE exc, const char *fmt,...)
Exception entry point.
void rb_exc_raise(VALUE mesg)
Raises an exception in the current thread.
void rb_set_errinfo(VALUE err)
Sets the current exception ($!) to the given value.
#define ruby_verbose
This variable controls whether the interpreter is in debug mode.
VALUE rb_eTypeError
TypeError exception.
VALUE rb_eRuntimeError
RuntimeError exception.
void rb_warn(const char *fmt,...)
Identical to rb_warning(), except it reports unless $VERBOSE is nil.
void rb_loaderror(const char *fmt,...)
Raises an instance of rb_eLoadError.
void rb_warning(const char *fmt,...)
Issues a warning.
VALUE rb_obj_hide(VALUE obj)
Make the object invisible from Ruby code.
VALUE rb_cModule
Module class.
VALUE rb_class_real(VALUE klass)
Finds a "real" class.
VALUE rb_obj_clone(VALUE obj)
Produces a shallow copy of the given object.
VALUE rb_ary_shared_with_p(VALUE lhs, VALUE rhs)
Queries if the passed two arrays share the same backend storage.
VALUE rb_ary_dup(VALUE ary)
Duplicates an array.
VALUE rb_ary_replace(VALUE copy, VALUE orig)
Replaces the contents of the former object with the contents of the latter.
VALUE rb_ary_new(void)
Allocates a new, empty array.
VALUE rb_ary_hidden_new(long capa)
Allocates a hidden (no class) empty array.
VALUE rb_ary_clear(VALUE ary)
Destructively removes everything form an array.
VALUE rb_ary_push(VALUE ary, VALUE elem)
Special case of rb_ary_cat() that it adds only one element.
VALUE rb_ary_freeze(VALUE obj)
Freeze an array, preventing further modifications.
VALUE rb_ary_new_from_args(long n,...)
Constructs an array from the passed objects.
VALUE rb_ary_entry(VALUE ary, long off)
Queries an element of an array.
void rb_ary_store(VALUE ary, long key, VALUE val)
Destructively stores the passed value to the passed array's passed index.
static int rb_check_arity(int argc, int min, int max)
Ensures that the passed integer is in the passed range.
void rb_jump_tag(int state)
This function is to re-throw global escapes.
VALUE rb_find_file(VALUE path)
Identical to rb_find_file_ext(), except it takes a feature name and is extension at once,...
VALUE rb_str_encode_ospath(VALUE path)
Converts a string into an "OS Path" encoding, if any.
int rb_is_absolute_path(const char *path)
Queries if the given path is an absolute path.
int rb_find_file_ext(VALUE *feature, const char *const *exts)
Resolves a feature's path.
VALUE rb_file_dirname(VALUE fname)
Strips a file path's last component (and trailing separators if any).
VALUE rb_file_absolute_path(VALUE fname, VALUE dname)
Maps a relative path to its absolute representation.
VALUE rb_hash_aref(VALUE hash, VALUE key)
Queries the given key in the given hash table.
VALUE rb_hash_aset(VALUE hash, VALUE key, VALUE val)
Inserts or replaces ("upsert"s) the objects into the given hash table.
VALUE rb_hash_lookup(VALUE hash, VALUE key)
Identical to rb_hash_aref(), except it always returns RUBY_Qnil for misshits.
VALUE rb_hash_dup(VALUE hash)
Duplicates a hash.
VALUE rb_hash_clear(VALUE hash)
Swipes everything out of the passed hash table.
VALUE rb_hash_new(void)
Creates a new, empty hash object.
void * rb_ext_resolve_symbol(const char *feature, const char *symbol)
Resolves and returns a symbol of a function in the native extension specified by the feature and symb...
void rb_provide(const char *feature)
Declares that the given feature is already provided by someone else.
VALUE rb_f_require(VALUE self, VALUE feature)
Identical to rb_require_string(), except it ignores the first argument for no reason.
void rb_ext_ractor_safe(bool flag)
Asserts that the extension library that calls this function is aware of Ractor.
VALUE rb_require_string(VALUE feature)
Finds and loads the given feature, if absent.
int rb_feature_provided(const char *feature, const char **loading)
Identical to rb_provided(), except it additionally returns the "canonical" name of the loaded feature...
void rb_load_protect(VALUE path, int wrap, int *state)
Identical to rb_load(), except it avoids potential global escapes.
int rb_provided(const char *feature)
Queries if the given feature has already been loaded into the execution context.
void rb_load(VALUE path, int wrap)
Loads and executes the Ruby program in the given file.
VALUE rb_str_append(VALUE dst, VALUE src)
Identical to rb_str_buf_append(), except it converts the right hand side before concatenating.
VALUE rb_str_tmp_new(long len)
Allocates a "temporary" string.
VALUE rb_str_subseq(VALUE str, long beg, long len)
Identical to rb_str_substr(), except the numbers are interpreted as byte offsets instead of character...
VALUE rb_str_cat2(VALUE, const char *)
Just another name of rb_str_cat_cstr.
VALUE rb_str_dup(VALUE str)
Duplicates a string.
VALUE rb_str_resurrect(VALUE str)
I guess there is no use case of this function in extension libraries, but this is a routine identical...
VALUE rb_filesystem_str_new_cstr(const char *ptr)
Identical to rb_filesystem_str_new(), except it assumes the passed pointer is a pointer to a C string...
VALUE rb_str_equal(VALUE str1, VALUE str2)
Equality of two strings.
#define rb_strlen_lit(str)
Length of a string literal.
VALUE rb_str_freeze(VALUE str)
This is the implementation of String#freeze.
VALUE rb_str_new_cstr(const char *ptr)
Identical to rb_str_new(), except it assumes the passed pointer is a pointer to a C string.
VALUE rb_str_resize(VALUE str, long len)
Overwrites the length of the string.
VALUE rb_str_cat_cstr(VALUE dst, const char *src)
Identical to rb_str_cat(), except it assumes the passed pointer is a pointer to a C string.
void rb_alias_variable(ID dst, ID src)
Aliases a global variable.
ID rb_intern2(const char *name, long len)
Identical to rb_intern(), except it additionally takes the length of the string.
static ID rb_intern_const(const char *str)
This is a "tiny optimisation" over rb_intern().
ID rb_check_id(volatile VALUE *namep)
Detects if the given name is already interned or not.
ID rb_intern(const char *name)
Finds or creates a symbol of the given name.
ID rb_to_id(VALUE str)
Identical to rb_intern(), except it takes an instance of rb_cString.
rb_gvar_setter_t rb_gvar_readonly_setter
This function just raises rb_eNameError.
void rb_define_virtual_variable(const char *name, rb_gvar_getter_t *getter, rb_gvar_setter_t *setter)
Defines a global variable that is purely function-backended.
void rb_define_hooked_variable(const char *name, VALUE *var, rb_gvar_getter_t *getter, rb_gvar_setter_t *setter)
Identical to rb_define_virtual_variable(), but can also specify a storage.
char * ptr
Pointer to the underlying memory region, of at least capa bytes.
int len
Length of the buffer.
char * ruby_strdup(const char *str)
This is our own version of strdup(3) that uses ruby_xmalloc() instead of system malloc (benefits our ...
#define MEMCPY(p1, p2, type, n)
Handy macro to call memcpy.
#define RB_GC_GUARD(v)
Prevents premature destruction of local objects.
#define MEMMOVE(p1, p2, type, n)
Handy macro to call memmove.
VALUE type(ANYARGS)
ANYARGS-ed function type.
int st_foreach(st_table *q, int_type *w, st_data_t e)
Iteration over the given table.
#define RARRAY_LEN
Just another name of rb_array_len.
#define RARRAY_AREF(a, i)
#define StringValue(v)
Ensures that the parameter object is a String.
#define StringValuePtr(v)
Identical to StringValue, except it returns a char*.
static char * RSTRING_PTR(VALUE str)
Queries the contents pointer of the string.
static long RSTRING_LEN(VALUE str)
Queries the length of the string.
VALUE rb_get_path(VALUE obj)
Converts an object to a path.
VALUE rb_require(const char *feature)
Identical to rb_require_string(), except it takes C's string instead of Ruby's.
#define FilePathValue(v)
Ensures that the parameter object is a path.
#define RTEST
This is an old name of RB_TEST.
#define _(args)
This was a transition path from K&R to ANSI.
int32_t line
The line within the file that the parse starts on.
pm_scope_node_t node
The resulting scope node that will hold the generated AST.
pm_options_t options
The options that will be passed to the parser.
intptr_t SIGNED_VALUE
A signed integer type that has the same width with VALUE.
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.