1 | #include <mruby.h>
|
---|
2 | #include <mruby/throw.h>
|
---|
3 | #include <mruby/error.h>
|
---|
4 |
|
---|
5 | MRB_API mrb_value
|
---|
6 | mrb_protect(mrb_state *mrb, mrb_func_t body, mrb_value data, mrb_bool *state)
|
---|
7 | {
|
---|
8 | struct mrb_jmpbuf *prev_jmp = mrb->jmp;
|
---|
9 | struct mrb_jmpbuf c_jmp;
|
---|
10 | mrb_value result = mrb_nil_value();
|
---|
11 |
|
---|
12 | if (state) { *state = FALSE; }
|
---|
13 |
|
---|
14 | MRB_TRY(&c_jmp) {
|
---|
15 | mrb->jmp = &c_jmp;
|
---|
16 | result = body(mrb, data);
|
---|
17 | mrb->jmp = prev_jmp;
|
---|
18 | } MRB_CATCH(&c_jmp) {
|
---|
19 | mrb->jmp = prev_jmp;
|
---|
20 | result = mrb_obj_value(mrb->exc);
|
---|
21 | mrb->exc = NULL;
|
---|
22 | if (state) { *state = TRUE; }
|
---|
23 | } MRB_END_EXC(&c_jmp);
|
---|
24 |
|
---|
25 | mrb_gc_protect(mrb, result);
|
---|
26 | return result;
|
---|
27 | }
|
---|
28 |
|
---|
29 | MRB_API mrb_value
|
---|
30 | mrb_ensure(mrb_state *mrb, mrb_func_t body, mrb_value b_data, mrb_func_t ensure, mrb_value e_data)
|
---|
31 | {
|
---|
32 | struct mrb_jmpbuf *prev_jmp = mrb->jmp;
|
---|
33 | struct mrb_jmpbuf c_jmp;
|
---|
34 | mrb_value result;
|
---|
35 |
|
---|
36 | MRB_TRY(&c_jmp) {
|
---|
37 | mrb->jmp = &c_jmp;
|
---|
38 | result = body(mrb, b_data);
|
---|
39 | mrb->jmp = prev_jmp;
|
---|
40 | } MRB_CATCH(&c_jmp) {
|
---|
41 | mrb->jmp = prev_jmp;
|
---|
42 | ensure(mrb, e_data);
|
---|
43 | MRB_THROW(mrb->jmp); /* rethrow catched exceptions */
|
---|
44 | } MRB_END_EXC(&c_jmp);
|
---|
45 |
|
---|
46 | ensure(mrb, e_data);
|
---|
47 | mrb_gc_protect(mrb, result);
|
---|
48 | return result;
|
---|
49 | }
|
---|
50 |
|
---|
51 | MRB_API mrb_value
|
---|
52 | mrb_rescue(mrb_state *mrb, mrb_func_t body, mrb_value b_data,
|
---|
53 | mrb_func_t rescue, mrb_value r_data)
|
---|
54 | {
|
---|
55 | return mrb_rescue_exceptions(mrb, body, b_data, rescue, r_data, 1, &mrb->eStandardError_class);
|
---|
56 | }
|
---|
57 |
|
---|
58 | MRB_API mrb_value
|
---|
59 | mrb_rescue_exceptions(mrb_state *mrb, mrb_func_t body, mrb_value b_data, mrb_func_t rescue, mrb_value r_data,
|
---|
60 | mrb_int len, struct RClass **classes)
|
---|
61 | {
|
---|
62 | struct mrb_jmpbuf *prev_jmp = mrb->jmp;
|
---|
63 | struct mrb_jmpbuf c_jmp;
|
---|
64 | mrb_value result;
|
---|
65 | mrb_bool error_matched = FALSE;
|
---|
66 | mrb_int i;
|
---|
67 |
|
---|
68 | MRB_TRY(&c_jmp) {
|
---|
69 | mrb->jmp = &c_jmp;
|
---|
70 | result = body(mrb, b_data);
|
---|
71 | mrb->jmp = prev_jmp;
|
---|
72 | } MRB_CATCH(&c_jmp) {
|
---|
73 | mrb->jmp = prev_jmp;
|
---|
74 |
|
---|
75 | for (i = 0; i < len; ++i) {
|
---|
76 | if (mrb_obj_is_kind_of(mrb, mrb_obj_value(mrb->exc), classes[i])) {
|
---|
77 | error_matched = TRUE;
|
---|
78 | break;
|
---|
79 | }
|
---|
80 | }
|
---|
81 |
|
---|
82 | if (!error_matched) { MRB_THROW(mrb->jmp); }
|
---|
83 |
|
---|
84 | mrb->exc = NULL;
|
---|
85 | result = rescue(mrb, r_data);
|
---|
86 | } MRB_END_EXC(&c_jmp);
|
---|
87 |
|
---|
88 | mrb_gc_protect(mrb, result);
|
---|
89 | return result;
|
---|
90 | }
|
---|
91 |
|
---|
92 | void
|
---|
93 | mrb_mruby_error_gem_init(mrb_state *mrb)
|
---|
94 | {
|
---|
95 | }
|
---|
96 |
|
---|
97 | void
|
---|
98 | mrb_mruby_error_gem_final(mrb_state *mrb)
|
---|
99 | {
|
---|
100 | }
|
---|