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"
22 static VALUE ruby_dln_libmap;
24 #define IS_RBEXT(e) (strcmp((e), ".rb") == 0)
25 #define IS_SOEXT(e) (strcmp((e), ".so") == 0 || strcmp((e), ".o") == 0)
26 #define IS_DLEXT(e) (strcmp((e), DLEXT) == 0)
28 #if SIZEOF_VALUE <= SIZEOF_LONG
29 # define SVALUE2NUM(x) LONG2NUM((long)(x))
30 # define NUM2SVALUE(x) (SIGNED_VALUE)NUM2LONG(x)
31 #elif SIZEOF_VALUE <= SIZEOF_LONG_LONG
32 # define SVALUE2NUM(x) LL2NUM((LONG_LONG)(x))
33 # define NUM2SVALUE(x) (SIGNED_VALUE)NUM2LL(x)
35 # error Need integer for VALUE
43 static const char *
const loadable_ext[] = {
48 static const char *
const ruby_ext[] = {
66 rb_construct_expanded_load_path(
rb_vm_t *vm,
enum expand_type
type,
int *has_relative,
int *has_non_cache)
68 VALUE load_path = vm->load_path;
69 VALUE expanded_load_path = vm->expanded_load_path;
75 VALUE path, as_str, expanded_path;
76 int is_string, non_cache;
80 non_cache = !is_string ? 1 : 0;
81 as_str = rb_get_path_check_to_string(path);
85 if ((
type == EXPAND_RELATIVE &&
87 (
type == EXPAND_HOME &&
88 (!as_cstr[0] || as_cstr[0] !=
'~')) ||
89 (
type == EXPAND_NON_CACHE)) {
97 if (!*has_non_cache && non_cache)
102 as_str = rb_get_path_check_convert(as_str);
103 expanded_path = rb_check_realpath(
Qnil, as_str, NULL);
104 if (
NIL_P(expanded_path)) expanded_path = as_str;
108 vm->expanded_load_path = ary;
113 get_expanded_load_path(
rb_vm_t *vm)
119 int has_relative = 0, has_non_cache = 0;
120 rb_construct_expanded_load_path(vm, EXPAND_ALL, &has_relative, &has_non_cache);
122 vm->load_path_check_cache = rb_dir_getwd_ospath();
124 else if (has_non_cache) {
126 vm->load_path_check_cache = non_cache;
129 vm->load_path_check_cache = 0;
132 else if (vm->load_path_check_cache == non_cache) {
133 int has_relative = 1, has_non_cache = 1;
135 rb_construct_expanded_load_path(vm, EXPAND_NON_CACHE,
136 &has_relative, &has_non_cache);
138 else if (vm->load_path_check_cache) {
139 int has_relative = 1, has_non_cache = 1;
140 VALUE cwd = rb_dir_getwd_ospath();
144 vm->load_path_check_cache = cwd;
145 rb_construct_expanded_load_path(vm, EXPAND_RELATIVE,
146 &has_relative, &has_non_cache);
150 rb_construct_expanded_load_path(vm, EXPAND_HOME,
151 &has_relative, &has_non_cache);
154 return vm->expanded_load_path;
158 rb_get_expanded_load_path(
void)
160 return get_expanded_load_path(GET_VM());
164 load_path_getter(
ID id,
VALUE * p)
167 return vm->load_path;
171 get_loaded_features(
rb_vm_t *vm)
173 return vm->loaded_features;
177 get_loaded_features_realpaths(
rb_vm_t *vm)
179 return vm->loaded_features_realpaths;
183 get_loaded_features_realpath_map(
rb_vm_t *vm)
185 return vm->loaded_features_realpath_map;
189 get_LOADED_FEATURES(
ID _x,
VALUE *_y)
191 return get_loaded_features(GET_VM());
195 reset_loaded_features_snapshot(
rb_vm_t *vm)
197 rb_ary_replace(vm->loaded_features_snapshot, vm->loaded_features);
201 get_loaded_features_index_raw(
rb_vm_t *vm)
203 return vm->loaded_features_index;
209 return vm->loading_table;
213 feature_key(
const char *str,
size_t len)
215 return st_hash(str,
len, 0xfea7009e);
219 is_rbext_path(
VALUE feature_path)
223 if (
len <= rbext_len)
return false;
227 typedef rb_darray(
long) feature_indexes_t;
229 struct features_index_add_single_args {
236 features_index_add_single_callback(st_data_t *key, st_data_t *value, st_data_t raw_args,
int existing)
238 struct features_index_add_single_args *args = (
struct features_index_add_single_args *)raw_args;
240 VALUE offset = args->offset;
244 VALUE this_feature_index = *value;
247 VALUE loaded_features = get_loaded_features(vm);
250 feature_indexes_t feature_indexes;
251 rb_darray_make(&feature_indexes, 2);
252 int top = (rb && !is_rbext_path(this_feature_path)) ? 1 : 0;
253 rb_darray_set(feature_indexes, top^0,
FIX2LONG(this_feature_index));
254 rb_darray_set(feature_indexes, top^1,
FIX2LONG(offset));
260 *value = (st_data_t)feature_indexes;
263 feature_indexes_t feature_indexes = (feature_indexes_t)this_feature_index;
267 VALUE loaded_features = get_loaded_features(vm);
268 for (
size_t i = 0; i < rb_darray_size(feature_indexes); ++i) {
269 long idx = rb_darray_get(feature_indexes, i);
272 if (!is_rbext_path(this_feature_path)) {
279 rb_darray_append(&feature_indexes,
FIX2LONG(offset));
281 *value = (st_data_t)feature_indexes;
284 long *
ptr = rb_darray_data_ptr(feature_indexes);
285 long len = rb_darray_size(feature_indexes);
299 features_index_add_single(
rb_vm_t *vm,
const char* str,
size_t len,
VALUE offset,
bool rb)
302 st_data_t short_feature_key;
305 short_feature_key = feature_key(str,
len);
307 features_index = get_loaded_features_index_raw(vm);
309 struct features_index_add_single_args args = {
315 st_update(features_index, short_feature_key, features_index_add_single_callback, (st_data_t)&args);
329 const char *feature_str, *feature_end, *ext, *p;
335 for (ext = feature_end; ext > feature_str; ext--)
336 if (*ext ==
'.' || *ext ==
'/')
345 p = ext ? ext : feature_end;
348 while (p >= feature_str && *p !=
'/')
353 features_index_add_single(vm, p + 1, feature_end - p - 1, offset,
false);
355 features_index_add_single(vm, p + 1, ext - p - 1, offset, rb);
358 features_index_add_single(vm, feature_str, feature_end - feature_str, offset,
false);
360 features_index_add_single(vm, feature_str, ext - feature_str, offset, rb);
365 loaded_features_index_clear_i(st_data_t key, st_data_t val, st_data_t arg)
369 rb_darray_free((
void *)obj);
375 rb_free_loaded_features_index(
rb_vm_t *vm)
377 st_foreach(vm->loaded_features_index, loaded_features_index_clear_i, 0);
378 st_free_table(vm->loaded_features_index);
382 get_loaded_features_index(
rb_vm_t *vm)
390 st_foreach(vm->loaded_features_index, loaded_features_index_clear_i, 0);
392 VALUE realpaths = vm->loaded_features_realpaths;
393 VALUE realpath_map = vm->loaded_features_realpath_map;
397 features = vm->loaded_features;
402 as_str = rb_fstring(as_str);
405 features_index_add(vm, as_str,
INT2FIX(i));
407 reset_loaded_features_snapshot(vm);
409 features =
rb_ary_dup(vm->loaded_features_snapshot);
411 for (i = 0; i < j; i++) {
414 if (
NIL_P(realpath)) {
415 realpath = rb_check_realpath(
Qnil, as_str, NULL);
416 if (
NIL_P(realpath)) realpath = as_str;
417 realpath = rb_fstring(realpath);
423 return vm->loaded_features_index;
438 loaded_feature_path(
const char *name,
long vlen,
const char *feature,
long len,
445 if (vlen <
len+1)
return 0;
446 if (strchr(feature,
'.') && !strncmp(name+(vlen-
len), feature,
len)) {
450 for (e = name + vlen; name != e && *e !=
'.' && *e !=
'/'; --e);
453 strncmp(e-
len, feature,
len))
455 plen = e - name -
len;
457 if (plen > 0 && name[plen-1] !=
'/') {
460 if (
type ==
's' ? !IS_DLEXT(&name[plen+
len]) :
461 type ==
'r' ? !IS_RBEXT(&name[plen+
len]) :
468 if (plen > 0) --plen;
474 if (n != plen)
continue;
475 if (n && strncmp(name, s, n))
continue;
490 loaded_feature_path_i(st_data_t v, st_data_t b, st_data_t f)
492 const char *s = (
const char *)v;
494 VALUE p = loaded_feature_path(s, strlen(s), fp->name, fp->len,
495 fp->type, fp->load_path);
496 if (!p)
return ST_CONTINUE;
508 rb_feature_p(
rb_vm_t *vm,
const char *feature,
const char *ext,
int rb,
int expanded,
const char **fn)
510 VALUE features, this_feature_index =
Qnil, v, p, load_path = 0;
512 long i,
len, elen, n;
513 st_table *loading_tbl, *features_index;
521 len = strlen(feature) - elen;
522 type = rb ?
'r' :
's';
525 len = strlen(feature);
529 features = get_loaded_features(vm);
530 features_index = get_loaded_features_index(vm);
532 key = feature_key(feature, strlen(feature));
559 if (st_lookup(features_index, key, &data) && !
NIL_P(this_feature_index = (
VALUE)data)) {
560 for (
size_t i = 0; ; i++) {
564 index =
FIX2LONG(this_feature_index);
567 feature_indexes_t feature_indexes = (feature_indexes_t)this_feature_index;
568 if (i >= rb_darray_size(feature_indexes))
break;
569 index = rb_darray_get(feature_indexes, i);
575 if (strncmp(f, feature,
len) != 0) {
576 if (expanded)
continue;
577 if (!load_path) load_path = get_expanded_load_path(vm);
578 if (!(p = loaded_feature_path(f, n, feature,
len,
type, load_path)))
583 if (!*(e = f +
len)) {
587 if (*e !=
'.')
continue;
588 if ((!rb || !ext) && (IS_SOEXT(e) || IS_DLEXT(e))) {
591 if ((rb || !ext) && (IS_RBEXT(e))) {
597 loading_tbl = get_loading_table(vm);
604 fs.load_path = load_path ? load_path : get_expanded_load_path(vm);
606 st_foreach(loading_tbl, loaded_feature_path_i, (st_data_t)&fs);
607 if ((f = fs.result) != 0) {
612 if (st_get_key(loading_tbl, (st_data_t)feature, &data)) {
613 if (fn) *fn = (
const char*)data;
619 static const char so_ext[][4] = {
623 if (ext && *ext)
return 0;
627 for (i = 0; (e = loadable_ext[i]) != 0; i++) {
628 strlcpy(buf +
len, e, DLEXT_MAXLEN + 1);
629 if (st_get_key(loading_tbl, (st_data_t)buf, &data)) {
631 if (fn) *fn = (
const char*)data;
632 return i ?
's' :
'r';
635 for (i = 0; i < numberof(so_ext); i++) {
636 strlcpy(buf +
len, so_ext[i], DLEXT_MAXLEN + 1);
637 if (st_get_key(loading_tbl, (st_data_t)buf, &data)) {
639 if (fn) *fn = (
const char*)data;
648 if (!ext)
return 'u';
649 return !IS_RBEXT(ext) ?
's' :
'r';
659 feature_provided(
rb_vm_t *vm,
const char *feature,
const char **loading)
661 const char *ext = strrchr(feature,
'.');
664 if (*feature ==
'.' &&
665 (feature[1] ==
'/' || strncmp(feature+1,
"./", 2) == 0)) {
669 if (ext && !strchr(ext,
'/')) {
671 if (rb_feature_p(vm, feature, ext, TRUE, FALSE, loading))
return TRUE;
674 else if (IS_SOEXT(ext) || IS_DLEXT(ext)) {
675 if (rb_feature_p(vm, feature, ext, FALSE, FALSE, loading))
return TRUE;
679 if (rb_feature_p(vm, feature, 0, TRUE, FALSE, loading))
688 return feature_provided(GET_VM(), feature, loading);
696 features = get_loaded_features(vm);
699 "$LOADED_FEATURES is frozen; cannot append feature");
701 feature = rb_fstring(feature);
703 get_loaded_features_index(vm);
710 reset_loaded_features_snapshot(vm);
716 rb_provide_feature(GET_VM(), rb_fstring_cstr(feature));
719 NORETURN(
static void load_failed(
VALUE));
722 realpath_internal_cached(
VALUE hash,
VALUE path)
729 VALUE realpath = rb_realpath_internal(
Qnil, path, 1);
730 rb_hash_aset(hash, rb_fstring(path), rb_fstring(realpath));
737 const rb_iseq_t *iseq = rb_iseq_load_iseq(fname);
741 VALUE v = rb_vm_push_frame_fname(ec, fname);
744 VALUE realpath_map = get_loaded_features_realpath_map(th->vm);
746 if (rb_ruby_prism_p()) {
749 result.
node.coverage_enabled = 1;
751 VALUE error = pm_load_parse_file(&result, fname, NULL);
754 iseq = pm_iseq_new_top(&result.
node, rb_fstring_lit(
"<top (required)>"), fname, realpath_internal_cached(realpath_map, fname), NULL);
755 pm_parse_result_free(&result);
760 pm_parse_result_free(&result);
767 VALUE parser = rb_parser_new();
768 rb_parser_set_context(parser, NULL, FALSE);
769 ast_value = rb_parser_load_file(parser, fname);
770 ast = rb_ruby_ast_data_get(ast_value);
772 iseq = rb_iseq_new_top(ast_value, rb_fstring_lit(
"<top (required)>"),
773 fname, realpath_internal_cached(realpath_map, fname), NULL);
780 rb_exec_event_hook_script_compiled(ec, iseq,
Qnil);
784 static inline enum ruby_tag_type
787 enum ruby_tag_type state;
789 volatile VALUE wrapper = th->top_wrapper;
790 volatile VALUE self = th->top_self;
791 #if !defined __GNUC__
799 th->top_wrapper = load_wrapper;
803 state = EC_EXEC_TAG();
804 if (state == TAG_NONE) {
805 load_iseq_eval(ec, fname);
809 #if !defined __GNUC__
814 th->top_wrapper = wrapper;
822 rb_vm_jump_tag_but_local_jump(state);
825 if (!
NIL_P(ec->errinfo)) {
834 enum ruby_tag_type state = TAG_NONE;
839 state = load_wrapping(ec, fname, wrap);
842 load_iseq_eval(ec, fname);
844 raise_load_if_failed(ec, state);
851 if (!tmp) load_failed(fname);
852 rb_load_internal(tmp, RBOOL(wrap));
858 enum ruby_tag_type state;
860 EC_PUSH_TAG(GET_EC());
861 if ((state = EC_EXEC_TAG()) == TAG_NONE) {
866 if (state != TAG_NONE) *pstate = state;
902 VALUE fname, wrap, path, orig_fname;
906 orig_fname = rb_get_path_check_to_string(fname);
908 RUBY_DTRACE_HOOK(LOAD_ENTRY,
RSTRING_PTR(orig_fname));
913 load_failed(orig_fname);
916 rb_load_internal(path, wrap);
918 RUBY_DTRACE_HOOK(LOAD_RETURN,
RSTRING_PTR(orig_fname));
924 load_lock(
rb_vm_t *vm,
const char *ftptr,
bool warn)
927 st_table *loading_tbl = get_loading_table(vm);
929 if (!st_lookup(loading_tbl, (st_data_t)ftptr, &data)) {
932 data = (st_data_t)rb_thread_shield_new();
933 st_insert(loading_tbl, (st_data_t)ftptr, data);
934 return (
char *)ftptr;
937 if (warn && rb_thread_shield_owned((
VALUE)data)) {
938 VALUE warning = rb_warning_string(
"loading in progress, circular require considered harmful - %s", ftptr);
942 switch (rb_thread_shield_wait((
VALUE)data)) {
947 return (
char *)ftptr;
951 release_thread_shield(st_data_t *key, st_data_t *value, st_data_t done,
int existing)
954 if (!existing)
return ST_STOP;
956 rb_thread_shield_destroy(thread_shield);
960 else if (rb_thread_shield_release(thread_shield)) {
969 load_unlock(
rb_vm_t *vm,
const char *ftptr,
int done)
972 st_data_t key = (st_data_t)ftptr;
973 st_table *loading_tbl = get_loading_table(vm);
975 st_update(loading_tbl, key, release_thread_shield, done);
979 static VALUE rb_require_string_internal(
VALUE fname,
bool resurrect);
1034 rb_f_require_relative(
VALUE obj,
VALUE fname)
1036 VALUE base = rb_current_realfilepath();
1044 typedef int (*feature_func)(
rb_vm_t *vm,
const char *feature,
const char *ext,
int rb,
int expanded,
const char **fn);
1047 search_required(
rb_vm_t *vm,
VALUE fname,
volatile VALUE *path, feature_func rb_feature_p)
1052 const char *loading;
1056 if (ext && !strchr(ext,
'/')) {
1057 if (IS_RBEXT(ext)) {
1058 if (rb_feature_p(vm, ftptr, ext, TRUE, FALSE, &loading)) {
1064 if (!rb_feature_p(vm, ftptr, ext, TRUE, TRUE, &loading) || loading)
1070 else if (IS_SOEXT(ext)) {
1071 if (rb_feature_p(vm, ftptr, ext, FALSE, FALSE, &loading)) {
1080 if (!rb_feature_p(vm, ftptr, ext, FALSE, TRUE, &loading) || loading)
1085 else if (IS_DLEXT(ext)) {
1086 if (rb_feature_p(vm, ftptr, ext, FALSE, FALSE, &loading)) {
1092 if (!rb_feature_p(vm, ftptr, ext, FALSE, TRUE, &loading) || loading)
1098 else if ((ft = rb_feature_p(vm, ftptr, 0, FALSE, FALSE, &loading)) ==
'r') {
1107 if (!ft &&
type != loadable_ext_rb && vm->static_ext_inits) {
1108 VALUE lookup_name = tmp;
1117 if (st_lookup(vm->static_ext_inits, (st_data_t)ftptr, NULL)) {
1126 goto feature_present;
1128 return rb_feature_p(vm, ftptr, 0, FALSE, TRUE, 0);
1132 goto feature_present;
1135 case loadable_ext_rb:
1137 if (rb_feature_p(vm, ftptr, ext,
type == loadable_ext_rb, TRUE, &loading) && !loading)
1141 return type > loadable_ext_rb ?
's' :
'r';
1149 load_failed(
VALUE fname)
1151 rb_load_fail(fname,
"cannot load such file");
1155 load_ext(
VALUE path)
1157 rb_scope_visibility_set(METHOD_VISI_PUBLIC);
1162 run_static_ext_init(
rb_vm_t *vm,
const char *feature)
1164 st_data_t key = (st_data_t)feature;
1165 st_data_t init_func;
1167 if (vm->static_ext_inits && st_delete(vm->static_ext_inits, &key, &init_func)) {
1168 ((void (*)(void))init_func)();
1175 no_feature_p(
rb_vm_t *vm,
const char *feature,
const char *ext,
int rb,
int expanded,
const char **fn)
1182 rb_resolve_feature_path(
VALUE klass,
VALUE fname)
1190 found = search_required(GET_VM(), path, &path, no_feature_p);
1209 *prev = th->ext_config;
1216 th->ext_config = *prev;
1222 GET_THREAD()->ext_config.ractor_safe = flag;
1235 volatile int result = -1;
1237 volatile const struct {
1238 VALUE wrapper,
self, errinfo;
1241 th->top_wrapper, th->top_self, ec->errinfo,
1244 enum ruby_tag_type state;
1245 char *
volatile ftptr = 0;
1247 volatile VALUE saved_path;
1248 volatile VALUE realpath = 0;
1249 VALUE realpaths = get_loaded_features_realpaths(th->vm);
1250 VALUE realpath_map = get_loaded_features_realpath_map(th->vm);
1251 volatile bool reset_ext_config =
false;
1255 RUBY_DTRACE_HOOK(REQUIRE_ENTRY,
RSTRING_PTR(fname));
1260 th->top_wrapper = 0;
1261 if ((state = EC_EXEC_TAG()) == TAG_NONE) {
1265 RUBY_DTRACE_HOOK(FIND_REQUIRE_ENTRY,
RSTRING_PTR(fname));
1266 found = search_required(th->vm, path, &saved_path, rb_feature_p);
1267 RUBY_DTRACE_HOOK(FIND_REQUIRE_RETURN,
RSTRING_PTR(fname));
1271 if (!path || !(ftptr = load_lock(th->vm,
RSTRING_PTR(path), warn))) {
1275 result = TAG_RETURN;
1277 else if (found ==
's' && run_static_ext_init(th->vm,
RSTRING_PTR(path))) {
1278 result = TAG_RETURN;
1281 realpath = realpath_internal_cached(realpath_map, path)))) {
1287 load_iseq_eval(saved.ec, path);
1291 reset_ext_config =
true;
1292 ext_config_push(th, &prev_ext_config);
1293 handle = rb_vm_call_cfunc(rb_vm_top_self(), load_ext,
1294 path, VM_BLOCK_HANDLER_NONE, path);
1298 result = TAG_RETURN;
1306 th2->top_self = saved.self;
1307 th2->top_wrapper = saved.wrapper;
1308 if (reset_ext_config) ext_config_pop(th2, &prev_ext_config);
1311 if (ftptr) load_unlock(th2->vm,
RSTRING_PTR(path), !state);
1314 if (state == TAG_FATAL || state == TAG_THROW) {
1315 EC_JUMP_TAG(ec, state);
1317 else if (exception) {
1320 VALUE exc = rb_vm_make_jump_tag_but_local_jump(state,
Qundef);
1321 if (!
NIL_P(exc)) ec->errinfo = exc;
1324 else if (state == TAG_RETURN) {
1331 if (!
NIL_P(ec->errinfo)) {
1332 if (!exception)
return TAG_RAISE;
1336 if (result == TAG_RETURN) {
1337 rb_provide_feature(th2->vm, path);
1338 VALUE real = realpath;
1340 real = rb_fstring(real);
1344 ec->errinfo = saved.errinfo;
1346 RUBY_DTRACE_HOOK(REQUIRE_RETURN,
RSTRING_PTR(fname));
1352 rb_require_internal_silent(
VALUE fname)
1355 return require_internal(ec, fname, 1,
false);
1359 rb_require_internal(
VALUE fname)
1366 ruby_require_internal(
const char *fname,
unsigned int len)
1369 VALUE str = rb_setup_fake_str(&fake, fname,
len, 0);
1373 return result == TAG_RETURN ? 1 : result ? -1 : 0;
1379 return rb_require_string_internal(
FilePathValue(fname),
false);
1383 rb_require_string_internal(
VALUE fname,
bool resurrect)
1388 if (result > TAG_RETURN) {
1389 EC_JUMP_TAG(ec, result);
1396 return RBOOL(result);
1403 VALUE str = rb_setup_fake_str(&fake, fname, strlen(fname), 0);
1404 return rb_require_string_internal(str,
true);
1408 register_init_ext(st_data_t *key, st_data_t *value, st_data_t init,
int existing)
1410 const char *name = (
char *)*key;
1413 rb_warn(
"%s is already registered", name);
1416 *value = (st_data_t)init;
1425 ruby_init_ext(
const char *name,
void (*init)(
void))
1430 if (feature_provided(vm, name, 0))
1433 inits_table = vm->static_ext_inits;
1435 inits_table = st_init_strtable();
1436 vm->static_ext_inits = inits_table;
1438 st_update(inits_table, (st_data_t)name, register_init_ext, (st_data_t)init);
1465 rb_autoload_str(mod,
id, file);
1496 rb_mod_autoload_p(
int argc,
VALUE *argv,
VALUE mod)
1499 VALUE sym = argv[0];
1505 return rb_autoload_at_p(mod,
id, recur);
1530 return rb_mod_autoload(klass, sym, file);
1557 rb_f_autoload_p(
int argc,
VALUE *argv,
VALUE obj)
1560 VALUE klass = rb_vm_cbase();
1564 return rb_mod_autoload_p(argc, argv, klass);
1576 resolved = rb_resolve_feature_path((
VALUE)NULL, fname_str);
1577 if (
NIL_P(resolved)) {
1578 ext = strrchr(fname,
'.');
1579 if (!ext || !IS_SOEXT(ext)) {
1582 if (rb_feature_p(GET_VM(), fname, 0, FALSE, FALSE, 0)) {
1583 return dln_symbol(NULL, symbol);
1592 if (
NIL_P(handle)) {
1595 return dln_symbol((
void *)NUM2SVALUE(handle), symbol);
1602 static const char var_load_path[] =
"$:";
1603 ID id_load_path =
rb_intern2(var_load_path,
sizeof(var_load_path)-1);
1611 vm->load_path_check_cache = 0;
1618 vm->loaded_features_index = st_init_numtable();
1632 ruby_dln_libmap = rb_hash_new_with_size(0);
1633 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.
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.