pyke/, ...: Extract utilities into a sort-of reusable library.

[catacomb-python] / catacomb.c

diff --git a/catacomb.c b/catacomb.c
index b54227f..d98d6ab 100644 (file)
--- a/catacomb.c
+++ b/catacomb.c
@@ -129,6 +129,19 @@ end:
   return (z);
 }
 
+int convmpw(PyObject *o, void *pp)
+{
+  unsigned long u;
+  unsigned *p = pp;
+
+  if (!convulong(o, &u)) goto end;
+  if (u > MPW_MAX) VALERR("out of range");
+  *p = u;
+  return (1);
+end:
+  return (0);
+}
+
 static PyObject *smallprimes(void)
 {
   PyObject *v = PyList_New(NPRIME);