* Lots of small changes related to access.
* Added "access *: ...", made access work for class methods.
* Introduced subclass check: make sure that when calling
ClassName.methodname(instance, ...), the instance is an instance of
ClassName or of a subclass thereof (this might break some old code!)
diff --git a/Objects/accessobject.c b/Objects/accessobject.c
index 41790cd..6fd9bd5 100644
--- a/Objects/accessobject.c
+++ b/Objects/accessobject.c
@@ -99,6 +99,15 @@
ap->ac_class = class;
}
+int
+hasaccessvalue(op)
+ object *op;
+{
+ if (!is_accessobject(op))
+ return 0;
+ return ((accessobject *)op)->ac_value != NULL;
+}
+
object *
getaccessvalue(op, class)
object *op;
@@ -268,7 +277,9 @@
char buf[300];
classobject *class = (classobject *)ap->ac_class;
typeobject *type = ap->ac_type;
- sprintf(buf, "<access object, class %.100s, type %.100s, mode 0%o>",
+ sprintf(buf,
+ "<access object, value 0x%lx, class %.100s, type %.100s, mode %04o>",
+ (long)(ap->ac_value),
class ? getstringvalue(class->cl_name) : "-",
type ? type->tp_name : "-",
ap->ac_mode);