From: Adam Dickmeiss <adam@indexdata.dk>
Date: Fri, 15 Mar 1996 14:43:26 +0000 (+0000)
Subject: Function egw_wait returns 'cancel' if new request is pending (user
X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=ef79fc045cbd835d4cd023186fe3a3bd918d13d7;p=egate.git

Function egw_wait returns 'cancel' if new request is pending (user
has cancelled); or egw_wait returns 'timeout' on timeout.
---

diff --git a/www/wirtcl.c b/www/wirtcl.c
index 6425be9..76e1690 100644
--- a/www/wirtcl.c
+++ b/www/wirtcl.c
@@ -41,7 +41,11 @@
  * USE OR PERFORMANCE OF THIS SOFTWARE.
  *
  * $Log: wirtcl.c,v $
- * Revision 1.16  1996/02/29 15:40:23  adam
+ * Revision 1.17  1996/03/15 14:43:26  adam
+ * Function egw_wait returns 'cancel' if new request is pending (user
+ * has cancelled); or egw_wait returns 'timeout' on timeout.
+ *
+ * Revision 1.16  1996/02/29  15:40:23  adam
  * New function w_interp_irtcl_get that returns Tcl interpreter of
  * IrTcl interpreter.
  *
@@ -290,12 +294,14 @@ static int events (struct tcl_info *p, char *waitVar, int tout)
         if (!r)
         {
             gw_log (GW_LOG_DEBUG, mod, "timeout");
+            p->interp->result = "timeout";
             free (waitVarVal);
             return TCL_ERROR;
         }
         if (FD_ISSET (fifo_in, &fdset_tcl_r))
         {
             gw_log (GW_LOG_DEBUG, mod, "FIFO closed");
+            p->interp->result = "cancel";
             free (waitVarVal);
             return TCL_ERROR;
         }