296
|
1 /* Synchronous subprocess invocation for GNU Emacs.
|
60891
|
2 Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1999, 2000, 2001,
|
64770
|
3 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
|
296
|
4
|
|
5 This file is part of GNU Emacs.
|
|
6
|
|
7 GNU Emacs is free software; you can redistribute it and/or modify
|
|
8 it under the terms of the GNU General Public License as published by
|
5516
|
9 the Free Software Foundation; either version 2, or (at your option)
|
296
|
10 any later version.
|
|
11
|
|
12 GNU Emacs is distributed in the hope that it will be useful,
|
|
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
15 GNU General Public License for more details.
|
|
16
|
|
17 You should have received a copy of the GNU General Public License
|
|
18 along with GNU Emacs; see the file COPYING. If not, write to
|
64084
|
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
20 Boston, MA 02110-1301, USA. */
|
296
|
21
|
|
22
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
23 #include <config.h>
|
296
|
24 #include <signal.h>
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
25 #include <errno.h>
|
7900
|
26 #include <stdio.h>
|
296
|
27
|
31100
|
28 #ifndef USE_CRT_DLL
|
2286
|
29 extern int errno;
|
31100
|
30 #endif
|
2286
|
31
|
296
|
32 /* Define SIGCHLD as an alias for SIGCLD. */
|
|
33
|
|
34 #if !defined (SIGCHLD) && defined (SIGCLD)
|
|
35 #define SIGCHLD SIGCLD
|
|
36 #endif /* SIGCLD */
|
|
37
|
|
38 #include <sys/types.h>
|
3932
|
39
|
25767
|
40 #ifdef HAVE_UNISTD_H
|
|
41 #include <unistd.h>
|
|
42 #endif
|
|
43
|
296
|
44 #include <sys/file.h>
|
51403
|
45 #ifdef HAVE_FCNTL_H
|
6818
|
46 #define INCLUDED_FCNTL
|
296
|
47 #include <fcntl.h>
|
|
48 #endif
|
|
49
|
9786
|
50 #ifdef WINDOWSNT
|
|
51 #define NOMINMAX
|
|
52 #include <windows.h>
|
|
53 #include <stdlib.h> /* for proper declaration of environ */
|
|
54 #include <fcntl.h>
|
16593
|
55 #include "w32.h"
|
9786
|
56 #define _P_NOWAIT 1 /* from process.h */
|
|
57 #endif
|
|
58
|
5501
|
59 #ifdef MSDOS /* Demacs 1.1.1 91/10/16 HIRANO Satoshi */
|
6818
|
60 #define INCLUDED_FCNTL
|
5501
|
61 #include <fcntl.h>
|
|
62 #include <sys/stat.h>
|
|
63 #include <sys/param.h>
|
|
64 #include <errno.h>
|
|
65 #endif /* MSDOS */
|
|
66
|
296
|
67 #ifndef O_RDONLY
|
|
68 #define O_RDONLY 0
|
|
69 #endif
|
|
70
|
|
71 #ifndef O_WRONLY
|
|
72 #define O_WRONLY 1
|
|
73 #endif
|
|
74
|
|
75 #include "lisp.h"
|
|
76 #include "commands.h"
|
|
77 #include "buffer.h"
|
17025
|
78 #include "charset.h"
|
23885
|
79 #include "ccl.h"
|
17025
|
80 #include "coding.h"
|
29273
|
81 #include "composite.h"
|
24412
|
82 #include <epaths.h>
|
296
|
83 #include "process.h"
|
1504
|
84 #include "syssignal.h"
|
5348
|
85 #include "systty.h"
|
57892
|
86 #include "blockinput.h"
|
296
|
87
|
21786
|
88 #ifdef MSDOS
|
|
89 #include "msdos.h"
|
|
90 #endif
|
|
91
|
296
|
92 #ifdef VMS
|
|
93 extern noshare char **environ;
|
|
94 #else
|
31100
|
95 #ifndef USE_CRT_DLL
|
296
|
96 extern char **environ;
|
|
97 #endif
|
31100
|
98 #endif
|
296
|
99
|
29125
|
100 #ifdef HAVE_SETPGID
|
29150
|
101 #if !defined (USG) || defined (BSD_PGRPS)
|
29905
|
102 #undef setpgrp
|
29125
|
103 #define setpgrp setpgid
|
|
104 #endif
|
29150
|
105 #endif
|
29125
|
106
|
39811
|
107 Lisp_Object Vexec_path, Vexec_directory, Vexec_suffixes;
|
|
108 Lisp_Object Vdata_directory, Vdoc_directory;
|
45092
7f1d09693ef3
(Vgame_score_directory): Renamed to Vshared_game_score_directory.
Colin Walters <walters@gnu.org>
diff
changeset
|
109 Lisp_Object Vconfigure_info_directory, Vshared_game_score_directory;
|
16627
|
110 Lisp_Object Vtemp_file_name_pattern;
|
296
|
111
|
|
112 Lisp_Object Vshell_file_name;
|
|
113
|
|
114 Lisp_Object Vprocess_environment;
|
|
115
|
9786
|
116 #ifdef DOS_NT
|
7397
|
117 Lisp_Object Qbuffer_file_type;
|
9786
|
118 #endif /* DOS_NT */
|
7397
|
119
|
296
|
120 /* True iff we are about to fork off a synchronous process or if we
|
|
121 are waiting for it. */
|
|
122 int synch_process_alive;
|
|
123
|
|
124 /* Nonzero => this is a string explaining death of synchronous subprocess. */
|
|
125 char *synch_process_death;
|
|
126
|
53712
|
127 /* Nonzero => this is the signal number that terminated the subprocess. */
|
|
128 int synch_process_termsig;
|
|
129
|
296
|
130 /* If synch_process_death is zero,
|
|
131 this is exit code of synchronous subprocess. */
|
|
132 int synch_process_retcode;
|
|
133
|
6275
|
134 /* Clean up when exiting Fcall_process.
|
|
135 On MSDOS, delete the temporary file on any kind of termination.
|
|
136 On Unix, kill the process and any children on termination by signal. */
|
|
137
|
|
138 /* Nonzero if this is termination due to exit. */
|
|
139 static int call_process_exited;
|
|
140
|
296
|
141 #ifndef VMS /* VMS version is in vmsproc.c. */
|
|
142
|
1504
|
143 static Lisp_Object
|
|
144 call_process_kill (fdpid)
|
|
145 Lisp_Object fdpid;
|
|
146 {
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
147 emacs_close (XFASTINT (Fcar (fdpid)));
|
1504
|
148 EMACS_KILLPG (XFASTINT (Fcdr (fdpid)), SIGKILL);
|
|
149 synch_process_alive = 0;
|
|
150 return Qnil;
|
|
151 }
|
|
152
|
296
|
153 Lisp_Object
|
|
154 call_process_cleanup (fdpid)
|
|
155 Lisp_Object fdpid;
|
|
156 {
|
44890
01b93e5e53a7
Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
diff
changeset
|
157 #if defined (MSDOS) || defined (MAC_OS8)
|
5501
|
158 /* for MSDOS fdpid is really (fd . tempfile) */
|
6495
c88f34090aea
(call_process_cleanup, getenv_internal): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
159 register Lisp_Object file;
|
c88f34090aea
(call_process_cleanup, getenv_internal): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
160 file = Fcdr (fdpid);
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
161 emacs_close (XFASTINT (Fcar (fdpid)));
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
162 if (strcmp (SDATA (file), NULL_DEVICE) != 0)
|
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
163 unlink (SDATA (file));
|
44890
01b93e5e53a7
Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
diff
changeset
|
164 #else /* not MSDOS and not MAC_OS8 */
|
1504
|
165 register int pid = XFASTINT (Fcdr (fdpid));
|
|
166
|
6275
|
167 if (call_process_exited)
|
6466
|
168 {
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
169 emacs_close (XFASTINT (Fcar (fdpid)));
|
6466
|
170 return Qnil;
|
|
171 }
|
6275
|
172
|
1504
|
173 if (EMACS_KILLPG (pid, SIGINT) == 0)
|
|
174 {
|
46293
|
175 int count = SPECPDL_INDEX ();
|
1504
|
176 record_unwind_protect (call_process_kill, fdpid);
|
|
177 message1 ("Waiting for process to die...(type C-g again to kill it instantly)");
|
|
178 immediate_quit = 1;
|
|
179 QUIT;
|
|
180 wait_for_termination (pid);
|
|
181 immediate_quit = 0;
|
|
182 specpdl_ptr = specpdl + count; /* Discard the unwind protect. */
|
|
183 message1 ("Waiting for process to die...done");
|
|
184 }
|
296
|
185 synch_process_alive = 0;
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
186 emacs_close (XFASTINT (Fcar (fdpid)));
|
5501
|
187 #endif /* not MSDOS */
|
296
|
188 return Qnil;
|
|
189 }
|
|
190
|
|
191 DEFUN ("call-process", Fcall_process, Scall_process, 1, MANY, 0,
|
40103
|
192 doc: /* Call PROGRAM synchronously in separate process.
|
|
193 The remaining arguments are optional.
|
|
194 The program's input comes from file INFILE (nil means `/dev/null').
|
|
195 Insert output in BUFFER before point; t means current buffer;
|
|
196 nil for BUFFER means discard it; 0 means discard and don't wait.
|
|
197 BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case,
|
|
198 REAL-BUFFER says what to do with standard output, as above,
|
|
199 while STDERR-FILE says what to do with standard error in the child.
|
|
200 STDERR-FILE may be nil (discard standard error output),
|
|
201 t (mix it with ordinary output), or a file name string.
|
|
202
|
|
203 Fourth arg DISPLAY non-nil means redisplay buffer as output is inserted.
|
|
204 Remaining arguments are strings passed as command arguments to PROGRAM.
|
|
205
|
|
206 If BUFFER is 0, `call-process' returns immediately with value nil.
|
|
207 Otherwise it waits for PROGRAM to terminate
|
|
208 and returns a numeric exit status or a signal description string.
|
40114
c8af574bcf48
(Fcall_process_region, Fcall_process): Add usage: string to doc string.
Miles Bader <miles@gnu.org>
diff
changeset
|
209 If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.
|
c8af574bcf48
(Fcall_process_region, Fcall_process): Add usage: string to doc string.
Miles Bader <miles@gnu.org>
diff
changeset
|
210
|
c8af574bcf48
(Fcall_process_region, Fcall_process): Add usage: string to doc string.
Miles Bader <miles@gnu.org>
diff
changeset
|
211 usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS) */)
|
40103
|
212 (nargs, args)
|
296
|
213 int nargs;
|
|
214 register Lisp_Object *args;
|
|
215 {
|
57473
|
216 Lisp_Object infile, buffer, current_dir, path;
|
|
217 int display_p;
|
296
|
218 int fd[2];
|
|
219 int filefd;
|
|
220 register int pid;
|
62982
|
221 #define CALLPROC_BUFFER_SIZE_MIN (16 * 1024)
|
|
222 #define CALLPROC_BUFFER_SIZE_MAX (4 * CALLPROC_BUFFER_SIZE_MIN)
|
|
223 char buf[CALLPROC_BUFFER_SIZE_MAX];
|
|
224 int bufsize = CALLPROC_BUFFER_SIZE_MIN;
|
46293
|
225 int count = SPECPDL_INDEX ();
|
20525
|
226
|
46546
|
227 register const unsigned char **new_argv
|
|
228 = (const unsigned char **) alloca ((max (2, nargs - 2)) * sizeof (char *));
|
296
|
229 struct buffer *old = current_buffer;
|
10839
|
230 /* File to use for stderr in the child.
|
|
231 t means use same as standard output. */
|
|
232 Lisp_Object error_file;
|
5501
|
233 #ifdef MSDOS /* Demacs 1.1.1 91/10/16 HIRANO Satoshi */
|
|
234 char *outf, *tempfile;
|
|
235 int outfilefd;
|
|
236 #endif
|
44890
01b93e5e53a7
Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
diff
changeset
|
237 #ifdef MAC_OS8
|
25522
|
238 char *tempfile;
|
|
239 int outfilefd;
|
|
240 #endif
|
296
|
241 #if 0
|
|
242 int mask;
|
|
243 #endif
|
17025
|
244 struct coding_system process_coding; /* coding-system of process output */
|
|
245 struct coding_system argument_coding; /* coding-system of arguments */
|
24931
|
246 /* Set to the return value of Ffind_operation_coding_system. */
|
|
247 Lisp_Object coding_systems;
|
|
248
|
|
249 /* Qt denotes that Ffind_operation_coding_system is not yet called. */
|
|
250 coding_systems = Qt;
|
17025
|
251
|
40656
|
252 CHECK_STRING (args[0]);
|
296
|
253
|
10839
|
254 error_file = Qt;
|
|
255
|
5501
|
256 #ifndef subprocesses
|
|
257 /* Without asynchronous processes we cannot have BUFFER == 0. */
|
49600
|
258 if (nargs >= 3
|
22639
8177901b437a
(Fcall_process) [! subprocesses]: Balance parentheses in an if clause.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
259 && (INTEGERP (CONSP (args[2]) ? XCAR (args[2]) : args[2])))
|
5501
|
260 error ("Operating system cannot handle asynchronous subprocesses");
|
|
261 #endif /* subprocesses */
|
|
262
|
24931
|
263 /* Decide the coding-system for giving arguments. */
|
17025
|
264 {
|
|
265 Lisp_Object val, *args2;
|
|
266 int i;
|
|
267
|
|
268 /* If arguments are supplied, we may have to encode them. */
|
|
269 if (nargs >= 5)
|
|
270 {
|
20595
|
271 int must_encode = 0;
|
|
272
|
20789
140b6fdd53d0
(Fcall_process): Test only args past args[4] for multibyteness.
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
273 for (i = 4; i < nargs; i++)
|
40656
|
274 CHECK_STRING (args[i]);
|
22940
|
275
|
|
276 for (i = 4; i < nargs; i++)
|
20595
|
277 if (STRING_MULTIBYTE (args[i]))
|
|
278 must_encode = 1;
|
|
279
|
18651
|
280 if (!NILP (Vcoding_system_for_write))
|
|
281 val = Vcoding_system_for_write;
|
20595
|
282 else if (! must_encode)
|
18651
|
283 val = Qnil;
|
|
284 else
|
17025
|
285 {
|
|
286 args2 = (Lisp_Object *) alloca ((nargs + 1) * sizeof *args2);
|
|
287 args2[0] = Qcall_process;
|
|
288 for (i = 0; i < nargs; i++) args2[i + 1] = args[i];
|
18539
|
289 coding_systems = Ffind_operation_coding_system (nargs + 1, args2);
|
18182
|
290 if (CONSP (coding_systems))
|
25645
|
291 val = XCDR (coding_systems);
|
18182
|
292 else if (CONSP (Vdefault_process_coding_system))
|
25645
|
293 val = XCDR (Vdefault_process_coding_system);
|
18651
|
294 else
|
|
295 val = Qnil;
|
17025
|
296 }
|
|
297 setup_coding_system (Fcheck_coding_system (val), &argument_coding);
|
|
298 }
|
|
299 }
|
|
300
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
301 if (nargs >= 2 && ! NILP (args[1]))
|
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
302 {
|
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
303 infile = Fexpand_file_name (args[1], current_buffer->directory);
|
40656
|
304 CHECK_STRING (infile);
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
305 }
|
296
|
306 else
|
2432
|
307 infile = build_string (NULL_DEVICE);
|
648
|
308
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
309 if (nargs >= 3)
|
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
310 {
|
10839
|
311 buffer = args[2];
|
|
312
|
|
313 /* If BUFFER is a list, its meaning is
|
|
314 (BUFFER-FOR-STDOUT FILE-FOR-STDERR). */
|
|
315 if (CONSP (buffer))
|
|
316 {
|
25645
|
317 if (CONSP (XCDR (buffer)))
|
15440
|
318 {
|
15473
|
319 Lisp_Object stderr_file;
|
25645
|
320 stderr_file = XCAR (XCDR (buffer));
|
15440
|
321
|
|
322 if (NILP (stderr_file) || EQ (Qt, stderr_file))
|
|
323 error_file = stderr_file;
|
|
324 else
|
|
325 error_file = Fexpand_file_name (stderr_file, Qnil);
|
|
326 }
|
|
327
|
25645
|
328 buffer = XCAR (buffer);
|
10839
|
329 }
|
296
|
330
|
10839
|
331 if (!(EQ (buffer, Qnil)
|
|
332 || EQ (buffer, Qt)
|
22550
|
333 || INTEGERP (buffer)))
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
334 {
|
10839
|
335 Lisp_Object spec_buffer;
|
|
336 spec_buffer = buffer;
|
20823
|
337 buffer = Fget_buffer_create (buffer);
|
10839
|
338 /* Mention the buffer name for a better error message. */
|
|
339 if (NILP (buffer))
|
40656
|
340 CHECK_BUFFER (spec_buffer);
|
|
341 CHECK_BUFFER (buffer);
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
342 }
|
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
343 }
|
49600
|
344 else
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
345 buffer = Qnil;
|
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
346
|
1678
|
347 /* Make sure that the child will be able to chdir to the current
|
|
348 buffer's current directory, or its unhandled equivalent. We
|
|
349 can't just have the child check for an error when it does the
|
|
350 chdir, since it's in a vfork.
|
|
351
|
|
352 We have to GCPRO around this because Fexpand_file_name,
|
|
353 Funhandled_file_name_directory, and Ffile_accessible_directory_p
|
|
354 might call a file name handling function. The argument list is
|
|
355 protected by the caller, so all we really have to worry about is
|
|
356 buffer. */
|
|
357 {
|
|
358 struct gcpro gcpro1, gcpro2, gcpro3;
|
|
359
|
|
360 current_dir = current_buffer->directory;
|
|
361
|
|
362 GCPRO3 (infile, buffer, current_dir);
|
|
363
|
6391
|
364 current_dir
|
|
365 = expand_and_dir_to_file (Funhandled_file_name_directory (current_dir),
|
|
366 Qnil);
|
1678
|
367 if (NILP (Ffile_accessible_directory_p (current_dir)))
|
|
368 report_file_error ("Setting current directory",
|
|
369 Fcons (current_buffer->directory, Qnil));
|
|
370
|
|
371 UNGCPRO;
|
|
372 }
|
|
373
|
57473
|
374 display_p = INTERACTIVE && nargs >= 4 && !NILP (args[3]);
|
296
|
375
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
376 filefd = emacs_open (SDATA (infile), O_RDONLY, 0);
|
6391
|
377 if (filefd < 0)
|
|
378 {
|
|
379 report_file_error ("Opening process input file", Fcons (infile, Qnil));
|
|
380 }
|
|
381 /* Search for program; barf if not found. */
|
|
382 {
|
|
383 struct gcpro gcpro1;
|
|
384
|
|
385 GCPRO1 (current_dir);
|
45002
|
386 openp (Vexec_path, args[0], Vexec_suffixes, &path, make_number (X_OK));
|
6391
|
387 UNGCPRO;
|
|
388 }
|
|
389 if (NILP (path))
|
|
390 {
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
391 emacs_close (filefd);
|
6391
|
392 report_file_error ("Searching for program", Fcons (args[0], Qnil));
|
|
393 }
|
47018
|
394
|
|
395 /* If program file name starts with /: for quoting a magic name,
|
|
396 discard that. */
|
|
397 if (SBYTES (path) > 2 && SREF (path, 0) == '/'
|
|
398 && SREF (path, 1) == ':')
|
|
399 path = Fsubstring (path, make_number (2), Qnil);
|
|
400
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
401 new_argv[0] = SDATA (path);
|
20230
|
402 if (nargs > 4)
|
|
403 {
|
|
404 register int i;
|
29000
|
405 struct gcpro gcpro1, gcpro2, gcpro3;
|
17025
|
406
|
29000
|
407 GCPRO3 (infile, buffer, current_dir);
|
|
408 argument_coding.dst_multibyte = 0;
|
|
409 for (i = 4; i < nargs; i++)
|
|
410 {
|
|
411 argument_coding.src_multibyte = STRING_MULTIBYTE (args[i]);
|
|
412 if (CODING_REQUIRE_ENCODING (&argument_coding))
|
20230
|
413 {
|
29000
|
414 /* We must encode this argument. */
|
|
415 args[i] = encode_coding_string (args[i], &argument_coding, 1);
|
|
416 if (argument_coding.type == coding_type_ccl)
|
|
417 setup_ccl_program (&(argument_coding.spec.ccl.encoder), Qnil);
|
20230
|
418 }
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
419 new_argv[i - 3] = SDATA (args[i]);
|
20230
|
420 }
|
29000
|
421 UNGCPRO;
|
20448
|
422 new_argv[nargs - 3] = 0;
|
20230
|
423 }
|
20448
|
424 else
|
|
425 new_argv[1] = 0;
|
296
|
426
|
5501
|
427 #ifdef MSDOS /* MW, July 1993 */
|
23462
|
428 if ((outf = egetenv ("TMPDIR")))
|
5501
|
429 strcpy (tempfile = alloca (strlen (outf) + 20), outf);
|
|
430 else
|
|
431 {
|
|
432 tempfile = alloca (20);
|
|
433 *tempfile = '\0';
|
|
434 }
|
|
435 dostounix_filename (tempfile);
|
49600
|
436 if (*tempfile == '\0' || tempfile[strlen (tempfile) - 1] != '/')
|
5501
|
437 strcat (tempfile, "/");
|
|
438 strcat (tempfile, "detmp.XXX");
|
|
439 mktemp (tempfile);
|
|
440
|
|
441 outfilefd = creat (tempfile, S_IREAD | S_IWRITE);
|
|
442 if (outfilefd < 0)
|
|
443 {
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
444 emacs_close (filefd);
|
15610
|
445 report_file_error ("Opening process output file",
|
|
446 Fcons (build_string (tempfile), Qnil));
|
5501
|
447 }
|
15610
|
448 fd[0] = filefd;
|
13719
|
449 fd[1] = outfilefd;
|
15610
|
450 #endif /* MSDOS */
|
5501
|
451
|
44890
01b93e5e53a7
Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
diff
changeset
|
452 #ifdef MAC_OS8
|
25522
|
453 /* Since we don't have pipes on the Mac, create a temporary file to
|
|
454 hold the output of the subprocess. */
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
455 tempfile = (char *) alloca (SBYTES (Vtemp_file_name_pattern) + 1);
|
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
456 bcopy (SDATA (Vtemp_file_name_pattern), tempfile,
|
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
457 SBYTES (Vtemp_file_name_pattern) + 1);
|
25522
|
458
|
|
459 mktemp (tempfile);
|
|
460
|
|
461 outfilefd = creat (tempfile, S_IREAD | S_IWRITE);
|
|
462 if (outfilefd < 0)
|
|
463 {
|
|
464 close (filefd);
|
|
465 report_file_error ("Opening process output file",
|
|
466 Fcons (build_string (tempfile), Qnil));
|
|
467 }
|
|
468 fd[0] = filefd;
|
|
469 fd[1] = outfilefd;
|
44890
01b93e5e53a7
Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
diff
changeset
|
470 #endif /* MAC_OS8 */
|
25522
|
471
|
9138
|
472 if (INTEGERP (buffer))
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
473 fd[1] = emacs_open (NULL_DEVICE, O_WRONLY, 0), fd[0] = -1;
|
296
|
474 else
|
|
475 {
|
5501
|
476 #ifndef MSDOS
|
44890
01b93e5e53a7
Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
diff
changeset
|
477 #ifndef MAC_OS8
|
39359
|
478 errno = 0;
|
|
479 if (pipe (fd) == -1)
|
|
480 {
|
|
481 emacs_close (filefd);
|
|
482 report_file_error ("Creating process pipe", Qnil);
|
|
483 }
|
5501
|
484 #endif
|
25522
|
485 #endif
|
296
|
486 #if 0
|
|
487 /* Replaced by close_process_descs */
|
|
488 set_exclusive_use (fd[0]);
|
|
489 #endif
|
|
490 }
|
|
491
|
|
492 {
|
|
493 /* child_setup must clobber environ in systems with true vfork.
|
|
494 Protect it from permanent change. */
|
|
495 register char **save_environ = environ;
|
|
496 register int fd1 = fd[1];
|
10839
|
497 int fd_error = fd1;
|
296
|
498
|
|
499 #if 0 /* Some systems don't have sigblock. */
|
638
|
500 mask = sigblock (sigmask (SIGCHLD));
|
296
|
501 #endif
|
|
502
|
|
503 /* Record that we're about to create a synchronous process. */
|
|
504 synch_process_alive = 1;
|
|
505
|
4977
|
506 /* These vars record information from process termination.
|
|
507 Clear them now before process can possibly terminate,
|
|
508 to avoid timing error if process terminates soon. */
|
|
509 synch_process_death = 0;
|
|
510 synch_process_retcode = 0;
|
53712
|
511 synch_process_termsig = 0;
|
4977
|
512
|
10839
|
513 if (NILP (error_file))
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
514 fd_error = emacs_open (NULL_DEVICE, O_WRONLY, 0);
|
10839
|
515 else if (STRINGP (error_file))
|
|
516 {
|
|
517 #ifdef DOS_NT
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
518 fd_error = emacs_open (SDATA (error_file),
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
519 O_WRONLY | O_TRUNC | O_CREAT | O_TEXT,
|
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
520 S_IREAD | S_IWRITE);
|
10839
|
521 #else /* not DOS_NT */
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
522 fd_error = creat (SDATA (error_file), 0666);
|
10839
|
523 #endif /* not DOS_NT */
|
|
524 }
|
|
525
|
|
526 if (fd_error < 0)
|
|
527 {
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
528 emacs_close (filefd);
|
15610
|
529 if (fd[0] != filefd)
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
530 emacs_close (fd[0]);
|
10839
|
531 if (fd1 >= 0)
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
532 emacs_close (fd1);
|
15610
|
533 #ifdef MSDOS
|
|
534 unlink (tempfile);
|
|
535 #endif
|
|
536 report_file_error ("Cannot redirect stderr",
|
|
537 Fcons ((NILP (error_file)
|
|
538 ? build_string (NULL_DEVICE) : error_file),
|
|
539 Qnil));
|
10839
|
540 }
|
19838
|
541
|
21053
|
542 current_dir = ENCODE_FILE (current_dir);
|
19838
|
543
|
44890
01b93e5e53a7
Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
diff
changeset
|
544 #ifdef MAC_OS8
|
25522
|
545 {
|
|
546 /* Call run_mac_command in sysdep.c here directly instead of doing
|
|
547 a child_setup as for MSDOS and other platforms. Note that this
|
|
548 code does not handle passing the environment to the synchronous
|
|
549 Mac subprocess. */
|
|
550 char *infn, *outfn, *errfn, *currdn;
|
49600
|
551
|
25522
|
552 /* close these files so subprocess can write to them */
|
|
553 close (outfilefd);
|
|
554 if (fd_error != outfilefd)
|
|
555 close (fd_error);
|
|
556 fd1 = -1; /* No harm in closing that one! */
|
|
557
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
558 infn = SDATA (infile);
|
25522
|
559 outfn = tempfile;
|
|
560 if (NILP (error_file))
|
|
561 errfn = NULL_DEVICE;
|
|
562 else if (EQ (Qt, error_file))
|
|
563 errfn = outfn;
|
|
564 else
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
565 errfn = SDATA (error_file);
|
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
566 currdn = SDATA (current_dir);
|
25522
|
567 pid = run_mac_command (new_argv, currdn, infn, outfn, errfn);
|
|
568
|
|
569 /* Record that the synchronous process exited and note its
|
|
570 termination status. */
|
|
571 synch_process_alive = 0;
|
|
572 synch_process_retcode = pid;
|
|
573 if (synch_process_retcode < 0) /* means it couldn't be exec'ed */
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
574 {
|
26526
|
575 synchronize_system_messages_locale ();
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
576 synch_process_death = strerror (errno);
|
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
577 }
|
25522
|
578
|
|
579 /* Since CRLF is converted to LF within `decode_coding', we can
|
|
580 always open a file with binary mode. */
|
|
581 fd[0] = open (tempfile, O_BINARY);
|
|
582 if (fd[0] < 0)
|
|
583 {
|
|
584 unlink (tempfile);
|
|
585 close (filefd);
|
|
586 report_file_error ("Cannot re-open temporary file", Qnil);
|
|
587 }
|
|
588 }
|
44890
01b93e5e53a7
Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
diff
changeset
|
589 #else /* not MAC_OS8 */
|
13719
|
590 #ifdef MSDOS /* MW, July 1993 */
|
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
591 /* Note that on MSDOS `child_setup' actually returns the child process
|
13719
|
592 exit status, not its PID, so we assign it to `synch_process_retcode'
|
|
593 below. */
|
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
594 pid = child_setup (filefd, outfilefd, fd_error, (char **) new_argv,
|
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
595 0, current_dir);
|
13719
|
596
|
|
597 /* Record that the synchronous process exited and note its
|
|
598 termination status. */
|
|
599 synch_process_alive = 0;
|
|
600 synch_process_retcode = pid;
|
|
601 if (synch_process_retcode < 0) /* means it couldn't be exec'ed */
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
602 {
|
26526
|
603 synchronize_system_messages_locale ();
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
604 synch_process_death = strerror (errno);
|
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
605 }
|
13719
|
606
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
607 emacs_close (outfilefd);
|
13719
|
608 if (fd_error != outfilefd)
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
609 emacs_close (fd_error);
|
13719
|
610 fd1 = -1; /* No harm in closing that one! */
|
17025
|
611 /* Since CRLF is converted to LF within `decode_coding', we can
|
|
612 always open a file with binary mode. */
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
613 fd[0] = emacs_open (tempfile, O_RDONLY | O_BINARY, 0);
|
13719
|
614 if (fd[0] < 0)
|
|
615 {
|
|
616 unlink (tempfile);
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
617 emacs_close (filefd);
|
13719
|
618 report_file_error ("Cannot re-open temporary file", Qnil);
|
|
619 }
|
|
620 #else /* not MSDOS */
|
9786
|
621 #ifdef WINDOWSNT
|
20525
|
622 pid = child_setup (filefd, fd1, fd_error, (char **) new_argv,
|
|
623 0, current_dir);
|
9786
|
624 #else /* not WINDOWSNT */
|
57892
|
625 BLOCK_INPUT;
|
|
626
|
296
|
627 pid = vfork ();
|
|
628
|
|
629 if (pid == 0)
|
|
630 {
|
|
631 if (fd[0] >= 0)
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
632 emacs_close (fd[0]);
|
18235
|
633 #ifdef HAVE_SETSID
|
|
634 setsid ();
|
|
635 #endif
|
|
636 #if defined (USG) && !defined (BSD_PGRPS)
|
296
|
637 setpgrp ();
|
|
638 #else
|
|
639 setpgrp (pid, pid);
|
|
640 #endif /* USG */
|
20525
|
641 child_setup (filefd, fd1, fd_error, (char **) new_argv,
|
|
642 0, current_dir);
|
296
|
643 }
|
57892
|
644
|
|
645 UNBLOCK_INPUT;
|
13719
|
646 #endif /* not WINDOWSNT */
|
15225
|
647
|
|
648 /* The MSDOS case did this already. */
|
|
649 if (fd_error >= 0)
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
650 emacs_close (fd_error);
|
5501
|
651 #endif /* not MSDOS */
|
44890
01b93e5e53a7
Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
diff
changeset
|
652 #endif /* not MAC_OS8 */
|
296
|
653
|
|
654 environ = save_environ;
|
|
655
|
6466
|
656 /* Close most of our fd's, but not fd[0]
|
|
657 since we will use that to read input from. */
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
658 emacs_close (filefd);
|
15236
|
659 if (fd1 >= 0 && fd1 != fd_error)
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
660 emacs_close (fd1);
|
296
|
661 }
|
|
662
|
|
663 if (pid < 0)
|
|
664 {
|
6466
|
665 if (fd[0] >= 0)
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
666 emacs_close (fd[0]);
|
296
|
667 report_file_error ("Doing vfork", Qnil);
|
|
668 }
|
|
669
|
9138
|
670 if (INTEGERP (buffer))
|
296
|
671 {
|
6466
|
672 if (fd[0] >= 0)
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
673 emacs_close (fd[0]);
|
296
|
674 #ifndef subprocesses
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
675 /* If Emacs has been built with asynchronous subprocess support,
|
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
676 we don't need to do this, I think because it will then have
|
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
677 the facilities for handling SIGCHLD. */
|
296
|
678 wait_without_blocking ();
|
|
679 #endif /* subprocesses */
|
|
680 return Qnil;
|
|
681 }
|
|
682
|
6466
|
683 /* Enable sending signal if user quits below. */
|
6275
|
684 call_process_exited = 0;
|
|
685
|
44890
01b93e5e53a7
Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
diff
changeset
|
686 #if defined(MSDOS) || defined(MAC_OS8)
|
5501
|
687 /* MSDOS needs different cleanup information. */
|
|
688 record_unwind_protect (call_process_cleanup,
|
|
689 Fcons (make_number (fd[0]), build_string (tempfile)));
|
|
690 #else
|
296
|
691 record_unwind_protect (call_process_cleanup,
|
|
692 Fcons (make_number (fd[0]), make_number (pid)));
|
44890
01b93e5e53a7
Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
diff
changeset
|
693 #endif /* not MSDOS and not MAC_OS8 */
|
296
|
694
|
|
695
|
9138
|
696 if (BUFFERP (buffer))
|
296
|
697 Fset_buffer (buffer);
|
|
698
|
24931
|
699 if (NILP (buffer))
|
|
700 {
|
|
701 /* If BUFFER is nil, we must read process output once and then
|
|
702 discard it, so setup coding system but with nil. */
|
|
703 setup_coding_system (Qnil, &process_coding);
|
|
704 }
|
|
705 else
|
|
706 {
|
|
707 Lisp_Object val, *args2;
|
|
708
|
|
709 val = Qnil;
|
|
710 if (!NILP (Vcoding_system_for_read))
|
|
711 val = Vcoding_system_for_read;
|
|
712 else
|
|
713 {
|
|
714 if (EQ (coding_systems, Qt))
|
|
715 {
|
|
716 int i;
|
|
717
|
|
718 args2 = (Lisp_Object *) alloca ((nargs + 1) * sizeof *args2);
|
|
719 args2[0] = Qcall_process;
|
|
720 for (i = 0; i < nargs; i++) args2[i + 1] = args[i];
|
|
721 coding_systems
|
|
722 = Ffind_operation_coding_system (nargs + 1, args2);
|
|
723 }
|
|
724 if (CONSP (coding_systems))
|
25645
|
725 val = XCAR (coding_systems);
|
24931
|
726 else if (CONSP (Vdefault_process_coding_system))
|
25645
|
727 val = XCAR (Vdefault_process_coding_system);
|
24931
|
728 else
|
|
729 val = Qnil;
|
|
730 }
|
|
731 setup_coding_system (Fcheck_coding_system (val), &process_coding);
|
|
732 /* In unibyte mode, character code conversion should not take
|
|
733 place but EOL conversion should. So, setup raw-text or one
|
|
734 of the subsidiary according to the information just setup. */
|
|
735 if (NILP (current_buffer->enable_multibyte_characters)
|
|
736 && !NILP (val))
|
|
737 setup_raw_text_coding_system (&process_coding);
|
|
738 }
|
29000
|
739 process_coding.src_multibyte = 0;
|
|
740 process_coding.dst_multibyte
|
|
741 = (BUFFERP (buffer)
|
|
742 ? ! NILP (XBUFFER (buffer)->enable_multibyte_characters)
|
|
743 : ! NILP (current_buffer->enable_multibyte_characters));
|
24931
|
744
|
296
|
745 immediate_quit = 1;
|
|
746 QUIT;
|
|
747
|
|
748 {
|
|
749 register int nread;
|
5251
|
750 int first = 1;
|
11619
|
751 int total_read = 0;
|
20724
|
752 int carryover = 0;
|
57473
|
753 int display_on_the_fly = display_p;
|
22320
|
754 struct coding_system saved_coding;
|
30579
13339fe0bdc0
(Fcall_process): Handle post-read-conversion of coding system if any.
Kenichi Handa <handa@m17n.org>
diff
changeset
|
755 int pt_orig = PT, pt_byte_orig = PT_BYTE;
|
13339fe0bdc0
(Fcall_process): Handle post-read-conversion of coding system if any.
Kenichi Handa <handa@m17n.org>
diff
changeset
|
756 int inserted;
|
22320
|
757
|
|
758 saved_coding = process_coding;
|
29273
|
759 if (process_coding.composing != COMPOSITION_DISABLED)
|
|
760 coding_allocate_composition_data (&process_coding, PT);
|
11780
|
761 while (1)
|
296
|
762 {
|
11780
|
763 /* Repeatedly read until we've filled as much as possible
|
|
764 of the buffer size we have. But don't read
|
14036
|
765 less than 1024--save that for the next bufferful. */
|
20724
|
766 nread = carryover;
|
11780
|
767 while (nread < bufsize - 1024)
|
8853
|
768 {
|
62982
|
769 int this_read = emacs_read (fd[0], buf + nread,
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
770 bufsize - nread);
|
11780
|
771
|
|
772 if (this_read < 0)
|
|
773 goto give_up;
|
|
774
|
|
775 if (this_read == 0)
|
21966
|
776 {
|
|
777 process_coding.mode |= CODING_MODE_LAST_BLOCK;
|
|
778 break;
|
|
779 }
|
11780
|
780
|
|
781 nread += this_read;
|
21966
|
782 total_read += this_read;
|
11780
|
783
|
21966
|
784 if (display_on_the_fly)
|
|
785 break;
|
|
786 }
|
11780
|
787
|
|
788 /* Now NREAD is the total amount of data in the buffer. */
|
296
|
789 immediate_quit = 0;
|
49600
|
790
|
942
|
791 if (!NILP (buffer))
|
17025
|
792 {
|
29000
|
793 if (! CODING_MAY_REQUIRE_DECODING (&process_coding))
|
62982
|
794 insert_1_both (buf, nread, nread, 0, 1, 0);
|
17025
|
795 else
|
|
796 { /* We have to decode the input. */
|
29273
|
797 int size;
|
|
798 char *decoding_buf;
|
17025
|
799
|
29273
|
800 repeat_decoding:
|
|
801 size = decoding_buffer_size (&process_coding, nread);
|
|
802 decoding_buf = (char *) xmalloc (size);
|
49600
|
803
|
46260
|
804 /* We can't use the macro CODING_REQUIRE_DETECTION
|
|
805 because it always returns nonzero if the coding
|
|
806 system requires EOL detection. Here, we have to
|
|
807 check only whether or not the coding system
|
|
808 requires text-encoding detection. */
|
|
809 if (process_coding.type == coding_type_undecided)
|
45980
1f38d08f324b
(Fcall_process): If code detection is necessary, call detect_coding
Kenichi Handa <handa@m17n.org>
diff
changeset
|
810 {
|
62982
|
811 detect_coding (&process_coding, buf, nread);
|
45980
1f38d08f324b
(Fcall_process): If code detection is necessary, call detect_coding
Kenichi Handa <handa@m17n.org>
diff
changeset
|
812 if (process_coding.composing != COMPOSITION_DISABLED)
|
57290
|
813 /* We have not yet allocated the composition
|
|
814 data because the coding type was undecided. */
|
45980
1f38d08f324b
(Fcall_process): If code detection is necessary, call detect_coding
Kenichi Handa <handa@m17n.org>
diff
changeset
|
815 coding_allocate_composition_data (&process_coding, PT);
|
1f38d08f324b
(Fcall_process): If code detection is necessary, call detect_coding
Kenichi Handa <handa@m17n.org>
diff
changeset
|
816 }
|
29287
|
817 if (process_coding.cmp_data)
|
|
818 process_coding.cmp_data->char_offset = PT;
|
49600
|
819
|
62982
|
820 decode_coding (&process_coding, buf, decoding_buf,
|
20724
|
821 nread, size);
|
49600
|
822
|
21966
|
823 if (display_on_the_fly
|
|
824 && saved_coding.type == coding_type_undecided
|
|
825 && process_coding.type != coding_type_undecided)
|
|
826 {
|
|
827 /* We have detected some coding system. But,
|
|
828 there's a possibility that the detection was
|
57473
|
829 done by insufficient data. So, we try the code
|
|
830 detection again with more data. */
|
24432
|
831 xfree (decoding_buf);
|
21966
|
832 display_on_the_fly = 0;
|
|
833 process_coding = saved_coding;
|
|
834 carryover = nread;
|
57473
|
835 /* This is to make the above condition always
|
|
836 fails in the future. */
|
|
837 saved_coding.type = coding_type_no_conversion;
|
21966
|
838 continue;
|
|
839 }
|
49600
|
840
|
20724
|
841 if (process_coding.produced > 0)
|
29287
|
842 insert_1_both (decoding_buf, process_coding.produced_char,
|
|
843 process_coding.produced, 0, 1, 0);
|
24432
|
844 xfree (decoding_buf);
|
37936
|
845
|
|
846 if (process_coding.result == CODING_FINISH_INCONSISTENT_EOL)
|
|
847 {
|
|
848 Lisp_Object eol_type, coding;
|
|
849
|
|
850 if (process_coding.eol_type == CODING_EOL_CR)
|
|
851 {
|
|
852 /* CRs have been replaced with LFs. Undo
|
|
853 that in the text inserted above. */
|
|
854 unsigned char *p;
|
49600
|
855
|
37936
|
856 move_gap_both (PT, PT_BYTE);
|
49600
|
857
|
37936
|
858 p = BYTE_POS_ADDR (pt_byte_orig);
|
|
859 for (; p < GPT_ADDR; ++p)
|
|
860 if (*p == '\n')
|
|
861 *p = '\r';
|
|
862 }
|
|
863 else if (process_coding.eol_type == CODING_EOL_CRLF)
|
|
864 {
|
|
865 /* CR LFs have been replaced with LFs. Undo
|
|
866 that by inserting CRs in front of LFs in
|
|
867 the text inserted above. */
|
|
868 EMACS_INT bytepos, old_pt, old_pt_byte, nCR;
|
|
869
|
|
870 old_pt = PT;
|
|
871 old_pt_byte = PT_BYTE;
|
|
872 nCR = 0;
|
49600
|
873
|
37936
|
874 for (bytepos = PT_BYTE - 1;
|
|
875 bytepos >= pt_byte_orig;
|
|
876 --bytepos)
|
|
877 if (FETCH_BYTE (bytepos) == '\n')
|
|
878 {
|
|
879 EMACS_INT charpos = BYTE_TO_CHAR (bytepos);
|
|
880 TEMP_SET_PT_BOTH (charpos, bytepos);
|
|
881 insert_1_both ("\r", 1, 1, 0, 1, 0);
|
|
882 ++nCR;
|
|
883 }
|
|
884
|
|
885 TEMP_SET_PT_BOTH (old_pt + nCR, old_pt_byte + nCR);
|
|
886 }
|
|
887
|
|
888 /* Set the coding system symbol to that for
|
|
889 Unix-like EOL. */
|
|
890 eol_type = Fget (saved_coding.symbol, Qeol_type);
|
|
891 if (VECTORP (eol_type)
|
|
892 && ASIZE (eol_type) == 3
|
|
893 && SYMBOLP (AREF (eol_type, CODING_EOL_LF)))
|
|
894 coding = AREF (eol_type, CODING_EOL_LF);
|
|
895 else
|
|
896 coding = saved_coding.symbol;
|
49600
|
897
|
37936
|
898 process_coding.symbol = coding;
|
|
899 process_coding.eol_type = CODING_EOL_LF;
|
|
900 process_coding.mode
|
|
901 &= ~CODING_MODE_INHIBIT_INCONSISTENT_EOL;
|
|
902 }
|
49600
|
903
|
29273
|
904 nread -= process_coding.consumed;
|
|
905 carryover = nread;
|
20724
|
906 if (carryover > 0)
|
29000
|
907 /* As CARRYOVER should not be that large, we had
|
|
908 better avoid overhead of bcopy. */
|
62982
|
909 BCOPY_SHORT (buf + process_coding.consumed, buf,
|
29000
|
910 carryover);
|
29273
|
911 if (process_coding.result == CODING_FINISH_INSUFFICIENT_CMP)
|
|
912 {
|
|
913 /* The decoding ended because of insufficient data
|
|
914 area to record information about composition.
|
|
915 We must try decoding with additional data area
|
29287
|
916 before reading more output for the process. */
|
29273
|
917 coding_allocate_composition_data (&process_coding, PT);
|
|
918 goto repeat_decoding;
|
|
919 }
|
17025
|
920 }
|
|
921 }
|
29000
|
922
|
20724
|
923 if (process_coding.mode & CODING_MODE_LAST_BLOCK)
|
29000
|
924 break;
|
11619
|
925
|
62982
|
926 #if (CALLPROC_BUFFER_SIZE_MIN != CALLPROC_BUFFER_SIZE_MAX)
|
11619
|
927 /* Make the buffer bigger as we continue to read more data,
|
62982
|
928 but not past CALLPROC_BUFFER_SIZE_MAX. */
|
|
929 if (bufsize < CALLPROC_BUFFER_SIZE_MAX && total_read > 32 * bufsize)
|
|
930 if ((bufsize *= 2) > CALLPROC_BUFFER_SIZE_MAX)
|
|
931 bufsize = CALLPROC_BUFFER_SIZE_MAX;
|
|
932 #endif
|
11619
|
933
|
57473
|
934 if (display_p)
|
5251
|
935 {
|
|
936 if (first)
|
|
937 prepare_menu_bars ();
|
|
938 first = 0;
|
35336
|
939 redisplay_preserve_echo_area (1);
|
57473
|
940 /* This variable might have been set to 0 for code
|
|
941 detection. In that case, we set it back to 1 because
|
|
942 we should have already detected a coding system. */
|
|
943 display_on_the_fly = 1;
|
5251
|
944 }
|
296
|
945 immediate_quit = 1;
|
|
946 QUIT;
|
|
947 }
|
11780
|
948 give_up: ;
|
296
|
949
|
29287
|
950 if (!NILP (buffer)
|
|
951 && process_coding.cmp_data)
|
|
952 {
|
|
953 coding_restore_composition (&process_coding, Fcurrent_buffer ());
|
|
954 coding_free_composition_data (&process_coding);
|
|
955 }
|
29273
|
956
|
30703
|
957 {
|
46293
|
958 int post_read_count = SPECPDL_INDEX ();
|
30703
|
959
|
|
960 record_unwind_protect (save_excursion_restore, save_excursion_save ());
|
|
961 inserted = PT - pt_orig;
|
|
962 TEMP_SET_PT_BOTH (pt_orig, pt_byte_orig);
|
|
963 if (SYMBOLP (process_coding.post_read_conversion)
|
|
964 && !NILP (Ffboundp (process_coding.post_read_conversion)))
|
|
965 call1 (process_coding.post_read_conversion, make_number (inserted));
|
30579
13339fe0bdc0
(Fcall_process): Handle post-read-conversion of coding system if any.
Kenichi Handa <handa@m17n.org>
diff
changeset
|
966
|
30703
|
967 Vlast_coding_system_used = process_coding.symbol;
|
20436
|
968
|
30703
|
969 /* If the caller required, let the buffer inherit the
|
|
970 coding-system used to decode the process output. */
|
|
971 if (inherit_process_coding_system)
|
|
972 call1 (intern ("after-insert-file-set-buffer-file-coding-system"),
|
|
973 make_number (total_read));
|
|
974
|
|
975 unbind_to (post_read_count, Qnil);
|
|
976 }
|
21572
|
977 }
|
|
978
|
296
|
979 /* Wait for it to terminate, unless it already has. */
|
|
980 wait_for_termination (pid);
|
|
981
|
|
982 immediate_quit = 0;
|
|
983
|
|
984 set_buffer_internal (old);
|
|
985
|
6275
|
986 /* Don't kill any children that the subprocess may have left behind
|
|
987 when exiting. */
|
|
988 call_process_exited = 1;
|
|
989
|
296
|
990 unbind_to (count, Qnil);
|
|
991
|
53712
|
992 if (synch_process_termsig)
|
|
993 {
|
|
994 char *signame;
|
|
995
|
|
996 synchronize_system_messages_locale ();
|
|
997 signame = strsignal (synch_process_termsig);
|
|
998
|
|
999 if (signame == 0)
|
|
1000 signame = "unknown";
|
|
1001
|
|
1002 synch_process_death = signame;
|
|
1003 }
|
|
1004
|
296
|
1005 if (synch_process_death)
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
1006 return code_convert_string_norecord (build_string (synch_process_death),
|
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
1007 Vlocale_coding_system, 0);
|
296
|
1008 return make_number (synch_process_retcode);
|
|
1009 }
|
|
1010 #endif
|
|
1011
|
1912
|
1012 static Lisp_Object
|
296
|
1013 delete_temp_file (name)
|
|
1014 Lisp_Object name;
|
|
1015 {
|
10083
|
1016 /* Use Fdelete_file (indirectly) because that runs a file name handler.
|
8737
|
1017 We did that when writing the file, so we should do so when deleting. */
|
10083
|
1018 internal_delete_file (name);
|
29905
|
1019 return Qnil;
|
296
|
1020 }
|
|
1021
|
|
1022 DEFUN ("call-process-region", Fcall_process_region, Scall_process_region,
|
40103
|
1023 3, MANY, 0,
|
|
1024 doc: /* Send text from START to END to a synchronous process running PROGRAM.
|
|
1025 The remaining arguments are optional.
|
|
1026 Delete the text if fourth arg DELETE is non-nil.
|
|
1027
|
|
1028 Insert output in BUFFER before point; t means current buffer;
|
|
1029 nil for BUFFER means discard it; 0 means discard and don't wait.
|
|
1030 BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case,
|
|
1031 REAL-BUFFER says what to do with standard output, as above,
|
|
1032 while STDERR-FILE says what to do with standard error in the child.
|
|
1033 STDERR-FILE may be nil (discard standard error output),
|
|
1034 t (mix it with ordinary output), or a file name string.
|
|
1035
|
|
1036 Sixth arg DISPLAY non-nil means redisplay buffer as output is inserted.
|
|
1037 Remaining args are passed to PROGRAM at startup as command args.
|
|
1038
|
51070
|
1039 If BUFFER is 0, `call-process-region' returns immediately with value nil.
|
40103
|
1040 Otherwise it waits for PROGRAM to terminate
|
|
1041 and returns a numeric exit status or a signal description string.
|
40114
c8af574bcf48
(Fcall_process_region, Fcall_process): Add usage: string to doc string.
Miles Bader <miles@gnu.org>
diff
changeset
|
1042 If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.
|
c8af574bcf48
(Fcall_process_region, Fcall_process): Add usage: string to doc string.
Miles Bader <miles@gnu.org>
diff
changeset
|
1043
|
c8af574bcf48
(Fcall_process_region, Fcall_process): Add usage: string to doc string.
Miles Bader <miles@gnu.org>
diff
changeset
|
1044 usage: (call-process-region START END PROGRAM &optional DELETE BUFFER DISPLAY &rest ARGS) */)
|
40103
|
1045 (nargs, args)
|
296
|
1046 int nargs;
|
|
1047 register Lisp_Object *args;
|
|
1048 {
|
8555
|
1049 struct gcpro gcpro1;
|
|
1050 Lisp_Object filename_string;
|
|
1051 register Lisp_Object start, end;
|
46293
|
1052 int count = SPECPDL_INDEX ();
|
18539
|
1053 /* Qt denotes we have not yet called Ffind_operation_coding_system. */
|
24931
|
1054 Lisp_Object coding_systems;
|
17025
|
1055 Lisp_Object val, *args2;
|
|
1056 int i;
|
9786
|
1057 #ifdef DOS_NT
|
5501
|
1058 char *tempfile;
|
|
1059 char *outf = '\0';
|
|
1060
|
23462
|
1061 if ((outf = egetenv ("TMPDIR"))
|
|
1062 || (outf = egetenv ("TMP"))
|
|
1063 || (outf = egetenv ("TEMP")))
|
5501
|
1064 strcpy (tempfile = alloca (strlen (outf) + 20), outf);
|
|
1065 else
|
|
1066 {
|
|
1067 tempfile = alloca (20);
|
|
1068 *tempfile = '\0';
|
|
1069 }
|
12238
|
1070 if (!IS_DIRECTORY_SEP (tempfile[strlen (tempfile) - 1]))
|
5501
|
1071 strcat (tempfile, "/");
|
15824
|
1072 if ('/' == DIRECTORY_SEP)
|
|
1073 dostounix_filename (tempfile);
|
|
1074 else
|
|
1075 unixtodos_filename (tempfile);
|
12238
|
1076 #ifdef WINDOWSNT
|
|
1077 strcat (tempfile, "emXXXXXX");
|
|
1078 #else
|
5501
|
1079 strcat (tempfile, "detmp.XXX");
|
12238
|
1080 #endif
|
9786
|
1081 #else /* not DOS_NT */
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
1082 char *tempfile = (char *) alloca (SBYTES (Vtemp_file_name_pattern) + 1);
|
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
1083 bcopy (SDATA (Vtemp_file_name_pattern), tempfile,
|
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
1084 SBYTES (Vtemp_file_name_pattern) + 1);
|
9786
|
1085 #endif /* not DOS_NT */
|
5501
|
1086
|
24931
|
1087 coding_systems = Qt;
|
|
1088
|
33285
|
1089 #ifdef HAVE_MKSTEMP
|
|
1090 {
|
|
1091 int fd = mkstemp (tempfile);
|
|
1092 if (fd == -1)
|
|
1093 report_file_error ("Failed to open temporary file",
|
|
1094 Fcons (Vtemp_file_name_pattern, Qnil));
|
|
1095 else
|
|
1096 close (fd);
|
|
1097 }
|
|
1098 #else
|
296
|
1099 mktemp (tempfile);
|
33285
|
1100 #endif
|
296
|
1101
|
|
1102 filename_string = build_string (tempfile);
|
8555
|
1103 GCPRO1 (filename_string);
|
296
|
1104 start = args[0];
|
|
1105 end = args[1];
|
17025
|
1106 /* Decide coding-system of the contents of the temporary file. */
|
19730
|
1107 if (!NILP (Vcoding_system_for_write))
|
|
1108 val = Vcoding_system_for_write;
|
|
1109 else if (NILP (current_buffer->enable_multibyte_characters))
|
17025
|
1110 val = Qnil;
|
|
1111 else
|
18651
|
1112 {
|
19730
|
1113 args2 = (Lisp_Object *) alloca ((nargs + 1) * sizeof *args2);
|
|
1114 args2[0] = Qcall_process_region;
|
|
1115 for (i = 0; i < nargs; i++) args2[i + 1] = args[i];
|
|
1116 coding_systems = Ffind_operation_coding_system (nargs + 1, args2);
|
|
1117 if (CONSP (coding_systems))
|
25645
|
1118 val = XCDR (coding_systems);
|
19730
|
1119 else if (CONSP (Vdefault_process_coding_system))
|
25645
|
1120 val = XCDR (Vdefault_process_coding_system);
|
18651
|
1121 else
|
19730
|
1122 val = Qnil;
|
18651
|
1123 }
|
19730
|
1124
|
21626
|
1125 {
|
46293
|
1126 int count1 = SPECPDL_INDEX ();
|
21626
|
1127
|
|
1128 specbind (intern ("coding-system-for-write"), val);
|
|
1129 Fwrite_region (start, end, filename_string, Qnil, Qlambda, Qnil, Qnil);
|
|
1130
|
|
1131 unbind_to (count1, Qnil);
|
|
1132 }
|
17025
|
1133
|
49600
|
1134 /* Note that Fcall_process takes care of binding
|
19730
|
1135 coding-system-for-read. */
|
7397
|
1136
|
296
|
1137 record_unwind_protect (delete_temp_file, filename_string);
|
|
1138
|
23885
|
1139 if (nargs > 3 && !NILP (args[3]))
|
296
|
1140 Fdelete_region (start, end);
|
|
1141
|
23885
|
1142 if (nargs > 3)
|
|
1143 {
|
|
1144 args += 2;
|
|
1145 nargs -= 2;
|
|
1146 }
|
|
1147 else
|
|
1148 {
|
|
1149 args[0] = args[2];
|
|
1150 nargs = 2;
|
|
1151 }
|
|
1152 args[1] = filename_string;
|
296
|
1153
|
23885
|
1154 RETURN_UNGCPRO (unbind_to (count, Fcall_process (nargs, args)));
|
296
|
1155 }
|
|
1156
|
|
1157 #ifndef VMS /* VMS version is in vmsproc.c. */
|
|
1158
|
21514
|
1159 static int relocate_fd ();
|
|
1160
|
296
|
1161 /* This is the last thing run in a newly forked inferior
|
|
1162 either synchronous or asynchronous.
|
|
1163 Copy descriptors IN, OUT and ERR as descriptors 0, 1 and 2.
|
|
1164 Initialize inferior's priority, pgrp, connected dir and environment.
|
|
1165 then exec another program based on new_argv.
|
|
1166
|
|
1167 This function may change environ for the superior process.
|
|
1168 Therefore, the superior process must save and restore the value
|
|
1169 of environ around the vfork and the call to this function.
|
|
1170
|
|
1171 SET_PGRP is nonzero if we should put the subprocess into a separate
|
49600
|
1172 process group.
|
296
|
1173
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1174 CURRENT_DIR is an elisp string giving the path of the current
|
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1175 directory the subprocess should have. Since we can't really signal
|
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1176 a decent error from within the child, this should be verified as an
|
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1177 executable directory by the parent. */
|
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1178
|
21514
|
1179 int
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1180 child_setup (in, out, err, new_argv, set_pgrp, current_dir)
|
296
|
1181 int in, out, err;
|
|
1182 register char **new_argv;
|
|
1183 int set_pgrp;
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1184 Lisp_Object current_dir;
|
296
|
1185 {
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1186 char **env;
|
7722
|
1187 char *pwd_var;
|
9786
|
1188 #ifdef WINDOWSNT
|
|
1189 int cpid;
|
15087
|
1190 HANDLE handles[3];
|
9786
|
1191 #endif /* WINDOWSNT */
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1192
|
5530
7ff479a8e8bf
(child_setup): Don't declare PID `register'; we later take its address.
Roland McGrath <roland@gnu.org>
diff
changeset
|
1193 int pid = getpid ();
|
296
|
1194
|
7481
|
1195 #ifdef SET_EMACS_PRIORITY
|
1201
|
1196 {
|
43713
f92c4d87863a
Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
1197 extern EMACS_INT emacs_priority;
|
1201
|
1198
|
7481
|
1199 if (emacs_priority < 0)
|
|
1200 nice (- emacs_priority);
|
1201
|
1201 }
|
7161
|
1202 #endif
|
296
|
1203
|
|
1204 #ifdef subprocesses
|
|
1205 /* Close Emacs's descriptors that this process should not have. */
|
|
1206 close_process_descs ();
|
|
1207 #endif
|
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1208 /* DOS_NT isn't in a vfork, so if we are in the middle of load-file,
|
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1209 we will lose if we call close_load_descs here. */
|
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1210 #ifndef DOS_NT
|
5569
|
1211 close_load_descs ();
|
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1212 #endif
|
296
|
1213
|
|
1214 /* Note that use of alloca is always safe here. It's obvious for systems
|
|
1215 that do not have true vfork or that have true (stack) alloca.
|
|
1216 If using vfork and C_ALLOCA it is safe because that changes
|
|
1217 the superior's static variables as if the superior had done alloca
|
|
1218 and will be cleaned up in the usual way. */
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1219 {
|
7722
|
1220 register char *temp;
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1221 register int i;
|
296
|
1222
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
1223 i = SBYTES (current_dir);
|
30530
|
1224 #ifdef MSDOS
|
|
1225 /* MSDOS must have all environment variables malloc'ed, because
|
|
1226 low-level libc functions that launch subsidiary processes rely
|
|
1227 on that. */
|
|
1228 pwd_var = (char *) xmalloc (i + 6);
|
|
1229 #else
|
7722
|
1230 pwd_var = (char *) alloca (i + 6);
|
30530
|
1231 #endif
|
7722
|
1232 temp = pwd_var + 4;
|
|
1233 bcopy ("PWD=", pwd_var, 4);
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
1234 bcopy (SDATA (current_dir), temp, i);
|
9786
|
1235 if (!IS_DIRECTORY_SEP (temp[i - 1])) temp[i++] = DIRECTORY_SEP;
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1236 temp[i] = 0;
|
538
|
1237
|
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1238 #ifndef DOS_NT
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1239 /* We can't signal an Elisp error here; we're in a vfork. Since
|
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1240 the callers check the current directory before forking, this
|
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1241 should only return an error if the directory's permissions
|
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1242 are changed between the check and this chdir, but we should
|
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1243 at least check. */
|
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1244 if (chdir (temp) < 0)
|
9609
|
1245 _exit (errno);
|
19967
|
1246 #endif
|
7722
|
1247
|
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1248 #ifdef DOS_NT
|
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1249 /* Get past the drive letter, so that d:/ is left alone. */
|
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1250 if (i > 2 && IS_DEVICE_SEP (temp[1]) && IS_DIRECTORY_SEP (temp[2]))
|
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1251 {
|
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1252 temp += 2;
|
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1253 i -= 2;
|
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1254 }
|
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1255 #endif
|
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1256
|
7722
|
1257 /* Strip trailing slashes for PWD, but leave "/" and "//" alone. */
|
9786
|
1258 while (i > 2 && IS_DIRECTORY_SEP (temp[i - 1]))
|
7722
|
1259 temp[--i] = 0;
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1260 }
|
296
|
1261
|
|
1262 /* Set `env' to a vector of the strings in Vprocess_environment. */
|
|
1263 {
|
|
1264 register Lisp_Object tem;
|
|
1265 register char **new_env;
|
|
1266 register int new_length;
|
|
1267
|
|
1268 new_length = 0;
|
|
1269 for (tem = Vprocess_environment;
|
25645
|
1270 CONSP (tem) && STRINGP (XCAR (tem));
|
|
1271 tem = XCDR (tem))
|
296
|
1272 new_length++;
|
|
1273
|
7722
|
1274 /* new_length + 2 to include PWD and terminating 0. */
|
|
1275 env = new_env = (char **) alloca ((new_length + 2) * sizeof (char *));
|
|
1276
|
|
1277 /* If we have a PWD envvar, pass one down,
|
|
1278 but with corrected value. */
|
|
1279 if (getenv ("PWD"))
|
|
1280 *new_env++ = pwd_var;
|
296
|
1281
|
2757
|
1282 /* Copy the Vprocess_environment strings into new_env. */
|
296
|
1283 for (tem = Vprocess_environment;
|
25645
|
1284 CONSP (tem) && STRINGP (XCAR (tem));
|
|
1285 tem = XCDR (tem))
|
2757
|
1286 {
|
|
1287 char **ep = env;
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
1288 char *string = (char *) SDATA (XCAR (tem));
|
2757
|
1289 /* See if this string duplicates any string already in the env.
|
|
1290 If so, don't put it in.
|
|
1291 When an env var has multiple definitions,
|
|
1292 we keep the definition that comes first in process-environment. */
|
|
1293 for (; ep != new_env; ep++)
|
|
1294 {
|
|
1295 char *p = *ep, *q = string;
|
|
1296 while (1)
|
|
1297 {
|
|
1298 if (*q == 0)
|
|
1299 /* The string is malformed; might as well drop it. */
|
|
1300 goto duplicate;
|
|
1301 if (*q != *p)
|
|
1302 break;
|
|
1303 if (*q == '=')
|
|
1304 goto duplicate;
|
|
1305 p++, q++;
|
|
1306 }
|
|
1307 }
|
|
1308 *new_env++ = string;
|
|
1309 duplicate: ;
|
|
1310 }
|
296
|
1311 *new_env = 0;
|
|
1312 }
|
9786
|
1313 #ifdef WINDOWSNT
|
|
1314 prepare_standard_handles (in, out, err, handles);
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
1315 set_process_dir (SDATA (current_dir));
|
9786
|
1316 #else /* not WINDOWSNT */
|
2286
|
1317 /* Make sure that in, out, and err are not actually already in
|
|
1318 descriptors zero, one, or two; this could happen if Emacs is
|
5501
|
1319 started with its standard in, out, or error closed, as might
|
2286
|
1320 happen under X. */
|
12430
|
1321 {
|
|
1322 int oin = in, oout = out;
|
|
1323
|
|
1324 /* We have to avoid relocating the same descriptor twice! */
|
|
1325
|
|
1326 in = relocate_fd (in, 3);
|
|
1327
|
|
1328 if (out == oin)
|
|
1329 out = in;
|
|
1330 else
|
6614
|
1331 out = relocate_fd (out, 3);
|
12430
|
1332
|
|
1333 if (err == oin)
|
|
1334 err = in;
|
|
1335 else if (err == oout)
|
|
1336 err = out;
|
|
1337 else
|
6614
|
1338 err = relocate_fd (err, 3);
|
12430
|
1339 }
|
2286
|
1340
|
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1341 #ifndef MSDOS
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
1342 emacs_close (0);
|
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
1343 emacs_close (1);
|
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
1344 emacs_close (2);
|
296
|
1345
|
|
1346 dup2 (in, 0);
|
|
1347 dup2 (out, 1);
|
|
1348 dup2 (err, 2);
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
1349 emacs_close (in);
|
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
1350 emacs_close (out);
|
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
1351 emacs_close (err);
|
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1352 #endif /* not MSDOS */
|
9786
|
1353 #endif /* not WINDOWSNT */
|
296
|
1354
|
14872
|
1355 #if defined(USG) && !defined(BSD_PGRPS)
|
5179
|
1356 #ifndef SETPGRP_RELEASES_CTTY
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1357 setpgrp (); /* No arguments but equivalent in this case */
|
5179
|
1358 #endif
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1359 #else
|
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1360 setpgrp (pid, pid);
|
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1361 #endif /* USG */
|
5348
|
1362 /* setpgrp_of_tty is incorrect here; it uses input_fd. */
|
|
1363 EMACS_SET_TTY_PGRP (0, &pid);
|
296
|
1364
|
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1365 #ifdef MSDOS
|
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1366 pid = run_msdos_command (new_argv, pwd_var + 4, in, out, err, env);
|
30607
|
1367 xfree (pwd_var);
|
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1368 if (pid == -1)
|
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1369 /* An error occurred while trying to run the subprocess. */
|
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1370 report_file_error ("Spawning child process", Qnil);
|
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1371 return pid;
|
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
1372 #else /* not MSDOS */
|
9786
|
1373 #ifdef WINDOWSNT
|
|
1374 /* Spawn the child. (See ntproc.c:Spawnve). */
|
|
1375 cpid = spawnve (_P_NOWAIT, new_argv[0], new_argv, env);
|
20041
|
1376 reset_standard_handles (in, out, err, handles);
|
11379
|
1377 if (cpid == -1)
|
|
1378 /* An error occurred while trying to spawn the process. */
|
|
1379 report_file_error ("Spawning child process", Qnil);
|
9786
|
1380 return cpid;
|
|
1381 #else /* not WINDOWSNT */
|
296
|
1382 /* execvp does not accept an environment arg so the only way
|
|
1383 to pass this environment is to set environ. Our caller
|
|
1384 is responsible for restoring the ambient value of environ. */
|
|
1385 environ = env;
|
|
1386 execvp (new_argv[0], new_argv);
|
|
1387
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
1388 emacs_write (1, "Can't exec program: ", 20);
|
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
1389 emacs_write (1, new_argv[0], strlen (new_argv[0]));
|
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
1390 emacs_write (1, "\n", 1);
|
296
|
1391 _exit (1);
|
9786
|
1392 #endif /* not WINDOWSNT */
|
5501
|
1393 #endif /* not MSDOS */
|
296
|
1394 }
|
|
1395
|
21454
|
1396 /* Move the file descriptor FD so that its number is not less than MINFD.
|
2286
|
1397 If the file descriptor is moved at all, the original is freed. */
|
21514
|
1398 static int
|
21454
|
1399 relocate_fd (fd, minfd)
|
|
1400 int fd, minfd;
|
2286
|
1401 {
|
21454
|
1402 if (fd >= minfd)
|
2286
|
1403 return fd;
|
|
1404 else
|
|
1405 {
|
|
1406 int new = dup (fd);
|
|
1407 if (new == -1)
|
|
1408 {
|
2509
|
1409 char *message1 = "Error while setting up child: ";
|
5516
|
1410 char *errmessage = strerror (errno);
|
2509
|
1411 char *message2 = "\n";
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
1412 emacs_write (2, message1, strlen (message1));
|
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
1413 emacs_write (2, errmessage, strlen (errmessage));
|
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
1414 emacs_write (2, message2, strlen (message2));
|
2286
|
1415 _exit (1);
|
|
1416 }
|
|
1417 /* Note that we hold the original FD open while we recurse,
|
|
1418 to guarantee we'll get a new FD if we need it. */
|
21454
|
1419 new = relocate_fd (new, minfd);
|
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
diff
changeset
|
1420 emacs_close (fd);
|
2286
|
1421 return new;
|
|
1422 }
|
|
1423 }
|
|
1424
|
942
|
1425 static int
|
|
1426 getenv_internal (var, varlen, value, valuelen)
|
|
1427 char *var;
|
|
1428 int varlen;
|
|
1429 char **value;
|
|
1430 int *valuelen;
|
|
1431 {
|
|
1432 Lisp_Object scan;
|
|
1433
|
25645
|
1434 for (scan = Vprocess_environment; CONSP (scan); scan = XCDR (scan))
|
942
|
1435 {
|
6495
c88f34090aea
(call_process_cleanup, getenv_internal): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
1436 Lisp_Object entry;
|
c88f34090aea
(call_process_cleanup, getenv_internal): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
1437
|
25645
|
1438 entry = XCAR (scan);
|
9138
|
1439 if (STRINGP (entry)
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
1440 && SBYTES (entry) > varlen
|
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
1441 && SREF (entry, varlen) == '='
|
9786
|
1442 #ifdef WINDOWSNT
|
|
1443 /* NT environment variables are case insensitive. */
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
1444 && ! strnicmp (SDATA (entry), var, varlen)
|
9786
|
1445 #else /* not WINDOWSNT */
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
1446 && ! bcmp (SDATA (entry), var, varlen)
|
9786
|
1447 #endif /* not WINDOWSNT */
|
11393
|
1448 )
|
942
|
1449 {
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
1450 *value = (char *) SDATA (entry) + (varlen + 1);
|
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
1451 *valuelen = SBYTES (entry) - (varlen + 1);
|
942
|
1452 return 1;
|
|
1453 }
|
|
1454 }
|
|
1455
|
|
1456 return 0;
|
|
1457 }
|
|
1458
|
28914
|
1459 DEFUN ("getenv-internal", Fgetenv_internal, Sgetenv_internal, 1, 1, 0,
|
40103
|
1460 doc: /* Return the value of environment variable VAR, as a string.
|
|
1461 VAR should be a string. Value is nil if VAR is undefined in the environment.
|
|
1462 This function consults the variable ``process-environment'' for its value. */)
|
|
1463 (var)
|
942
|
1464 Lisp_Object var;
|
|
1465 {
|
|
1466 char *value;
|
|
1467 int valuelen;
|
|
1468
|
40656
|
1469 CHECK_STRING (var);
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
1470 if (getenv_internal (SDATA (var), SBYTES (var),
|
942
|
1471 &value, &valuelen))
|
|
1472 return make_string (value, valuelen);
|
|
1473 else
|
|
1474 return Qnil;
|
|
1475 }
|
|
1476
|
|
1477 /* A version of getenv that consults process_environment, easily
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1478 callable from C. */
|
942
|
1479 char *
|
|
1480 egetenv (var)
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1481 char *var;
|
942
|
1482 {
|
|
1483 char *value;
|
|
1484 int valuelen;
|
|
1485
|
|
1486 if (getenv_internal (var, strlen (var), &value, &valuelen))
|
|
1487 return value;
|
|
1488 else
|
|
1489 return 0;
|
|
1490 }
|
|
1491
|
296
|
1492 #endif /* not VMS */
|
|
1493
|
5154
|
1494 /* This is run before init_cmdargs. */
|
49600
|
1495
|
21514
|
1496 void
|
5154
|
1497 init_callproc_1 ()
|
|
1498 {
|
|
1499 char *data_dir = egetenv ("EMACSDATA");
|
6031
|
1500 char *doc_dir = egetenv ("EMACSDOC");
|
|
1501
|
5154
|
1502 Vdata_directory
|
49600
|
1503 = Ffile_name_as_directory (build_string (data_dir ? data_dir
|
5154
|
1504 : PATH_DATA));
|
6031
|
1505 Vdoc_directory
|
|
1506 = Ffile_name_as_directory (build_string (doc_dir ? doc_dir
|
|
1507 : PATH_DOC));
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1508
|
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1509 /* Check the EMACSPATH environment variable, defaulting to the
|
24412
|
1510 PATH_EXEC path from epaths.h. */
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1511 Vexec_path = decode_env_path ("EMACSPATH", PATH_EXEC);
|
296
|
1512 Vexec_directory = Ffile_name_as_directory (Fcar (Vexec_path));
|
|
1513 Vexec_path = nconc2 (decode_env_path ("PATH", ""), Vexec_path);
|
5154
|
1514 }
|
|
1515
|
12615
|
1516 /* This is run after init_cmdargs, when Vinstallation_directory is valid. */
|
5154
|
1517
|
21514
|
1518 void
|
5154
|
1519 init_callproc ()
|
|
1520 {
|
|
1521 char *data_dir = egetenv ("EMACSDATA");
|
49600
|
1522
|
5154
|
1523 register char * sh;
|
|
1524 Lisp_Object tempdir;
|
|
1525
|
22373
cb8484085daf
(init_callproc): Check Vinstallation_directory even if !initialized.
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
1526 if (!NILP (Vinstallation_directory))
|
5154
|
1527 {
|
5618
|
1528 /* Add to the path the lib-src subdir of the installation dir. */
|
|
1529 Lisp_Object tem;
|
|
1530 tem = Fexpand_file_name (build_string ("lib-src"),
|
|
1531 Vinstallation_directory);
|
9786
|
1532 #ifndef DOS_NT
|
7824
|
1533 /* MSDOS uses wrapped binaries, so don't do this. */
|
24920
d95c8bcfe8ae
(init_callproc): Set exec_directory if installation_directory is
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
1534 if (NILP (Fmember (tem, Vexec_path)))
|
41861
|
1535 {
|
|
1536 Vexec_path = decode_env_path ("EMACSPATH", PATH_EXEC);
|
|
1537 Vexec_path = Fcons (tem, Vexec_path);
|
|
1538 Vexec_path = nconc2 (decode_env_path ("PATH", ""), Vexec_path);
|
|
1539 }
|
49600
|
1540
|
24920
d95c8bcfe8ae
(init_callproc): Set exec_directory if installation_directory is
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
1541 Vexec_directory = Ffile_name_as_directory (tem);
|
9786
|
1542 #endif /* not DOS_NT */
|
5154
|
1543
|
12615
|
1544 /* Maybe use ../etc as well as ../lib-src. */
|
|
1545 if (data_dir == 0)
|
|
1546 {
|
|
1547 tem = Fexpand_file_name (build_string ("etc"),
|
|
1548 Vinstallation_directory);
|
|
1549 Vdoc_directory = Ffile_name_as_directory (tem);
|
5154
|
1550 }
|
|
1551 }
|
7465
|
1552
|
|
1553 /* Look for the files that should be in etc. We don't use
|
|
1554 Vinstallation_directory, because these files are never installed
|
12615
|
1555 near the executable, and they are never in the build
|
7465
|
1556 directory when that's different from the source directory.
|
|
1557
|
|
1558 Instead, if these files are not in the nominal place, we try the
|
|
1559 source directory. */
|
|
1560 if (data_dir == 0)
|
|
1561 {
|
41861
|
1562 Lisp_Object tem, tem1, srcdir;
|
7465
|
1563
|
41861
|
1564 srcdir = Fexpand_file_name (build_string ("../src/"),
|
|
1565 build_string (PATH_DUMPLOADSEARCH));
|
7465
|
1566 tem = Fexpand_file_name (build_string ("GNU"), Vdata_directory);
|
|
1567 tem1 = Ffile_exists_p (tem);
|
41861
|
1568 if (!NILP (Fequal (srcdir, Vinvocation_directory)) || NILP (tem1))
|
7465
|
1569 {
|
41861
|
1570 Lisp_Object newdir;
|
7465
|
1571 newdir = Fexpand_file_name (build_string ("../etc/"),
|
|
1572 build_string (PATH_DUMPLOADSEARCH));
|
|
1573 tem = Fexpand_file_name (build_string ("GNU"), newdir);
|
|
1574 tem1 = Ffile_exists_p (tem);
|
|
1575 if (!NILP (tem1))
|
|
1576 Vdata_directory = newdir;
|
|
1577 }
|
|
1578 }
|
296
|
1579
|
19498
|
1580 #ifndef CANNOT_DUMP
|
|
1581 if (initialized)
|
|
1582 #endif
|
|
1583 {
|
|
1584 tempdir = Fdirectory_file_name (Vexec_directory);
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
1585 if (access (SDATA (tempdir), 0) < 0)
|
19498
|
1586 dir_warning ("Warning: arch-dependent data dir (%s) does not exist.\n",
|
|
1587 Vexec_directory);
|
|
1588 }
|
296
|
1589
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1590 tempdir = Fdirectory_file_name (Vdata_directory);
|
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
diff
changeset
|
1591 if (access (SDATA (tempdir), 0) < 0)
|
16486
|
1592 dir_warning ("Warning: arch-independent data dir (%s) does not exist.\n",
|
|
1593 Vdata_directory);
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1594
|
296
|
1595 #ifdef VMS
|
|
1596 Vshell_file_name = build_string ("*dcl*");
|
|
1597 #else
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1598 sh = (char *) getenv ("SHELL");
|
296
|
1599 Vshell_file_name = build_string (sh ? sh : "/bin/sh");
|
|
1600 #endif
|
16627
|
1601
|
|
1602 #ifdef VMS
|
|
1603 Vtemp_file_name_pattern = build_string ("tmp:emacsXXXXXX.");
|
|
1604 #else
|
|
1605 if (getenv ("TMPDIR"))
|
|
1606 {
|
|
1607 char *dir = getenv ("TMPDIR");
|
|
1608 Vtemp_file_name_pattern
|
|
1609 = Fexpand_file_name (build_string ("emacsXXXXXX"),
|
|
1610 build_string (dir));
|
|
1611 }
|
|
1612 else
|
|
1613 Vtemp_file_name_pattern = build_string ("/tmp/emacsXXXXXX");
|
|
1614 #endif
|
46600
|
1615
|
46626
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
diff
changeset
|
1616 #ifdef DOS_NT
|
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
diff
changeset
|
1617 Vshared_game_score_directory = Qnil;
|
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
diff
changeset
|
1618 #else
|
46600
|
1619 Vshared_game_score_directory = build_string (PATH_GAME);
|
|
1620 if (NILP (Ffile_directory_p (Vshared_game_score_directory)))
|
|
1621 Vshared_game_score_directory = Qnil;
|
46626
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
diff
changeset
|
1622 #endif
|
1912
|
1623 }
|
|
1624
|
21514
|
1625 void
|
1912
|
1626 set_process_environment ()
|
|
1627 {
|
|
1628 register char **envp;
|
296
|
1629
|
|
1630 Vprocess_environment = Qnil;
|
|
1631 #ifndef CANNOT_DUMP
|
|
1632 if (initialized)
|
|
1633 #endif
|
|
1634 for (envp = environ; *envp; envp++)
|
|
1635 Vprocess_environment = Fcons (build_string (*envp),
|
|
1636 Vprocess_environment);
|
|
1637 }
|
|
1638
|
21514
|
1639 void
|
296
|
1640 syms_of_callproc ()
|
|
1641 {
|
9786
|
1642 #ifdef DOS_NT
|
7397
|
1643 Qbuffer_file_type = intern ("buffer-file-type");
|
|
1644 staticpro (&Qbuffer_file_type);
|
9786
|
1645 #endif /* DOS_NT */
|
5501
|
1646
|
296
|
1647 DEFVAR_LISP ("shell-file-name", &Vshell_file_name,
|
40103
|
1648 doc: /* *File name to load inferior shells from.
|
|
1649 Initialized from the SHELL environment variable. */);
|
296
|
1650
|
|
1651 DEFVAR_LISP ("exec-path", &Vexec_path,
|
40103
|
1652 doc: /* *List of directories to search programs to run in subprocesses.
|
|
1653 Each element is a string (directory name) or nil (try default directory). */);
|
296
|
1654
|
39811
|
1655 DEFVAR_LISP ("exec-suffixes", &Vexec_suffixes,
|
40103
|
1656 doc: /* *List of suffixes to try to find executable file names.
|
|
1657 Each element is a string. */);
|
39934
|
1658 Vexec_suffixes = Qnil;
|
39811
|
1659
|
296
|
1660 DEFVAR_LISP ("exec-directory", &Vexec_directory,
|
40103
|
1661 doc: /* Directory for executables for Emacs to invoke.
|
|
1662 More generally, this includes any architecture-dependent files
|
|
1663 that are built and installed from the Emacs distribution. */);
|
439
|
1664
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1665 DEFVAR_LISP ("data-directory", &Vdata_directory,
|
40103
|
1666 doc: /* Directory of machine-independent files that come with GNU Emacs.
|
|
1667 These are files intended for Emacs to use while it runs. */);
|
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
diff
changeset
|
1668
|
6031
|
1669 DEFVAR_LISP ("doc-directory", &Vdoc_directory,
|
40103
|
1670 doc: /* Directory containing the DOC file that comes with GNU Emacs.
|
|
1671 This is usually the same as data-directory. */);
|
6031
|
1672
|
3064
|
1673 DEFVAR_LISP ("configure-info-directory", &Vconfigure_info_directory,
|
40103
|
1674 doc: /* For internal use by the build procedure only.
|
|
1675 This is the name of the directory in which the build procedure installed
|
|
1676 Emacs's info files; the default value for Info-default-directory-list
|
|
1677 includes this. */);
|
3064
|
1678 Vconfigure_info_directory = build_string (PATH_INFO);
|
|
1679
|
45092
7f1d09693ef3
(Vgame_score_directory): Renamed to Vshared_game_score_directory.
Colin Walters <walters@gnu.org>
diff
changeset
|
1680 DEFVAR_LISP ("shared-game-score-directory", &Vshared_game_score_directory,
|
44486
|
1681 doc: /* Directory of score files for games which come with GNU Emacs.
|
|
1682 If this variable is nil, then Emacs is unable to use a shared directory. */);
|
46626
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
diff
changeset
|
1683 #ifdef DOS_NT
|
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
diff
changeset
|
1684 Vshared_game_score_directory = Qnil;
|
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
diff
changeset
|
1685 #else
|
46600
|
1686 Vshared_game_score_directory = build_string (PATH_GAME);
|
46626
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
diff
changeset
|
1687 #endif
|
44486
|
1688
|
16627
|
1689 DEFVAR_LISP ("temp-file-name-pattern", &Vtemp_file_name_pattern,
|
40103
|
1690 doc: /* Pattern for making names for temporary files.
|
|
1691 This is used by `call-process-region'. */);
|
19012
|
1692 /* This variable is initialized in init_callproc. */
|
16627
|
1693
|
296
|
1694 DEFVAR_LISP ("process-environment", &Vprocess_environment,
|
40103
|
1695 doc: /* List of environment variables for subprocesses to inherit.
|
|
1696 Each element should be a string of the form ENVVARNAME=VALUE.
|
|
1697 If multiple entries define the same variable, the first one always
|
|
1698 takes precedence.
|
|
1699 The environment which Emacs inherits is placed in this variable
|
51403
|
1700 when Emacs starts.
|
|
1701 Non-ASCII characters are encoded according to the initial value of
|
|
1702 `locale-coding-system', i.e. the elements must normally be decoded for use.
|
|
1703 See `setenv' and `getenv'. */);
|
296
|
1704
|
|
1705 #ifndef VMS
|
|
1706 defsubr (&Scall_process);
|
28914
|
1707 defsubr (&Sgetenv_internal);
|
296
|
1708 #endif
|
|
1709 defsubr (&Scall_process_region);
|
|
1710 }
|
52401
|
1711
|
|
1712 /* arch-tag: 769b8045-1df7-4d2b-8968-e3fb49017f95
|
|
1713 (do not change this comment) */
|