From e6480a1f2ac7aca4d49749c6ec980cf30ce79794 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 27 Apr 1998 05:38:30 +0000
Subject: tcltklib#invoke

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/v1_1r@191 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tcltklib/tcltklib.c | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

(limited to 'ext')

diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c
index 058fe94042..5f90d25dfe 100644
--- a/ext/tcltklib/tcltklib.c
+++ b/ext/tcltklib/tcltklib.c
@@ -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);
 
-- 
cgit v1.2.3