Added getmodulename() public interface.

skrah · Oct 26, 1990 · 0558a20 · 0558a20
1 parent 738d4dd
commit 0558a20
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
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