Email gateway obeys 'Reply-To:' in header.
[egate.git] / www / winterp.h
index 272446d..d69ede1 100644 (file)
  * USE OR PERFORMANCE OF THIS SOFTWARE.
  *
  * $Log: winterp.h,v $
- * Revision 1.1  1995/10/20 14:02:42  adam
+ * Revision 1.5  1996/02/29 15:39:01  adam
+ * Bug fix: load_state macro invoked save_state method and vice versa!
+ *
+ * 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.
+ *
+ * Revision 1.2  1995/10/23  16:55:39  adam
+ * A lot of changes - really.
+ *
+ * Revision 1.1  1995/10/20  14:02:42  adam
  * First version of WWW gateway with embedded Tcl.
  *
  */
 
 typedef struct w_interp_type {
     char  *name;
-    void  *(*create)(void *args);
-    int   (*exec)(WCLIENT wcl, const char *fname, char *parms, void *private);
+    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 {
@@ -62,11 +79,12 @@ typedef struct w_interp {
     W_Interp_Type ctrl;
 } *W_Interp;
     
-W_Interp w_interp_create (W_Interp_Type type, void *args);
-#define w_interp_exec(w,c,f,p) (*(w)->ctrl->exec)((c),(f),(p), (w)->mydata)
+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->load_state)((p), (w)->mydata)
+#define w_interp_save_state(w,p) (*(w)->ctrl->save_state)((p), (w)->mydata)
 #define w_interp_name(w) ((w)->ctrl.name)
 
-W_Interp_Type w_interp_tcl;
-W_Interp_Type w_interp_html;
+void wshmain (int argc, char **argv, W_Interp_Type w_interp_type);
 
 #endif