Modified to allow other threads to run in a multithreaded environment.

1 files changed, 27 insertions, 0 deletions

diff --git a/Modules/cstubs b/Modules/cstubs
index 89ac69d..bbb3a10 100644
--- a/Modules/cstubs
+++ b/Modules/cstubs
@@ -25,6 +25,11 @@ Each definition must be contained on one line:
 		N*retval
 */
 
+/*
+ * An attempt has been made to make this module switch threads on qread
+ * calls. It is far from safe, though.
+ */
+
 #include <gl.h>
 #include <device.h>
 
@@ -32,6 +37,7 @@ Each definition must be contained on one line:
 #include "import.h"
 #include "modsupport.h"
 #include "cgensupport.h"
+#include "ceval.h"
 
 /*
 Some stubs are too complicated for the stub generator.
@@ -40,6 +46,27 @@ A line starting with '%' gives the name of the function so the stub
 generator can include it in the table of functions.
 */
 
+% qread
+
+static object *
+gl_qread(self, args)
+	object *self;
+	object *args;
+{
+	long retval;
+	short arg1 ;
+	BGN_SAVE
+	retval = qread( & arg1 );
+	END_SAVE
+	{ object *v = newtupleobject( 2 );
+	  if (v == NULL) return NULL;
+	  settupleitem(v, 0, mknewlongobject(retval));
+	  settupleitem(v, 1, mknewshortobject(arg1));
+	  return v;
+	}
+}
+
+
 /*
 varray -- an array of v.. calls.
 The argument is an array (maybe list or tuple) of points.