Arrow gifs.

[egate.git] / www / winterp.h

diff --git a/www/winterp.h b/www/winterp.h
index 1519e48..a963ec7 100644 (file)
--- a/www/winterp.h
+++ b/www/winterp.h
@@ -41,7 +41,11 @@
  * USE OR PERFORMANCE OF THIS SOFTWARE.
  *
  * $Log: winterp.h,v $
- * Revision 1.3  1995/10/27 15:12:07  adam
+ * Revision 1.4  1995/11/06 17:44:22  adam
+ * State reestablised when shell restarts. History of previous
+ * result sets.
+ *
+ * Revision 1.3  1995/10/27  15:12:07  adam
  * IrTcl incorporated in the gateway.
  * Better separation of script types.
  * Z39.50 gateway scripts entered.
@@ -63,6 +67,8 @@ typedef struct w_interp_type {
     char  *name;
     void  *(*create)(WCLIENT wcl, void *args);
     int   (*exec)(const char *fname, char *parms, void *private);
+    int   (*load_state)(char *parms, void *private);
+    int   (*save_state)(char *parms, void *private);
 } *W_Interp_Type;
 
 typedef struct w_interp {
@@ -72,6 +78,8 @@ typedef struct w_interp {
     
 W_Interp w_interp_create (W_Interp_Type type, WCLIENT wcl, void *args);
 #define w_interp_exec(w,f,p) (*(w)->ctrl->exec)((f),(p), (w)->mydata)
+#define w_interp_load_state(w,p) (*(w)->ctrl->save_state)((p), (w)->mydata)
+#define w_interp_save_state(w,p) (*(w)->ctrl->load_state)((p), (w)->mydata)
 #define w_interp_name(w) ((w)->ctrl.name)
 
 #endif