added getattr(), supporting __doc__ and _name__

1 files changed, 33 insertions, 2 deletions

diff --git a/Objects/typeobject.c b/Objects/typeobject.c
index b391858..b770bce 100644
--- a/Objects/typeobject.c
+++ b/Objects/typeobject.c
@@ -29,6 +29,26 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 /* Type object implementation */
 
 static object *
+type_getattr(t, name)
+	typeobject *t;
+	char *name;
+{
+	if (strcmp(name, "__name__") == 0)
+		return newstringobject(t->tp_name);
+	if (strcmp(name, "__doc__") == 0) {
+		char *doc = t->tp_doc;
+		if (doc != NULL)
+			return newstringobject(doc);
+		INCREF(None);
+		return None;
+	}
+	if (strcmp(name, "__members__") == 0)
+		return mkvalue("[ss]", "__doc__", "__name__");
+	err_setstr(AttributeError, name);
+	return NULL;
+}
+
+static object *
 type_repr(v)
 	typeobject *v;
 {
@@ -45,8 +65,19 @@ typeobject Typetype = {
 	0,			/* Item size for varobject */
 	0,			/*tp_dealloc*/
 	0,			/*tp_print*/
-	0,			/*tp_getattr*/
+	(getattrfunc)type_getattr, /*tp_getattr*/
 	0,			/*tp_setattr*/
 	0,			/*tp_compare*/
-	(reprfunc)type_repr, /*tp_repr*/
+	(reprfunc)type_repr,	/*tp_repr*/
+	0,			/*tp_as_number*/
+	0,			/*tp_as_sequence*/
+	0,			/*tp_as_mapping*/
+	0,			/*tp_hash*/
+	0,			/*tp_call*/
+	0,			/*tp_str*/
+	0,			/*tp_xxx1*/
+	0,			/*tp_xxx2*/
+	0,			/*tp_xxx3*/
+	0,			/*tp_xxx4*/
+	"Define the behaviour of a particular type of object.",
 };