]> granicus.if.org Git - python/commitdiff
Added PyMac_{Get,Build}wide. These should support python longints at
authorJack Jansen <jack.jansen@cwi.nl>
Tue, 21 Apr 1998 15:24:39 +0000 (15:24 +0000)
committerJack Jansen <jack.jansen@cwi.nl>
Tue, 21 Apr 1998 15:24:39 +0000 (15:24 +0000)
some point in the future.

Mac/Python/macglue.c

index 838e27e633c155224a7528d52926f05e0d53d1b5..ac1bbbf6bbdeb597b2cef23cb198b14de4f2a672 100644 (file)
@@ -1175,3 +1175,26 @@ PyMac_BuildFixed(Fixed f)
        return Py_BuildValue("d", d);
 }
 
+/* Convert wide to/from Python int or (hi, lo) tuple. XXXX Should use Python longs */
+int
+PyMac_Getwide(PyObject *v, wide *rv)
+{
+       if (PyInt_Check(v)) {
+               rv->hi = 0;
+               rv->lo = PyInt_AsLong(v);
+               if( rv->lo & 0x80000000 )
+                       rv->hi = -1;
+               return 1;
+       }
+       return PyArg_Parse(v, "(ll)", &rv->hi, &rv->lo);
+}
+
+
+PyObject *
+PyMac_Buildwide(wide w)
+{
+       if ( (w.hi == 0 && (w.lo & 0x80000000) == 0) ||
+            (w.hi == -1 && (w.lo & 0x80000000) ) )
+               return PyInt_FromLong(w.lo);
+       return Py_BuildValue("(ll)", w.hi, w.lo);
+}