Finally implement tuple*number. From now on all sequence types

must (pretend to) support all operations except assignments;
if you don't want to support an operation you have to provide
a dummy function that raises an exception...

diff --git a/Objects/tupleobject.c b/Objects/tupleobject.c
index 02d77a254973e8d757c5275ba78174d70c68f271..de242b1ca3931a2a133ebe915a59aeef74f5331e 100644 (file)
--- a/Objects/tupleobject.c
+++ b/Objects/tupleobject.c
@@ -259,10 +259,42 @@ tupleconcat(a, bb)
 #undef b
 }
 
+static object *
+tuplerepeat(a, n)
+       tupleobject *a;
+       int n;
+{
+       int i, j;
+       int size;
+       tupleobject *np;
+       object **p;
+       if (n < 0)
+               n = 0;
+       if (a->ob_size*n == a->ob_size) {
+               /* Since tuples are immutable, we can return a shared
+                  copy in this case */
+               INCREF(a);
+               return (object *)a;
+       }
+       size = a->ob_size * n;
+       np = (tupleobject *) newtupleobject(size);
+       if (np == NULL)
+               return NULL;
+       p = np->ob_item;
+       for (i = 0; i < n; i++) {
+               for (j = 0; j < a->ob_size; j++) {
+                       *p = a->ob_item[j];
+                       INCREF(*p);
+                       p++;
+               }
+       }
+       return (object *) np;
+}
+
 static sequence_methods tuple_as_sequence = {
        tuplelength,    /*sq_length*/
        tupleconcat,    /*sq_concat*/
-       0,              /*sq_repeat*/
+       tuplerepeat,    /*sq_repeat*/
        tupleitem,      /*sq_item*/
        tupleslice,     /*sq_slice*/
        0,              /*sq_ass_item*/