mirror of
https://github.com/ruby/ruby.git
synced 2025-08-26 14:34:39 +02:00
* ext/tcltklib/tcltklib.c: refactoring - extracted status check as function. (tcl_protect)
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@8926 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
ocean
parent
4d11a486ae
commit
21f3b18a88
1 changed files with 56 additions and 142 deletions
|
|
@ -2143,40 +2143,18 @@ TkStringValue(obj)
|
||||||
return rb_funcall(obj, ID_inspect, 0, 0);
|
return rb_funcall(obj, ID_inspect, 0, 0);
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Tcl command `ruby'|`ruby_eval' */
|
|
||||||
static VALUE
|
static VALUE
|
||||||
ip_ruby_eval_rescue(failed, einfo)
|
tcl_protect(proc, data, failed)
|
||||||
|
VALUE (*proc)();
|
||||||
|
VALUE data;
|
||||||
VALUE failed;
|
VALUE failed;
|
||||||
VALUE einfo;
|
|
||||||
{
|
|
||||||
DUMP1("call ip_ruby_eval_rescue");
|
|
||||||
RARRAY(failed)->ptr[0] = einfo;
|
|
||||||
return Qnil;
|
|
||||||
}
|
|
||||||
|
|
||||||
static VALUE
|
|
||||||
ip_ruby_eval_body(arg)
|
|
||||||
struct eval_body_arg *arg;
|
|
||||||
{
|
{
|
||||||
volatile VALUE ret;
|
volatile VALUE ret;
|
||||||
int status = 0;
|
int status = 0;
|
||||||
int thr_crit_bup;
|
int thr_crit_bup = rb_thread_critical;
|
||||||
|
|
||||||
thr_crit_bup = rb_thread_critical;
|
|
||||||
rb_thread_critical = Qtrue;
|
|
||||||
|
|
||||||
DUMP1("call ip_ruby_eval_body");
|
|
||||||
rb_trap_immediate = 0;
|
|
||||||
|
|
||||||
#if 0
|
|
||||||
ret = rb_rescue2(rb_eval_string, (VALUE)arg->string,
|
|
||||||
ip_ruby_eval_rescue, arg->failed,
|
|
||||||
rb_eStandardError, rb_eScriptError, rb_eSystemExit,
|
|
||||||
(VALUE)0);
|
|
||||||
#else
|
|
||||||
|
|
||||||
rb_thread_critical = Qfalse;
|
rb_thread_critical = Qfalse;
|
||||||
ret = rb_eval_string_protect(arg->string, &status);
|
ret = rb_protect(proc, data, &status);
|
||||||
rb_thread_critical = Qtrue;
|
rb_thread_critical = Qtrue;
|
||||||
if (status) {
|
if (status) {
|
||||||
char *errtype, *buf;
|
char *errtype, *buf;
|
||||||
|
|
@ -2197,7 +2175,7 @@ ip_ruby_eval_body(arg)
|
||||||
RSTRING(rb_obj_as_string(ruby_errinfo))->len);
|
RSTRING(rb_obj_as_string(ruby_errinfo))->len);
|
||||||
*(buf + len) = 0;
|
*(buf + len) = 0;
|
||||||
|
|
||||||
RARRAY(arg->failed)->ptr[0] = rb_exc_new2(eTkCallbackReturn, buf);
|
RARRAY(failed)->ptr[0] = rb_exc_new2(eTkCallbackReturn, buf);
|
||||||
free(buf);
|
free(buf);
|
||||||
break;
|
break;
|
||||||
|
|
||||||
|
|
@ -2212,7 +2190,7 @@ ip_ruby_eval_body(arg)
|
||||||
RSTRING(rb_obj_as_string(ruby_errinfo))->len);
|
RSTRING(rb_obj_as_string(ruby_errinfo))->len);
|
||||||
*(buf + len) = 0;
|
*(buf + len) = 0;
|
||||||
|
|
||||||
RARRAY(arg->failed)->ptr[0] = rb_exc_new2(eTkCallbackBreak, buf);
|
RARRAY(failed)->ptr[0] = rb_exc_new2(eTkCallbackBreak, buf);
|
||||||
free(buf);
|
free(buf);
|
||||||
break;
|
break;
|
||||||
|
|
||||||
|
|
@ -2227,49 +2205,49 @@ ip_ruby_eval_body(arg)
|
||||||
RSTRING(rb_obj_as_string(ruby_errinfo))->len);
|
RSTRING(rb_obj_as_string(ruby_errinfo))->len);
|
||||||
*(buf + len) = 0;
|
*(buf + len) = 0;
|
||||||
|
|
||||||
RARRAY(arg->failed)->ptr[0] = rb_exc_new2(eTkCallbackContinue,buf);
|
RARRAY(failed)->ptr[0] = rb_exc_new2(eTkCallbackContinue,buf);
|
||||||
free(buf);
|
free(buf);
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case TAG_RETRY:
|
case TAG_RETRY:
|
||||||
case TAG_REDO:
|
case TAG_REDO:
|
||||||
if (NIL_P(ruby_errinfo)) {
|
if (NIL_P(ruby_errinfo)) {
|
||||||
rb_jump_tag(status);
|
rb_jump_tag(status); /* danger */
|
||||||
} else {
|
} else {
|
||||||
RARRAY(arg->failed)->ptr[0] = ruby_errinfo;
|
RARRAY(failed)->ptr[0] = ruby_errinfo;
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case TAG_RAISE:
|
case TAG_RAISE:
|
||||||
if (NIL_P(ruby_errinfo)) {
|
if (NIL_P(ruby_errinfo)) {
|
||||||
RARRAY(arg->failed)->ptr[0]
|
RARRAY(failed)->ptr[0]
|
||||||
= rb_exc_new2(rb_eException, "unknown exception");
|
= rb_exc_new2(rb_eException, "unknown exception");
|
||||||
} else {
|
} else {
|
||||||
RARRAY(arg->failed)->ptr[0] = ruby_errinfo;
|
RARRAY(failed)->ptr[0] = ruby_errinfo;
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case TAG_FATAL:
|
case TAG_FATAL:
|
||||||
if (NIL_P(ruby_errinfo)) {
|
if (NIL_P(ruby_errinfo)) {
|
||||||
RARRAY(arg->failed)->ptr[0]
|
RARRAY(failed)->ptr[0]
|
||||||
= rb_exc_new2(rb_eFatal, "FATAL");
|
= rb_exc_new2(rb_eFatal, "FATAL");
|
||||||
} else {
|
} else {
|
||||||
RARRAY(arg->failed)->ptr[0] = ruby_errinfo;
|
RARRAY(failed)->ptr[0] = ruby_errinfo;
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case TAG_THROW:
|
case TAG_THROW:
|
||||||
if (NIL_P(ruby_errinfo)) {
|
if (NIL_P(ruby_errinfo)) {
|
||||||
rb_jump_tag(TAG_THROW);
|
rb_jump_tag(TAG_THROW); /* danger */
|
||||||
} else {
|
} else {
|
||||||
RARRAY(arg->failed)->ptr[0] = ruby_errinfo;
|
RARRAY(failed)->ptr[0] = ruby_errinfo;
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
|
|
||||||
default:
|
default:
|
||||||
buf = ALLOC_N(char, 256);
|
buf = ALLOC_N(char, 256);
|
||||||
sprintf(buf, "unknown loncaljmp status %d", status);
|
sprintf(buf, "unknown loncaljmp status %d", status);
|
||||||
RARRAY(arg->failed)->ptr[0] = rb_exc_new2(rb_eException, buf);
|
RARRAY(failed)->ptr[0] = rb_exc_new2(rb_eException, buf);
|
||||||
free(buf);
|
free(buf);
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
|
|
@ -2278,6 +2256,44 @@ ip_ruby_eval_body(arg)
|
||||||
|
|
||||||
ret = Qnil;
|
ret = Qnil;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
rb_thread_critical = thr_crit_bup;
|
||||||
|
|
||||||
|
return ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* Tcl command `ruby'|`ruby_eval' */
|
||||||
|
static VALUE
|
||||||
|
ip_ruby_eval_rescue(failed, einfo)
|
||||||
|
VALUE failed;
|
||||||
|
VALUE einfo;
|
||||||
|
{
|
||||||
|
DUMP1("call ip_ruby_eval_rescue");
|
||||||
|
RARRAY(failed)->ptr[0] = einfo;
|
||||||
|
return Qnil;
|
||||||
|
}
|
||||||
|
|
||||||
|
static VALUE
|
||||||
|
ip_ruby_eval_body(arg)
|
||||||
|
struct eval_body_arg *arg;
|
||||||
|
{
|
||||||
|
volatile VALUE ret;
|
||||||
|
int thr_crit_bup;
|
||||||
|
|
||||||
|
thr_crit_bup = rb_thread_critical;
|
||||||
|
rb_thread_critical = Qtrue;
|
||||||
|
|
||||||
|
DUMP1("call ip_ruby_eval_body");
|
||||||
|
rb_trap_immediate = 0;
|
||||||
|
|
||||||
|
#if 0
|
||||||
|
ret = rb_rescue2(rb_eval_string, (VALUE)arg->string,
|
||||||
|
ip_ruby_eval_rescue, arg->failed,
|
||||||
|
rb_eStandardError, rb_eScriptError, rb_eSystemExit,
|
||||||
|
(VALUE)0);
|
||||||
|
#else
|
||||||
|
ret = tcl_protect(rb_eval_string, (VALUE)arg->string, arg->failed);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
rb_thread_critical = thr_crit_bup;
|
rb_thread_critical = thr_crit_bup;
|
||||||
|
|
@ -2540,9 +2556,7 @@ ip_ruby_cmd_body(arg)
|
||||||
struct cmd_body_arg *arg;
|
struct cmd_body_arg *arg;
|
||||||
{
|
{
|
||||||
volatile VALUE ret;
|
volatile VALUE ret;
|
||||||
int status = 0;
|
|
||||||
int thr_crit_bup;
|
int thr_crit_bup;
|
||||||
VALUE old_gc;
|
|
||||||
|
|
||||||
volatile VALUE receiver = arg->receiver;
|
volatile VALUE receiver = arg->receiver;
|
||||||
volatile VALUE args = arg->args;
|
volatile VALUE args = arg->args;
|
||||||
|
|
@ -2560,107 +2574,7 @@ ip_ruby_cmd_body(arg)
|
||||||
rb_eStandardError, rb_eScriptError, rb_eSystemExit,
|
rb_eStandardError, rb_eScriptError, rb_eSystemExit,
|
||||||
(VALUE)0);
|
(VALUE)0);
|
||||||
#else
|
#else
|
||||||
ret = rb_protect(ip_ruby_cmd_core, (VALUE)arg, &status);
|
ret = tcl_protect(ip_ruby_cmd_core, (VALUE)arg, arg->failed);
|
||||||
|
|
||||||
if (status) {
|
|
||||||
char *errtype, *buf;
|
|
||||||
int errtype_len, len;
|
|
||||||
|
|
||||||
old_gc = rb_gc_disable();
|
|
||||||
|
|
||||||
switch(status) {
|
|
||||||
case TAG_RETURN:
|
|
||||||
errtype = "LocalJumpError: ";
|
|
||||||
errtype_len = strlen(errtype);
|
|
||||||
len = errtype_len + RSTRING(rb_obj_as_string(ruby_errinfo))->len;
|
|
||||||
buf = ALLOC_N(char, len + 1);
|
|
||||||
memcpy(buf, errtype, errtype_len);
|
|
||||||
memcpy(buf + errtype_len,
|
|
||||||
RSTRING(rb_obj_as_string(ruby_errinfo))->ptr,
|
|
||||||
RSTRING(rb_obj_as_string(ruby_errinfo))->len);
|
|
||||||
*(buf + len) = 0;
|
|
||||||
|
|
||||||
RARRAY(arg->failed)->ptr[0] = rb_exc_new2(eTkCallbackReturn, buf);
|
|
||||||
free(buf);
|
|
||||||
break;
|
|
||||||
|
|
||||||
case TAG_BREAK:
|
|
||||||
errtype = "LocalJumpError: ";
|
|
||||||
errtype_len = strlen(errtype);
|
|
||||||
len = errtype_len + RSTRING(rb_obj_as_string(ruby_errinfo))->len;
|
|
||||||
buf = ALLOC_N(char, len + 1);
|
|
||||||
memcpy(buf, errtype, errtype_len);
|
|
||||||
memcpy(buf + errtype_len,
|
|
||||||
RSTRING(rb_obj_as_string(ruby_errinfo))->ptr,
|
|
||||||
RSTRING(rb_obj_as_string(ruby_errinfo))->len);
|
|
||||||
*(buf + len) = 0;
|
|
||||||
|
|
||||||
RARRAY(arg->failed)->ptr[0] = rb_exc_new2(eTkCallbackBreak, buf);
|
|
||||||
free(buf);
|
|
||||||
break;
|
|
||||||
|
|
||||||
case TAG_NEXT:
|
|
||||||
errtype = "LocalJumpError: ";
|
|
||||||
errtype_len = strlen(errtype);
|
|
||||||
len = errtype_len + RSTRING(rb_obj_as_string(ruby_errinfo))->len;
|
|
||||||
buf = ALLOC_N(char, len + 1);
|
|
||||||
memcpy(buf, errtype, errtype_len);
|
|
||||||
memcpy(buf + errtype_len,
|
|
||||||
RSTRING(rb_obj_as_string(ruby_errinfo))->ptr,
|
|
||||||
RSTRING(rb_obj_as_string(ruby_errinfo))->len);
|
|
||||||
*(buf + len) = 0;
|
|
||||||
|
|
||||||
RARRAY(arg->failed)->ptr[0] = rb_exc_new2(eTkCallbackContinue,buf);
|
|
||||||
free(buf);
|
|
||||||
break;
|
|
||||||
|
|
||||||
case TAG_RETRY:
|
|
||||||
case TAG_REDO:
|
|
||||||
if (NIL_P(ruby_errinfo)) {
|
|
||||||
rb_jump_tag(status);
|
|
||||||
} else {
|
|
||||||
RARRAY(arg->failed)->ptr[0] = ruby_errinfo;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
|
|
||||||
case TAG_RAISE:
|
|
||||||
if (NIL_P(ruby_errinfo)) {
|
|
||||||
RARRAY(arg->failed)->ptr[0]
|
|
||||||
= rb_exc_new2(rb_eException, "unknown exception");
|
|
||||||
} else {
|
|
||||||
RARRAY(arg->failed)->ptr[0] = ruby_errinfo;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
|
|
||||||
case TAG_FATAL:
|
|
||||||
if (NIL_P(ruby_errinfo)) {
|
|
||||||
RARRAY(arg->failed)->ptr[0]
|
|
||||||
= rb_exc_new2(rb_eFatal, "FATAL");
|
|
||||||
} else {
|
|
||||||
RARRAY(arg->failed)->ptr[0] = ruby_errinfo;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
|
|
||||||
case TAG_THROW:
|
|
||||||
if (NIL_P(ruby_errinfo)) {
|
|
||||||
rb_jump_tag(TAG_THROW);
|
|
||||||
} else {
|
|
||||||
RARRAY(arg->failed)->ptr[0] = ruby_errinfo;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
|
|
||||||
default:
|
|
||||||
buf = ALLOC_N(char, 256);
|
|
||||||
rb_warn(buf, "unknown loncaljmp status %d", status);
|
|
||||||
RARRAY(arg->failed)->ptr[0] = rb_exc_new2(rb_eException, buf);
|
|
||||||
free(buf);
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (old_gc == Qfalse) rb_gc_enable();
|
|
||||||
|
|
||||||
ret = Qnil;
|
|
||||||
}
|
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
rb_thread_critical = thr_crit_bup;
|
rb_thread_critical = thr_crit_bup;
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue