Added getmodulename() public interface.

diff --git a/Include/moduleobject.h b/Include/moduleobject.h
index 442ca11302ef91d3d3201f39186523d0d4f1cf16..99d3d52f407840f29dfebe1f0c933218681c4cd5 100644 (file)
--- a/Include/moduleobject.h
+++ b/Include/moduleobject.h
@@ -7,3 +7,4 @@ extern typeobject Moduletype;
 extern object *newmoduleobject PROTO((char *));
 extern object *getmoduledict PROTO((object *));
 extern int setmoduledict PROTO((object *, object *));
+extern char *getmodulename PROTO((object *));

diff --git a/Objects/moduleobject.c b/Objects/moduleobject.c
index 09bbae947804a753fd7a0b7bb106d5e6fc2cecbf..22a793f417c300d554c81947361e3e20845a58b7 100644 (file)
--- a/Objects/moduleobject.c
+++ b/Objects/moduleobject.c
@@ -62,6 +62,17 @@ setmoduledict(m, v)
        return 0;
 }
 
+char *
+getmodulename(m)
+       object *m;
+{
+       if (!is_moduleobject(m)) {
+               err_badarg();
+               return NULL;
+       }
+       return getstringvalue(((moduleobject *)m) -> md_name);
+}
+
 /* Methods */
 
 static void