mirror of
https://github.com/ruby/ruby.git
synced 2025-09-18 10:03:59 +02:00
remove tkutil
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@519 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
0a64817fb8
commit
fcd020c830
3 changed files with 0 additions and 50 deletions
|
@ -1,3 +0,0 @@
|
||||||
MANIFEST
|
|
||||||
tkutil.c
|
|
||||||
depend
|
|
|
@ -1 +0,0 @@
|
||||||
tkutil.o: tkutil.c $(hdrdir)/ruby.h $(hdrdir)/config.h $(hdrdir)/defines.h
|
|
|
@ -1,46 +0,0 @@
|
||||||
/************************************************
|
|
||||||
|
|
||||||
tk.c -
|
|
||||||
|
|
||||||
$Author$
|
|
||||||
$Date$
|
|
||||||
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_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()) rb_yield_0(obj, obj);
|
|
||||||
return obj;
|
|
||||||
}
|
|
||||||
|
|
||||||
Init_tkutil()
|
|
||||||
{
|
|
||||||
VALUE mTK = rb_define_module("TkUtil");
|
|
||||||
VALUE cTK = rb_define_class("TkKernel", cObject);
|
|
||||||
|
|
||||||
rb_define_singleton_method(mTK, "eval_cmd", tk_eval_cmd, -1);
|
|
||||||
|
|
||||||
rb_define_singleton_method(cTK, "new", tk_s_new, -1);
|
|
||||||
}
|
|
Loading…
Add table
Add a link
Reference in a new issue