1993-07-28 06:05:47 -03:00
|
|
|
#ifndef Py_OBJECT_H
|
|
|
|
#define Py_OBJECT_H
|
|
|
|
#ifdef __cplusplus
|
|
|
|
extern "C" {
|
|
|
|
#endif
|
|
|
|
|
1991-02-19 08:39:46 -04:00
|
|
|
/***********************************************************
|
1995-01-04 15:06:22 -04:00
|
|
|
Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam,
|
|
|
|
The Netherlands.
|
1991-02-19 08:39:46 -04:00
|
|
|
|
|
|
|
All Rights Reserved
|
|
|
|
|
1996-10-25 11:44:06 -03:00
|
|
|
Permission to use, copy, modify, and distribute this software and its
|
|
|
|
documentation for any purpose and without fee is hereby granted,
|
1991-02-19 08:39:46 -04:00
|
|
|
provided that the above copyright notice appear in all copies and that
|
1996-10-25 11:44:06 -03:00
|
|
|
both that copyright notice and this permission notice appear in
|
1991-02-19 08:39:46 -04:00
|
|
|
supporting documentation, and that the names of Stichting Mathematisch
|
1996-10-25 11:44:06 -03:00
|
|
|
Centrum or CWI or Corporation for National Research Initiatives or
|
|
|
|
CNRI not be used in advertising or publicity pertaining to
|
|
|
|
distribution of the software without specific, written prior
|
|
|
|
permission.
|
|
|
|
|
|
|
|
While CWI is the initial source for this software, a modified version
|
|
|
|
is made available by the Corporation for National Research Initiatives
|
|
|
|
(CNRI) at the Internet address ftp://ftp.python.org.
|
|
|
|
|
|
|
|
STICHTING MATHEMATISCH CENTRUM AND CNRI DISCLAIM ALL WARRANTIES WITH
|
|
|
|
REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
|
|
|
|
MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH
|
|
|
|
CENTRUM OR CNRI BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
|
|
|
|
DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
|
|
|
|
PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
|
|
|
|
TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
|
|
|
|
PERFORMANCE OF THIS SOFTWARE.
|
1991-02-19 08:39:46 -04:00
|
|
|
|
|
|
|
******************************************************************/
|
|
|
|
|
1990-10-14 09:07:46 -03:00
|
|
|
/* Object and type object interface */
|
|
|
|
|
|
|
|
/*
|
|
|
|
123456789-123456789-123456789-123456789-123456789-123456789-123456789-12
|
|
|
|
|
|
|
|
Objects are structures allocated on the heap. Special rules apply to
|
|
|
|
the use of objects to ensure they are properly garbage-collected.
|
|
|
|
Objects are never allocated statically or on the stack; they must be
|
|
|
|
accessed through special macros and functions only. (Type objects are
|
|
|
|
exceptions to the first rule; the standard types are represented by
|
|
|
|
statically initialized type objects.)
|
|
|
|
|
|
|
|
An object has a 'reference count' that is increased or decreased when a
|
|
|
|
pointer to the object is copied or deleted; when the reference count
|
|
|
|
reaches zero there are no references to the object left and it can be
|
|
|
|
removed from the heap.
|
|
|
|
|
|
|
|
An object has a 'type' that determines what it represents and what kind
|
|
|
|
of data it contains. An object's type is fixed when it is created.
|
|
|
|
Types themselves are represented as objects; an object contains a
|
|
|
|
pointer to the corresponding type object. The type itself has a type
|
|
|
|
pointer pointing to the object representing the type 'type', which
|
|
|
|
contains a pointer to itself!).
|
|
|
|
|
|
|
|
Objects do not float around in memory; once allocated an object keeps
|
|
|
|
the same size and address. Objects that must hold variable-size data
|
|
|
|
can contain pointers to variable-size parts of the object. Not all
|
|
|
|
objects of the same type have the same size; but the size cannot change
|
|
|
|
after allocation. (These restrictions are made so a reference to an
|
|
|
|
object can be simply a pointer -- moving an object would require
|
|
|
|
updating all the pointers, and changing an object's size would require
|
|
|
|
moving it if there was another object right next to it.)
|
|
|
|
|
1995-01-12 07:45:45 -04:00
|
|
|
Objects are always accessed through pointers of the type 'PyObject *'.
|
|
|
|
The type 'PyObject' is a structure that only contains the reference count
|
1990-10-14 09:07:46 -03:00
|
|
|
and the type pointer. The actual memory allocated for an object
|
|
|
|
contains other data that can only be accessed after casting the pointer
|
|
|
|
to a pointer to a longer structure type. This longer type must start
|
1995-01-12 07:45:45 -04:00
|
|
|
with the reference count and type fields; the macro PyObject_HEAD should be
|
1990-10-14 09:07:46 -03:00
|
|
|
used for this (to accomodate for future changes). The implementation
|
|
|
|
of a particular object type can cast the object pointer to the proper
|
|
|
|
type and back.
|
|
|
|
|
|
|
|
A standard interface exists for objects that contain an array of items
|
|
|
|
whose size is determined when the object is allocated.
|
|
|
|
|
|
|
|
123456789-123456789-123456789-123456789-123456789-123456789-123456789-12
|
|
|
|
*/
|
|
|
|
|
1996-12-30 12:17:54 -04:00
|
|
|
#ifdef Py_DEBUG
|
1990-12-20 11:06:42 -04:00
|
|
|
|
|
|
|
/* Turn on heavy reference debugging */
|
1995-01-12 07:45:45 -04:00
|
|
|
#define Py_TRACE_REFS
|
1990-12-20 11:06:42 -04:00
|
|
|
|
|
|
|
/* Turn on reference counting */
|
1995-01-12 07:45:45 -04:00
|
|
|
#define Py_REF_DEBUG
|
1990-12-20 11:06:42 -04:00
|
|
|
|
1996-12-30 12:17:54 -04:00
|
|
|
#endif /* Py_DEBUG */
|
1990-10-14 09:07:46 -03:00
|
|
|
|
1995-01-12 07:45:45 -04:00
|
|
|
#ifdef Py_TRACE_REFS
|
|
|
|
#define PyObject_HEAD \
|
1990-10-14 09:07:46 -03:00
|
|
|
struct _object *_ob_next, *_ob_prev; \
|
1990-11-02 13:51:56 -04:00
|
|
|
int ob_refcnt; \
|
1990-10-14 09:07:46 -03:00
|
|
|
struct _typeobject *ob_type;
|
1995-01-12 07:45:45 -04:00
|
|
|
#define PyObject_HEAD_INIT(type) 0, 0, 1, type,
|
1996-05-22 13:33:22 -03:00
|
|
|
#else /* !Py_TRACE_REFS */
|
1995-01-12 07:45:45 -04:00
|
|
|
#define PyObject_HEAD \
|
1995-01-04 15:06:22 -04:00
|
|
|
int ob_refcnt; \
|
1990-10-14 09:07:46 -03:00
|
|
|
struct _typeobject *ob_type;
|
1995-01-12 07:45:45 -04:00
|
|
|
#define PyObject_HEAD_INIT(type) 1, type,
|
1996-05-22 13:33:22 -03:00
|
|
|
#endif /* !Py_TRACE_REFS */
|
1990-10-14 09:07:46 -03:00
|
|
|
|
1995-01-12 07:45:45 -04:00
|
|
|
#define PyObject_VAR_HEAD \
|
|
|
|
PyObject_HEAD \
|
1995-01-04 15:06:22 -04:00
|
|
|
int ob_size; /* Number of items in variable part */
|
1990-10-14 09:07:46 -03:00
|
|
|
|
|
|
|
typedef struct _object {
|
1995-01-12 07:45:45 -04:00
|
|
|
PyObject_HEAD
|
|
|
|
} PyObject;
|
1990-10-14 09:07:46 -03:00
|
|
|
|
|
|
|
typedef struct {
|
1995-01-12 07:45:45 -04:00
|
|
|
PyObject_VAR_HEAD
|
1990-10-14 09:07:46 -03:00
|
|
|
} varobject;
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
123456789-123456789-123456789-123456789-123456789-123456789-123456789-12
|
|
|
|
|
|
|
|
Type objects contain a string containing the type name (to help somewhat
|
|
|
|
in debugging), the allocation parameters (see newobj() and newvarobj()),
|
|
|
|
and methods for accessing objects of the type. Methods are optional,a
|
|
|
|
nil pointer meaning that particular kind of access is not available for
|
1995-01-12 07:45:45 -04:00
|
|
|
this type. The Py_DECREF() macro uses the tp_dealloc method without
|
1990-10-14 09:07:46 -03:00
|
|
|
checking for a nil pointer; it should always be implemented except if
|
|
|
|
the implementation can guarantee that the reference count will never
|
|
|
|
reach zero (e.g., for type objects).
|
|
|
|
|
|
|
|
NB: the methods for certain type groups are now contained in separate
|
|
|
|
method blocks.
|
|
|
|
*/
|
|
|
|
|
1995-01-12 07:45:45 -04:00
|
|
|
typedef PyObject * (*unaryfunc) Py_PROTO((PyObject *));
|
|
|
|
typedef PyObject * (*binaryfunc) Py_PROTO((PyObject *, PyObject *));
|
|
|
|
typedef PyObject * (*ternaryfunc) Py_PROTO((PyObject *, PyObject *, PyObject *));
|
|
|
|
typedef int (*inquiry) Py_PROTO((PyObject *));
|
|
|
|
typedef int (*coercion) Py_PROTO((PyObject **, PyObject **));
|
|
|
|
typedef PyObject *(*intargfunc) Py_PROTO((PyObject *, int));
|
|
|
|
typedef PyObject *(*intintargfunc) Py_PROTO((PyObject *, int, int));
|
|
|
|
typedef int(*intobjargproc) Py_PROTO((PyObject *, int, PyObject *));
|
|
|
|
typedef int(*intintobjargproc) Py_PROTO((PyObject *, int, int, PyObject *));
|
|
|
|
typedef int(*objobjargproc) Py_PROTO((PyObject *, PyObject *, PyObject *));
|
1994-08-01 08:34:53 -03:00
|
|
|
|
1990-10-14 09:07:46 -03:00
|
|
|
typedef struct {
|
1994-08-01 08:34:53 -03:00
|
|
|
binaryfunc nb_add;
|
|
|
|
binaryfunc nb_subtract;
|
|
|
|
binaryfunc nb_multiply;
|
|
|
|
binaryfunc nb_divide;
|
|
|
|
binaryfunc nb_remainder;
|
|
|
|
binaryfunc nb_divmod;
|
1994-08-09 10:21:54 -03:00
|
|
|
ternaryfunc nb_power;
|
1994-08-01 08:34:53 -03:00
|
|
|
unaryfunc nb_negative;
|
|
|
|
unaryfunc nb_positive;
|
|
|
|
unaryfunc nb_absolute;
|
|
|
|
inquiry nb_nonzero;
|
|
|
|
unaryfunc nb_invert;
|
|
|
|
binaryfunc nb_lshift;
|
|
|
|
binaryfunc nb_rshift;
|
|
|
|
binaryfunc nb_and;
|
|
|
|
binaryfunc nb_xor;
|
|
|
|
binaryfunc nb_or;
|
|
|
|
coercion nb_coerce;
|
|
|
|
unaryfunc nb_int;
|
|
|
|
unaryfunc nb_long;
|
|
|
|
unaryfunc nb_float;
|
|
|
|
unaryfunc nb_oct;
|
|
|
|
unaryfunc nb_hex;
|
1995-01-12 07:45:45 -04:00
|
|
|
} PyNumberMethods;
|
1990-10-14 09:07:46 -03:00
|
|
|
|
|
|
|
typedef struct {
|
1994-08-01 08:34:53 -03:00
|
|
|
inquiry sq_length;
|
|
|
|
binaryfunc sq_concat;
|
|
|
|
intargfunc sq_repeat;
|
|
|
|
intargfunc sq_item;
|
|
|
|
intintargfunc sq_slice;
|
|
|
|
intobjargproc sq_ass_item;
|
|
|
|
intintobjargproc sq_ass_slice;
|
1995-01-12 07:45:45 -04:00
|
|
|
} PySequenceMethods;
|
1990-10-14 09:07:46 -03:00
|
|
|
|
|
|
|
typedef struct {
|
1994-08-01 08:34:53 -03:00
|
|
|
inquiry mp_length;
|
|
|
|
binaryfunc mp_subscript;
|
|
|
|
objobjargproc mp_ass_subscript;
|
1995-01-12 07:45:45 -04:00
|
|
|
} PyMappingMethods;
|
1990-10-14 09:07:46 -03:00
|
|
|
|
1995-01-12 07:45:45 -04:00
|
|
|
typedef void (*destructor) Py_PROTO((PyObject *));
|
|
|
|
typedef int (*printfunc) Py_PROTO((PyObject *, FILE *, int));
|
|
|
|
typedef PyObject *(*getattrfunc) Py_PROTO((PyObject *, char *));
|
1996-08-09 17:48:52 -03:00
|
|
|
typedef PyObject *(*getattrofunc) Py_PROTO((PyObject *, PyObject *));
|
1995-01-12 07:45:45 -04:00
|
|
|
typedef int (*setattrfunc) Py_PROTO((PyObject *, char *, PyObject *));
|
1996-08-09 17:48:52 -03:00
|
|
|
typedef int (*setattrofunc) Py_PROTO((PyObject *, PyObject *, PyObject *));
|
1995-01-12 07:45:45 -04:00
|
|
|
typedef int (*cmpfunc) Py_PROTO((PyObject *, PyObject *));
|
|
|
|
typedef PyObject *(*reprfunc) Py_PROTO((PyObject *));
|
|
|
|
typedef long (*hashfunc) Py_PROTO((PyObject *));
|
1994-08-01 08:34:53 -03:00
|
|
|
|
1990-10-14 09:07:46 -03:00
|
|
|
typedef struct _typeobject {
|
1995-01-12 07:45:45 -04:00
|
|
|
PyObject_VAR_HEAD
|
1990-10-14 09:07:46 -03:00
|
|
|
char *tp_name; /* For printing */
|
1995-01-04 15:06:22 -04:00
|
|
|
int tp_basicsize, tp_itemsize; /* For allocation */
|
1990-10-14 09:07:46 -03:00
|
|
|
|
|
|
|
/* Methods to implement standard operations */
|
|
|
|
|
1994-08-01 08:34:53 -03:00
|
|
|
destructor tp_dealloc;
|
|
|
|
printfunc tp_print;
|
|
|
|
getattrfunc tp_getattr;
|
|
|
|
setattrfunc tp_setattr;
|
|
|
|
cmpfunc tp_compare;
|
|
|
|
reprfunc tp_repr;
|
1990-10-14 09:07:46 -03:00
|
|
|
|
|
|
|
/* Method suites for standard classes */
|
|
|
|
|
1995-01-12 07:45:45 -04:00
|
|
|
PyNumberMethods *tp_as_number;
|
|
|
|
PySequenceMethods *tp_as_sequence;
|
|
|
|
PyMappingMethods *tp_as_mapping;
|
1993-03-29 06:43:31 -04:00
|
|
|
|
|
|
|
/* More standard operations (at end for binary compatibility) */
|
|
|
|
|
1994-08-01 08:34:53 -03:00
|
|
|
hashfunc tp_hash;
|
1995-07-18 11:21:06 -03:00
|
|
|
ternaryfunc tp_call;
|
1995-01-07 06:32:04 -04:00
|
|
|
reprfunc tp_str;
|
1996-08-09 17:48:52 -03:00
|
|
|
getattrofunc tp_getattro;
|
|
|
|
setattrofunc tp_setattro;
|
1995-01-07 06:32:04 -04:00
|
|
|
|
|
|
|
/* Space for future expansion */
|
|
|
|
long tp_xxx3;
|
|
|
|
long tp_xxx4;
|
|
|
|
|
|
|
|
char *tp_doc; /* Documentation string */
|
|
|
|
|
1993-10-11 09:54:31 -03:00
|
|
|
#ifdef COUNT_ALLOCS
|
|
|
|
/* these must be last */
|
|
|
|
int tp_alloc;
|
|
|
|
int tp_free;
|
|
|
|
int tp_maxalloc;
|
|
|
|
struct _typeobject *tp_next;
|
|
|
|
#endif
|
1995-01-12 07:45:45 -04:00
|
|
|
} PyTypeObject;
|
1990-10-14 09:07:46 -03:00
|
|
|
|
1995-04-25 08:53:24 -03:00
|
|
|
extern DL_IMPORT(PyTypeObject) PyType_Type; /* The type of type objects */
|
1990-10-14 09:07:46 -03:00
|
|
|
|
1995-01-12 07:45:45 -04:00
|
|
|
#define PyType_Check(op) ((op)->ob_type == &PyType_Type)
|
1990-10-14 09:07:46 -03:00
|
|
|
|
1990-12-20 11:06:42 -04:00
|
|
|
/* Generic operations on objects */
|
1995-01-12 07:45:45 -04:00
|
|
|
extern int PyObject_Print Py_PROTO((PyObject *, FILE *, int));
|
|
|
|
extern PyObject * PyObject_Repr Py_PROTO((PyObject *));
|
1995-01-17 12:01:01 -04:00
|
|
|
extern PyObject * PyObject_Str Py_PROTO((PyObject *));
|
1995-01-12 07:45:45 -04:00
|
|
|
extern int PyObject_Compare Py_PROTO((PyObject *, PyObject *));
|
|
|
|
extern PyObject *PyObject_GetAttrString Py_PROTO((PyObject *, char *));
|
1995-07-26 14:53:29 -03:00
|
|
|
extern int PyObject_SetAttrString Py_PROTO((PyObject *, char *, PyObject *));
|
1995-01-17 12:01:01 -04:00
|
|
|
extern int PyObject_HasAttrString Py_PROTO((PyObject *, char *));
|
1995-01-12 07:45:45 -04:00
|
|
|
extern PyObject *PyObject_GetAttr Py_PROTO((PyObject *, PyObject *));
|
|
|
|
extern int PyObject_SetAttr Py_PROTO((PyObject *, PyObject *, PyObject *));
|
|
|
|
extern long PyObject_Hash Py_PROTO((PyObject *));
|
1995-02-17 11:01:21 -04:00
|
|
|
extern int PyObject_IsTrue Py_PROTO((PyObject *));
|
|
|
|
extern int PyCallable_Check Py_PROTO((PyObject *));
|
1996-05-22 13:33:22 -03:00
|
|
|
extern int PyNumber_Coerce Py_PROTO((PyObject **, PyObject **));
|
1990-10-14 09:07:46 -03:00
|
|
|
|
|
|
|
/* Flag bits for printing: */
|
1995-01-12 07:45:45 -04:00
|
|
|
#define Py_PRINT_RAW 1 /* No string quotes etc. */
|
1990-10-14 09:07:46 -03:00
|
|
|
|
|
|
|
/*
|
|
|
|
123456789-123456789-123456789-123456789-123456789-123456789-123456789-12
|
|
|
|
|
1995-01-12 07:45:45 -04:00
|
|
|
The macros Py_INCREF(op) and Py_DECREF(op) are used to increment or decrement
|
|
|
|
reference counts. Py_DECREF calls the object's deallocator function; for
|
1990-10-14 09:07:46 -03:00
|
|
|
objects that don't contain references to other objects or heap memory
|
|
|
|
this can be the standard function free(). Both macros can be used
|
|
|
|
whereever a void expression is allowed. The argument shouldn't be a
|
1995-01-12 07:45:45 -04:00
|
|
|
NIL pointer. The macro _Py_NewReference(op) is used only to initialize
|
|
|
|
reference counts to 1; it is defined here for convenience.
|
1990-10-14 09:07:46 -03:00
|
|
|
|
|
|
|
We assume that the reference count field can never overflow; this can
|
|
|
|
be proven when the size of the field is the same as the pointer size
|
|
|
|
but even with a 16-bit reference count field it is pretty unlikely so
|
|
|
|
we ignore the possibility. (If you are paranoid, make it a long.)
|
|
|
|
|
|
|
|
Type objects should never be deallocated; the type pointer in an object
|
|
|
|
is not considered to be a reference to the type object, to save
|
|
|
|
complications in the deallocation function. (This is actually a
|
|
|
|
decision that's up to the implementer of each new type so if you want,
|
|
|
|
you can count such references to the type object.)
|
|
|
|
|
1995-01-12 07:45:45 -04:00
|
|
|
*** WARNING*** The Py_DECREF macro must have a side-effect-free argument
|
1990-10-14 09:07:46 -03:00
|
|
|
since it may evaluate its argument multiple times. (The alternative
|
|
|
|
would be to mace it a proper function or assign it to a global temporary
|
|
|
|
variable first, both of which are slower; and in a multi-threaded
|
|
|
|
environment the global variable trick is not safe.)
|
|
|
|
*/
|
|
|
|
|
1995-01-12 07:45:45 -04:00
|
|
|
#ifdef Py_TRACE_REFS
|
|
|
|
#ifndef Py_REF_DEBUG
|
|
|
|
#define Py_REF_DEBUG
|
1990-10-14 09:07:46 -03:00
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
|
1996-08-12 18:31:32 -03:00
|
|
|
#ifdef Py_TRACE_REFS
|
|
|
|
extern void _Py_Dealloc Py_PROTO((PyObject *));
|
|
|
|
extern void _Py_NewReference Py_PROTO((PyObject *));
|
|
|
|
extern void _Py_ForgetReference Py_PROTO((PyObject *));
|
|
|
|
extern void _Py_PrintReferences Py_PROTO((FILE *));
|
|
|
|
#endif
|
|
|
|
|
1995-01-12 07:45:45 -04:00
|
|
|
#ifndef Py_TRACE_REFS
|
1993-10-11 09:54:31 -03:00
|
|
|
#ifdef COUNT_ALLOCS
|
1995-01-12 07:45:45 -04:00
|
|
|
#define _Py_Dealloc(op) ((op)->ob_type->tp_free++, (*(op)->ob_type->tp_dealloc)((PyObject *)(op)))
|
1995-04-06 10:47:48 -03:00
|
|
|
#define _Py_ForgetReference(op) ((op)->ob_type->tp_free++)
|
1996-08-12 18:31:32 -03:00
|
|
|
#else /* !COUNT_ALLOCS */
|
1995-01-12 07:45:45 -04:00
|
|
|
#define _Py_Dealloc(op) (*(op)->ob_type->tp_dealloc)((PyObject *)(op))
|
|
|
|
#define _Py_ForgetReference(op) /*empty*/
|
1996-08-12 18:31:32 -03:00
|
|
|
#endif /* !COUNT_ALLOCS */
|
|
|
|
#endif /* !Py_TRACE_REFS */
|
1990-10-14 09:07:46 -03:00
|
|
|
|
1993-10-11 09:54:31 -03:00
|
|
|
#ifdef COUNT_ALLOCS
|
1995-01-12 07:45:45 -04:00
|
|
|
extern void inc_count Py_PROTO((PyTypeObject *));
|
1993-10-11 09:54:31 -03:00
|
|
|
#endif
|
|
|
|
|
1995-01-12 07:45:45 -04:00
|
|
|
#ifdef Py_REF_DEBUG
|
1996-05-22 13:33:22 -03:00
|
|
|
|
1995-03-29 12:57:48 -04:00
|
|
|
extern long _Py_RefTotal;
|
1996-05-22 13:33:22 -03:00
|
|
|
|
1995-01-12 07:45:45 -04:00
|
|
|
#ifndef Py_TRACE_REFS
|
1993-10-11 09:54:31 -03:00
|
|
|
#ifdef COUNT_ALLOCS
|
1995-03-29 12:57:48 -04:00
|
|
|
#define _Py_NewReference(op) (inc_count((op)->ob_type), _Py_RefTotal++, (op)->ob_refcnt = 1)
|
1993-10-11 09:54:31 -03:00
|
|
|
#else
|
1995-03-29 12:57:48 -04:00
|
|
|
#define _Py_NewReference(op) (_Py_RefTotal++, (op)->ob_refcnt = 1)
|
1990-10-14 09:07:46 -03:00
|
|
|
#endif
|
1996-05-22 13:33:22 -03:00
|
|
|
#endif /* !Py_TRACE_REFS */
|
|
|
|
|
1995-03-29 12:57:48 -04:00
|
|
|
#define Py_INCREF(op) (_Py_RefTotal++, (op)->ob_refcnt++)
|
1995-01-12 07:45:45 -04:00
|
|
|
#define Py_DECREF(op) \
|
1995-03-29 12:57:48 -04:00
|
|
|
if (--_Py_RefTotal, --(op)->ob_refcnt != 0) \
|
1990-10-14 09:07:46 -03:00
|
|
|
; \
|
|
|
|
else \
|
1995-01-12 07:45:45 -04:00
|
|
|
_Py_Dealloc(op)
|
1996-05-22 13:33:22 -03:00
|
|
|
#else /* !Py_REF_DEBUG */
|
|
|
|
|
1993-10-11 09:54:31 -03:00
|
|
|
#ifdef COUNT_ALLOCS
|
1995-01-12 07:45:45 -04:00
|
|
|
#define _Py_NewReference(op) (inc_count((op)->ob_type), (op)->ob_refcnt = 1)
|
1993-10-11 09:54:31 -03:00
|
|
|
#else
|
1995-01-12 07:45:45 -04:00
|
|
|
#define _Py_NewReference(op) ((op)->ob_refcnt = 1)
|
1993-10-11 09:54:31 -03:00
|
|
|
#endif
|
1996-05-22 13:33:22 -03:00
|
|
|
|
1995-01-12 07:45:45 -04:00
|
|
|
#define Py_INCREF(op) ((op)->ob_refcnt++)
|
|
|
|
#define Py_DECREF(op) \
|
1995-01-04 15:06:22 -04:00
|
|
|
if (--(op)->ob_refcnt != 0) \
|
1990-10-14 09:07:46 -03:00
|
|
|
; \
|
|
|
|
else \
|
1995-01-12 07:45:45 -04:00
|
|
|
_Py_Dealloc(op)
|
1996-05-22 13:33:22 -03:00
|
|
|
#endif /* !Py_REF_DEBUG */
|
1990-10-14 09:07:46 -03:00
|
|
|
|
1990-12-20 11:06:42 -04:00
|
|
|
/* Macros to use in case the object pointer may be NULL: */
|
|
|
|
|
1995-01-12 07:45:45 -04:00
|
|
|
#define Py_XINCREF(op) if ((op) == NULL) ; else Py_INCREF(op)
|
|
|
|
#define Py_XDECREF(op) if ((op) == NULL) ; else Py_DECREF(op)
|
1990-10-14 09:07:46 -03:00
|
|
|
|
|
|
|
/* Definition of NULL, so you don't have to include <stdio.h> */
|
|
|
|
|
|
|
|
#ifndef NULL
|
|
|
|
#define NULL 0
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
1995-01-12 07:45:45 -04:00
|
|
|
_Py_NoneStruct is an object of undefined type which can be used in contexts
|
1990-10-14 09:07:46 -03:00
|
|
|
where NULL (nil) is not suitable (since NULL often means 'error').
|
|
|
|
|
1995-01-12 07:45:45 -04:00
|
|
|
Don't forget to apply Py_INCREF() when returning this value!!!
|
1990-10-14 09:07:46 -03:00
|
|
|
*/
|
|
|
|
|
1995-04-25 08:53:24 -03:00
|
|
|
extern DL_IMPORT(PyObject) _Py_NoneStruct; /* Don't use this directly */
|
1990-10-14 09:07:46 -03:00
|
|
|
|
1995-01-12 07:45:45 -04:00
|
|
|
#define Py_None (&_Py_NoneStruct)
|
1990-10-14 09:07:46 -03:00
|
|
|
|
|
|
|
|
1994-08-01 08:34:53 -03:00
|
|
|
/*
|
|
|
|
A common programming style in Python requires the forward declaration
|
1995-01-12 07:45:45 -04:00
|
|
|
of static, initialized structures, e.g. for a type object that is used
|
1994-08-01 08:34:53 -03:00
|
|
|
by the functions whose address must be used in the initializer.
|
|
|
|
Some compilers (notably SCO ODT 3.0, I seem to remember early AIX as
|
|
|
|
well) botch this if you use the static keyword for both declarations
|
|
|
|
(they allocate two objects, and use the first, uninitialized one until
|
|
|
|
the second declaration is encountered). Therefore, the forward
|
|
|
|
declaration should use the 'forwardstatic' keyword. This expands to
|
|
|
|
static on most systems, but to extern on a few. The actual storage
|
|
|
|
and name will still be static because the second declaration is
|
|
|
|
static, so no linker visible symbols will be generated. (Standard C
|
|
|
|
compilers take offense to the extern forward declaration of a static
|
|
|
|
object, so I can't just put extern in all cases. :-( )
|
|
|
|
*/
|
|
|
|
|
|
|
|
#ifdef BAD_STATIC_FORWARD
|
|
|
|
#define staticforward extern
|
1995-02-21 17:06:10 -04:00
|
|
|
#ifdef __SC__
|
|
|
|
#define statichere
|
1994-08-01 08:34:53 -03:00
|
|
|
#else
|
1995-02-21 17:06:10 -04:00
|
|
|
#define statichere static
|
|
|
|
#endif /* __SC__ */
|
|
|
|
#else /* !BAD_STATIC_FORWARD */
|
1994-08-01 08:34:53 -03:00
|
|
|
#define staticforward static
|
1995-02-21 17:06:10 -04:00
|
|
|
#define statichere static
|
|
|
|
#endif /* !BAD_STATIC_FORWARD */
|
1994-08-01 08:34:53 -03:00
|
|
|
|
|
|
|
|
1990-10-14 09:07:46 -03:00
|
|
|
/*
|
|
|
|
123456789-123456789-123456789-123456789-123456789-123456789-123456789-12
|
|
|
|
|
|
|
|
More conventions
|
|
|
|
================
|
|
|
|
|
|
|
|
Argument Checking
|
|
|
|
-----------------
|
|
|
|
|
|
|
|
Functions that take objects as arguments normally don't check for nil
|
|
|
|
arguments, but they do check the type of the argument, and return an
|
|
|
|
error if the function doesn't apply to the type.
|
|
|
|
|
|
|
|
Failure Modes
|
|
|
|
-------------
|
|
|
|
|
|
|
|
Functions may fail for a variety of reasons, including running out of
|
1990-12-20 11:06:42 -04:00
|
|
|
memory. This is communicated to the caller in two ways: an error string
|
|
|
|
is set (see errors.h), and the function result differs: functions that
|
|
|
|
normally return a pointer return NULL for failure, functions returning
|
|
|
|
an integer return -1 (which could be a legal return value too!), and
|
|
|
|
other functions return 0 for success and -1 for failure.
|
|
|
|
Callers should always check for errors before using the result.
|
1990-10-14 09:07:46 -03:00
|
|
|
|
|
|
|
Reference Counts
|
|
|
|
----------------
|
|
|
|
|
|
|
|
It takes a while to get used to the proper usage of reference counts.
|
|
|
|
|
|
|
|
Functions that create an object set the reference count to 1; such new
|
1995-01-12 07:45:45 -04:00
|
|
|
objects must be stored somewhere or destroyed again with Py_DECREF().
|
|
|
|
Functions that 'store' objects such as PyTuple_SetItem() and
|
|
|
|
PyDict_SetItemString()
|
1990-10-14 09:07:46 -03:00
|
|
|
don't increment the reference count of the object, since the most
|
|
|
|
frequent use is to store a fresh object. Functions that 'retrieve'
|
1995-01-12 07:45:45 -04:00
|
|
|
objects such as PyTuple_GetItem() and PyDict_GetItemString() also
|
|
|
|
don't increment
|
1990-10-14 09:07:46 -03:00
|
|
|
the reference count, since most frequently the object is only looked at
|
|
|
|
quickly. Thus, to retrieve an object and store it again, the caller
|
1995-01-12 07:45:45 -04:00
|
|
|
must call Py_INCREF() explicitly.
|
1990-10-14 09:07:46 -03:00
|
|
|
|
1995-01-12 07:45:45 -04:00
|
|
|
NOTE: functions that 'consume' a reference count like
|
|
|
|
PyDict_SetItemString() even
|
1990-10-14 09:07:46 -03:00
|
|
|
consume the reference if the object wasn't stored, to simplify error
|
|
|
|
handling.
|
|
|
|
|
|
|
|
It seems attractive to make other functions that take an object as
|
|
|
|
argument consume a reference count; however this may quickly get
|
|
|
|
confusing (even the current practice is already confusing). Consider
|
1995-01-12 07:45:45 -04:00
|
|
|
it carefully, it may save lots of calls to Py_INCREF() and Py_DECREF() at
|
1990-10-14 09:07:46 -03:00
|
|
|
times.
|
|
|
|
|
|
|
|
123456789-123456789-123456789-123456789-123456789-123456789-123456789-12
|
|
|
|
*/
|
1993-07-28 06:05:47 -03:00
|
|
|
|
|
|
|
#ifdef __cplusplus
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
#endif /* !Py_OBJECT_H */
|