* 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
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;
+}
+