mirror of
				https://github.com/ruby/ruby.git
				synced 2022-11-09 12:17:21 -05: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