X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fwirtcl.c;h=6425be9dc59c1ebae5251d6e3143f6429a4834e8;hb=25db261b6bbbfcc7bc26f679f195b51d31b9d7d7;hp=4828b89acd1e19bc9ed16f6b37079ff91597701c;hpb=53a28f8f2ab30977f9ee2edffe5809fae61d5a4e;p=egate.git

diff --git a/www/wirtcl.c b/www/wirtcl.c
index 4828b89..6425be9 100644
--- a/www/wirtcl.c
+++ b/www/wirtcl.c
@@ -41,7 +41,20 @@
  * USE OR PERFORMANCE OF THIS SOFTWARE.
  *
  * $Log: wirtcl.c,v $
- * Revision 1.12  1996/01/12 10:05:18  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
+ * Resource/config system used by the gateway.
+ *
+ * Revision 1.13  1996/01/24  08:26:54  adam
+ * All tcl commands prefixed with egw_ (except the html command).
+ *
+ * Revision 1.12  1996/01/12  10:05:18  adam
  * If script name ends with ';' HTTP/GET/Expires will be defined.
  * The cgi interface only reads final handshake if response from
  * server (shell) was zero-terminated [If it isn't it probably died].
@@ -128,7 +141,6 @@ struct tcl_info {
     WCLIENT wcl;
 };
 
-
 static int events (struct tcl_info *p, char *waitVar, int tout);
 
 static int proc_zwait_invoke (ClientData clientData, Tcl_Interp *interp,
@@ -141,14 +153,11 @@ static int proc_zwait_invoke (ClientData clientData, Tcl_Interp *interp,
     return events (p, argv[1], (argc == 3) ? atoi(argv[2]) : 0);
 }
 
-
-
-/* select(2) callbacks */
+/* select callbacks */
 struct callback {
-    void (*r_handle)(ClientData);
-    void (*w_handle)(ClientData);
-    void (*x_handle)(ClientData);
-    void *obj;
+    void (*handle)(ClientData, int, int, int);
+    int r, w, e;
+    ClientData obj;
 };
 #define MAX_CALLBACK 200
 
@@ -177,15 +186,11 @@ static void *do_create (WCLIENT wcl, void *args)
         gw_log (GW_LOG_FATAL, mod, "Cannot make Irtcl_Interp");
         exit (1);
     }
-    log_init(LOG_ALL, "irtcl", LOGDIR "/irtcl_log");
+    log_init(LOG_ALL, "irtcl", "irtcl_log");
     /* initialize irtcl */
-    Tcl_CreateCommand (p->interp, "zwait", proc_zwait_invoke, p, NULL);
+    Tcl_CreateCommand (p->interp, "egw_wait", proc_zwait_invoke, p, NULL);
     for (i=0; i<MAX_CALLBACK; i++)
-    {
-        callback_table[i].r_handle = NULL;
-        callback_table[i].w_handle = NULL;
-        callback_table[i].x_handle = NULL;
-    }
+        callback_table[i].handle = NULL;
     return p;
 }
 
@@ -254,17 +259,17 @@ static int events (struct tcl_info *p, char *waitVar, int tout)
         
         for (r=0, i=0; i<=max_fd; i++)
         {
-            if (callback_table[i].w_handle)
+            if (callback_table[i].handle && callback_table[i].w)
             {
                 FD_SET (i, &fdset_tcl_w);
                 r++;
             }
-            if (callback_table[i].r_handle)
+            if (callback_table[i].handle && callback_table[i].r)
             {
                 FD_SET (i, &fdset_tcl_r);
                 r++;
             }
-            if (callback_table[i].x_handle)
+            if (callback_table[i].handle && callback_table[i].e)
             {
                 FD_SET (i, &fdset_tcl_x);
                 r++;
@@ -296,56 +301,39 @@ static int events (struct tcl_info *p, char *waitVar, int tout)
         }
         for (i=0; i<=max_fd; i++)
         {
-            if (FD_ISSET (i, &fdset_tcl_r))
-            {
-                if (callback_table[i].r_handle)
-                    (*callback_table[i].r_handle) (callback_table[i].obj);
-            }
-            if (FD_ISSET (i, &fdset_tcl_w))
-            {
-                if (callback_table[i].w_handle)
-                    (*callback_table[i].w_handle) (callback_table[i].obj);
-            }
-            if (FD_ISSET (i, &fdset_tcl_x))
-            {
-                if (callback_table[i].x_handle)
-                    (*callback_table[i].x_handle) (callback_table[i].obj);
-            }
+            int r_flag = 0;
+            int w_flag = 0;
+            int e_flag = 0;
+
+            if (!callback_table[i].handle)
+                continue;
+            if (FD_ISSET (i, &fdset_tcl_r) && callback_table[i].r)
+                r_flag = 1;
+            if (FD_ISSET (i, &fdset_tcl_w) && callback_table[i].w)
+                w_flag = 1;
+            if (FD_ISSET (i, &fdset_tcl_x) && callback_table[i].e)
+                e_flag = 1;
+            if (r_flag || w_flag || e_flag)
+                (*callback_table[i].handle)(callback_table[i].obj,
+                 r_flag, w_flag, e_flag);
         }
     }
     free (waitVarVal);
     return TCL_OK;
 }
 
-void ir_select_add (int fd, void *obj)
+void ir_tcl_select_set (void (*f)(ClientData clientData, int r, int w, int e),
+                        int fd, ClientData clientData, int r, int w, int e)
 {
-    callback_table[fd].obj = obj;
-    callback_table[fd].r_handle = ir_select_read;
-    callback_table[fd].w_handle = NULL;
-    callback_table[fd].x_handle = NULL;
+    callback_table[fd].handle = f;
+    callback_table[fd].obj = clientData;
+    callback_table[fd].r = r;
+    callback_table[fd].w = w;
+    callback_table[fd].e = e;
     if (fd > max_fd)
         max_fd = fd;
 }
 
-void ir_select_add_write (int fd, void *obj)
-{
-    callback_table[fd].w_handle = ir_select_write;
-    if (fd > max_fd)
-        max_fd = fd;
-}
-
-void ir_select_remove_write (int fd, void *obj)
-{
-    callback_table[fd].w_handle = NULL;
-}
-
-void ir_select_remove (int fd, void *obj)
-{
-    callback_table[fd].r_handle = NULL;
-    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;
@@ -360,3 +348,16 @@ static int do_save (char *parms, void *mydata)
     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;
+}
+