annotate src/callproc.c @ 412:697ef44129c6 r21-2-14

Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents de805c49cfc1
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 /* Synchronous subprocess invocation for XEmacs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2 Copyright (C) 1985, 86, 87, 88, 93, 94, 95 Free Software Foundation, Inc.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4 This file is part of XEmacs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 XEmacs is free software; you can redistribute it and/or modify it
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7 under the terms of the GNU General Public License as published by the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8 Free Software Foundation; either version 2, or (at your option) any
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9 later version.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14 for more details.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17 along with XEmacs; see the file COPYING. If not, write to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 Boston, MA 02111-1307, USA. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 /* Synched up with: Mule 2.0, FSF 19.30. */
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents: 203
diff changeset
22 /* Partly sync'ed with 19.36.4 */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24 #include <config.h>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25 #include "lisp.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27 #include "buffer.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
28 #include "commands.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
29 #include "insdel.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
30 #include "lstream.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
31 #include "process.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
32 #include "sysdep.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
33 #include "window.h"
259
11cf20601dec Import from CVS: tag r20-5b28
cvs
parents: 251
diff changeset
34 #ifdef FILE_CODING
11cf20601dec Import from CVS: tag r20-5b28
cvs
parents: 251
diff changeset
35 #include "file-coding.h"
70
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents: 48
diff changeset
36 #endif
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
37
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
38 #include "systime.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
39 #include "sysproc.h"
100
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents: 80
diff changeset
40 #include "sysfile.h" /* Always include after sysproc.h */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
41 #include "syssignal.h" /* Always include before systty.h */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
42 #include "systty.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
43
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
44 #ifdef WINDOWSNT
100
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents: 80
diff changeset
45 #define _P_NOWAIT 1 /* from process.h */
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
46 #include <windows.h>
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 284
diff changeset
47 #include "nt.h"
100
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents: 80
diff changeset
48 #endif
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
49
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
50 #ifdef DOS_NT
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
51 /* When we are starting external processes we need to know whether they
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
52 take binary input (no conversion) or text input (\n is converted to
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 276
diff changeset
53 \r\n). Similarly for output: if newlines are written as \r\n then it's
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
54 text process output, otherwise it's binary. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
55 Lisp_Object Vbinary_process_input;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
56 Lisp_Object Vbinary_process_output;
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
57 #endif /* DOS_NT */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
58
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
59 Lisp_Object Vshell_file_name;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
60
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
61 /* The environment to pass to all subprocesses when they are started.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
62 This is in the semi-bogus format of ("VAR=VAL" "VAR2=VAL2" ... )
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
63 */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
64 Lisp_Object Vprocess_environment;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
65
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
66 /* True iff we are about to fork off a synchronous process or if we
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
67 are waiting for it. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
68 volatile int synch_process_alive;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
69
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
70 /* Nonzero => this is a string explaining death of synchronous subprocess. */
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
71 CONST char *synch_process_death;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
72
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
73 /* If synch_process_death is zero,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
74 this is exit code of synchronous subprocess. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
75 int synch_process_retcode;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
76
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
77 /* Clean up when exiting Fcall_process_internal.
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
78 On MSDOS, delete the temporary file on any kind of termination.
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
79 On Unix, kill the process and any children on termination by signal. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
80
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
81 /* Nonzero if this is termination due to exit. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
82 static int call_process_exited;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
83
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 386
diff changeset
84 Lisp_Object Vlisp_EXEC_SUFFIXES;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
85
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
86 static Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
87 call_process_kill (Lisp_Object fdpid)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
88 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
89 Lisp_Object fd = Fcar (fdpid);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
90 Lisp_Object pid = Fcdr (fdpid);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
91
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
92 if (!NILP (fd))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
93 close (XINT (fd));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
94
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
95 if (!NILP (pid))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
96 EMACS_KILLPG (XINT (pid), SIGKILL);
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 179
diff changeset
97
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
98 synch_process_alive = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
99 return Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
100 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
101
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
102 static Lisp_Object
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
103 call_process_cleanup (Lisp_Object fdpid)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
104 {
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
105 int fd = XINT (Fcar (fdpid));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
106 int pid = XINT (Fcdr (fdpid));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
107
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
108 if (!call_process_exited &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
109 EMACS_KILLPG (pid, SIGINT) == 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
110 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
111 int speccount = specpdl_depth ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
112
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
113 record_unwind_protect (call_process_kill, fdpid);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
114 /* #### "c-G" -- need non-consing Single-key-description */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
115 message ("Waiting for process to die...(type C-g again to kill it instantly)");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
116
215
1f0dabaa0855 Import from CVS: tag r20-4b6
cvs
parents: 213
diff changeset
117 wait_for_termination (pid);
1f0dabaa0855 Import from CVS: tag r20-4b6
cvs
parents: 213
diff changeset
118
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
119 /* "Discard" the unwind protect. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
120 XCAR (fdpid) = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
121 XCDR (fdpid) = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
122 unbind_to (speccount, Qnil);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
123
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
124 message ("Waiting for process to die... done");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
125 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
126 synch_process_alive = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
127 close (fd);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
128 return Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
129 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
130
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
131 static Lisp_Object fork_error;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
132 #if 0 /* UNUSED */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
133 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
134 report_fork_error (char *string, Lisp_Object data)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
135 {
151
59463afc5666 Import from CVS: tag r20-3b2
cvs
parents: 120
diff changeset
136 Lisp_Object errstring = lisp_strerror (errno);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
137
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
138 fork_error = Fcons (build_string (string), Fcons (errstring, data));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
139
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
140 /* terminate this branch of the fork, without closing stdin/out/etc. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
141 _exit (1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
142 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
143 #endif /* unused */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
144
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
145 DEFUN ("call-process-internal", Fcall_process_internal, 1, MANY, 0, /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
146 Call PROGRAM synchronously in separate process, with coding-system specified.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
147 Arguments are
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
148 (PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS).
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
149 The program's input comes from file INFILE (nil means `/dev/null').
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
150 Insert output in BUFFER before point; t means current buffer;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
151 nil for BUFFER means discard it; 0 means discard and don't wait.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
152 BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
153 REAL-BUFFER says what to do with standard output, as above,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
154 while STDERR-FILE says what to do with standard error in the child.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
155 STDERR-FILE may be nil (discard standard error output),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
156 t (mix it with ordinary output), or a file name string.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
157
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
158 Fourth arg DISPLAY non-nil means redisplay buffer as output is inserted.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
159 Remaining arguments are strings passed as command arguments to PROGRAM.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
160
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
161 If BUFFER is 0, `call-process' returns immediately with value nil.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
162 Otherwise it waits for PROGRAM to terminate and returns a numeric exit status
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
163 or a signal description string.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
164 If you quit, the process is killed with SIGINT, or SIGKILL if you
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
165 quit again.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 14
diff changeset
166 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 14
diff changeset
167 (int nargs, Lisp_Object *args))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
168 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
169 /* This function can GC */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
170 Lisp_Object infile, buffer, current_dir, display, path;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
171 int fd[2];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
172 int filefd;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
173 int pid;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
174 char buf[16384];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
175 char *bufptr = buf;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
176 int bufsize = 16384;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
177 int speccount = specpdl_depth ();
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
178 struct gcpro gcpro1, gcpro2;
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 179
diff changeset
179 char **new_argv = alloca_array (char *, max (2, nargs - 2));
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 179
diff changeset
180
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
181 /* File to use for stderr in the child.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
182 t means use same as standard output. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
183 Lisp_Object error_file;
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 179
diff changeset
184
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
185 CHECK_STRING (args[0]);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
186
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
187 error_file = Qt;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
188
80
1ce6082ce73f Import from CVS: tag r20-0b90
cvs
parents: 70
diff changeset
189 #if defined (NO_SUBPROCESSES)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
190 /* Without asynchronous processes we cannot have BUFFER == 0. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
191 if (nargs >= 3 && !INTP (args[2]))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
192 error ("Operating system cannot handle asynchronous subprocesses");
14
9ee227acff29 Import from CVS: tag r19-15b90
cvs
parents: 0
diff changeset
193 #endif /* NO_SUBPROCESSES */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
194
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
195 /* Do this before building new_argv because GC in Lisp code
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
196 * called by various filename-hacking routines might relocate strings */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 386
diff changeset
197 locate_file (Vexec_path, args[0], Vlisp_EXEC_SUFFIXES, &path, X_OK);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
198
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
199 /* Make sure that the child will be able to chdir to the current
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
200 buffer's current directory, or its unhandled equivalent. We
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
201 can't just have the child check for an error when it does the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
202 chdir, since it's in a vfork. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
203 {
169
15872534500d Import from CVS: tag r20-3b11
cvs
parents: 167
diff changeset
204 struct gcpro ngcpro1, ngcpro2;
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 179
diff changeset
205 /* Do this test before building new_argv because GC in Lisp code
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
206 * called by various filename-hacking routines might relocate strings */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
207 /* Make sure that the child will be able to chdir to the current
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
208 buffer's current directory. We can't just have the child check
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
209 for an error when it does the chdir, since it's in a vfork. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
210
371
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 367
diff changeset
211 NGCPRO2 (current_dir, path); /* Caller gcprotects args[] */
367
a4f53d9b3154 Import from CVS: tag r21-1-13
cvs
parents: 365
diff changeset
212 current_dir = current_buffer->directory;
116
9f59509498e1 Import from CVS: tag r20-1b10
cvs
parents: 110
diff changeset
213 current_dir = Funhandled_file_name_directory (current_dir);
9f59509498e1 Import from CVS: tag r20-1b10
cvs
parents: 110
diff changeset
214 current_dir = expand_and_dir_to_file (current_dir, Qnil);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
215 #if 0
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 274
diff changeset
216 /* This is in FSF, but it breaks everything in the presence of
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 274
diff changeset
217 ange-ftp-visited files, so away with it. */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
218 if (NILP (Ffile_accessible_directory_p (current_dir)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
219 report_file_error ("Setting current directory",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
220 Fcons (current_buffer->directory, Qnil));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
221 #endif /* 0 */
169
15872534500d Import from CVS: tag r20-3b11
cvs
parents: 167
diff changeset
222 NUNGCPRO;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
223 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
224
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
225 GCPRO1 (current_dir);
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents: 203
diff changeset
226
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
227 if (nargs >= 2 && ! NILP (args[1]))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
228 {
169
15872534500d Import from CVS: tag r20-3b11
cvs
parents: 167
diff changeset
229 struct gcpro ngcpro1;
15872534500d Import from CVS: tag r20-3b11
cvs
parents: 167
diff changeset
230 NGCPRO1 (current_buffer->directory);
14
9ee227acff29 Import from CVS: tag r19-15b90
cvs
parents: 0
diff changeset
231 infile = Fexpand_file_name (args[1], current_buffer->directory);
169
15872534500d Import from CVS: tag r20-3b11
cvs
parents: 167
diff changeset
232 NUNGCPRO;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
233 CHECK_STRING (infile);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
234 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
235 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
236 infile = build_string (NULL_DEVICE);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
237
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents: 203
diff changeset
238 UNGCPRO;
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents: 203
diff changeset
239
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
240 GCPRO2 (infile, current_dir); /* Fexpand_file_name might trash it */
116
9f59509498e1 Import from CVS: tag r20-1b10
cvs
parents: 110
diff changeset
241
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
242 if (nargs >= 3)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
243 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
244 buffer = args[2];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
245
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
246 /* If BUFFER is a list, its meaning is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
247 (BUFFER-FOR-STDOUT FILE-FOR-STDERR). */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
248 if (CONSP (buffer))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
249 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
250 if (CONSP (XCDR (buffer)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
251 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
252 Lisp_Object file_for_stderr = XCAR (XCDR (buffer));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
253
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
254 if (NILP (file_for_stderr) || EQ (Qt, file_for_stderr))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
255 error_file = file_for_stderr;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
256 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
257 error_file = Fexpand_file_name (file_for_stderr, Qnil);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
258 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
259
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
260 buffer = XCAR (buffer);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
261 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
262
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
263 if (!(EQ (buffer, Qnil)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
264 || EQ (buffer, Qt)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
265 || ZEROP (buffer)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
266 {
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 267
diff changeset
267 Lisp_Object spec_buffer = buffer;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
268 buffer = Fget_buffer (buffer);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
269 /* Mention the buffer name for a better error message. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
270 if (NILP (buffer))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
271 CHECK_BUFFER (spec_buffer);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
272 CHECK_BUFFER (buffer);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
273 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
274 }
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 179
diff changeset
275 else
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
276 buffer = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
277
116
9f59509498e1 Import from CVS: tag r20-1b10
cvs
parents: 110
diff changeset
278 UNGCPRO;
9f59509498e1 Import from CVS: tag r20-1b10
cvs
parents: 110
diff changeset
279
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
280 display = ((nargs >= 4) ? args[3] : Qnil);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
281
14
9ee227acff29 Import from CVS: tag r19-15b90
cvs
parents: 0
diff changeset
282 /* From here we assume we won't GC (unless an error is signaled). */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
283 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
284 REGISTER int i;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
285 for (i = 4; i < nargs; i++)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
286 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
287 CHECK_STRING (args[i]);
14
9ee227acff29 Import from CVS: tag r19-15b90
cvs
parents: 0
diff changeset
288 new_argv[i - 3] = (char *) XSTRING_DATA (args[i]);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
289 }
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
290 new_argv[nargs - 3] = 0;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
291 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
292
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 14
diff changeset
293 if (NILP (path))
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 14
diff changeset
294 report_file_error ("Searching for program", Fcons (args[0], Qnil));
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 14
diff changeset
295 new_argv[0] = (char *) XSTRING_DATA (path);
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 179
diff changeset
296
251
677f6a0ee643 Import from CVS: tag r20-5b24
cvs
parents: 215
diff changeset
297 filefd = open ((char *) XSTRING_DATA (infile), O_RDONLY | OPEN_BINARY, 0);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
298 if (filefd < 0)
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 14
diff changeset
299 report_file_error ("Opening process input file", Fcons (infile, Qnil));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
300
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
301 if (INTP (buffer))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
302 {
251
677f6a0ee643 Import from CVS: tag r20-5b24
cvs
parents: 215
diff changeset
303 fd[1] = open (NULL_DEVICE, O_WRONLY | OPEN_BINARY, 0);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
304 fd[0] = -1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
305 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
306 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
307 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
308 pipe (fd);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
309 #if 0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
310 /* Replaced by close_process_descs */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
311 set_exclusive_use (fd[0]);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
312 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
313 }
263
727739f917cb Import from CVS: tag r20-5b30
cvs
parents: 259
diff changeset
314
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
315 {
263
727739f917cb Import from CVS: tag r20-5b30
cvs
parents: 259
diff changeset
316 /* child_setup must clobber environ in systems with true vfork.
380
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
317 Protect it from permanent change. */
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
318 REGISTER char **save_environ = environ;
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
319 REGISTER int fd1 = fd[1];
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
320 int fd_error = fd1;
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
321 char **env;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
322
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
323 env = environ;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
324
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
325 /* Record that we're about to create a synchronous process. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
326 synch_process_alive = 1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
327
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
328 /* These vars record information from process termination.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
329 Clear them now before process can possibly terminate,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
330 to avoid timing error if process terminates soon. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
331 synch_process_death = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
332 synch_process_retcode = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
333
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
334 if (NILP (error_file))
251
677f6a0ee643 Import from CVS: tag r20-5b24
cvs
parents: 215
diff changeset
335 fd_error = open (NULL_DEVICE, O_WRONLY | OPEN_BINARY);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
336 else if (STRINGP (error_file))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
337 {
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
338 fd_error = open ((CONST char *) XSTRING_DATA (error_file),
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
339 #ifdef DOS_NT
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
340 O_WRONLY | O_TRUNC | O_CREAT | O_TEXT,
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 267
diff changeset
341 S_IREAD | S_IWRITE
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
342 #else /* not DOS_NT */
251
677f6a0ee643 Import from CVS: tag r20-5b24
cvs
parents: 215
diff changeset
343 O_WRONLY | O_TRUNC | O_CREAT | OPEN_BINARY,
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 267
diff changeset
344 CREAT_MODE
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
345 #endif /* not DOS_NT */
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 267
diff changeset
346 );
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
347 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
348
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
349 if (fd_error < 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
350 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
351 close (filefd);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
352 close (fd[0]);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
353 if (fd1 >= 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
354 close (fd1);
151
59463afc5666 Import from CVS: tag r20-3b2
cvs
parents: 120
diff changeset
355 report_file_error ("Cannot open", Fcons(error_file, Qnil));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
356 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
357
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
358 fork_error = Qnil;
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
359 #ifdef WINDOWSNT
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 179
diff changeset
360 pid = child_setup (filefd, fd1, fd_error, new_argv,
169
15872534500d Import from CVS: tag r20-3b11
cvs
parents: 167
diff changeset
361 (char *) XSTRING_DATA (current_dir));
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
362 #else /* not WINDOWSNT */
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 159
diff changeset
363 pid = fork ();
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
364
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
365 if (pid == 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
366 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
367 if (fd[0] >= 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
368 close (fd[0]);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
369 /* This is necessary because some shells may attempt to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
370 access the current controlling terminal and will hang
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
371 if they are run in the background, as will be the case
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
372 when XEmacs is started in the background. Martin
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
373 Buchholz observed this problem running a subprocess
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
374 that used zsh to call gzip to uncompress an info
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
375 file. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
376 disconnect_controlling_terminal ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
377 child_setup (filefd, fd1, fd_error, new_argv,
14
9ee227acff29 Import from CVS: tag r19-15b90
cvs
parents: 0
diff changeset
378 (char *) XSTRING_DATA (current_dir));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
379 }
215
1f0dabaa0855 Import from CVS: tag r20-4b6
cvs
parents: 213
diff changeset
380 if (fd_error >= 0)
1f0dabaa0855 Import from CVS: tag r20-4b6
cvs
parents: 213
diff changeset
381 close (fd_error);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
382
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
383 #endif /* not WINDOWSNT */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
384
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
385 environ = save_environ;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
386
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
387 /* Close most of our fd's, but not fd[0]
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
388 since we will use that to read input from. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
389 close (filefd);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
390 if (fd1 >= 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
391 close (fd1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
392 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
393
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
394 if (!NILP (fork_error))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
395 signal_error (Qfile_error, fork_error);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
396
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
397 if (pid < 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
398 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
399 if (fd[0] >= 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
400 close (fd[0]);
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 159
diff changeset
401 report_file_error ("Doing fork", Qnil);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
402 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
403
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
404 if (INTP (buffer))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
405 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
406 if (fd[0] >= 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
407 close (fd[0]);
80
1ce6082ce73f Import from CVS: tag r20-0b90
cvs
parents: 70
diff changeset
408 #if defined (NO_SUBPROCESSES)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
409 /* If Emacs has been built with asynchronous subprocess support,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
410 we don't need to do this, I think because it will then have
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
411 the facilities for handling SIGCHLD. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
412 wait_without_blocking ();
14
9ee227acff29 Import from CVS: tag r19-15b90
cvs
parents: 0
diff changeset
413 #endif /* NO_SUBPROCESSES */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
414 return Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
415 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
416
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
417 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
418 int nread;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
419 int first = 1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
420 int total_read = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
421 Lisp_Object instream;
169
15872534500d Import from CVS: tag r20-3b11
cvs
parents: 167
diff changeset
422 struct gcpro ngcpro1;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
423
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
424 /* Enable sending signal if user quits below. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
425 call_process_exited = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
426
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
427 record_unwind_protect (call_process_cleanup,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
428 Fcons (make_int (fd[0]), make_int (pid)));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
429
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
430 /* FSFmacs calls Fset_buffer() here. We don't have to because
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
431 we can insert into buffers other than the current one. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
432 if (EQ (buffer, Qt))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
433 XSETBUFFER (buffer, current_buffer);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
434 instream = make_filedesc_input_stream (fd[0], 0, -1, LSTR_ALLOW_QUIT);
259
11cf20601dec Import from CVS: tag r20-5b28
cvs
parents: 251
diff changeset
435 #ifdef FILE_CODING
70
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents: 48
diff changeset
436 instream =
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents: 48
diff changeset
437 make_decoding_input_stream
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents: 48
diff changeset
438 (XLSTREAM (instream),
120
cca96a509cfe Import from CVS: tag r20-1b12
cvs
parents: 116
diff changeset
439 Fget_coding_system (Vcoding_system_for_read));
70
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents: 48
diff changeset
440 Lstream_set_character_mode (XLSTREAM (instream));
259
11cf20601dec Import from CVS: tag r20-5b28
cvs
parents: 251
diff changeset
441 #endif
169
15872534500d Import from CVS: tag r20-3b11
cvs
parents: 167
diff changeset
442 NGCPRO1 (instream);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
443 while (1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
444 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
445 QUIT;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
446 /* Repeatedly read until we've filled as much as possible
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
447 of the buffer size we have. But don't read
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
448 less than 1024--save that for the next bufferfull. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
449
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
450 nread = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
451 while (nread < bufsize - 1024)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
452 {
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
453 int this_read
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
454 = Lstream_read (XLSTREAM (instream), bufptr + nread,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
455 bufsize - nread);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
456
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
457 if (this_read < 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
458 goto give_up;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
459
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
460 if (this_read == 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
461 goto give_up_1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
462
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
463 nread += this_read;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
464 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
465
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
466 give_up_1:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
467
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
468 /* Now NREAD is the total amount of data in the buffer. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
469 if (nread == 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
470 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
471
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
472 #ifdef DOS_NT
213
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents: 209
diff changeset
473 /* Until we pull out of MULE things like
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents: 209
diff changeset
474 make_decoding_input_stream(), we do the following which is
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents: 209
diff changeset
475 less elegant. --marcpa */
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents: 209
diff changeset
476 {
215
1f0dabaa0855 Import from CVS: tag r20-4b6
cvs
parents: 213
diff changeset
477 int lf_count = 0;
213
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents: 209
diff changeset
478 if (NILP (Vbinary_process_output)) {
215
1f0dabaa0855 Import from CVS: tag r20-4b6
cvs
parents: 213
diff changeset
479 nread = crlf_to_lf(nread, bufptr, &lf_count);
213
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents: 209
diff changeset
480 }
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents: 209
diff changeset
481 }
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents: 209
diff changeset
482 #endif
78f53ef88e17 Import from CVS: tag r20-4b5
cvs
parents: 209
diff changeset
483
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
484 total_read += nread;
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 179
diff changeset
485
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
486 if (!NILP (buffer))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
487 buffer_insert_raw_string (XBUFFER (buffer), (Bufbyte *) bufptr,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
488 nread);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
489
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
490 /* Make the buffer bigger as we continue to read more data,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
491 but not past 64k. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
492 if (bufsize < 64 * 1024 && total_read > 32 * bufsize)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
493 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
494 bufsize *= 2;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
495 bufptr = (char *) alloca (bufsize);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
496 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
497
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
498 if (!NILP (display) && INTERACTIVE)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
499 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
500 first = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
501 redisplay ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
502 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
503 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
504 give_up:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
505 Lstream_close (XLSTREAM (instream));
169
15872534500d Import from CVS: tag r20-3b11
cvs
parents: 167
diff changeset
506 NUNGCPRO;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
507
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
508 QUIT;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
509 /* Wait for it to terminate, unless it already has. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
510 wait_for_termination (pid);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
511
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
512 /* Don't kill any children that the subprocess may have left behind
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
513 when exiting. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
514 call_process_exited = 1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
515 unbind_to (speccount, Qnil);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
516
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
517 if (synch_process_death)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
518 return build_string (synch_process_death);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
519 return make_int (synch_process_retcode);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
520 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
521 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
522
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
523
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
524
380
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
525 /* Move the file descriptor FD so that its number is not less than MIN. *
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
526 The original file descriptor remains open. */
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
527 static int
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
528 relocate_fd (int fd, int min)
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
529 {
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
530 if (fd >= min)
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
531 return fd;
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
532 else
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
533 {
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
534 int newfd = dup (fd);
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
535 if (newfd == -1)
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
536 {
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
537 stderr_out ("Error while setting up child: %s\n",
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
538 strerror (errno));
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
539 _exit (1);
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
540 }
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
541 return relocate_fd (newfd, min);
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
542 }
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
543 }
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
544
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
545 /* This is the last thing run in a newly forked inferior
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
546 either synchronous or asynchronous.
380
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
547 Copy descriptors IN, OUT and ERR
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
548 as descriptors STDIN_FILENO, STDOUT_FILENO, and STDERR_FILENO.
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
549 Initialize inferior's priority, pgrp, connected dir and environment.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
550 then exec another program based on new_argv.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
551
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
552 This function may change environ for the superior process.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
553 Therefore, the superior process must save and restore the value
167
85ec50267440 Import from CVS: tag r20-3b10
cvs
parents: 159
diff changeset
554 of environ around the fork and the call to this function.
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
555
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
556 ENV is the environment for the subprocess.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
557
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
558 XEmacs: We've removed the SET_PGRP argument because it's already
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
559 done by the callers of child_setup.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
560
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
561 CURRENT_DIR is an elisp string giving the path of the current
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
562 directory the subprocess should have. Since we can't really signal
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
563 a decent error from within the child, this should be verified as an
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
564 executable directory by the parent. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
565
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
566 #ifdef WINDOWSNT
100
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents: 80
diff changeset
567 int
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents: 80
diff changeset
568 #else
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
569 void
100
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents: 80
diff changeset
570 #endif
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
571 child_setup (int in, int out, int err, char **new_argv,
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
572 CONST char *current_dir)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
573 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
574 char **env;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
575 char *pwd;
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
576 #ifdef WINDOWSNT
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
577 int cpid;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
578 HANDLE handles[4];
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
579 #endif /* WINDOWSNT */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
580
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
581 #ifdef SET_EMACS_PRIORITY
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
582 if (emacs_priority != 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
583 nice (- emacs_priority);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
584 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
585
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
586 #if !defined (NO_SUBPROCESSES) && !defined (WINDOWSNT)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
587 /* Close Emacs's descriptors that this process should not have. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
588 close_process_descs ();
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 14
diff changeset
589 #endif /* not NO_SUBPROCESSES */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
590 close_load_descs ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
591
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
592 /* Note that use of alloca is always safe here. It's obvious for systems
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
593 that do not have true vfork or that have true (stack) alloca.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
594 If using vfork and C_ALLOCA it is safe because that changes
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
595 the superior's static variables as if the superior had done alloca
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
596 and will be cleaned up in the usual way. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
597 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
598 REGISTER int i;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
599
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
600 i = strlen (current_dir);
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 179
diff changeset
601 pwd = alloca_array (char, i + 6);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
602 memcpy (pwd, "PWD=", 4);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
603 memcpy (pwd + 4, current_dir, i);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
604 i += 4;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
605 if (!IS_DIRECTORY_SEP (pwd[i - 1]))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
606 pwd[i++] = DIRECTORY_SEP;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
607 pwd[i] = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
608
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
609 /* We can't signal an Elisp error here; we're in a vfork. Since
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
610 the callers check the current directory before forking, this
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
611 should only return an error if the directory's permissions
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
612 are changed between the check and this chdir, but we should
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
613 at least check. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
614 if (chdir (pwd + 4) < 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
615 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
616 /* Don't report the chdir error, or ange-ftp.el doesn't work. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
617 /* (FSFmacs does _exit (errno) here.) */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
618 pwd = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
619 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
620 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
621 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
622 /* Strip trailing "/". Cretinous *[]&@$#^%@#$% Un*x */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
623 /* leave "//" (from FSF) */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
624 while (i > 6 && IS_DIRECTORY_SEP (pwd[i - 1]))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
625 pwd[--i] = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
626 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
627 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
628
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
629 /* Set `env' to a vector of the strings in Vprocess_environment. */
386
4af0ddfb7c5b Import from CVS: tag r21-2-8
cvs
parents: 384
diff changeset
630 /* + 2 to include PWD and terminating 0. */
4af0ddfb7c5b Import from CVS: tag r21-2-8
cvs
parents: 384
diff changeset
631 env = alloca_array (char *, XINT (Flength (Vprocess_environment)) + 2);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
632 {
386
4af0ddfb7c5b Import from CVS: tag r21-2-8
cvs
parents: 384
diff changeset
633 REGISTER Lisp_Object tail;
4af0ddfb7c5b Import from CVS: tag r21-2-8
cvs
parents: 384
diff changeset
634 char **new_env = env;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
635
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
636 /* If we have a PWD envvar and we know the real current directory,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
637 pass one down, but with corrected value. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
638 if (pwd && getenv ("PWD"))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
639 *new_env++ = pwd;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
640
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
641 /* Copy the Vprocess_environment strings into new_env. */
386
4af0ddfb7c5b Import from CVS: tag r21-2-8
cvs
parents: 384
diff changeset
642 for (tail = Vprocess_environment;
4af0ddfb7c5b Import from CVS: tag r21-2-8
cvs
parents: 384
diff changeset
643 CONSP (tail) && STRINGP (XCAR (tail));
4af0ddfb7c5b Import from CVS: tag r21-2-8
cvs
parents: 384
diff changeset
644 tail = XCDR (tail))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
645 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
646 char **ep = env;
386
4af0ddfb7c5b Import from CVS: tag r21-2-8
cvs
parents: 384
diff changeset
647 char *envvar_external;
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
648 Bufbyte *envvar_internal = XSTRING_DATA (XCAR (tail));
386
4af0ddfb7c5b Import from CVS: tag r21-2-8
cvs
parents: 384
diff changeset
649
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
650 GET_C_CHARPTR_EXT_FILENAME_DATA_ALLOCA (envvar_internal, envvar_external);
386
4af0ddfb7c5b Import from CVS: tag r21-2-8
cvs
parents: 384
diff changeset
651
4af0ddfb7c5b Import from CVS: tag r21-2-8
cvs
parents: 384
diff changeset
652 /* See if envvar_external duplicates any string already in the env.
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
653 If so, don't put it in.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
654 When an env var has multiple definitions,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
655 we keep the definition that comes first in process-environment. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
656 for (; ep != new_env; ep++)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
657 {
386
4af0ddfb7c5b Import from CVS: tag r21-2-8
cvs
parents: 384
diff changeset
658 char *p = *ep, *q = envvar_external;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
659 while (1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
660 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
661 if (*q == 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
662 /* The string is malformed; might as well drop it. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
663 goto duplicate;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
664 if (*q != *p)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
665 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
666 if (*q == '=')
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
667 goto duplicate;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
668 p++, q++;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
669 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
670 }
386
4af0ddfb7c5b Import from CVS: tag r21-2-8
cvs
parents: 384
diff changeset
671 if (pwd && !strncmp ("PWD=", envvar_external, 4))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
672 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
673 *new_env++ = pwd;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
674 pwd = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
675 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
676 else
386
4af0ddfb7c5b Import from CVS: tag r21-2-8
cvs
parents: 384
diff changeset
677 *new_env++ = envvar_external;
4af0ddfb7c5b Import from CVS: tag r21-2-8
cvs
parents: 384
diff changeset
678
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
679 duplicate: ;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
680 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
681 *new_env = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
682 }
386
4af0ddfb7c5b Import from CVS: tag r21-2-8
cvs
parents: 384
diff changeset
683
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
684 #ifdef WINDOWSNT
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
685 prepare_standard_handles (in, out, err, handles);
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents: 203
diff changeset
686 set_process_dir (current_dir);
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
687 #else /* not WINDOWSNT */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
688 /* Make sure that in, out, and err are not actually already in
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
689 descriptors zero, one, or two; this could happen if Emacs is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
690 started with its standard in, out, or error closed, as might
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
691 happen under X. */
380
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
692 in = relocate_fd (in, 3);
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
693 out = relocate_fd (out, 3);
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
694 err = relocate_fd (err, 3);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
695
380
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
696 /* Set the standard input/output channels of the new process. */
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
697 close (STDIN_FILENO);
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
698 close (STDOUT_FILENO);
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
699 close (STDERR_FILENO);
386
4af0ddfb7c5b Import from CVS: tag r21-2-8
cvs
parents: 384
diff changeset
700
380
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
701 dup2 (in, STDIN_FILENO);
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
702 dup2 (out, STDOUT_FILENO);
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
703 dup2 (err, STDERR_FILENO);
386
4af0ddfb7c5b Import from CVS: tag r21-2-8
cvs
parents: 384
diff changeset
704
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
705 close (in);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
706 close (out);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
707 close (err);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
708
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
709 /* I can't think of any reason why child processes need any more
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
710 than the standard 3 file descriptors. It would be cleaner to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
711 close just the ones that need to be, but the following brute
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
712 force approach is certainly effective, and not too slow. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
713 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
714 int fd;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
715 for (fd=3; fd<=64; fd++)
380
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 375
diff changeset
716 close (fd);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
717 }
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
718 #endif /* not WINDOWSNT */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
719
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
720 #ifdef vipc
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
721 something missing here;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
722 #endif /* vipc */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
723
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
724 #ifdef WINDOWSNT
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
725 /* Spawn the child. (See ntproc.c:Spawnve). */
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
726 cpid = spawnve (_P_NOWAIT, new_argv[0], (CONST char* CONST*)new_argv,
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
727 (CONST char* CONST*)env);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
728 if (cpid == -1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
729 /* An error occurred while trying to spawn the process. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
730 report_file_error ("Spawning child process", Qnil);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
731 reset_standard_handles (in, out, err, handles);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
732 return cpid;
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
733 #else /* not WINDOWSNT */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
734 /* execvp does not accept an environment arg so the only way
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
735 to pass this environment is to set environ. Our caller
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
736 is responsible for restoring the ambient value of environ. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
737 environ = env;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
738 execvp (new_argv[0], new_argv);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
739
375
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 371
diff changeset
740 stdout_out ("Can't exec program %s\n", new_argv[0]);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
741 _exit (1);
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
742 #endif /* not WINDOWSNT */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
743 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
744
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
745 static int
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
746 getenv_internal (CONST Bufbyte *var,
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
747 Bytecount varlen,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
748 Bufbyte **value,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
749 Bytecount *valuelen)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
750 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
751 Lisp_Object scan;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
752
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
753 for (scan = Vprocess_environment; CONSP (scan); scan = XCDR (scan))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
754 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
755 Lisp_Object entry = XCAR (scan);
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 179
diff changeset
756
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
757 if (STRINGP (entry)
14
9ee227acff29 Import from CVS: tag r19-15b90
cvs
parents: 0
diff changeset
758 && XSTRING_LENGTH (entry) > varlen
80
1ce6082ce73f Import from CVS: tag r20-0b90
cvs
parents: 70
diff changeset
759 && XSTRING_BYTE (entry, varlen) == '='
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
760 #ifdef WINDOWSNT
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
761 /* NT environment variables are case insensitive. */
14
9ee227acff29 Import from CVS: tag r19-15b90
cvs
parents: 0
diff changeset
762 && ! memicmp (XSTRING_DATA (entry), var, varlen)
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
763 #else /* not WINDOWSNT */
14
9ee227acff29 Import from CVS: tag r19-15b90
cvs
parents: 0
diff changeset
764 && ! memcmp (XSTRING_DATA (entry), var, varlen)
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
765 #endif /* not WINDOWSNT */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
766 )
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
767 {
14
9ee227acff29 Import from CVS: tag r19-15b90
cvs
parents: 0
diff changeset
768 *value = XSTRING_DATA (entry) + (varlen + 1);
9ee227acff29 Import from CVS: tag r19-15b90
cvs
parents: 0
diff changeset
769 *valuelen = XSTRING_LENGTH (entry) - (varlen + 1);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
770 return 1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
771 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
772 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
773
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
774 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
775 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
776
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 14
diff changeset
777 DEFUN ("getenv", Fgetenv, 1, 2, "sEnvironment variable: \np", /*
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
778 Return the value of environment variable VAR, as a string.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
779 VAR is a string, the name of the variable.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
780 When invoked interactively, prints the value in the echo area.
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 14
diff changeset
781 */
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 14
diff changeset
782 (var, interactivep))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
783 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
784 Bufbyte *value;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
785 Bytecount valuelen;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
786 Lisp_Object v = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
787 struct gcpro gcpro1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
788
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
789 CHECK_STRING (var);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
790 GCPRO1 (v);
14
9ee227acff29 Import from CVS: tag r19-15b90
cvs
parents: 0
diff changeset
791 if (getenv_internal (XSTRING_DATA (var), XSTRING_LENGTH (var),
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
792 &value, &valuelen))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
793 v = make_string (value, valuelen);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
794 if (!NILP (interactivep))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
795 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
796 if (NILP (v))
14
9ee227acff29 Import from CVS: tag r19-15b90
cvs
parents: 0
diff changeset
797 message ("%s not defined in environment", XSTRING_DATA (var));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
798 else
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 284
diff changeset
799 /* #### Should use Fprin1_to_string or Fprin1 to handle string
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 284
diff changeset
800 containing quotes correctly. */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
801 message ("\"%s\"", value);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
802 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
803 RETURN_UNGCPRO (v);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
804 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
805
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
806 /* A version of getenv that consults process_environment, easily
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
807 callable from C. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
808 char *
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
809 egetenv (CONST char *var)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
810 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
811 Bufbyte *value;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
812 Bytecount valuelen;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
813
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
814 if (getenv_internal ((CONST Bufbyte *) var, strlen (var), &value, &valuelen))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
815 return (char *) value;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
816 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
817 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
818 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
819
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
820
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
821 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
822 init_callproc (void)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
823 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
824 /* This function can GC */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
825
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
826 {
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 380
diff changeset
827 /* jwz: always initialize Vprocess_environment, so that egetenv()
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 380
diff changeset
828 works in temacs. */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
829 char **envp;
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 380
diff changeset
830 Vprocess_environment = Qnil;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
831 for (envp = environ; envp && *envp; envp++)
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
832 {
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
833 Vprocess_environment = Fcons (build_ext_string (*envp, FORMAT_OS),
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
834 Vprocess_environment);
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
835 }
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
836 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
837
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 380
diff changeset
838 {
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 380
diff changeset
839 /* Initialize shell-file-name from environment variables or best guess. */
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
840 #ifdef WINDOWSNT
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
841 CONST char *shell = egetenv ("COMSPEC");
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 380
diff changeset
842 if (!shell) shell = "\\WINNT\\system32\\cmd.exe";
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
843 #else /* not WINDOWSNT */
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
844 CONST char *shell = egetenv ("SHELL");
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 380
diff changeset
845 if (!shell) shell = "/bin/sh";
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 380
diff changeset
846 #endif
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 284
diff changeset
847
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 380
diff changeset
848 Vshell_file_name = build_string (shell);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 380
diff changeset
849 }
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
850 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
851
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
852 #if 0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
853 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
854 set_process_environment (void)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
855 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
856 REGISTER char **envp;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
857
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
858 Vprocess_environment = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
859 #ifndef CANNOT_DUMP
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
860 if (initialized)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
861 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
862 for (envp = environ; *envp; envp++)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
863 Vprocess_environment = Fcons (build_string (*envp),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
864 Vprocess_environment);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
865 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
866 #endif /* unused */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
867
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
868 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
869 syms_of_callproc (void)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
870 {
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
871 DEFSUBR (Fcall_process_internal);
20
859a2309aef8 Import from CVS: tag r19-15b93
cvs
parents: 14
diff changeset
872 DEFSUBR (Fgetenv);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
873 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
874
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
875 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
876 vars_of_callproc (void)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
877 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
878 /* This function can GC */
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
879 #ifdef DOS_NT
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
880 DEFVAR_LISP ("binary-process-input", &Vbinary_process_input /*
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
881 *If non-nil then new subprocesses are assumed to take binary input.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
882 */ );
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
883 Vbinary_process_input = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
884
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
885 DEFVAR_LISP ("binary-process-output", &Vbinary_process_output /*
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
886 *If non-nil then new subprocesses are assumed to produce binary output.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
887 */ );
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
888 Vbinary_process_output = Qnil;
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 410
diff changeset
889 #endif /* DOS_NT */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
890
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
891 DEFVAR_LISP ("shell-file-name", &Vshell_file_name /*
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
892 *File name to load inferior shells from.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
893 Initialized from the SHELL environment variable.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
894 */ );
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
895
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
896 DEFVAR_LISP ("process-environment", &Vprocess_environment /*
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
897 List of environment variables for subprocesses to inherit.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
898 Each element should be a string of the form ENVVARNAME=VALUE.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
899 The environment which Emacs inherits is placed in this variable
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
900 when Emacs starts.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
901 */ );
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 386
diff changeset
902
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 386
diff changeset
903 Vlisp_EXEC_SUFFIXES = build_string (EXEC_SUFFIXES);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 386
diff changeset
904 staticpro (&Vlisp_EXEC_SUFFIXES);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
905 }