Don't allow assignment to attributes named __*__

This commit is contained in:
Guido van Rossum 1992-04-05 14:24:32 +00:00
parent 5113f5fd34
commit 8dd79cf788

View File

@ -1,5 +1,5 @@
/*********************************************************** /***********************************************************
Copyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The Copyright 1991, 1992 by Stichting Mathematisch Centrum, Amsterdam, The
Netherlands. Netherlands.
All Rights Reserved All Rights Reserved
@ -106,7 +106,7 @@ class_getattr(op, name)
int i; int i;
for (i = 0; i < n; i++) { for (i = 0; i < n; i++) {
v = class_getattr((classobject *) v = class_getattr((classobject *)
gettupleitem(op->cl_bases, i), name); gettupleitem(op->cl_bases, i), name);
if (v != NULL) if (v != NULL)
return v; return v;
err_clear(); err_clear();
@ -122,6 +122,13 @@ class_setattr(op, name, v)
char *name; char *name;
object *v; object *v;
{ {
if (name[0] == '_' && name[1] == '_') {
int n = strlen(name);
if (name[n-1] == '_' && name[n-2] == '_') {
err_setstr(TypeError, "read-only special attribute");
return -1;
}
}
if (v == NULL) if (v == NULL)
return dictremove(op->cl_methods, name); return dictremove(op->cl_methods, name);
else else
@ -226,6 +233,13 @@ instance_setattr(inst, name, v)
char *name; char *name;
object *v; object *v;
{ {
if (name[0] == '_' && name[1] == '_') {
int n = strlen(name);
if (name[n-1] == '_' && name[n-2] == '_') {
err_setstr(TypeError, "read-only special attribute");
return -1;
}
}
if (v == NULL) if (v == NULL)
return dictremove(inst->in_attr, name); return dictremove(inst->in_attr, name);
else else