mirrors/cpython
1
0
Fork 0
mirror of https://github.com/python/cpython.git synced 2025-10-09 16:34:44 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 17

Initial revision

Browse source
This commit is contained in:
Guido van Rossum 1990-10-14 12:07:46 +00:00
parent c636014c43
commit 85a5fbbdfe
78 changed files with 13589 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

113
Objects/methodobject.c Normal file
View file

@ -0,0 +1,113 @@
/* Method object implementation */
#include <stdio.h>
#include "PROTO.h"
#include "object.h"
#include "node.h"
#include "stringobject.h"
#include "methodobject.h"
#include "objimpl.h"
#include "token.h"
typedef struct {
OB_HEAD
char *m_name;
method m_meth;
object *m_self;
} methodobject;
object *
newmethodobject(name, meth, self)
char *name; /* static string */
method meth;
object *self;
{
methodobject *op = NEWOBJ(methodobject, &Methodtype);
if (op != NULL) {
op->m_name = name;
op->m_meth = meth;
if (self != NULL)
INCREF(self);
op->m_self = self;
}
return (object *)op;
}
method
getmethod(op)
object *op;
{
if (!is_methodobject(op)) {
errno = EBADF;
return NULL;
}
return ((methodobject *)op) -> m_meth;
}
object *
getself(op)
object *op;
{
if (!is_methodobject(op)) {
errno = EBADF;
return NULL;
}
return ((methodobject *)op) -> m_self;
}
/* Methods (the standard built-in methods, that is) */
static void
meth_dealloc(m)
methodobject *m;
{
if (m->m_self != NULL)
DECREF(m->m_self);
free((char *)m);
}
static void
meth_print(m, fp, flags)
methodobject *m;
FILE *fp;
int flags;
{
if (m->m_self == NULL)
fprintf(fp, "<%s method>", m->m_name);
else
fprintf(fp, "<%s method of %s object at %lx>",
m->m_name, m->m_self->ob_type->tp_name,
(long)m->m_self);
}
static object *
meth_repr(m)
methodobject *m;
{
char buf[200];
if (m->m_self == NULL)
sprintf(buf, "<%.80s method>", m->m_name);
else
sprintf(buf, "<%.80s method of %.80s object at %lx>",
m->m_name, m->m_self->ob_type->tp_name,
(long)m->m_self);
return newstringobject(buf);
}
typeobject Methodtype = {
OB_HEAD_INIT(&Typetype)
0,
"method",
sizeof(methodobject),
0,
meth_dealloc, /*tp_dealloc*/
meth_print, /*tp_print*/
0, /*tp_getattr*/
0, /*tp_setattr*/
0, /*tp_compare*/
meth_repr, /*tp_repr*/
0, /*tp_as_number*/
0, /*tp_as_sequence*/
0, /*tp_as_mapping*/
};