Implement timeouts for receive

1 files changed, 4 insertions, 1 deletions

diff --git a/apl9.h b/apl9.h
index e56014b..bf36f52 100644
--- a/apl9.h
+++ b/apl9.h
@@ -52,6 +52,7 @@ typedef enum
 	ELength = 5,
 	EValue = 6,
 	EDomain = 11,
+	ETimeout = 12, /* not in dyalog */
 	ENotImplemented = 100, /* not in dyalog */
 } errorCodes;
 
@@ -236,10 +237,12 @@ struct ThreadData
 	Mail *mail;
 	Mail *lastmail;
 	int lasterror;
+	int timeout; /* number of milli seconds to timeout */
+	int timedout; /* true if the recv timed out */
 	Rune *lasterrormsg;
 	ErrorGuard *globalerrorguard;
 	QLock lock;
-	Rendez empty;
+	Rendez newmail;
 };
 
 struct Mail