diff options
Diffstat (limited to 'ext/tkutil/tkutil.c')
-rw-r--r-- | ext/tkutil/tkutil.c | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/ext/tkutil/tkutil.c b/ext/tkutil/tkutil.c new file mode 100644 index 0000000000..2b74b254c2 --- /dev/null +++ b/ext/tkutil/tkutil.c @@ -0,0 +1,54 @@ +/************************************************ + + tk.c - + + $Author: matz $ + $Date: 1995/11/03 00:47:55 $ + created at: Fri Nov 3 00:47:54 JST 1995 + +************************************************/ + +#include "ruby.h" + +static VALUE +tk_eval_cmd(argc, argv) + int argc; + VALUE argv[]; +{ + VALUE cmd, rest; + + rb_scan_args(argc, argv, "1*", &cmd, &rest); + rb_eval_cmd(cmd, rest); + return Qnil; +} + +static VALUE +tk_yield(obj) + VALUE obj; +{ + rb_yield_0(obj, obj); +} + +static VALUE +tk_s_new(argc, argv, class) + int argc; + VALUE *argv; + VALUE class; +{ + VALUE obj = obj_alloc(class); + + rb_funcall2(obj, rb_intern("initialize"), argc, argv); + if (iterator_p()) tk_yield(obj); + return obj; +} + +Init_tkutil() +{ + VALUE mTK = rb_define_module("TkUtil"); + VALUE cTK = rb_define_class("TkKernel", cObject); + + rb_define_const(mTK, "WISH_PATH", str_new2(WISHPATH)); + rb_define_singleton_method(mTK, "eval_cmd", tk_eval_cmd, -1); + + rb_define_singleton_method(cTK, "new", tk_s_new, -1); +} |