Ruby
2.7.2p137(2020-10-01revision5445e0435260b449decf2ac16f9d09bae3cafe72)
|
Go to the documentation of this file. 1 #ifndef RUBY_EVAL_INTERN_H
2 #define RUBY_EVAL_INTERN_H
22 #define PASS_PASSED_BLOCK_HANDLER_EC(ec) pass_passed_block_handler(ec)
23 #define PASS_PASSED_BLOCK_HANDLER() pass_passed_block_handler(GET_EC())
29 #define EXIT_SUCCESS 0
32 #define EXIT_FAILURE 1
39 # ifdef HAVE_CRT_EXTERNS_H
54 #ifdef HAVE_NET_SOCKET_H
55 #include <net/socket.h>
58 #define ruby_setjmp(env) RUBY_SETJMP(env)
59 #define ruby_longjmp(env,val) RUBY_LONGJMP((env),(val))
69 #include <sys/types.h>
73 #ifdef HAVE_SYS_SELECT_H
74 #include <sys/select.h>
83 #ifdef HAVE_SELECT_LARGE_FDSET
84 #define select(n, r, w, e, t) select_large_fdset((n), (r), (w), (e), (t))
88 #ifdef HAVE_SYS_PARAM_H
89 #include <sys/param.h>
95 #define SAVE_ROOT_JMPBUF_BEFORE_STMT \
97 #define SAVE_ROOT_JMPBUF_AFTER_STMT \
99 __except (GetExceptionCode() == EXCEPTION_STACK_OVERFLOW ? \
100 (rb_ec_raised_set(GET_EC(), RAISED_STACKOVERFLOW), \
102 EXCEPTION_EXECUTE_HANDLER) : \
103 EXCEPTION_CONTINUE_SEARCH) { \
106 #elif defined(__MINGW32__)
107 LONG WINAPI rb_w32_stack_overflow_handler(
struct _EXCEPTION_POINTERS *);
108 #define SAVE_ROOT_JMPBUF_BEFORE_STMT \
110 PVOID _handler = AddVectoredExceptionHandler(1, rb_w32_stack_overflow_handler);
112 #define SAVE_ROOT_JMPBUF_AFTER_STMT \
113 RemoveVectoredExceptionHandler(_handler); \
116 #define SAVE_ROOT_JMPBUF_BEFORE_STMT
117 #define SAVE_ROOT_JMPBUF_AFTER_STMT
120 #define SAVE_ROOT_JMPBUF(th, stmt) do \
121 if (ruby_setjmp((th)->root_jmpbuf) == 0) { \
122 SAVE_ROOT_JMPBUF_BEFORE_STMT \
124 SAVE_ROOT_JMPBUF_AFTER_STMT \
130 #define EC_PUSH_TAG(ec) do { \
131 rb_execution_context_t * const _ec = (ec); \
132 struct rb_vm_tag _tag; \
133 _tag.state = TAG_NONE; \
135 _tag.prev = _ec->tag;
137 #define EC_POP_TAG() \
138 _ec->tag = _tag.prev; \
141 #define EC_TMPPOP_TAG() \
144 #define EC_REPUSH_TAG() (void)(_ec->tag = &_tag)
146 #if defined __GNUC__ && __GNUC__ == 4 && (__GNUC_MINOR__ >= 6 && __GNUC_MINOR__ <= 8) || __clang__
151 # define VAR_FROM_MEMORY(var) __extension__(*(__typeof__(var) volatile *)&(var))
152 # define VAR_INITIALIZED(var) ((var) = VAR_FROM_MEMORY(var))
153 # define VAR_NOCLOBBERED(var) volatile var
155 # define VAR_FROM_MEMORY(var) (var)
156 # define VAR_INITIALIZED(var) ((void)&(var))
157 # define VAR_NOCLOBBERED(var) var
181 #define EC_EXEC_TAG() \
182 (ruby_setjmp(_tag.buf) ? rb_ec_tag_state(VAR_FROM_MEMORY(_ec)) : (EC_REPUSH_TAG(), 0))
184 #define EC_JUMP_TAG(ec, st) rb_ec_tag_jump(ec, st)
186 #define INTERNAL_EXCEPTION_P(exc) FIXNUM_P(exc)
190 #define CREF_FL_PUSHED_BY_EVAL IMEMO_FL_USER1
191 #define CREF_FL_OMOD_SHARED IMEMO_FL_USER2
224 CREF_PUSHED_BY_EVAL(
const rb_cref_t *cref)
258 #define rb_ec_raised_set(ec, f) ((ec)->raised_flag |= (f))
259 #define rb_ec_raised_reset(ec, f) ((ec)->raised_flag &= ~(f))
260 #define rb_ec_raised_p(ec, f) (((ec)->raised_flag & (f)) != 0)
261 #define rb_ec_raised_clear(ec) ((ec)->raised_flag = 0)
294 # define CharNext(p) ((p) + mblen((p), RUBY_MBCHAR_MAXSIZE))
296 # define CharNext(p) ((p) + 1)
300 #if defined DOSISH || defined __CYGWIN__
302 translit_char(
char *p,
int from,
int to)
305 if ((
unsigned char)*p == from)
VALUE rb_f_eval(int argc, const VALUE *argv, VALUE self)
void rb_vm_jump_tag_but_local_jump(int state)
void rb_print_undef(VALUE klass, ID id, rb_method_visibility_t visi)
void rb_method_name_error(VALUE klass, VALUE str)
NORETURN(static inline void rb_ec_tag_jump(const rb_execution_context_t *ec, enum ruby_tag_type st))
rb_cref_t * rb_vm_cref_replace_with_duplicated_cref(void)
VALUE rb_make_exception(int argc, const VALUE *argv)
Make an Exception object from the list of arguments in a manner similar to Kernel#raise.
int rb_ec_stack_check(rb_execution_context_t *ec)
rb_cref_t * rb_vm_cref(void)
#define ruby_longjmp(env, val)
void rb_fiber_start(void)
VALUE rb_vm_frame_block_handler(const rb_control_frame_t *cfp)
const rb_scope_visibility_t scope_visi
void rb_vm_set_progname(VALUE filename)
VALUE passed_block_handler
void rb_print_inaccessible(VALUE klass, ID id, rb_method_visibility_t visi)
int rb_ec_set_raised(rb_execution_context_t *ec)
#define RB_OBJ_WRITE(a, slot, b)
VALUE rb_vm_make_jump_tag_but_local_jump(int state, VALUE val)
MJIT_FUNC_EXPORTED void rb_vm_localjump_error(const char *mesg, VALUE value, int reason)
#define CREF_FL_PUSHED_BY_EVAL
char * strrchr(const char *, const char)
void rb_print_undef_str(VALUE klass, VALUE name)
VALUE rb_ec_backtrace_str_ary(const rb_execution_context_t *ec, long lev, long n)
VALUE rb_vm_call_cfunc(VALUE recv, VALUE(*func)(VALUE), VALUE arg, VALUE block_handler, VALUE filename)
VALUE rb_ec_backtrace_object(const rb_execution_context_t *ec)
#define CREF_FL_OMOD_SHARED
VALUE rb_ec_backtrace_location_ary(const rb_execution_context_t *ec, long lev, long n)
int rb_ec_reset_raised(rb_execution_context_t *ec)
void rb_thread_terminate_all(void)
struct rb_cref_struct * next