Blueprint mpw against mpz routines, abandon signed division fo now.

CVS patchset: 6823
CVS date: 2003/05/07 19:00:42

diff --git a/python/mpw/test/test_methods.py b/python/mpw/test/test_methods.py
index e9fdb4637e50ab5f95eebe1500f6039b35bb2628..686fd78b0a2808b6baff61ae72e301df1af89650 100644 (file)
--- a/python/mpw/test/test_methods.py
+++ b/python/mpw/test/test_methods.py
@@ -47,39 +47,41 @@ class BasicTestCase(unittest.TestCase):
        zb = mpz.mpz(0x0000000000000010)
        zc = mpz.mpz(0x0fedcba000000000)
 
-       print "__hex__:\t", hex(wa), "\t",  hex(za)
-       print "__oct__:\t", oct(wa), "\t",  oct(za)
-
-       print "__int__:\t", mpw.__int__(wb), "\t",  mpz.MPZType.__int__(zb)
-       print "__long__:\t", mpw.__long__(wb), "\t",  mpz.MPZType.__long__(zb)
-       print "__float__:\t", mpw.__float__(wb), "\t",  mpz.MPZType.__float__(zb)
-
-       print "__neg__:\t", hex(mpw.__neg__(wa)), "\t",  hex(mpz.MPZType.__neg__(za))
-       print "__pos__:\t", hex(mpw.__pos__(wa)), "\t",  hex(mpz.MPZType.__pos__(za))
-       print "__abs__:\t", hex(mpw.__abs__(wa)), "\t",  hex(mpz.MPZType.__abs__(za))
-       print "__invert__:\t", hex(mpw.__invert__(wa)), "\t",  hex(mpz.MPZType.__invert__(za))
-
-       print "__add__:\t", hex(mpw.__add__(wa, wb)), "\t",  hex(mpz.MPZType.__add__(za, zb))
-       print "__sub__:\t", hex(mpw.__sub__(wa, wb)), "\t",  hex(mpz.MPZType.__sub__(za, zb))
-       print "__mul__:\t", hex(mpw.__mul__(wa, wb)), "\t",  hex(mpz.MPZType.__mul__(za, zb))
-       print "__div__:\t", hex(mpw.__div__(wa, wb)), "\t",  hex(mpz.MPZType.__div__(za, zb))
-       print "__mod__:\t", hex(mpw.__mod__(wa, wb)), "\t",  hex(mpz.MPZType.__mod__(za, zb))
-       wq, wr = mpw.__divmod__(wa, wb)
-       zq, zr = mpz.MPZType.__divmod__(za, zb)
-       print "__divmod__ q:\t", hex(wq), "\t",  hex(zq)
-       print "__divmod__ r:\t", hex(wr), "\t",  hex(zr)
-
-       print "__pow__:\t", hex(mpw.__pow__(wb, wb)), "\t",  hex(mpz.MPZType.__pow__(zb, zb))
-
-       print "__lshift__:\t", hex(mpw.__lshift__(wa, wb)), "\t",  hex(mpz.MPZType.__lshift__(za, zb))
-       print "__rshift__:\t", hex(mpw.__rshift__(wa, wb)), "\t",  hex(mpz.MPZType.__rshift__(za, zb))
-       print "__and__:\t", hex(mpw.__and__(wa, wc)), "\t",  hex(mpz.MPZType.__and__(za, zc))
-       print "__xor__:\t", hex(mpw.__xor__(wa, wa)), "\t",  hex(mpz.MPZType.__xor__(za, za))
-       print "__or__:\t", hex(mpw.__or__(wa, wc)), "\t",  hex(mpz.MPZType.__or__(za, zc))
+       print "__int__:\t", int(wb), "\t",  int(zb)
+       print "__long__:\t", long(wb), "\t",  long(zb)
+       print "__float__:\t", float(wb), "\t",  float(zb)
+
+       zs = hex(za)
+       zs = zs[4:len(zs)-1]
+       print "__hex__:\t", hex(wa), "\t", zs
+       zs = oct(za)
+       zs = zs[4:len(zs)-1]
+       print "__oct__:\t", oct(wa), "\t", zs
+
+       print "__neg__:\t", (-wa), "\t",  long(-za)
+       print "__pos__:\t", (+wa), "\t",  long(mpz.MPZType.__pos__(za))
+       print "__abs__:\t", abs(wa), "\t",  long(abs(za))
+       print "__invert__:\t", (~wa), "\t",  long(~za)
+
+       print "__add__:\t", (wa + wb), "\t",  long(za + zb)
+       print "__sub__:\t", (wa - wb), "\t",  long(za - zb)
+       print "__mul__:\t", (wa * wb), "\t",  long(za * zb)
+       print "__div__:\t", (wa / wb), "\t",  long(za / zb)
+       print "__mod__:\t", (wa % wb), "\t",  long(za % zb)
+       wq, wr = divmod(wa, wb)
+       zq, zr = divmod(za, zb)
+       print "__divmod__ q:\t", wq, "\t",  long(zq)
+       print "__divmod__ r:\t", wr, "\t",  long(zr)
+
+       print "__pow__:\t", (wb ** wb), "\t",  long(zb ** zb)
+
+       print "__lshift__:\t", (wa << wb), "\t",  long(za << zb)
+       print "__rshift__:\t", (wa >> wb), "\t",  long(za >> zb)
+       print "__and__:\t", (wa & wc), "\t",  long(za & zc)
+       print "__xor__:\t", (wa ^ wa), "\t",  long(za ^ za)
+       print "__or__:\t", (wa | wc), "\t",  long(za | zc)
 
 #      print mpw.__complex__(b)
