Added settrace() and setprofile().

diff --git a/Python/sysmodule.c b/Python/sysmodule.c
index 7089fc7a3d81cf5b212df788e03df278152a4236..8b99e2701a33002dcbc2ece7ad107c164fac08d0 100644 (file)
--- a/Python/sysmodule.c
+++ b/Python/sysmodule.c
@@ -42,20 +42,9 @@ Data members:
 #include "sysmodule.h"
 #include "import.h"
 #include "modsupport.h"
+#include "osdefs.h"
 
-/* Define delimiter used in $PYTHONPATH */
-
-#ifdef macintosh
-#define DELIM ' '
-#endif
-
-#ifdef MSDOS
-#define DELIM ';'
-#endif
-
-#ifndef DELIM
-#define DELIM ':'
-#endif
+object *sys_trace, *sys_profile;
 
 static object *sysdict;
 
@@ -105,8 +94,36 @@ sys_exit(self, args)
        return NULL;
 }
 
+static object *
+sys_settrace(self, args)
+       object *self;
+       object *args;
+{
+       if (args == None)
+               args = NULL;
+       XINCREF(args);
+       sys_trace = args;
+       INCREF(None);
+       return None;
+}
+
+static object *
+sys_setprofile(self, args)
+       object *self;
+       object *args;
+{
+       if (args == None)
+               args = NULL;
+       XINCREF(args);
+       sys_profile = args;
+       INCREF(None);
+       return None;
+}
+
 static struct methodlist sys_methods[] = {
        {"exit",        sys_exit},
+       {"setprofile",  sys_setprofile},
+       {"settrace",    sys_settrace},
        {NULL,          NULL}           /* sentinel */
 };