Added getmodulename() public interface.

gvanrossum · gvanrossum · commit 0558a205a37a · 1990-10-26T15:00:11.000Z
diff --git 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
@@ -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
