Added some initial z39 gateway scripts.

[egate.git] / www / winterp.h

diff --git a/www/winterp.h b/www/winterp.h
index 272446d..fec5d39 100644 (file)
--- a/www/winterp.h
+++ b/www/winterp.h
@@ -41,7 +41,10 @@
  * USE OR PERFORMANCE OF THIS SOFTWARE.
  *
  * $Log: winterp.h,v $
- * Revision 1.1  1995/10/20 14:02:42  adam
+ * 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.
  *
  */
@@ -53,8 +56,8 @@
 
 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);
 } *W_Interp_Type;
 
 typedef struct w_interp {
@@ -62,8 +65,8 @@ 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_name(w) ((w)->ctrl.name)
 
 W_Interp_Type w_interp_tcl;