/* System module */

/*

Various bits of information used by the interpreter are collected in

module 'sys'.

Function member:

- exit(sts): raise SystemExit

Data members:

- stdin, stdout, stderr: standard file objects

- modules: the table of modules (dictionary)

- path: module search path (list of strings)

- argv: script arguments (list of strings)

- ps1, ps2: optional primary and secondary prompts (strings)

*/

#include "Python.h"

#include "structseq.h"

#include "code.h"

#include "frameobject.h"

#include "eval.h"

#include "osdefs.h"

#ifdef MS_WINDOWS

#define WIN32_LEAN_AND_MEAN

#include <windows.h>

#endif /* MS_WINDOWS */

#ifdef MS_COREDLL

extern void *PyWin_DLLhModule;

/* A string loaded from the DLL at startup: */

extern const char *PyWin_DLLVersionString;

#endif

#ifdef __VMS

#include <unixlib.h>

#endif

#ifdef HAVE_LANGINFO_H

#include <locale.h>

#include <langinfo.h>

#endif

PyObject *

PySys_GetObject(const char *name)

{

PyThreadState *tstate = PyThreadState_GET();

PyObject *sd = tstate->interp->sysdict;

if (sd == NULL)

return NULL;

return PyDict_GetItemString(sd, name);

}

int

PySys_SetObject(const char *name, PyObject *v)

{

PyThreadState *tstate = PyThreadState_GET();

PyObject *sd = tstate->interp->sysdict;

if (v == NULL) {

if (PyDict_GetItemString(sd, name) == NULL)

return 0;

else

return PyDict_DelItemString(sd, name);

}

else

return PyDict_SetItemString(sd, name, v);

}

static PyObject *

sys_displayhook(PyObject *self, PyObject *o)

{

PyObject *outf;

PyInterpreterState *interp = PyThreadState_GET()->interp;

PyObject *modules = interp->modules;

PyObject *builtins = PyDict_GetItemString(modules, "builtins");

if (builtins == NULL) {

PyErr_SetString(PyExc_RuntimeError, "lost builtins module");

return NULL;

}

/* Print value except if None */

/* After printing, also assign to '_' */

/* Before, set '_' to None to avoid recursion */

if (o == Py_None) {

Py_INCREF(Py_None);

return Py_None;

}

if (PyObject_SetAttrString(builtins, "_", Py_None) != 0)

return NULL;

outf = PySys_GetObject("stdout");

if (outf == NULL || outf == Py_None) {

PyErr_SetString(PyExc_RuntimeError, "lost sys.stdout");

return NULL;

}

if (PyFile_WriteObject(o, outf, 0) != 0)

return NULL;

if (PyFile_WriteString("\n", outf) != 0)

return NULL;

if (PyObject_SetAttrString(builtins, "_", o) != 0)

return NULL;

Py_INCREF(Py_None);

return Py_None;

}

PyDoc_STRVAR(displayhook_doc,

"displayhook(object) -> None\n"

"\n"

"Print an object to sys.stdout and also save it in builtins.\n"

);

static PyObject *

sys_excepthook(PyObject* self, PyObject* args)

{

PyObject *exc, *value, *tb;

if (!PyArg_UnpackTuple(args, "excepthook", 3, 3, &exc, &value, &tb))

return NULL;

PyErr_Display(exc, value, tb);

Py_INCREF(Py_None);

return Py_None;

}

PyDoc_STRVAR(excepthook_doc,

"excepthook(exctype, value, traceback) -> None\n"

"\n"

"Handle an exception by displaying it with a traceback on sys.stderr.\n"

);

static PyObject *

sys_exc_info(PyObject *self, PyObject *noargs)

{

PyThreadState *tstate;

tstate = PyThreadState_GET();

return Py_BuildValue(

"(OOO)",

tstate->exc_type != NULL ? tstate->exc_type : Py_None,

tstate->exc_value != NULL ? tstate->exc_value : Py_None,

tstate->exc_traceback != NULL ?

tstate->exc_traceback : Py_None);

}

PyDoc_STRVAR(exc_info_doc,

"exc_info() -> (type, value, traceback)\n\

\n\

Return information about the most recent exception caught by an except\n\

clause in the current stack frame or in an older stack frame."

);

static PyObject *

sys_exit(PyObject *self, PyObject *args)

