mirror of
https://github.com/mruby/mruby
synced 2026-06-08 16:11:16 +00:00
dearblue
cc95e346fd
The `MRB_OBJ_ALLOC()` macro function returns a pointer of the type corresponding to the constant literal defined in `enum mrb_vtype`.
125 lines
3.1 KiB
C
125 lines
3.1 KiB
C
#include <mruby.h>
|
|
#include <mruby/class.h>
|
|
#include <mruby/variable.h>
|
|
#include <mruby/error.h>
|
|
#include <mruby/proc.h>
|
|
#include <mruby/opcode.h>
|
|
#include <mruby/presym.h>
|
|
|
|
|
|
MRB_PRESYM_DEFINE_VAR_AND_INITER(catch_syms_3, 1, MRB_SYM(call))
|
|
static const mrb_code catch_iseq_3[18] = {
|
|
OP_ENTER, 0x00, 0x00, 0x00,
|
|
OP_GETUPVAR, 0x02, 0x02, 0x01,
|
|
OP_GETUPVAR, 0x03, 0x01, 0x01,
|
|
OP_SEND, 0x02, 0x00, 0x01,
|
|
OP_RETURN, 0x02,};
|
|
static const mrb_irep catch_irep_3 = {
|
|
2,5,0,
|
|
MRB_IREP_STATIC,catch_iseq_3,
|
|
NULL,catch_syms_3,NULL,
|
|
NULL,
|
|
NULL,
|
|
18,0,1,0,0
|
|
};
|
|
static const mrb_irep *catch_reps_2[1] = {
|
|
&catch_irep_3,
|
|
};
|
|
static const mrb_code catch_iseq_2[13] = {
|
|
OP_ENTER, 0x00, 0x00, 0x00,
|
|
OP_LAMBDA, 0x02, 0x00,
|
|
OP_SEND, 0x02, 0x00, 0x00,
|
|
OP_RETURN, 0x02,};
|
|
static const mrb_irep catch_irep_2 = {
|
|
2,4,0,
|
|
MRB_IREP_STATIC,catch_iseq_2,
|
|
NULL,catch_syms_3,catch_reps_2,
|
|
NULL,
|
|
NULL,
|
|
13,0,1,1,0
|
|
};
|
|
static const mrb_irep *catch_reps_1[1] = {
|
|
&catch_irep_2,
|
|
};
|
|
MRB_PRESYM_DEFINE_VAR_AND_INITER(catch_syms_1, 3, MRB_SYM(Object), MRB_SYM(new), MRB_SYM(call))
|
|
static const mrb_code catch_iseq_1[29] = {
|
|
OP_ENTER, 0x00, 0x20, 0x01,
|
|
OP_JMP, 0x00, 0x03,
|
|
OP_JMP, 0x00, 0x0a,
|
|
OP_GETCONST, 0x03, 0x00,
|
|
OP_SEND, 0x03, 0x01, 0x00,
|
|
OP_MOVE, 0x01, 0x03,
|
|
OP_LAMBDA, 0x03, 0x00,
|
|
OP_SEND, 0x03, 0x02, 0x00,
|
|
OP_RETURN, 0x03,};
|
|
static const mrb_irep catch_irep = {
|
|
3,5,0,
|
|
MRB_IREP_STATIC,catch_iseq_1,
|
|
NULL,catch_syms_1,catch_reps_1,
|
|
NULL,
|
|
NULL,
|
|
29,0,3,1,0
|
|
};
|
|
|
|
static const struct RProc catch_proc = {
|
|
NULL, NULL, MRB_TT_PROC, MRB_GC_RED, MRB_FL_OBJ_IS_FROZEN | MRB_PROC_SCOPE | MRB_PROC_STRICT,
|
|
{ &catch_irep }, NULL, { NULL }
|
|
};
|
|
|
|
static const mrb_callinfo *
|
|
find_catcher(mrb_state *mrb, mrb_value tag)
|
|
{
|
|
const mrb_callinfo *ci = mrb->c->ci;
|
|
size_t n = ci - mrb->c->cibase;
|
|
ci--;
|
|
for (; n > 0; n--, ci--) {
|
|
const mrb_value *arg1 = ci->stack + 1;
|
|
if (ci->proc == &catch_proc && mrb_obj_eq(mrb, *arg1, tag)) {
|
|
return ci;
|
|
}
|
|
}
|
|
|
|
return NULL;
|
|
}
|
|
|
|
static mrb_value
|
|
mrb_f_throw(mrb_state *mrb, mrb_value self)
|
|
{
|
|
mrb_value tag, obj;
|
|
if (mrb_get_args(mrb, "o|o", &tag, &obj) == 1) {
|
|
obj = mrb_nil_value();
|
|
}
|
|
|
|
const mrb_callinfo *ci = find_catcher(mrb, tag);
|
|
if (ci) {
|
|
struct RBreak *b = MRB_OBJ_ALLOC(mrb, MRB_TT_BREAK, NULL);
|
|
mrb_break_value_set(b, obj);
|
|
mrb_break_proc_set(b, ci[2].proc); /* Back to the closure in `catch` method */
|
|
mrb_exc_raise(mrb, mrb_obj_value(b));
|
|
}
|
|
else {
|
|
mrb_value argv[2] = {tag, obj};
|
|
mrb_exc_raise(mrb, mrb_obj_new(mrb, mrb_exc_get_id(mrb, MRB_ERROR_SYM(UncaughtThrowError)), 2, argv));
|
|
}
|
|
/* not reached */
|
|
return mrb_nil_value();
|
|
}
|
|
|
|
void
|
|
mrb_mruby_catch_gem_init(mrb_state *mrb)
|
|
{
|
|
mrb_method_t m;
|
|
|
|
MRB_PRESYM_INIT_SYMBOLS(mrb, catch_syms_3);
|
|
MRB_PRESYM_INIT_SYMBOLS(mrb, catch_syms_1);
|
|
MRB_METHOD_FROM_PROC(m, &catch_proc);
|
|
mrb_define_method_raw(mrb, mrb->kernel_module, MRB_SYM(catch), m);
|
|
|
|
mrb_define_method(mrb, mrb->kernel_module, "throw", mrb_f_throw, MRB_ARGS_ARG(1,1));
|
|
}
|
|
|
|
void
|
|
mrb_mruby_catch_gem_final(mrb_state *mrb)
|
|
{
|
|
}
|