1995-01-07 11:50:36 +00:00
|
|
|
/***********************************************************
|
|
|
|
Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam,
|
|
|
|
The Netherlands.
|
|
|
|
|
|
|
|
All Rights Reserved
|
|
|
|
|
|
|
|
Permission to use, copy, modify, and distribute this software and its
|
|
|
|
documentation for any purpose and without fee is hereby granted,
|
|
|
|
provided that the above copyright notice appear in all copies and that
|
|
|
|
both that copyright notice and this permission notice appear in
|
|
|
|
supporting documentation, and that the names of Stichting Mathematisch
|
|
|
|
Centrum or CWI not be used in advertising or publicity pertaining to
|
|
|
|
distribution of the software without specific, written prior permission.
|
|
|
|
|
|
|
|
STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO
|
|
|
|
THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
|
|
|
|
FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM 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.
|
|
|
|
|
|
|
|
******************************************************************/
|
|
|
|
|
|
|
|
/* Module new -- create new objects of various types */
|
|
|
|
|
1994-05-23 12:37:57 +00:00
|
|
|
#include "allobjects.h"
|
|
|
|
#include "compile.h"
|
|
|
|
|
1995-01-07 11:50:36 +00:00
|
|
|
static char new_im_doc[] =
|
|
|
|
"Create a instance method object from (FUNCTION, INSTANCE, CLASS).";
|
1994-05-23 12:37:57 +00:00
|
|
|
|
1995-01-07 11:50:36 +00:00
|
|
|
static object *
|
1994-05-23 12:37:57 +00:00
|
|
|
new_instancemethod(unused, args)
|
1995-01-07 11:50:36 +00:00
|
|
|
object* unused;
|
|
|
|
object* args;
|
1994-05-23 12:37:57 +00:00
|
|
|
{
|
1995-01-07 11:50:36 +00:00
|
|
|
object* func;
|
|
|
|
object* self;
|
|
|
|
object* classObj;
|
|
|
|
|
|
|
|
if (!newgetargs(args, "O!O!O!",
|
|
|
|
&Functype, &func,
|
|
|
|
&Instancetype, &self,
|
|
|
|
&Classtype, &classObj))
|
|
|
|
return NULL;
|
|
|
|
return newinstancemethodobject(func, self, classObj);
|
1994-05-23 12:37:57 +00:00
|
|
|
}
|
|
|
|
|
1995-07-28 16:44:53 +00:00
|
|
|
/* XXX These internal interfaces have changed -- who'll fix this code? */
|
|
|
|
#if 0
|
|
|
|
|
1995-01-07 11:50:36 +00:00
|
|
|
static char new_function_doc[] =
|
|
|
|
"Create a function object from (CODE, GLOBALS, [NAME, ARGCOUNT, ARGDEFS]).";
|
|
|
|
|
|
|
|
static object *
|
1994-05-23 12:37:57 +00:00
|
|
|
new_function(unused, args)
|
1995-01-07 11:50:36 +00:00
|
|
|
object* unused;
|
|
|
|
object* args;
|
1994-05-23 12:37:57 +00:00
|
|
|
{
|
1995-01-07 11:50:36 +00:00
|
|
|
object* code;
|
|
|
|
object* globals;
|
|
|
|
object* name = None;
|
|
|
|
int argcount = -1;
|
|
|
|
object* argdefs = None;
|
|
|
|
funcobject* newfunc;
|
1994-05-23 12:37:57 +00:00
|
|
|
|
1995-01-07 11:50:36 +00:00
|
|
|
if (!newgetargs(args, "O!O!|SiO!",
|
|
|
|
&Codetype, &code,
|
|
|
|
&Mappingtype, &globals,
|
|
|
|
&name,
|
|
|
|
&argcount,
|
|
|
|
&Tupletype, &argdefs))
|
|
|
|
return NULL;
|
1994-05-23 12:37:57 +00:00
|
|
|
|
1995-01-07 11:50:36 +00:00
|
|
|
newfunc = (funcobject *)newfuncobject(code, globals);
|
|
|
|
if (newfunc == NULL)
|
|
|
|
return NULL;
|
1994-05-23 12:37:57 +00:00
|
|
|
|
1995-01-07 11:50:36 +00:00
|
|
|
if (name != None) {
|
|
|
|
XINCREF(name);
|
|
|
|
XDECREF(newfunc->func_name);
|
|
|
|
newfunc->func_name = name;
|
|
|
|
}
|
|
|
|
newfunc->func_argcount = argcount;
|
|
|
|
if (argdefs != NULL) {
|
|
|
|
XINCREF(argdefs);
|
|
|
|
XDECREF(newfunc->func_argdefs);
|
|
|
|
newfunc->func_argdefs = argdefs;
|
|
|
|
}
|
1994-05-23 12:37:57 +00:00
|
|
|
|
1995-01-07 11:50:36 +00:00
|
|
|
return (object *)newfunc;
|
1994-05-23 12:37:57 +00:00
|
|
|
}
|
1995-09-30 17:01:02 +00:00
|
|
|
#endif
|
1994-05-23 12:37:57 +00:00
|
|
|
|
1995-01-07 11:50:36 +00:00
|
|
|
static char new_code_doc[] =
|
1995-09-30 17:01:02 +00:00
|
|
|
"Create a code object from (ARGCOUNT, NLOCALS, FLAGS, CODESTRING, CONSTANTS, NAMES, VARNAMES, FILENAME, NAME).";
|
1995-01-07 11:50:36 +00:00
|
|
|
|
|
|
|
static object *
|
1994-05-23 12:37:57 +00:00
|
|
|
new_code(unused, args)
|
1995-01-07 11:50:36 +00:00
|
|
|
object* unused;
|
|
|
|
object* args;
|
1994-05-23 12:37:57 +00:00
|
|
|
{
|
1995-09-30 17:01:02 +00:00
|
|
|
int argcount;
|
|
|
|
int nlocals;
|
|
|
|
int flags;
|
1995-01-07 11:50:36 +00:00
|
|
|
object* code;
|
|
|
|
object* consts;
|
|
|
|
object* names;
|
1995-09-30 17:01:02 +00:00
|
|
|
object* varnames;
|
1995-01-07 11:50:36 +00:00
|
|
|
object* filename;
|
|
|
|
object* name;
|
1994-05-23 12:37:57 +00:00
|
|
|
|
1995-09-30 17:01:02 +00:00
|
|
|
#if 0
|
1995-01-07 11:50:36 +00:00
|
|
|
if (!newgetargs(args, "SO!O!SS",
|
|
|
|
&code, &Tupletype, &consts, &Tupletype, &names,
|
|
|
|
&filename, &name))
|
|
|
|
return NULL;
|
|
|
|
return (object *)newcodeobject(code, consts, names, filename, name);
|
1995-09-30 17:01:02 +00:00
|
|
|
#else
|
|
|
|
if (!newgetargs(args, "iiiSO!O!O!SS",
|
|
|
|
&argcount, &nlocals, &flags, /* These are new */
|
|
|
|
&code, &Tupletype, &consts, &Tupletype, &names,
|
|
|
|
&Tupletype, &varnames, /* These are new */
|
|
|
|
&filename, &name))
|
|
|
|
return NULL;
|
|
|
|
return (object *)newcodeobject(argcount, nlocals, flags,
|
|
|
|
code, consts, names, varnames, filename, name);
|
1995-07-28 16:44:53 +00:00
|
|
|
#endif
|
1995-09-30 17:01:02 +00:00
|
|
|
}
|
1994-05-23 12:37:57 +00:00
|
|
|
|
1995-01-07 11:50:36 +00:00
|
|
|
static char new_module_doc[] =
|
|
|
|
"Create a module object from (NAME).";
|
|
|
|
|
|
|
|
static object *
|
1994-05-23 12:37:57 +00:00
|
|
|
new_module(unused, args)
|
1995-01-07 11:50:36 +00:00
|
|
|
object* unused;
|
|
|
|
object* args;
|
1994-05-23 12:37:57 +00:00
|
|
|
{
|
1995-01-07 11:50:36 +00:00
|
|
|
char *name;
|
1994-05-23 12:37:57 +00:00
|
|
|
|
1995-01-07 11:50:36 +00:00
|
|
|
if (!newgetargs(args, "s", &name))
|
|
|
|
return NULL;
|
|
|
|
return newmoduleobject(name);
|
1994-05-23 12:37:57 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
static struct methodlist new_methods[] = {
|
1995-01-07 11:50:36 +00:00
|
|
|
{"instancemethod", new_instancemethod, 1, new_im_doc},
|
1995-07-28 16:44:53 +00:00
|
|
|
#if 0
|
1995-01-07 11:50:36 +00:00
|
|
|
{"function", new_function, 1, new_function_doc},
|
1995-07-28 16:44:53 +00:00
|
|
|
#endif
|
1995-09-30 17:01:02 +00:00
|
|
|
{"code", new_code, 1, new_code_doc},
|
1995-01-07 11:50:36 +00:00
|
|
|
{"module", new_module, 1, new_module_doc},
|
|
|
|
{NULL, NULL} /* sentinel */
|
1994-05-23 12:37:57 +00:00
|
|
|
};
|
|
|
|
|
1995-01-07 11:50:36 +00:00
|
|
|
char new_doc[] =
|
|
|
|
"Functions to create new objects used by the interpreter.\n\
|
|
|
|
\n\
|
|
|
|
You need to know a great deal about the interpreter to use this!";
|
|
|
|
|
1994-05-23 12:37:57 +00:00
|
|
|
void
|
|
|
|
initnew()
|
|
|
|
{
|
1995-01-09 17:49:26 +00:00
|
|
|
initmodule4("new", new_methods, new_doc, (object *)NULL,
|
|
|
|
PYTHON_API_VERSION);
|
1994-05-23 12:37:57 +00:00
|
|
|
}
|