1991-02-19 12:39:46 +00:00
|
|
|
/***********************************************************
|
1995-01-04 19:07:38 +00:00
|
|
|
Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam,
|
|
|
|
The Netherlands.
|
1991-02-19 12:39:46 +00:00
|
|
|
|
|
|
|
All Rights Reserved
|
|
|
|
|
1996-10-25 14:44:06 +00: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 12:39:46 +00:00
|
|
|
provided that the above copyright notice appear in all copies and that
|
1996-10-25 14:44:06 +00:00
|
|
|
both that copyright notice and this permission notice appear in
|
1991-02-19 12:39:46 +00:00
|
|
|
supporting documentation, and that the names of Stichting Mathematisch
|
1996-10-25 14:44:06 +00: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 12:39:46 +00:00
|
|
|
|
|
|
|
******************************************************************/
|
|
|
|
|
1990-10-14 12:07:46 +00:00
|
|
|
/* Method object implementation */
|
|
|
|
|
1997-05-02 03:12:38 +00:00
|
|
|
#include "Python.h"
|
1990-10-14 12:07:46 +00:00
|
|
|
|
|
|
|
#include "token.h"
|
|
|
|
|
1997-08-05 02:11:41 +00:00
|
|
|
static PyCFunctionObject *free_list = NULL;
|
|
|
|
|
1997-05-02 03:12:38 +00:00
|
|
|
PyObject *
|
|
|
|
PyCFunction_New(ml, self)
|
|
|
|
PyMethodDef *ml;
|
|
|
|
PyObject *self;
|
1990-10-14 12:07:46 +00:00
|
|
|
{
|
1997-08-05 02:11:41 +00:00
|
|
|
PyCFunctionObject *op;
|
|
|
|
op = free_list;
|
1990-10-14 12:07:46 +00:00
|
|
|
if (op != NULL) {
|
1997-08-05 02:11:41 +00:00
|
|
|
free_list = (PyCFunctionObject *)(op->m_self);
|
2000-05-03 23:44:39 +00:00
|
|
|
PyObject_INIT(op, &PyCFunction_Type);
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
1997-08-05 02:11:41 +00:00
|
|
|
else {
|
|
|
|
op = PyObject_NEW(PyCFunctionObject, &PyCFunction_Type);
|
|
|
|
if (op == NULL)
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
op->m_ml = ml;
|
|
|
|
Py_XINCREF(self);
|
|
|
|
op->m_self = self;
|
1997-05-02 03:12:38 +00:00
|
|
|
return (PyObject *)op;
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
|
|
|
|
1997-05-02 03:12:38 +00:00
|
|
|
PyCFunction
|
|
|
|
PyCFunction_GetFunction(op)
|
|
|
|
PyObject *op;
|
1990-10-14 12:07:46 +00:00
|
|
|
{
|
1997-05-02 03:12:38 +00:00
|
|
|
if (!PyCFunction_Check(op)) {
|
|
|
|
PyErr_BadInternalCall();
|
1990-10-14 12:07:46 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
1997-05-02 03:12:38 +00:00
|
|
|
return ((PyCFunctionObject *)op) -> m_ml -> ml_meth;
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
|
|
|
|
1997-05-02 03:12:38 +00:00
|
|
|
PyObject *
|
|
|
|
PyCFunction_GetSelf(op)
|
|
|
|
PyObject *op;
|
1990-10-14 12:07:46 +00:00
|
|
|
{
|
1997-05-02 03:12:38 +00:00
|
|
|
if (!PyCFunction_Check(op)) {
|
|
|
|
PyErr_BadInternalCall();
|
1990-10-14 12:07:46 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
1997-05-02 03:12:38 +00:00
|
|
|
return ((PyCFunctionObject *)op) -> m_self;
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
|
|
|
|
1991-12-16 13:07:24 +00:00
|
|
|
int
|
1997-05-02 03:12:38 +00:00
|
|
|
PyCFunction_GetFlags(op)
|
|
|
|
PyObject *op;
|
1991-12-16 13:07:24 +00:00
|
|
|
{
|
1997-05-02 03:12:38 +00:00
|
|
|
if (!PyCFunction_Check(op)) {
|
|
|
|
PyErr_BadInternalCall();
|
1991-12-16 13:07:24 +00:00
|
|
|
return -1;
|
|
|
|
}
|
1997-05-02 03:12:38 +00:00
|
|
|
return ((PyCFunctionObject *)op) -> m_ml -> ml_flags;
|
1991-12-16 13:07:24 +00:00
|
|
|
}
|
|
|
|
|
1990-10-14 12:07:46 +00:00
|
|
|
/* Methods (the standard built-in methods, that is) */
|
|
|
|
|
|
|
|
static void
|
|
|
|
meth_dealloc(m)
|
1997-05-02 03:12:38 +00:00
|
|
|
PyCFunctionObject *m;
|
1990-10-14 12:07:46 +00:00
|
|
|
{
|
1997-05-02 03:12:38 +00:00
|
|
|
Py_XDECREF(m->m_self);
|
1997-08-05 02:11:41 +00:00
|
|
|
m->m_self = (PyObject *)free_list;
|
|
|
|
free_list = m;
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
|
|
|
|
1997-05-02 03:12:38 +00:00
|
|
|
static PyObject *
|
1995-01-07 12:34:58 +00:00
|
|
|
meth_getattr(m, name)
|
1997-05-02 03:12:38 +00:00
|
|
|
PyCFunctionObject *m;
|
1995-01-07 12:34:58 +00:00
|
|
|
char *name;
|
|
|
|
{
|
|
|
|
if (strcmp(name, "__name__") == 0) {
|
1997-05-02 03:12:38 +00:00
|
|
|
return PyString_FromString(m->m_ml->ml_name);
|
1995-01-07 12:34:58 +00:00
|
|
|
}
|
|
|
|
if (strcmp(name, "__doc__") == 0) {
|
|
|
|
char *doc = m->m_ml->ml_doc;
|
|
|
|
if (doc != NULL)
|
1997-05-02 03:12:38 +00:00
|
|
|
return PyString_FromString(doc);
|
|
|
|
Py_INCREF(Py_None);
|
|
|
|
return Py_None;
|
1995-01-07 12:34:58 +00:00
|
|
|
}
|
|
|
|
if (strcmp(name, "__self__") == 0) {
|
1997-05-02 03:12:38 +00:00
|
|
|
PyObject *self;
|
|
|
|
if (PyEval_GetRestricted()) {
|
|
|
|
PyErr_SetString(PyExc_RuntimeError,
|
1995-01-10 10:39:49 +00:00
|
|
|
"method.__self__ not accessible in restricted mode");
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
self = m->m_self;
|
1995-01-07 12:34:58 +00:00
|
|
|
if (self == NULL)
|
1997-05-02 03:12:38 +00:00
|
|
|
self = Py_None;
|
|
|
|
Py_INCREF(self);
|
1995-01-07 12:34:58 +00:00
|
|
|
return self;
|
|
|
|
}
|
|
|
|
if (strcmp(name, "__members__") == 0) {
|
1997-05-02 03:12:38 +00:00
|
|
|
return Py_BuildValue("[sss]",
|
|
|
|
"__doc__", "__name__", "__self__");
|
1995-01-07 12:34:58 +00:00
|
|
|
}
|
1997-05-02 03:12:38 +00:00
|
|
|
PyErr_SetString(PyExc_AttributeError, name);
|
1995-01-07 12:34:58 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
1997-05-02 03:12:38 +00:00
|
|
|
static PyObject *
|
1990-10-14 12:07:46 +00:00
|
|
|
meth_repr(m)
|
1997-05-02 03:12:38 +00:00
|
|
|
PyCFunctionObject *m;
|
1990-10-14 12:07:46 +00:00
|
|
|
{
|
|
|
|
char buf[200];
|
|
|
|
if (m->m_self == NULL)
|
1995-01-07 12:34:58 +00:00
|
|
|
sprintf(buf, "<built-in function %.80s>", m->m_ml->ml_name);
|
1990-10-14 12:07:46 +00:00
|
|
|
else
|
1990-12-20 15:06:42 +00:00
|
|
|
sprintf(buf,
|
2000-06-30 15:01:00 +00:00
|
|
|
"<built-in method %.80s of %.80s object at %p>",
|
1995-01-07 12:34:58 +00:00
|
|
|
m->m_ml->ml_name, m->m_self->ob_type->tp_name,
|
2000-06-30 15:01:00 +00:00
|
|
|
m->m_self);
|
1997-05-02 03:12:38 +00:00
|
|
|
return PyString_FromString(buf);
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
|
|
|
|
1993-03-29 10:43:31 +00:00
|
|
|
static int
|
|
|
|
meth_compare(a, b)
|
1997-05-02 03:12:38 +00:00
|
|
|
PyCFunctionObject *a, *b;
|
1993-03-29 10:43:31 +00:00
|
|
|
{
|
|
|
|
if (a->m_self != b->m_self)
|
1998-12-04 18:52:55 +00:00
|
|
|
return (a->m_self < b->m_self) ? -1 : 1;
|
1995-01-07 12:34:58 +00:00
|
|
|
if (a->m_ml->ml_meth == b->m_ml->ml_meth)
|
1993-03-29 10:43:31 +00:00
|
|
|
return 0;
|
1995-01-07 12:34:58 +00:00
|
|
|
if (strcmp(a->m_ml->ml_name, b->m_ml->ml_name) < 0)
|
1993-03-29 10:43:31 +00:00
|
|
|
return -1;
|
|
|
|
else
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
static long
|
|
|
|
meth_hash(a)
|
1997-05-02 03:12:38 +00:00
|
|
|
PyCFunctionObject *a;
|
1993-03-29 10:43:31 +00:00
|
|
|
{
|
2000-06-29 19:17:04 +00:00
|
|
|
long x,y;
|
1993-03-29 10:43:31 +00:00
|
|
|
if (a->m_self == NULL)
|
|
|
|
x = 0;
|
|
|
|
else {
|
1997-05-02 03:12:38 +00:00
|
|
|
x = PyObject_Hash(a->m_self);
|
1993-03-29 10:43:31 +00:00
|
|
|
if (x == -1)
|
|
|
|
return -1;
|
|
|
|
}
|
2000-06-30 22:46:04 +00:00
|
|
|
y = _Py_HashPointer((void*)(a->m_ml->ml_meth));
|
2000-06-29 19:17:04 +00:00
|
|
|
if (y == -1)
|
|
|
|
return -1;
|
|
|
|
x ^= y;
|
|
|
|
if (x == -1)
|
|
|
|
x = -2;
|
|
|
|
return x;
|
1993-03-29 10:43:31 +00:00
|
|
|
}
|
|
|
|
|
1997-05-02 03:12:38 +00:00
|
|
|
PyTypeObject PyCFunction_Type = {
|
|
|
|
PyObject_HEAD_INIT(&PyType_Type)
|
1990-10-14 12:07:46 +00:00
|
|
|
0,
|
1992-09-17 17:54:56 +00:00
|
|
|
"builtin_function_or_method",
|
1997-05-02 03:12:38 +00:00
|
|
|
sizeof(PyCFunctionObject),
|
1990-10-14 12:07:46 +00:00
|
|
|
0,
|
1994-08-30 08:27:36 +00:00
|
|
|
(destructor)meth_dealloc, /*tp_dealloc*/
|
1992-09-17 17:54:56 +00:00
|
|
|
0, /*tp_print*/
|
1995-01-07 12:34:58 +00:00
|
|
|
(getattrfunc)meth_getattr, /*tp_getattr*/
|
1990-10-14 12:07:46 +00:00
|
|
|
0, /*tp_setattr*/
|
1994-08-30 08:27:36 +00:00
|
|
|
(cmpfunc)meth_compare, /*tp_compare*/
|
|
|
|
(reprfunc)meth_repr, /*tp_repr*/
|
1990-10-14 12:07:46 +00:00
|
|
|
0, /*tp_as_number*/
|
|
|
|
0, /*tp_as_sequence*/
|
|
|
|
0, /*tp_as_mapping*/
|
1994-08-30 08:27:36 +00:00
|
|
|
(hashfunc)meth_hash, /*tp_hash*/
|
1990-10-14 12:07:46 +00:00
|
|
|
};
|
1990-12-20 15:06:42 +00:00
|
|
|
|
1995-01-26 22:58:48 +00:00
|
|
|
/* List all methods in a chain -- helper for findmethodinchain */
|
1991-10-20 20:21:15 +00:00
|
|
|
|
1997-05-02 03:12:38 +00:00
|
|
|
static PyObject *
|
1995-01-26 22:58:48 +00:00
|
|
|
listmethodchain(chain)
|
1997-05-02 03:12:38 +00:00
|
|
|
PyMethodChain *chain;
|
1991-10-20 20:21:15 +00:00
|
|
|
{
|
1997-05-02 03:12:38 +00:00
|
|
|
PyMethodChain *c;
|
|
|
|
PyMethodDef *ml;
|
1991-10-20 20:21:15 +00:00
|
|
|
int i, n;
|
1997-05-02 03:12:38 +00:00
|
|
|
PyObject *v;
|
1995-01-26 22:58:48 +00:00
|
|
|
|
|
|
|
n = 0;
|
|
|
|
for (c = chain; c != NULL; c = c->link) {
|
|
|
|
for (ml = c->methods; ml->ml_name != NULL; ml++)
|
|
|
|
n++;
|
|
|
|
}
|
1997-05-02 03:12:38 +00:00
|
|
|
v = PyList_New(n);
|
1995-01-26 22:58:48 +00:00
|
|
|
if (v == NULL)
|
|
|
|
return NULL;
|
|
|
|
i = 0;
|
|
|
|
for (c = chain; c != NULL; c = c->link) {
|
|
|
|
for (ml = c->methods; ml->ml_name != NULL; ml++) {
|
1997-05-02 03:12:38 +00:00
|
|
|
PyList_SetItem(v, i, PyString_FromString(ml->ml_name));
|
1995-01-26 22:58:48 +00:00
|
|
|
i++;
|
1991-10-20 20:21:15 +00:00
|
|
|
}
|
|
|
|
}
|
1997-05-02 03:12:38 +00:00
|
|
|
if (PyErr_Occurred()) {
|
|
|
|
Py_DECREF(v);
|
1995-01-26 22:58:48 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
1997-05-02 03:12:38 +00:00
|
|
|
PyList_Sort(v);
|
1991-10-20 20:21:15 +00:00
|
|
|
return v;
|
|
|
|
}
|
|
|
|
|
1995-01-26 22:58:48 +00:00
|
|
|
/* Find a method in a method chain */
|
1990-12-20 15:06:42 +00:00
|
|
|
|
1997-05-02 03:12:38 +00:00
|
|
|
PyObject *
|
|
|
|
Py_FindMethodInChain(chain, self, name)
|
|
|
|
PyMethodChain *chain;
|
|
|
|
PyObject *self;
|
1990-12-20 15:06:42 +00:00
|
|
|
char *name;
|
|
|
|
{
|
1998-06-27 18:28:59 +00:00
|
|
|
if (name[0] == '_' && name[1] == '_') {
|
|
|
|
if (strcmp(name, "__methods__") == 0)
|
|
|
|
return listmethodchain(chain);
|
|
|
|
if (strcmp(name, "__doc__") == 0) {
|
|
|
|
char *doc = self->ob_type->tp_doc;
|
|
|
|
if (doc != NULL)
|
|
|
|
return PyString_FromString(doc);
|
|
|
|
}
|
|
|
|
}
|
1995-01-26 22:58:48 +00:00
|
|
|
while (chain != NULL) {
|
1997-05-02 03:12:38 +00:00
|
|
|
PyMethodDef *ml = chain->methods;
|
1995-01-26 22:58:48 +00:00
|
|
|
for (; ml->ml_name != NULL; ml++) {
|
|
|
|
if (name[0] == ml->ml_name[0] &&
|
|
|
|
strcmp(name+1, ml->ml_name+1) == 0)
|
1997-05-02 03:12:38 +00:00
|
|
|
return PyCFunction_New(ml, self);
|
1995-01-26 22:58:48 +00:00
|
|
|
}
|
|
|
|
chain = chain->link;
|
1990-12-20 15:06:42 +00:00
|
|
|
}
|
1997-05-02 03:12:38 +00:00
|
|
|
PyErr_SetString(PyExc_AttributeError, name);
|
1990-12-20 15:06:42 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
1995-01-26 22:58:48 +00:00
|
|
|
|
|
|
|
/* Find a method in a single method list */
|
|
|
|
|
1997-05-02 03:12:38 +00:00
|
|
|
PyObject *
|
|
|
|
Py_FindMethod(methods, self, name)
|
|
|
|
PyMethodDef *methods;
|
|
|
|
PyObject *self;
|
1995-01-26 22:58:48 +00:00
|
|
|
char *name;
|
|
|
|
{
|
1997-05-02 03:12:38 +00:00
|
|
|
PyMethodChain chain;
|
1995-01-26 22:58:48 +00:00
|
|
|
chain.methods = methods;
|
|
|
|
chain.link = NULL;
|
1997-05-02 03:12:38 +00:00
|
|
|
return Py_FindMethodInChain(&chain, self, name);
|
1995-01-26 22:58:48 +00:00
|
|
|
}
|
1997-08-05 02:11:41 +00:00
|
|
|
|
|
|
|
/* Clear out the free list */
|
|
|
|
|
|
|
|
void
|
|
|
|
PyCFunction_Fini()
|
|
|
|
{
|
|
|
|
while (free_list) {
|
|
|
|
PyCFunctionObject *v = free_list;
|
|
|
|
free_list = (PyCFunctionObject *)(v->m_self);
|
2000-05-03 23:44:39 +00:00
|
|
|
PyObject_DEL(v);
|
1997-08-05 02:11:41 +00:00
|
|
|
}
|
|
|
|
}
|