# include <unixio.h>
# include <unixlib.h>
# include <stat.h>
-/* ----- */
-/* DECC on Alpha does redefine these already */
-# ifndef shell$from_vms
-# define shell$from_vms(_p1_,_p2_,_p3_) decc$from_vms(_p1_,_p2_,_p3_)
-# endif
-# ifndef shell$translate_vms
-# define shell$translate_vms(_p1_) decc$translate_vms(_p1_)
-# endif
-# ifndef shell$to_vms
-# define shell$to_vms(_p1_,_p2_,_p3_,_p4_,_p5_) \
- decc$to_vms(_p1_,_p2_,_p3_,_p4_,_p5_)
-# endif
# include <wait.h> /* define wait() */
#endif /* defined(__VMS) */
#define HAVE_SYSTEM 1
#define HAVE_WAIT 1
#define HAVE_TTYNAME 1
-#endif /* PYOS_OS2 && PYCC_GCC */
+#endif /* PYOS_OS2 && PYCC_GCC && __VMS */
#endif /* _MSC_VER */
#endif /* __BORLANDC__ */
#endif /* ! __WATCOMC__ || __QNX__ */
#endif /* !_MSC_VER */
#if defined(__VMS)
-static char psxmod_gt_psxpath[1026];
-
-static int
-psxmod_from_vms_action (char *spec)
-{
- (void)strcpy(psxmod_gt_psxpath, spec);
- return 1;
-}
-
-/* Return a dictionary corresponding to the VMS 'environment table' */
-static char* at_home = "HOME";
-static char* at_path = "PATH";
-
-static char psxmod_t_command [] = "SYS$COMMAND";
/* add some values to provide a similar environment like POSIX */
+static
void
-psmmod_add_posix_env(PyObject *d)
-{
- /* -------------------- */
- struct dsc$descriptor_s r_device_name;
- long l_devbufsiz;
- long l_tt_page;
- long l_item_code;
- long l_status;
+vms_add_posix_env(PyObject *d)
+{
PyObject *o;
- struct dsc$descriptor_s r_resultant_string;
- char t_resultant_string[13]; /* enough space for username (12)+ '\0' */
- char *at_resultant_string;
- short int w_resultant_length;
-
- /* set up string descriptor */
- r_device_name.dsc$w_length = strlen(psxmod_t_command);
- r_device_name.dsc$b_dtype = DSC$K_DTYPE_T;
- r_device_name.dsc$b_class = DSC$K_CLASS_S;
- r_device_name.dsc$a_pointer = &psxmod_t_command[0];
-
- /* -------------------- */
- /* COLUMNS = $getdvi("SYS$COMMAND","DEVBUFSIZ") */
- l_item_code = DVI$_DEVBUFSIZ;
- l_status = lib$getdvi(&l_item_code,
- 0, /* [channel] */
- &r_device_name,
- &l_devbufsiz, /* integer-value */
- 0, /* resultant_string */
- 0); /* resultant_length */
- if (l_status == SS$_NORMAL) {
- /* create a string object here to comply with POSIX */
-
- /* set up string descriptor */
- r_resultant_string.dsc$w_length =
- (sizeof(t_resultant_string) - 1); /* ommit '\0' at end */
- r_resultant_string.dsc$b_dtype = DSC$K_DTYPE_T;
- r_resultant_string.dsc$b_class = DSC$K_CLASS_S;
- r_resultant_string.dsc$a_pointer = &t_resultant_string[0];
-
- /* Convert Signed Integer to Decimal Text */
- l_status = ots$cvt_l_ti(&l_devbufsiz, &r_resultant_string, 1,
- 4, 0);
- if (l_status == SS$_NORMAL) {
- /* terminate string for 'C'-style */
- t_resultant_string[sizeof(t_resultant_string)-1] = '\0';
- /* string appears as: ' value' -- skip ' ' */
- at_resultant_string = &t_resultant_string[0];
- while ((*at_resultant_string == ' ' ) &&
- (*at_resultant_string != '\0')) {
- at_resultant_string++; /* skip prefix spaces */
- }
+ char* str;
- o = Py_BuildValue("s", at_resultant_string);
- if (o != NULL) {
- (void) PyDict_SetItemString(d, "COLUMNS", o);
- Py_DECREF(o);
- }
- } /* (l_status = ots$cvt_l_ti() == SS$_NORMAL) */
- } /* (l_status = lib$getdvi(DVI$_DEVBUFSIZ) == SS$_NORMAL) */
- /* LINES = $getdvi("SYS$COMMAND","TT_PAGE") */
- l_item_code = DVI$_TT_PAGE;
- l_status = lib$getdvi(&l_item_code,
- 0, /* [channel] */
- &r_device_name,
- &l_tt_page, /* integer-value */
- 0, /* resultant_string */
- 0); /* resultant_length */
- if (l_status == SS$_NORMAL) {
- /* create a string object here to comply with POSIX */
-
- /* set up string descriptor */
- r_resultant_string.dsc$w_length =
- (sizeof(t_resultant_string) - 1); /* ommit '\0' at end */
- r_resultant_string.dsc$b_dtype = DSC$K_DTYPE_T;
- r_resultant_string.dsc$b_class = DSC$K_CLASS_S;
- r_resultant_string.dsc$a_pointer = &t_resultant_string[0];
-
- /* Convert Signed Integer to Decimal Text */
- l_status = ots$cvt_l_ti(&l_tt_page, &r_resultant_string,
- 1, 4, 0);
- if (l_status == SS$_NORMAL) {
- /* terminate string for 'C'-style */
- t_resultant_string[sizeof(t_resultant_string)-1] = '\0';
- /* string appears as: ' value' -- skip ' ' */
- at_resultant_string = &t_resultant_string[0];
- while ((*at_resultant_string == ' ' ) &&
- (*at_resultant_string != '\0')) {
- at_resultant_string++; /* skip prefix spaces */
- }
+ str = getenv("LINES");
+ o = Py_BuildValue("s", str);
+ if (o != NULL) {
+ (void)PyDict_SetItemString(d, "LINES", o);
+ Py_DECREF(o);
+ }
- o = Py_BuildValue("s", at_resultant_string);
- if (o != NULL) {
- (void)PyDict_SetItemString(d, "LINES", o);
- Py_DECREF(o);
- }
- } /* (l_status = ots$cvt_l_ti() == SS$_NORMAL) */
- } /* (l_status = lib$getdvi(DVI$_TT_PAGE) == SS$_NORMAL) */
- /* else -- ignore error */
-
- /* LOGNAME = $getjpi(0,"USERNAME") */
- l_item_code = JPI$_USERNAME;
-
- /* set up string descriptor */
- r_resultant_string.dsc$w_length =
- (sizeof(t_resultant_string) - 1); /* ommit '\0' at end */
- r_resultant_string.dsc$b_dtype = DSC$K_DTYPE_T;
- r_resultant_string.dsc$b_class = DSC$K_CLASS_S;
- r_resultant_string.dsc$a_pointer = &t_resultant_string[0];
-
- l_status = lib$getjpi(&l_item_code, 0, 0, 0,
- &r_resultant_string, &w_resultant_length);
- if (l_status == SS$_NORMAL){
- t_resultant_string[w_resultant_length] = '\0';
-
- /* remove any trailing spaces by replacing 1st one with '\0' */
- at_resultant_string = &t_resultant_string[0];
- while ((*at_resultant_string != ' ' ) &&
- (*at_resultant_string != '\0')) {
- /* lowercase for compatibility with POSIX */
- *at_resultant_string = tolower(*at_resultant_string);
- at_resultant_string++; /* skip non-blank */
- }
- *at_resultant_string = '\0'; /* terminate */
+ str = getenv("COLUMNS");
+ o = Py_BuildValue("s", str);
+ if (o != NULL) {
+ (void)PyDict_SetItemString(d, "COLUMNS", o);
+ Py_DECREF(o);
+ }
- o = Py_BuildValue("s", &t_resultant_string[0]);
- if (o != NULL) {
- (void) PyDict_SetItemString(d, "LOGNAME", o);
- (void) PyDict_SetItemString(d, "USERNAME", o);
- Py_DECREF(o);
- }
- } /* (l_status == SS$_NORMAL) */
+ str = getenv("USER");
+ o = Py_BuildValue("s", str);
+ if (o != NULL) {
+ (void)PyDict_SetItemString(d, "USERNAME", o);
+ Py_DECREF(o);
+ }
+ o = Py_BuildValue("s", str);
+ if (o != NULL) {
+ (void)PyDict_SetItemString(d, "LOGNAME", o);
+ Py_DECREF(o);
+ }
+ str = getenv("HOME");
+ o = Py_BuildValue("s", str);
+ if (o != NULL) {
+ (void)PyDict_SetItemString(d, "HOME", o);
+ Py_DECREF(o);
+ }
+
+ str = getenv("PATH");
+ o = Py_BuildValue("s", str);
+ if (o != NULL) {
+ (void)PyDict_SetItemString(d, "PATH", o);
+ Py_DECREF(o);
+ }
/* OS = "OpenVMS" */
o = PyString_FromString ("OpenVMS");
if (o != NULL) {
Py_DECREF(o);
}
}
-
-/* @@ posix env:
-COLUMNS=80 $ write sys$output f$getdvi("SYS$COMMAND","DEVBUFSIZ")
-LINES=47 $ write sys$output f$getdvi("SYS$COMMAND","TT_PAGE")
-LOGNAME=zessin $ write sys$output f$edit(f$getjpi(0,"username"), -
- "collapse,lowercase")
-OS=OpenVMS
-PS1=HERE $
-
-TZ=CET-1:00CET DST,M3.5.0/2:00,M10.5.0/3:00
- $ write sys$output f$trnlnm("POSIX$DEFAULT_TZ")
- "CET-1:00CET DST-2:00,M3.5.0/2:00,M10.5.0/3:00"
- $ write sys$output f$trnlnm("UCX$TZ")
- "MET-1MET_DST-2,M3.5.0/2,M10.5.0/3"
-PAGER=more
-TERM=vt300_series
-SHELL=/bin/sh
-HOME=/dka100/user/zessin
-_=/bin/env
-
->>> for v in os.environ.items():
-... print v
-...
-('HOME', '/user_here/zessin')
-('COLUMNS', '80')
-('LINES', '24')
-('PATH', '/python_disk/python/python-1_5_2/vms')
-('OS', 'OpenVMS')
-('USER', 'ZESSIN')
-('LOGNAME', 'zessin')
-('TERM', 'vt300-80')
-('USERNAME', 'zessin')
->>>
-*/
#endif /* __VMS */
static PyObject *
PyErr_Clear();
continue;
}
-#if defined(__VMS)
- if ((strncmp(at_home, *e, sizeof(at_home)) == 0) ||
- (strncmp(at_path, *e, sizeof(at_path)) == 0)) {
- (void)shell$from_vms(p+1, psxmod_from_vms_action, 0);
- /* 0 = no wildcard expansion */
- v = PyString_FromString(psxmod_gt_psxpath);
- }
- else {
- v = PyString_FromString(p+1);
- }
-#else
v = PyString_FromString(p+1);
-#endif
if (v == NULL) {
PyErr_Clear();
Py_DECREF(k);
Py_DECREF(v);
}
#if defined(__VMS)
- psmmod_add_posix_env(d);
-#endif /* defined(__VMS) */
-#if defined(PYOS_OS2)
+ vms_add_posix_env(d);
+#elif defined(PYOS_OS2)
{
APIRET rc;
char buffer[1024]; /* OS/2 Provides a Documented Max of 1024 Chars */
return posix_1str(args, "et:chdir", chdir, "U:chdir", _wchdir);
#elif defined(PYOS_OS2) && defined(PYCC_GCC)
return posix_1str(args, "et:chdir", _chdir2, NULL, NULL);
-#else
-#ifdef __VMS
+#elif defined(__VMS)
return posix_1str(args, "et:chdir", (int (*)(const char *))chdir,
NULL, NULL);
#else
return posix_1str(args, "et:chdir", chdir, NULL, NULL);
#endif
-#endif
}
#ifdef HAVE_FCHDIR
Py_BEGIN_ALLOW_THREADS
#if defined(PYOS_OS2) && defined(PYCC_GCC)
res = _getcwd2(buf, sizeof buf);
-#else
-#if defined(__VMS)
+#elif defined(__VMS)
/* 0 = force Unix-style path if in the VMS DCL environment! */
res = getcwd(buf, sizeof buf, 0);
#else
res = getcwd(buf, sizeof buf);
-#endif
#endif
Py_END_ALLOW_THREADS
if (res == NULL)
Py_BEGIN_ALLOW_THREADS
#if defined(PYOS_OS2) && defined(PYCC_GCC)
res = _getcwd2(buf, sizeof buf);
+#elif defined(__VMS)
+ /* 0 = force Unix-style path if in the VMS DCL environment! */
+ res = getcwd(buf, sizeof buf, 0);
#else
res = getcwd(buf, sizeof buf);
#endif
int res;
if (!PyArg_ParseTuple(args, "i:fstat", &fd))
return NULL;
+#ifdef __VMS
+ /* on OpenVMS we must ensure that all bytes are written to the file */
+ fsync(fd);
+#endif
Py_BEGIN_ALLOW_THREADS
res = FSTAT(fd, &st);
Py_END_ALLOW_THREADS
projects / python / commitdiff