kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

tcltklib#invoke

Browse source 
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/v1_1r@191 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
matz 1998-04-27 05:38:30 +00:00
parent 5691e6ab1f
commit e6480a1f2a
1 changed files with 34 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

34
ext/tcltklib/tcltklib.c
View file

@ -205,6 +205,39 @@ ip_eval(VALUE self, VALUE str)
return(str_new2(ptr->ip->result));
}
static VALUE
ip_invoke(int argc, VALUE *argv, VALUE obj)
{
struct tcltkip *ptr; /* tcltkip data struct */
int i;
Tcl_CmdInfo info;
char **av;
/* get the data struct */
Data_Get_Struct(obj, struct tcltkip, ptr);
av = (char **)ALLOCA_N(char **, argc+1);
for (i = 0; i < argc; ++i) {
Check_Type(argv[i], T_STRING);
av[i] = ALLOCA_N(char, RSTRING(argv[i])->len+1);
strcpy(av[i], RSTRING(argv[i])->ptr);
}
av[argc] = NULL;
if (!Tcl_GetCommandInfo(ptr->ip, av[0], &info)) {
NameError("invalid command name `%s'", av[0]);
}
ptr->return_value = (*info.proc)(info.clientData,
ptr->ip, argc, av);
if (ptr->return_value == TCL_ERROR) {
Fail(ptr->ip->result);
}
/* pass back the result (as string) */
return(str_new2(ptr->ip->result));
}
/* get return code from Tcl_Eval() */
static VALUE
ip_retval(VALUE self)
@ -229,6 +262,7 @@ void Init_tcltklib()
rb_define_singleton_method(ip, "new", ip_new, 0);
rb_define_method(ip, "_eval", ip_eval, 1);
rb_define_method(ip, "_invoke", ip_invoke, -1);
rb_define_method(ip, "_return_value", ip_retval, 0);
rb_define_method(ip, "mainloop", lib_mainloop, 0);