Add clear() method to dictionary objects.

diff --git a/Objects/dictobject.c b/Objects/dictobject.c
index 8f3d3a6476d425122fd24ac047985a638ee55094..51f001802811aeb448171c2391d0f887673d8bf6 100644 (file)
--- a/Objects/dictobject.c
+++ b/Objects/dictobject.c
@@ -880,7 +880,20 @@ mapping_has_key(mp, args)
        return newintobject(ok);
 }
 
+static object *
+mapping_clear(mp, args)
+       register mappingobject *mp;
+       object *args;
+{
+       if (!getnoarg(args))
+               return NULL;
+       mappingclear((object *)mp);
+       INCREF(None);
+       return None;
+}
+
 static struct methodlist mapp_methods[] = {
+       {"clear",       (method)mapping_clear},
        {"has_key",     (method)mapping_has_key},
        {"items",       (method)mapping_items},
        {"keys",        (method)mapping_keys},

diff --git a/Objects/mappingobject.c b/Objects/mappingobject.c
index 8f3d3a6476d425122fd24ac047985a638ee55094..51f001802811aeb448171c2391d0f887673d8bf6 100644 (file)
--- a/Objects/mappingobject.c
+++ b/Objects/mappingobject.c
@@ -880,7 +880,20 @@ mapping_has_key(mp, args)
        return newintobject(ok);
 }
 
+static object *
+mapping_clear(mp, args)
+       register mappingobject *mp;
+       object *args;
+{
+       if (!getnoarg(args))
+               return NULL;
+       mappingclear((object *)mp);
+       INCREF(None);
+       return None;
+}
+
 static struct methodlist mapp_methods[] = {
+       {"clear",       (method)mapping_clear},
        {"has_key",     (method)mapping_has_key},
        {"items",       (method)mapping_items},
        {"keys",        (method)mapping_keys},