diff options
| author | Martin v. Löwis <martin@v.loewis.de> | 2003-05-03 09:14:54 (GMT) |
|---|---|---|
| committer | Martin v. Löwis <martin@v.loewis.de> | 2003-05-03 09:14:54 (GMT) |
| commit | c16f3bd8a391a68427a95e15a3c1894198ff0377 (patch) | |
| tree | 113dca8c40c8a42cb665e6bcc4af44f9f68bd230 /Python/sysmodule.c | |
| parent | e59e2bab8fe0fc3d20e815ac0f9b83d361d0d715 (diff) | |
| download | cpython-c16f3bd8a391a68427a95e15a3c1894198ff0377.zip cpython-c16f3bd8a391a68427a95e15a3c1894198ff0377.tar.gz cpython-c16f3bd8a391a68427a95e15a3c1894198ff0377.tar.bz2 | |
Patch #708495: Port more stuff to OpenVMS.
Diffstat (limited to 'Python/sysmodule.c')
| -rw-r--r-- | Python/sysmodule.c | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/Python/sysmodule.c b/Python/sysmodule.c index 50b9912..d06d18a 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 <unixlib.h> +#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; |