-#      print mpw.__oct__(a*b)
-#      print mpw.__hex__(a*b)
 #      print mpw.__coerce__(b, i)
 
        del wa

diff --git a/python/rpmmpw-py.c b/python/rpmmpw-py.c
index 8a149d7f819a874c6f8210eef04278e289faf761..77689f242676fb458e74c327fb711481d29ccbf8 100644 (file)
--- a/python/rpmmpw-py.c
+++ b/python/rpmmpw-py.c
@@ -21,7 +21,7 @@
 static int _mpw_debug = 0;
 
 /*@unchecked@*/ /*@observer@*/
-static const char initialiser_name[] = "mpz";
+static const char *initialiser_name = "";
 
 /*@unchecked@*/ /*@observer@*/
 static const struct {
@@ -408,7 +408,7 @@ fprintf(stderr, "    z %p[%d]:\t", zdata, asize+1), mpfprintln(stderr, asize+1,
 }
 
 static PyObject *
-mpw_format(mpwObject * z, size_t zbase, int withname)
+mpw_format(mpwObject * z, size_t zbase, int addL)
 {
     PyStringObject * so;
     size_t i;
@@ -426,14 +426,13 @@ mpw_format(mpwObject * z, size_t zbase, int withname)
     }
 
 if (_mpw_debug < -1)
-fprintf(stderr, "*** mpw_format(%p,%d,%d):\t", z, zbase, withname), mpfprintln(stderr, z->n.size, z->n.data);
+fprintf(stderr, "*** mpw_format(%p,%d,%d):\t", z, zbase, addL), mpfprintln(stderr, z->n.size, z->n.data);
 
     assert(zbase >= 2 && zbase <= 36);
 
-    if (withname)
+    i = 0;
+    if (addL && initialiser_name != NULL)
        i = strlen(initialiser_name) + 2; /* e.g. 'mpw(' + ')' */
-    else
-       i = 0;
 
     zsign = mpmsbset(z->n.size, z->n.data);
     nt = mpbitcnt(z->n.size, z->n.data);
@@ -454,7 +453,7 @@ fprintf(stderr, "*** mpw_format(%p,%d,%d):\t", z, zbase, withname), mpfprintln(s
        zdata = z->n.data + (z->n.size - zsize);
     }
 
-    if (withname && zsize > 1)
+    if (addL && zsize > 1)
        i++;    /* space for 'L' suffix */
 
     nt = mpsizeinbase(zsize, zdata, zbase);
@@ -484,7 +483,7 @@ fprintf(stderr, "*** mpw_format(%p,%d,%d):\t", z, zbase, withname), mpfprintln(s
 
     /* get the beginning of the string memory and start copying things */
     te = PyString_AS_STRING(so);
-    if (withname) {
+    if (addL && initialiser_name != NULL && *initialiser_name != '\0') {
        te = stpcpy(te, initialiser_name);
        *te++ = '('; /*')'*/
     }
@@ -508,10 +507,11 @@ fprintf(stderr, "*** mpw_format(%p,%d,%d):\t", z, zbase, withname), mpfprintln(s
 
     te += strlen(te);
 
-    if (withname) {
+    if (addL) {
        if (zsize > 1)
            *te++ = 'L';
-       *te++ = /*'('*/ ')';
+       if (initialiser_name != NULL && *initialiser_name != '\0')
+           *te++ = /*'('*/ ')';
     }
     *te = '\0';
 
@@ -1108,7 +1108,8 @@ fprintf(stderr, "    b %p[%d]:\t", m->n.data, m->n.size), mpfprintln(stderr, m->
 
        zsize -= bsize;
        znorm = mpsize(zsize, zdata);
-       if (znorm < zsize) {
+       znorm--;        /* XXX hack to preserve positive integer. */
+       if (znorm > 0 && znorm < zsize) {
            zsize -= znorm;
            zdata += znorm;
        }
@@ -1560,7 +1561,8 @@ fprintf(stderr, "    z %p[%d]:\t", zdata, zsize), mpfprintln(stderr, zsize, zdat
     mpnset(&r->n, bsize, zdata+zsize);
 
     znorm = mpsize(zsize, zdata);
-    if (znorm < zsize) {
+    znorm--;   /* XXX hack to preserve positive integer. */
+    if (znorm > 0 && znorm < zsize) {
        zsize -= znorm;
        zdata += znorm;
     }