[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[dennou-ruby:000968] Re: msgdmp for CDCL
堀之内です。
> > さて、これにより RubyDCL においては、ruby 用のエラーハンドリング
> > 関数で置き換えることで、強制終了の憂き目に合わなくて済むようにな
> > ります。既にそのためのプログラム改訂も行いましたので(というか、
> > 取り替えのテストを RubyDCL で行った)、CDCL のほうがアップデート
> > されれば使えるようになります。後でパッチの形で流します。上記の
> > CDCL の変更を行ったものがリリースされれば、正式に組み込みたいと
> > 思います。
>
> このパッチを添付します。ruby-dcl-1.beta.6 用です。CDCL のほうに
> もパッチを当ないと使えませんので御注意を。
これちょっとまずかったので作り直しました ^^;
さっきのメールはなかったということでお願いします。
*** init.c_old Fri Nov 2 16:04:07 2001
--- init.c Fri Nov 30 22:38:18 2001
***************
*** 58,66 ****
--- 58,86 ----
void init_misc1_randlib(VALUE mDCL);
void init_misc1_timelib(VALUE mDCL);
+ static int ruby_msgdmp_err_func(char *csub, char *cmsg,
+ int csub_len, int cmsg_len)
+ {
+ int lmsg, lsub, i;
+ char msg[300];
+ lsub = lenc_(csub, csub_len);
+ if (lsub > 32) {lsub=32;}
+ lmsg = lenc_(cmsg, cmsg_len);
+ if (lmsg > 200) {lmsg=200;}
+ msg[0]='[';
+ strncpy(msg+1,csub,lsub);
+ msg[lsub+1]=']';
+ msg[lsub+2]=' ';
+ strncpy(msg+lsub+3,cmsg,lmsg);
+ for(i=lsub+3+lmsg;i<300;i++){msg[i]='\0';}
+ rb_raise(rb_eRuntimeError, msg);
+ return(0);
+ }
+
void
Init_dcl()
{
+ set_msgdmp_err_func(ruby_msgdmp_err_func);
mNum = rb_define_module("NumRu");
mDCL = rb_define_module_under(mNum, "DCL");