State reestablised when shell restarts. History of previous

[egate.git] / www / wirtcl.c

diff --git a/www/wirtcl.c b/www/wirtcl.c
index e85af44..672ca70 100644 (file)
--- a/www/wirtcl.c
+++ b/www/wirtcl.c
@@ -41,7 +41,11 @@
  * USE OR PERFORMANCE OF THIS SOFTWARE.
  *
  * $Log: wirtcl.c,v $
- * Revision 1.7  1995/11/02 16:35:37  adam
+ * Revision 1.8  1995/11/06 17:44:22  adam
+ * State reestablised when shell restarts. History of previous
+ * result sets.
+ *
+ * Revision 1.7  1995/11/02  16:35:37  adam
  * Bug fixes and select on FIFOs in wcgi - doesn't really work!
  *
  * Revision 1.6  1995/11/01  16:15:47  adam
@@ -86,11 +90,15 @@
 
 static void *do_create (WCLIENT wcl, void *args);
 static int do_exec (const char *fname, char *parms, void *mydata);
+static int do_load (char *parms, void *mydata);
+static int do_save (char *parms, void *mydata);
 
 static struct w_interp_type w_interp_t = {
     "irtcl",
     do_create,
-    do_exec
+    do_exec,
+    do_load,
+    do_save
 };
 
 W_Interp_Type w_interp_irtcl = &w_interp_t;
@@ -310,3 +318,18 @@ void ir_select_remove (int fd, void *obj)
     callback_table[fd].w_handle = NULL;
     callback_table[fd].x_handle = NULL;
 }
+
+static int do_load (char *parms, void *mydata)
+{
+    struct tcl_info *p = mydata;
+
+    return w_interp_load_state (p->w_interp, parms);
+}
+
+static int do_save (char *parms, void *mydata)
+{
+    struct tcl_info *p = mydata;
+
+    return w_interp_save_state (p->w_interp, parms);
+}
+