Mercurial > hg > xemacs-beta

comparison src/callproc.c @ 179:9ad43877534d r20-3b16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b16
author cvs
date Mon, 13 Aug 2007 09:52:19 +0200
parents 6075d714658b
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
178:e703507b8a00 179:9ad43877534d
1084 Vprefix_directory = Qnil; 1084 Vprefix_directory = Qnil;
1085 #endif 1085 #endif
1086 1086
1087 #ifdef VMS 1087 #ifdef VMS
1088 Vshell_file_name = build_string ("*dcl*"); 1088 Vshell_file_name = build_string ("*dcl*");
1089 #else /* not VMS */ 1089 #elif defined(WINDOWSNT)
1090 sh = (char *) egetenv ("SHELL"); 1090 /*
1091 #ifdef DOS_NT 1091 ** If NT then we look at COMSPEC for the shell program.
1092 if (!sh) sh = egetenv ("COMSPEC"); 1092 */
1093 sh = egetenv ("COMSPEC");
1093 { 1094 {
1094 char *tem; 1095 char *tem;
1096 /*
1097 ** If COMSPEC has been set, then convert the
1098 ** DOS formatted name into a UNIX format. Then
1099 ** create a LISP object.
1100 */
1095 if (sh) 1101 if (sh)
1096 { 1102 {
1097 tem = (char *) alloca (strlen (sh) + 1); 1103 tem = (char *) alloca (strlen (sh) + 1);
1098 sh = dostounix_filename (strcpy (tem, sh)); 1104 dostounix_filename (strcpy (tem, sh));
1099 } 1105 Vshell_file_name = build_string (tem);
1106 }
1107 /*
1108 ** Odd, no COMSPEC, so let's default to our
1109 ** best guess for NT.
1110 */
1111 else
1112 {
1113 Vshell_file_name = build_string ("/WINNT/system32/cmd.exe");
1114 }
1100 } 1115 }
1101 Vshell_file_name = build_string (sh ? sh : "/command.com"); 1116 #else /* not VMS or WINDOWSNT */
1102 #else /* not DOS_NT */ 1117 sh = (char *) egetenv ("SHELL");
1103 Vshell_file_name = build_string (sh ? sh : "/bin/sh"); 1118 Vshell_file_name = build_string (sh ? sh : "/bin/sh");
1104 #endif /* not DOS_NT */ 1119 #endif
1105 #endif /* not VMS */
1106 } 1120 }
1107 1121
1108 #if 0 1122 #if 0
1109 void 1123 void
1110 set_process_environment (void) 1124 set_process_environment (void)