projects
/
egate.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
6b9b577
)
New function w_interp_irtcl_get that returns Tcl interpreter of
author
Adam Dickmeiss
<adam@indexdata.dk>
Thu, 29 Feb 1996 15:40:23 +0000
(15:40 +0000)
committer
Adam Dickmeiss
<adam@indexdata.dk>
Thu, 29 Feb 1996 15:40:23 +0000
(15:40 +0000)
IrTcl interpreter.
www/wirtcl.c
patch
|
blob
|
history
diff --git
a/www/wirtcl.c
b/www/wirtcl.c
index
942abdc
..
6425be9
100644
(file)
--- a/
www/wirtcl.c
+++ b/
www/wirtcl.c
@@
-41,7
+41,11
@@
* USE OR PERFORMANCE OF THIS SOFTWARE.
*
* $Log: wirtcl.c,v $
* 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
* 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);
}
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;
+}
+