New function zwait that waits for a variable change - due to i/o events

[egate.git] / www / wtcl.c

diff --git a/www/wtcl.c b/www/wtcl.c
index 5255b66..bd63995 100644 (file)
--- a/www/wtcl.c
+++ b/www/wtcl.c
@@ -41,7 +41,11 @@
  * USE OR PERFORMANCE OF THIS SOFTWARE.
  *
  * $Log: wtcl.c,v $
- * Revision 1.4  1995/10/27 17:30:16  adam
+ * Revision 1.5  1995/10/30 17:35:18  adam
+ * New function zwait that waits for a variable change - due to i/o events
+ * that invoke callback routines.
+ *
+ * Revision 1.4  1995/10/27  17:30:16  adam
  * First search request/response that works.
  *
  * Revision 1.3  1995/10/27  15:12:14  adam
@@ -216,7 +220,7 @@ static int tcl_exec (const char *fname, char *parms,
         {
             report_error (p, *lineno, "Error in Tcl script starting at line",
                                       "Unexpected EOF (missing right brace)");
-            return -1;
+            return TCL_ERROR;
         }
         if (c == '\\')
             escape = 1;
@@ -246,7 +250,7 @@ static int tcl_exec (const char *fname, char *parms,
                       "Error in Tcl script in line", 
                       Tcl_GetVar (p->interp, "errorInfo", 0));
     (*lineno) += local_line;
-    return 0;
+    return r;
 }
 
 static int do_exec (const char *fname, char *parms, void *mydata)
@@ -273,7 +277,13 @@ static int do_exec (const char *fname, char *parms, void *mydata)
                 wo_putc (p->wcl, c);
             else
             {
-                if (tcl_exec (fname, parms, p, inf, &lineno))
+                int r = tcl_exec (fname, parms, p, inf, &lineno);
+                if (r == TCL_RETURN)
+                {
+                    fclose (inf);
+                    return 0;
+                }
+                else if (r == TCL_ERROR)
                 {
                     fclose (inf);
                     return -2;