{

PyObject *exit_code = 0;

if (!PyArg_UnpackTuple(args, "exit", 0, 1, &exit_code))

return NULL;

/* Raise SystemExit so callers may catch it or clean up. */

PyErr_SetObject(PyExc_SystemExit, exit_code);

return NULL;

}

PyDoc_STRVAR(exit_doc,

"exit([status])\n\

\n\

Exit the interpreter by raising SystemExit(status).\n\

If the status is omitted or None, it defaults to zero (i.e., success).\n\

If the status is numeric, it will be used as the system exit status.\n\

If it is another kind of object, it will be printed and the system\n\

exit status will be one (i.e., failure)."

);

static PyObject *

sys_getdefaultencoding(PyObject *self)

{

return PyUnicode_FromString(PyUnicode_GetDefaultEncoding());

}

PyDoc_STRVAR(getdefaultencoding_doc,

"getdefaultencoding() -> string\n\

\n\

Return the current default string encoding used by the Unicode \n\

implementation."

);

static PyObject *

sys_setdefaultencoding(PyObject *self, PyObject *args)

{

char *encoding;

if (!PyArg_ParseTuple(args, "s:setdefaultencoding", &encoding))

return NULL;

if (PyUnicode_SetDefaultEncoding(encoding))

return NULL;

Py_INCREF(Py_None);

return Py_None;

}

PyDoc_STRVAR(setdefaultencoding_doc,

"setdefaultencoding(encoding)\n\

\n\

Set the current default string encoding used by the Unicode implementation."

);

static PyObject *

sys_getfilesystemencoding(PyObject *self)

{

if (Py_FileSystemDefaultEncoding)

return PyUnicode_FromString(Py_FileSystemDefaultEncoding);

Py_INCREF(Py_None);

return Py_None;

}

PyDoc_STRVAR(getfilesystemencoding_doc,

"getfilesystemencoding() -> string\n\

\n\

Return the encoding used to convert Unicode filenames in\n\

operating system filenames."

);

static PyObject *

sys_setfilesystemencoding(PyObject *self, PyObject *args)

{

PyObject *new_encoding;

if (!PyArg_ParseTuple(args, "U:setfilesystemencoding", &new_encoding))

return NULL;

if (_Py_SetFileSystemEncoding(new_encoding))

return NULL;

Py_INCREF(Py_None);

return Py_None;

}

PyDoc_STRVAR(setfilesystemencoding_doc,

"setfilesystemencoding(string) -> None\n\

\n\

Set the encoding used to convert Unicode filenames in\n\

operating system filenames."

);

static PyObject *

sys_intern(PyObject *self, PyObject *args)

{

PyObject *s;

if (!PyArg_ParseTuple(args, "U:intern", &s))

return NULL;

if (PyUnicode_CheckExact(s)) {

Py_INCREF(s);

PyUnicode_InternInPlace(&s);

return s;

}

else {

PyErr_Format(PyExc_TypeError,

"can't intern %.400s", s->ob_type->tp_name);

return NULL;

}

}

