From c16f3bd8a391a68427a95e15a3c1894198ff0377 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Martin=20v=2E=20L=C3=B6wis?= Date: Sat, 3 May 2003 09:14:54 +0000 Subject: Patch #708495: Port more stuff to OpenVMS. --- Python/sysmodule.c | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to 'Python/sysmodule.c') diff --git a/Python/sysmodule.c b/Python/sysmodule.c index 50b99127a0..d06d18a98b 100644 --- a/Python/sysmodule.c +++ b/Python/sysmodule.c @@ -32,6 +32,10 @@ extern void *PyWin_DLLhModule; extern const char *PyWin_DLLVersionString; #endif +#ifdef __VMS +#include +#endif + PyObject * PySys_GetObject(char *name) { @@ -1050,7 +1054,22 @@ makeargvobject(int argc, char **argv) if (av != NULL) { int i; for (i = 0; i < argc; i++) { +#ifdef __VMS + PyObject *v; + + /* argv[0] is the script pathname if known */ + if (i == 0) { + char* fn = decc$translate_vms(argv[0]); + if ((fn == (char *)0) || fn == (char *)-1) + v = PyString_FromString(argv[0]); + else + v = PyString_FromString( + decc$translate_vms(argv[0])); + } else + v = PyString_FromString(argv[i]); +#else PyObject *v = PyString_FromString(argv[i]); +#endif if (v == NULL) { Py_DECREF(av); av = NULL; -- cgit v1.2.1