diff options
Diffstat (limited to 'Include')
| -rw-r--r-- | Include/accessobject.h | 1 | ||||
| -rw-r--r-- | Include/classobject.h | 12 |
2 files changed, 8 insertions, 5 deletions
diff --git a/Include/accessobject.h b/Include/accessobject.h index 1c67849..d50d028 100644 --- a/Include/accessobject.h +++ b/Include/accessobject.h @@ -50,5 +50,6 @@ int setaccessvalue PROTO((object *, object *, object *)); void setaccessowner PROTO((object *, object *)); object *cloneaccessobject PROTO((object *)); +int hasaccessvalue PROTO((object *)); extern typeobject Anynumbertype, Anysequencetype, Anymappingtype; diff --git a/Include/classobject.h b/Include/classobject.h index ec07b59..ccab6a3 100644 --- a/Include/classobject.h +++ b/Include/classobject.h @@ -24,11 +24,7 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. /* Class object interface */ -/* -Classes are really hacked in at the last moment. -It should be possible to use other object types as base classes, -but currently it isn't. We'll see if we can fix that later, sigh... -*/ +/* Revealing some structures (not for general use) */ typedef struct { OB_HEAD @@ -37,6 +33,12 @@ typedef struct { object *cl_name; /* A string */ } classobject; +typedef struct { + OB_HEAD + classobject *in_class; /* The class object */ + object *in_dict; /* A dictionary */ +} instanceobject; + extern typeobject Classtype, Instancetype, Instancemethodtype; #define is_classobject(op) ((op)->ob_type == &Classtype) |