char *env = getenv(variable);
#ifdef VMS
if(env && strcmp("HOME",variable) == 0)
- env = decc$translate_vms(env);
+ env = decc_translate_vms(env);
#endif
return (env && env[0])?strdup(env):NULL;
#endif
pw= getpwuid(geteuid());
if(pw) {
#ifdef VMS
- home = decc$translate_vms(pw->pw_dir);
+ home = decc_translate_vms(pw->pw_dir);
#else
home = pw->pw_dir;
#endif
/* Define to the function return type for send. */
#define SEND_TYPE_RETV int
+/* Define to hide dollar sign from compilers in strict ansi mode. */
+#define decc_translate_vms(__s) decc$translate_vms(__s)
+
#ifdef VMS
env = getenv(variable);
if (env && strcmp("HOME",variable) == 0) {
- env = decc$translate_vms(env);
+ env = decc_translate_vms(env);
}
#else
/* no length control */
if (pw) {
#ifdef VMS
- home = decc$translate_vms(pw->pw_dir);
+ home = decc_translate_vms(pw->pw_dir);
#else
home = pw->pw_dir;
#endif