From b0a7bc60c7941ddd28b2de318c26b73f0686c8fe Mon Sep 17 00:00:00 2001
From: Adam Dickmeiss <adam@indexdata.dk>
Date: Thu, 29 Feb 1996 15:40:23 +0000
Subject: [PATCH] New function w_interp_irtcl_get that returns Tcl interpreter
 of IrTcl interpreter.

---
 www/wirtcl.c |   19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/www/wirtcl.c b/www/wirtcl.c
index 942abdc..6425be9 100644
--- a/www/wirtcl.c
+++ b/www/wirtcl.c
@@ -41,7 +41,11 @@
  * USE OR PERFORMANCE OF THIS SOFTWARE.
  *
  * $Log: wirtcl.c,v $
- * Revision 1.15  1996/02/21 14:58:01  adam
+ * Revision 1.16  1996/02/29 15:40:23  adam
+ * New function w_interp_irtcl_get that returns Tcl interpreter of
+ * IrTcl interpreter.
+ *
+ * Revision 1.15  1996/02/21  14:58:01  adam
  * Modified to use ir_tcl_select_set.
  *
  * Revision 1.14  1996/02/12  10:10:31  adam
@@ -344,3 +348,16 @@ static int do_save (char *parms, void *mydata)
     return w_interp_save_state (p->w_interp, parms);
 }
 
+Tcl_Interp *w_interp_irtcl_get (W_Interp w_interp)
+{
+    struct tcl_info *p;
+
+    if (strcmp (w_interp->ctrl->name, "irtcl"))
+    {
+        gw_log (GW_LOG_FATAL, mod, "Internal failure");
+        assert (0);
+    }
+    p = (struct tcl_info*) w_interp->mydata;
+    return p->interp;
+}
+
-- 
1.7.10.4