PyDoc_STRVAR(intern_doc,

"intern(string) -> string\n\

\n\

``Intern'' the given string. This enters the string in the (global)\n\

table of interned strings whose purpose is to speed up dictionary lookups.\n\

Return the string itself or the previously interned string object with the\n\

same value.");

/*

* Cached interned string objects used for calling the profile and

* trace functions. Initialized by trace_init().

*/

static PyObject *whatstrings[7] = {NULL, NULL, NULL, NULL, NULL, NULL, NULL};

static int

trace_init(void)

{

static char *whatnames[7] = {"call", "exception", "line", "return",

"c_call", "c_exception", "c_return"};

PyObject *name;

int i;

for (i = 0; i < 7; ++i) {

if (whatstrings[i] == NULL) {

name = PyUnicode_InternFromString(whatnames[i]);

if (name == NULL)

return -1;

whatstrings[i] = name;

}

}

return 0;

}

static PyObject *

call_trampoline(PyThreadState *tstate, PyObject* callback,

PyFrameObject *frame, int what, PyObject *arg)

{

PyObject *args = PyTuple_New(3);

PyObject *whatstr;

PyObject *result;

if (args == NULL)

return NULL;

Py_INCREF(frame);

whatstr = whatstrings[what];

Py_INCREF(whatstr);

if (arg == NULL)

arg = Py_None;

Py_INCREF(arg);

PyTuple_SET_ITEM(args, 0, (PyObject *)frame);

PyTuple_SET_ITEM(args, 1, whatstr);

PyTuple_SET_ITEM(args, 2, arg);

/* call the Python-level function */

PyFrame_FastToLocals(frame);

result = PyEval_CallObject(callback, args);

PyFrame_LocalsToFast(frame, 1);

if (result == NULL)

PyTraceBack_Here(frame);

/* cleanup */

Py_DECREF(args);

return result;

}

static int

profile_trampoline(PyObject *self, PyFrameObject *frame,

int what, PyObject *arg)

{

PyThreadState *tstate = frame->f_tstate;

PyObject *result;

if (arg == NULL)

arg = Py_None;

result = call_trampoline(tstate, self, frame, what, arg);

if (result == NULL) {

PyEval_SetProfile(NULL, NULL);

return -1;

}

Py_DECREF(result);

return 0;

}

static int

trace_trampoline(PyObject *self, PyFrameObject *frame,

int what, PyObject *arg)

{

PyThreadState *tstate = frame->f_tstate;

PyObject *callback;

PyObject *result;

if (what == PyTrace_CALL)

callback = self;

else

callback = frame->f_trace;

if (callback == NULL)

return 0;

result = call_trampoline(tstate, callback, frame, what, arg);

if (result == NULL) {

PyEval_SetTrace(NULL, NULL);

Py_XDECREF(frame->f_trace);

frame->f_trace = NULL;

return -1;

}

if (result != Py_None) {

PyObject *temp = frame->f_trace;

frame->f_trace = NULL;

Py_XDECREF(temp);

frame->f_trace = result;

}

else {

Py_DECREF(result);

}

return 0;

}

static PyObject *

sys_settrace(PyObject *self, PyObject *args)

{

if (trace_init() == -1)

return NULL;

if (args == Py_None)

PyEval_SetTrace(NULL, NULL);

else

PyEval_SetTrace(trace_trampoline, args);

Py_INCREF(Py_None);

return Py_None;

}

PyDoc_STRVAR(settrace_doc,

"settrace(function)\n\

\n\

Set the global debug tracing function. It will be called on each\n\

function call. See the debugger chapter in the library manual."

);

static PyObject *

sys_gettrace(PyObject *self, PyObject *args)

{

PyThreadState *tstate = PyThreadState_GET();

PyObject *temp = tstate->c_traceobj;

if (temp == NULL)

temp = Py_None;

Py_INCREF(temp);

return temp;

}

PyDoc_STRVAR(gettrace_doc,

"gettrace()\n\

\n\

Return the global debug tracing function set with sys.settrace.\n\

See the debugger chapter in the library manual."

);

static PyObject *

sys_setprofile(PyObject *self, PyObject *args)

{

if (trace_init() == -1)

return NULL;

if (args == Py_None)

PyEval_SetProfile(NULL, NULL);

else

PyEval_SetProfile(profile_trampoline, args);

Py_INCREF(Py_None);

return Py_None;

}

PyDoc_STRVAR(setprofile_doc,

"setprofile(function)\n\

\n\

Set the profiling function. It will be called on each function call\n\

and return. See the profiler chapter in the library manual."

);

static PyObject *

sys_getprofile(PyObject *self, PyObject *args)

{

PyThreadState *tstate = PyThreadState_GET();

PyObject *temp = tstate->c_profileobj;

if (temp == NULL)

temp = Py_None;

Py_INCREF(temp);

return temp;

}

PyDoc_STRVAR(getprofile_doc,

"getprofile()\n\

\n\

Return the profiling function set with sys.setprofile.\n\

See the profiler chapter in the library manual."

);

static PyObject *

sys_setcheckinterval(PyObject *self, PyObject *args)

{

if (!PyArg_ParseTuple(args, "i:setcheckinterval", &_Py_CheckInterval))

return NULL;

Py_INCREF(Py_None);

return Py_None;

}

PyDoc_STRVAR(setcheckinterval_doc,

"setcheckinterval(n)\n\

\n\

Tell the Python interpreter to check for asynchronous events every\n\

n instructions. This also affects how often thread switches occur."

);

static PyObject *

sys_getcheckinterval(PyObject *self, PyObject *args)

{

return PyLong_FromLong(_Py_CheckInterval);

}

PyDoc_STRVAR(getcheckinterval_doc,

"getcheckinterval() -> current check interval; see setcheckinterval()."

);

#ifdef WITH_TSC

static PyObject *

sys_settscdump(PyObject *self, PyObject *args)

{

int bool;

PyThreadState *tstate = PyThreadState_Get();

if (!PyArg_ParseTuple(args, "i:settscdump", &bool))

return NULL;

if (bool)

tstate->interp->tscdump = 1;

else

tstate->interp->tscdump = 0;

Py_INCREF(Py_None);

return Py_None;

}

PyDoc_STRVAR(settscdump_doc,

"settscdump(bool)\n\

\n\

If true, tell the Python interpreter to dump VM measurements to\n\

stderr. If false, turn off dump. The measurements are based on the\n\

processor's time-stamp counter."

);

#endif /* TSC */

static PyObject *

sys_setrecursionlimit(PyObject *self, PyObject *args)

{

int new_limit;

if (!PyArg_ParseTuple(args, "i:setrecursionlimit", &new_limit))

return NULL;

if (new_limit <= 0) {

PyErr_SetString(PyExc_ValueError,

"recursion limit must be positive");

return NULL;

}

Py_SetRecursionLimit(new_limit);

Py_INCREF(Py_None);

return Py_None;

}

PyDoc_STRVAR(setrecursionlimit_doc,

"setrecursionlimit(n)\n\

\n\

Set the maximum depth of the Python interpreter stack to n. This\n\

limit prevents infinite recursion from causing an overflow of the C\n\

stack and crashing Python. The highest possible limit is platform-\n\

dependent."

);

static PyObject *

sys_getrecursionlimit(PyObject *self)

{

return PyLong_FromLong(Py_GetRecursionLimit());

}

PyDoc_STRVAR(getrecursionlimit_doc,

"getrecursionlimit()\n\

\n\

Return the current value of the recursion limit, the maximum depth\n\

of the Python interpreter stack. This limit prevents infinite\n\

recursion from causing an overflow of the C stack and crashing Python."

);

#ifdef MS_WINDOWS

PyDoc_STRVAR(getwindowsversion_doc,

"getwindowsversion()\n\

\n\

Return information about the running version of Windows.\n\

The result is a tuple of (major, minor, build, platform, text)\n\

All elements are numbers, except text which is a string.\n\

Platform may be 0 for win32s, 1 for Windows 9x/ME, 2 for Windows NT/2000/XP\n\

"

);

static PyObject *

sys_getwindowsversion(PyObject *self)

{

OSVERSIONINFO ver;

ver.dwOSVersionInfoSize = sizeof(ver);

if (!GetVersionEx(&ver))

return PyErr_SetFromWindowsErr(0);

return Py_BuildValue("HHHHs",

ver.dwMajorVersion,

ver.dwMinorVersion,

ver.dwBuildNumber,

ver.dwPlatformId,

ver.szCSDVersion);

}

#endif /* MS_WINDOWS */

#ifdef HAVE_DLOPEN

static PyObject *

sys_setdlopenflags(PyObject *self, PyObject *args)

{

int new_val;

PyThreadState *tstate = PyThreadState_GET();

if (!PyArg_ParseTuple(args, "i:setdlopenflags", &new_val))

return NULL;

if (!tstate)

return NULL;

tstate->interp->dlopenflags = new_val;

Py_INCREF(Py_None);

return Py_None;

}

PyDoc_STRVAR(setdlopenflags_doc,

"setdlopenflags(n) -> None\n\

\n\

Set the flags that will be used for dlopen() calls. Among other\n\

things, this will enable a lazy resolving of symbols when importing\n\

a module, if called as sys.setdlopenflags(0)\n\

To share symbols across extension modules, call as\n\

sys.setdlopenflags(dl.RTLD_NOW|dl.RTLD_GLOBAL)"

);

static PyObject *

sys_getdlopenflags(PyObject *self, PyObject *args)

{

PyThreadState *tstate = PyThreadState_GET();

if (!tstate)

return NULL;

return PyLong_FromLong(tstate->interp->dlopenflags);

}

PyDoc_STRVAR(getdlopenflags_doc,

"getdlopenflags() -> int\n\

\n\

Return the current value of the flags that are used for dlopen()\n\

calls. The flag constants are defined in the dl module."

);

#endif

#ifdef USE_MALLOPT

/* Link with -lmalloc (or -lmpc) on an SGI */

#include <malloc.h>

static PyObject *

sys_mdebug(PyObject *self, PyObject *args)

{

int flag;

if (!PyArg_ParseTuple(args, "i:mdebug", &flag))

return NULL;

mallopt(M_DEBUG, flag);

Py_INCREF(Py_None);

return Py_None;

}

#endif /* USE_MALLOPT */

static PyObject *

sys_getsizeof(PyObject *self, PyObject *args, PyObject *kwds)

{

PyObject *res = NULL;

static PyObject *str__sizeof__, *gc_head_size = NULL;

static char *kwlist[] = {"object", "default", 0};

PyObject *o, *dflt = NULL;

PyObject *method;

if (!PyArg_ParseTupleAndKeywords(args, kwds, "O|O:getsizeof",

kwlist, &o, &dflt))

return NULL;

/* Initialize static variable needed by _PyType_Lookup */

if (str__sizeof__ == NULL) {

str__sizeof__ = PyUnicode_InternFromString("__sizeof__");

if (str__sizeof__ == NULL)

return NULL;

}

/* Initialize static variable for GC head size */

if (gc_head_size == NULL) {

gc_head_size = PyLong_FromSsize_t(sizeof(PyGC_Head));

if (gc_head_size == NULL)

return NULL;

}

/* Make sure the type is initialized. float gets initialized late */

if (PyType_Ready(Py_TYPE(o)) < 0)

return NULL;

method = _PyType_Lookup(Py_TYPE(o), str__sizeof__);

if (method == NULL)

PyErr_Format(PyExc_TypeError,

"Type %.100s doesn't define __sizeof__",

Py_TYPE(o)->tp_name);

else

res = PyObject_CallFunctionObjArgs(method, o, NULL);

/* Has a default value been given */

if ((res == NULL) && (dflt != NULL) &&

PyErr_ExceptionMatches(PyExc_TypeError))

{

PyErr_Clear();

Py_INCREF(dflt);

return dflt;

}

else if (res == NULL)

return res;

/* add gc_head size */

if (PyObject_IS_GC(o)) {

PyObject *tmp = res;

res = PyNumber_Add(tmp, gc_head_size);

Py_DECREF(tmp);

}

return res;

}

PyDoc_STRVAR(getsizeof_doc,

"getsizeof(object, default) -> int\n\

\n\

Return the size of object in bytes.");

static PyObject *

sys_getrefcount(PyObject *self, PyObject *arg)

{

return PyLong_FromSsize_t(arg->ob_refcnt);

}

#ifdef Py_REF_DEBUG

static PyObject *

sys_gettotalrefcount(PyObject *self)

{

return PyLong_FromSsize_t(_Py_GetRefTotal());

}

#endif /* Py_REF_DEBUG */

PyDoc_STRVAR(getrefcount_doc,

"getrefcount(object) -> integer\n\

\n\

Return the reference count of object. The count returned is generally\n\

one higher than you might expect, because it includes the (temporary)\n\

reference as an argument to getrefcount()."

);

#ifdef COUNT_ALLOCS

static PyObject *

sys_getcounts(PyObject *self)

{

extern PyObject *get_counts(void);

return get_counts();

}

#endif

PyDoc_STRVAR(getframe_doc,

"_getframe([depth]) -> frameobject\n\

\n\

Return a frame object from the call stack. If optional integer depth is\n\

given, return the frame object that many calls below the top of the stack.\n\

If that is deeper than the call stack, ValueError is raised. The default\n\

for depth is zero, returning the frame at the top of the call stack.\n\

\n\

This function should be used for internal and specialized\n\

purposes only."

);

static PyObject *

sys_getframe(PyObject *self, PyObject *args)

{

PyFrameObject *f = PyThreadState_GET()->frame;

int depth = -1;

if (!PyArg_ParseTuple(args, "|i:_getframe", &depth))

return NULL;

while (depth > 0 && f != NULL) {

f = f->f_back;

--depth;

}

if (f == NULL) {

PyErr_SetString(PyExc_ValueError,

"call stack is not deep enough");

return NULL;

}

Py_INCREF(f);

return (PyObject*)f;

}

PyDoc_STRVAR(current_frames_doc,

"_current_frames() -> dictionary\n\

\n\

Return a dictionary mapping each current thread T's thread id to T's\n\

current stack frame.\n\

\n\

This function should be used for specialized purposes only."

);

static PyObject *

sys_current_frames(PyObject *self, PyObject *noargs)

{

return _PyThread_CurrentFrames();

}

PyDoc_STRVAR(call_tracing_doc,

"call_tracing(func, args) -> object\n\

\n\

Call func(*args), while tracing is enabled. The tracing state is\n\

saved, and restored afterwards. This is intended to be called from\n\

a debugger from a checkpoint, to recursively debug some other code."

);

static PyObject *

sys_call_tracing(PyObject *self, PyObject *args)

{

PyObject *func, *funcargs;

if (!PyArg_ParseTuple(args, "OO!:call_tracing", &func, &PyTuple_Type, &funcargs))

return NULL;

return _PyEval_CallTracing(func, funcargs);

}

PyDoc_STRVAR(callstats_doc,

"callstats() -> tuple of integers\n\

\n\

Return a tuple of function call statistics, if CALL_PROFILE was defined\n\

when Python was built. Otherwise, return None.\n\

\n\

When enabled, this function returns detailed, implementation-specific\n\

details about the number of function calls executed. The return value is\n\

a 11-tuple where the entries in the tuple are counts of:\n\

0. all function calls\n\

1. calls to PyFunction_Type objects\n\

2. PyFunction calls that do not create an argument tuple\n\

3. PyFunction calls that do not create an argument tuple\n\

and bypass PyEval_EvalCodeEx()\n\

4. PyMethod calls\n\

5. PyMethod calls on bound methods\n\

6. PyType calls\n\

7. PyCFunction calls\n\

8. generator calls\n\

9. All other calls\n\

10. Number of stack pops performed by call_function()"

);

#ifdef __cplusplus

extern "C" {

#endif

#ifdef Py_TRACE_REFS

/* Defined in objects.c because it uses static globals if that file */

extern PyObject *_Py_GetObjects(PyObject *, PyObject *);

#endif

#ifdef DYNAMIC_EXECUTION_PROFILE

/* Defined in ceval.c because it uses static globals if that file */

extern PyObject *_Py_GetDXProfile(PyObject *, PyObject *);

#endif

#ifdef __cplusplus

}

#endif

static PyObject *

sys_clear_type_cache(PyObject* self, PyObject* args)

{

PyType_ClearCache();

Py_RETURN_NONE;

}

PyDoc_STRVAR(sys_clear_type_cache__doc__,

"_clear_type_cache() -> None\n\

Clear the internal type lookup cache.");

static PyMethodDef sys_methods[] = {

/* Might as well keep this in alphabetic order */

{"callstats", (PyCFunction)PyEval_GetCallStats, METH_NOARGS,

callstats_doc},

{"_clear_type_cache", sys_clear_type_cache, METH_NOARGS,

sys_clear_type_cache__doc__},

{"_current_frames", sys_current_frames, METH_NOARGS,

current_frames_doc},

{"displayhook", sys_displayhook, METH_O, displayhook_doc},

{"exc_info", sys_exc_info, METH_NOARGS, exc_info_doc},

{"excepthook", sys_excepthook, METH_VARARGS, excepthook_doc},

{"exit", sys_exit, METH_VARARGS, exit_doc},

{"getdefaultencoding", (PyCFunction)sys_getdefaultencoding,

METH_NOARGS, getdefaultencoding_doc},

#ifdef HAVE_DLOPEN

{"getdlopenflags", (PyCFunction)sys_getdlopenflags, METH_NOARGS,

getdlopenflags_doc},

#endif

#ifdef COUNT_ALLOCS

{"getcounts", (PyCFunction)sys_getcounts, METH_NOARGS},

#endif

#ifdef DYNAMIC_EXECUTION_PROFILE

{"getdxp", _Py_GetDXProfile, METH_VARARGS},

#endif

{"getfilesystemencoding", (PyCFunction)sys_getfilesystemencoding,

METH_NOARGS, getfilesystemencoding_doc},

#ifdef Py_TRACE_REFS

{"getobjects", _Py_GetObjects, METH_VARARGS},

#endif

#ifdef Py_REF_DEBUG

{"gettotalrefcount", (PyCFunction)sys_gettotalrefcount, METH_NOARGS},

#endif

{"getrefcount", (PyCFunction)sys_getrefcount, METH_O, getrefcount_doc},

{"getrecursionlimit", (PyCFunction)sys_getrecursionlimit, METH_NOARGS,

getrecursionlimit_doc},

{"getsizeof", (PyCFunction)sys_getsizeof,

METH_VARARGS | METH_KEYWORDS, getsizeof_doc},

{"_getframe", sys_getframe, METH_VARARGS, getframe_doc},

#ifdef MS_WINDOWS

{"getwindowsversion", (PyCFunction)sys_getwindowsversion, METH_NOARGS,

getwindowsversion_doc},

#endif /* MS_WINDOWS */

{"intern", sys_intern, METH_VARARGS, intern_doc},

#ifdef USE_MALLOPT

{"mdebug", sys_mdebug, METH_VARARGS},

#endif

{"setdefaultencoding", sys_setdefaultencoding, METH_VARARGS,

setdefaultencoding_doc},

{"setfilesystemencoding", sys_setfilesystemencoding, METH_VARARGS,

setfilesystemencoding_doc},

{"setcheckinterval", sys_setcheckinterval, METH_VARARGS,

setcheckinterval_doc},

{"getcheckinterval", sys_getcheckinterval, METH_NOARGS,

getcheckinterval_doc},

#ifdef HAVE_DLOPEN

{"setdlopenflags", sys_setdlopenflags, METH_VARARGS,

setdlopenflags_doc},

#endif

{"setprofile", sys_setprofile, METH_O, setprofile_doc},

{"getprofile", sys_getprofile, METH_NOARGS, getprofile_doc},

{"setrecursionlimit", sys_setrecursionlimit, METH_VARARGS,

setrecursionlimit_doc},

#ifdef WITH_TSC

{"settscdump", sys_settscdump, METH_VARARGS, settscdump_doc},

#endif

{"settrace", sys_settrace, METH_O, settrace_doc},

{"gettrace", sys_gettrace, METH_NOARGS, gettrace_doc},

{"call_tracing", sys_call_tracing, METH_VARARGS, call_tracing_doc},

{NULL, NULL} /* sentinel */

};

static PyObject *

list_builtin_module_names(void)

{

PyObject *list = PyList_New(0);

int i;

if (list == NULL)

return NULL;

for (i = 0; PyImport_Inittab[i].name != NULL; i++) {

PyObject *name = PyUnicode_FromString(

PyImport_Inittab[i].name);

if (name == NULL)

break;

PyList_Append(list, name);

Py_DECREF(name);

}

if (PyList_Sort(list) != 0) {

Py_DECREF(list);

list = NULL;

}

if (list) {

PyObject *v = PyList_AsTuple(list);

Py_DECREF(list);

list = v;

}

return list;

}

static PyObject *warnoptions = NULL;

void

PySys_ResetWarnOptions(void)

{

if (warnoptions == NULL || !PyList_Check(warnoptions))

return;

PyList_SetSlice(warnoptions, 0, PyList_GET_SIZE(warnoptions), NULL);

}

void

PySys_AddWarnOption(const wchar_t *s)

{

PyObject *str;

if (warnoptions == NULL || !PyList_Check(warnoptions)) {

Py_XDECREF(warnoptions);

warnoptions = PyList_New(0);

if (warnoptions == NULL)

return;

}

str = PyUnicode_FromWideChar(s, -1);

if (str != NULL) {

PyList_Append(warnoptions, str);

Py_DECREF(str);

}

}

int

PySys_HasWarnOptions(void)

{

return (warnoptions != NULL && (PyList_Size(warnoptions) > 0)) ? 1 : 0;

}

/* XXX This doc string is too long to be a single string literal in VC++ 5.0.

Two literals concatenated works just fine. If you have a K&R compiler

or other abomination that however *does* understand longer strings,

get rid of the !!! comment in the middle and the quotes that surround it. */

PyDoc_VAR(sys_doc) =

PyDoc_STR(

"This module provides access to some objects used or maintained by the\n\

interpreter and to functions that interact strongly with the interpreter.\n\

\n\

Dynamic objects:\n\

\n\

argv -- command line arguments; argv[0] is the script pathname if known\n\

path -- module search path; path[0] is the script directory, else ''\n\

modules -- dictionary of loaded modules\n\

\n\

displayhook -- called to show results in an interactive session\n\

excepthook -- called to handle any uncaught exception other than SystemExit\n\

To customize printing in an interactive session or to install a custom\n\

top-level exception handler, assign other functions to replace these.\n\

\n\

stdin -- standard input file object; used by input()\n\

stdout -- standard output file object; used by print()\n\

stderr -- standard error object; used for error messages\n\

By assigning other file objects (or objects that behave like files)\n\

to these, it is possible to redirect all of the interpreter's I/O.\n\