Mercurial > emacs
annotate src/callproc.c @ 109147:783986775ee8
Set default-frame-alist, if necessary, in menu/tool-bar-mode.
* menu-bar.el (menu-bar-mode):
* tool-bar.el (tool-bar-mode): Replace default-frame-alist element
if it has been set.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Mon, 05 Jul 2010 13:54:13 -0400 |
parents | aec1143e8d85 |
children | 750db9f3e6d8 |
rev | line source |
---|---|
296 | 1 /* Synchronous subprocess invocation for GNU Emacs. |
60891
8881d5e2d23f
(Vdoc_file_name, Vfile_name_coding_system)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57892
diff
changeset
|
2 Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1999, 2000, 2001, |
106815 | 3 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 |
79759 | 4 Free Software Foundation, Inc. |
296 | 5 |
6 This file is part of GNU Emacs. | |
7 | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91551
diff
changeset
|
8 GNU Emacs is free software: you can redistribute it and/or modify |
296 | 9 it under the terms of the GNU General Public License as published by |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91551
diff
changeset
|
10 the Free Software Foundation, either version 3 of the License, or |
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91551
diff
changeset
|
11 (at your option) any later version. |
296 | 12 |
13 GNU Emacs is distributed in the hope that it will be useful, | |
14 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 GNU General Public License for more details. | |
17 | |
18 You should have received a copy of the GNU General Public License | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91551
diff
changeset
|
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
296 | 20 |
21 | |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
22 #include <config.h> |
296 | 23 #include <signal.h> |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
24 #include <errno.h> |
7900
60795e826dad
Put stdio.h after config.h.
Richard M. Stallman <rms@gnu.org>
parents:
7824
diff
changeset
|
25 #include <stdio.h> |
105669
68dd71358159
* alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104623
diff
changeset
|
26 #include <setjmp.h> |
296 | 27 |
28 /* Define SIGCHLD as an alias for SIGCLD. */ | |
29 | |
30 #if !defined (SIGCHLD) && defined (SIGCLD) | |
31 #define SIGCHLD SIGCLD | |
32 #endif /* SIGCLD */ | |
33 | |
34 #include <sys/types.h> | |
3932
9a411d86ca72
(PRIO_PROCESS): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
3826
diff
changeset
|
35 |
25767
30ffae737755
(toplevel) [HAVE_UNISTD_H]: Include unistd.h.
Gerd Moellmann <gerd@gnu.org>
parents:
25645
diff
changeset
|
36 #ifdef HAVE_UNISTD_H |
30ffae737755
(toplevel) [HAVE_UNISTD_H]: Include unistd.h.
Gerd Moellmann <gerd@gnu.org>
parents:
25645
diff
changeset
|
37 #include <unistd.h> |
30ffae737755
(toplevel) [HAVE_UNISTD_H]: Include unistd.h.
Gerd Moellmann <gerd@gnu.org>
parents:
25645
diff
changeset
|
38 #endif |
30ffae737755
(toplevel) [HAVE_UNISTD_H]: Include unistd.h.
Gerd Moellmann <gerd@gnu.org>
parents:
25645
diff
changeset
|
39 |
296 | 40 #include <sys/file.h> |
51403 | 41 #ifdef HAVE_FCNTL_H |
296 | 42 #include <fcntl.h> |
43 #endif | |
44 | |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
45 #ifdef WINDOWSNT |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
46 #define NOMINMAX |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
47 #include <windows.h> |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
48 #include <stdlib.h> /* for proper declaration of environ */ |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
49 #include <fcntl.h> |
16593
4ed80eda6fac
Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents:
16486
diff
changeset
|
50 #include "w32.h" |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
51 #define _P_NOWAIT 1 /* from process.h */ |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
52 #endif |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
53 |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
54 #ifdef MSDOS /* Demacs 1.1.1 91/10/16 HIRANO Satoshi */ |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
55 #include <fcntl.h> |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
56 #include <sys/stat.h> |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
57 #include <sys/param.h> |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
58 #endif /* MSDOS */ |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
59 |
296 | 60 #ifndef O_RDONLY |
61 #define O_RDONLY 0 | |
62 #endif | |
63 | |
64 #ifndef O_WRONLY | |
65 #define O_WRONLY 1 | |
66 #endif | |
67 | |
68 #include "lisp.h" | |
69 #include "commands.h" | |
70 #include "buffer.h" | |
88356
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
71 #include "character.h" |
23885 | 72 #include "ccl.h" |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
73 #include "coding.h" |
29273 | 74 #include "composite.h" |
24412
d11ac02f9d6a
Use epaths.h istead of paths.h.
Richard M. Stallman <rms@gnu.org>
parents:
23885
diff
changeset
|
75 #include <epaths.h> |
296 | 76 #include "process.h" |
1504
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
77 #include "syssignal.h" |
5348 | 78 #include "systty.h" |
57892 | 79 #include "blockinput.h" |
83421
bb2edc915032
Implement automatic terminal-local environment variables via `local-environment-variables'.
Karoly Lorentey <lorentey@elte.hu>
parents:
64770
diff
changeset
|
80 #include "frame.h" |
bb2edc915032
Implement automatic terminal-local environment variables via `local-environment-variables'.
Karoly Lorentey <lorentey@elte.hu>
parents:
64770
diff
changeset
|
81 #include "termhooks.h" |
296 | 82 |
21786
5f8f1b124f45
nclude msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21694
diff
changeset
|
83 #ifdef MSDOS |
5f8f1b124f45
nclude msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21694
diff
changeset
|
84 #include "msdos.h" |
5f8f1b124f45
nclude msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21694
diff
changeset
|
85 #endif |
5f8f1b124f45
nclude msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21694
diff
changeset
|
86 |
31100
92f108b8b281
[USE_CRT_DLL]: Remove unnecessary extern, which
Andrew Innes <andrewi@gnu.org>
parents:
30703
diff
changeset
|
87 #ifndef USE_CRT_DLL |
296 | 88 extern char **environ; |
89 #endif | |
90 | |
29125
63520d6017fb
(setpgrp) [HAVE_SETPGID]: Define as setpgid.
Gerd Moellmann <gerd@gnu.org>
parents:
29000
diff
changeset
|
91 #ifdef HAVE_SETPGID |
108235 | 92 #if !defined (USG) |
29905
ca781f54ac48
(setpgrp): Undefine before defining.
Dave Love <fx@gnu.org>
parents:
29287
diff
changeset
|
93 #undef setpgrp |
29125
63520d6017fb
(setpgrp) [HAVE_SETPGID]: Define as setpgid.
Gerd Moellmann <gerd@gnu.org>
parents:
29000
diff
changeset
|
94 #define setpgrp setpgid |
63520d6017fb
(setpgrp) [HAVE_SETPGID]: Define as setpgid.
Gerd Moellmann <gerd@gnu.org>
parents:
29000
diff
changeset
|
95 #endif |
29150
0398ec3316c5
(setpgrp): Don't define if USG and BSD_PGRPS are not defined.
Gerd Moellmann <gerd@gnu.org>
parents:
29125
diff
changeset
|
96 #endif |
29125
63520d6017fb
(setpgrp) [HAVE_SETPGID]: Define as setpgid.
Gerd Moellmann <gerd@gnu.org>
parents:
29000
diff
changeset
|
97 |
39811
9f7e72fba3d2
(Vexec_suffixes): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39535
diff
changeset
|
98 Lisp_Object Vexec_path, Vexec_directory, Vexec_suffixes; |
9f7e72fba3d2
(Vexec_suffixes): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39535
diff
changeset
|
99 Lisp_Object Vdata_directory, Vdoc_directory; |
45092
7f1d09693ef3
(Vgame_score_directory): Renamed to Vshared_game_score_directory.
Colin Walters <walters@gnu.org>
parents:
45002
diff
changeset
|
100 Lisp_Object Vconfigure_info_directory, Vshared_game_score_directory; |
101664
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
101 |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
102 /* Pattern used by call-process-region to make temp files. */ |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
103 static Lisp_Object Vtemp_file_name_pattern; |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
104 |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
105 extern Lisp_Object Vtemporary_file_directory; |
296 | 106 |
107 Lisp_Object Vshell_file_name; | |
108 | |
83796
e7303426ed25
(Vinitial_environment): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
109 Lisp_Object Vprocess_environment, Vinitial_environment; |
296 | 110 |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
111 #ifdef DOS_NT |
7397
e0ffa47f2ed4
[MSDOS]: Rename Vbinary_process to Vbinary_process_output.
Richard M. Stallman <rms@gnu.org>
parents:
7161
diff
changeset
|
112 Lisp_Object Qbuffer_file_type; |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
113 #endif /* DOS_NT */ |
7397
e0ffa47f2ed4
[MSDOS]: Rename Vbinary_process to Vbinary_process_output.
Richard M. Stallman <rms@gnu.org>
parents:
7161
diff
changeset
|
114 |
78501 | 115 /* True if we are about to fork off a synchronous process or if we |
296 | 116 are waiting for it. */ |
117 int synch_process_alive; | |
118 | |
119 /* Nonzero => this is a string explaining death of synchronous subprocess. */ | |
120 char *synch_process_death; | |
121 | |
53712
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
122 /* Nonzero => this is the signal number that terminated the subprocess. */ |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
123 int synch_process_termsig; |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
124 |
296 | 125 /* If synch_process_death is zero, |
126 this is exit code of synchronous subprocess. */ | |
127 int synch_process_retcode; | |
83421
bb2edc915032
Implement automatic terminal-local environment variables via `local-environment-variables'.
Karoly Lorentey <lorentey@elte.hu>
parents:
64770
diff
changeset
|
128 |
296 | 129 |
6275
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
130 /* Clean up when exiting Fcall_process. |
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
131 On MSDOS, delete the temporary file on any kind of termination. |
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
132 On Unix, kill the process and any children on termination by signal. */ |
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
133 |
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
134 /* Nonzero if this is termination due to exit. */ |
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
135 static int call_process_exited; |
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
136 |
84740
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
137 EXFUN (Fgetenv_internal, 2); |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
138 |
1504
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
139 static Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
140 call_process_kill (Lisp_Object fdpid) |
1504
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
141 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
142 emacs_close (XFASTINT (Fcar (fdpid))); |
1504
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
143 EMACS_KILLPG (XFASTINT (Fcdr (fdpid)), SIGKILL); |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
144 synch_process_alive = 0; |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
145 return Qnil; |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
146 } |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
147 |
296 | 148 Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
149 call_process_cleanup (Lisp_Object arg) |
296 | 150 { |
103111
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
151 Lisp_Object fdpid = Fcdr (arg); |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
152 #if defined (MSDOS) |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
153 Lisp_Object file; |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
154 #else |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
155 int pid; |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
156 #endif |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
157 |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
158 Fset_buffer (Fcar (arg)); |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
159 |
87730 | 160 #if defined (MSDOS) |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
161 /* for MSDOS fdpid is really (fd . tempfile) */ |
6495
c88f34090aea
(call_process_cleanup, getenv_internal): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents:
6466
diff
changeset
|
162 file = Fcdr (fdpid); |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
163 emacs_close (XFASTINT (Fcar (fdpid))); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
164 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>
parents:
46293
diff
changeset
|
165 unlink (SDATA (file)); |
87730 | 166 #else /* not MSDOS */ |
103111
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
167 pid = XFASTINT (Fcdr (fdpid)); |
1504
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
168 |
6275
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
169 if (call_process_exited) |
6466
4b3c537e1169
(Fcall_process): Make sure to close descriptors.
Richard M. Stallman <rms@gnu.org>
parents:
6391
diff
changeset
|
170 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
171 emacs_close (XFASTINT (Fcar (fdpid))); |
6466
4b3c537e1169
(Fcall_process): Make sure to close descriptors.
Richard M. Stallman <rms@gnu.org>
parents:
6391
diff
changeset
|
172 return Qnil; |
4b3c537e1169
(Fcall_process): Make sure to close descriptors.
Richard M. Stallman <rms@gnu.org>
parents:
6391
diff
changeset
|
173 } |
6275
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
174 |
1504
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
175 if (EMACS_KILLPG (pid, SIGINT) == 0) |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
176 { |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46260
diff
changeset
|
177 int count = SPECPDL_INDEX (); |
1504
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
178 record_unwind_protect (call_process_kill, fdpid); |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
179 message1 ("Waiting for process to die...(type C-g again to kill it instantly)"); |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
180 immediate_quit = 1; |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
181 QUIT; |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
182 wait_for_termination (pid); |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
183 immediate_quit = 0; |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
184 specpdl_ptr = specpdl + count; /* Discard the unwind protect. */ |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
185 message1 ("Waiting for process to die...done"); |
e074a2236b00
* callproc.c: Arrange for synchronous processes to get SIGINT the
Jim Blandy <jimb@redhat.com>
parents:
1201
diff
changeset
|
186 } |
296 | 187 synch_process_alive = 0; |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
188 emacs_close (XFASTINT (Fcar (fdpid))); |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
189 #endif /* not MSDOS */ |
296 | 190 return Qnil; |
191 } | |
192 | |
193 DEFUN ("call-process", Fcall_process, Scall_process, 1, MANY, 0, | |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
194 doc: /* Call PROGRAM synchronously in separate process. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
195 The remaining arguments are optional. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
196 The program's input comes from file INFILE (nil means `/dev/null'). |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
197 Insert output in BUFFER before point; t means current buffer; |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
198 nil for BUFFER means discard it; 0 means discard and don't wait. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
199 BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case, |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
200 REAL-BUFFER says what to do with standard output, as above, |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
201 while STDERR-FILE says what to do with standard error in the child. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
202 STDERR-FILE may be nil (discard standard error output), |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
203 t (mix it with ordinary output), or a file name string. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
204 |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
205 Fourth arg DISPLAY non-nil means redisplay buffer as output is inserted. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
206 Remaining arguments are strings passed as command arguments to PROGRAM. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
207 |
71340
5de9b904c7ad
(Fcall_process): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
70705
diff
changeset
|
208 If executable PROGRAM can't be found as an executable, `call-process' |
5de9b904c7ad
(Fcall_process): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
70705
diff
changeset
|
209 signals a Lisp error. `call-process' reports errors in execution of |
5de9b904c7ad
(Fcall_process): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
70705
diff
changeset
|
210 the program only through its return and output. |
5de9b904c7ad
(Fcall_process): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
70705
diff
changeset
|
211 |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
212 If BUFFER is 0, `call-process' returns immediately with value nil. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
213 Otherwise it waits for PROGRAM to terminate |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
214 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>
parents:
40103
diff
changeset
|
215 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>
parents:
40103
diff
changeset
|
216 |
c8af574bcf48
(Fcall_process_region, Fcall_process): Add usage: string to doc string.
Miles Bader <miles@gnu.org>
parents:
40103
diff
changeset
|
217 usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS) */) |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
218 (nargs, args) |
296 | 219 int nargs; |
220 register Lisp_Object *args; | |
221 { | |
57473
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
222 Lisp_Object infile, buffer, current_dir, path; |
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
223 int display_p; |
296 | 224 int fd[2]; |
225 int filefd; | |
226 register int pid; | |
62982
d7793ac6df62
(Fcall_process): Don't use alloca to gradually
Kim F. Storm <storm@cua.dk>
parents:
60891
diff
changeset
|
227 #define CALLPROC_BUFFER_SIZE_MIN (16 * 1024) |
d7793ac6df62
(Fcall_process): Don't use alloca to gradually
Kim F. Storm <storm@cua.dk>
parents:
60891
diff
changeset
|
228 #define CALLPROC_BUFFER_SIZE_MAX (4 * CALLPROC_BUFFER_SIZE_MIN) |
d7793ac6df62
(Fcall_process): Don't use alloca to gradually
Kim F. Storm <storm@cua.dk>
parents:
60891
diff
changeset
|
229 char buf[CALLPROC_BUFFER_SIZE_MAX]; |
d7793ac6df62
(Fcall_process): Don't use alloca to gradually
Kim F. Storm <storm@cua.dk>
parents:
60891
diff
changeset
|
230 int bufsize = CALLPROC_BUFFER_SIZE_MIN; |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46260
diff
changeset
|
231 int count = SPECPDL_INDEX (); |
20525
468f59c6c9bf
(Fcall_process): Cast new_argv for child_setup.
Richard M. Stallman <rms@gnu.org>
parents:
20448
diff
changeset
|
232 |
98089
4ea0f5996bd5
(Fcall_process): Don't hold references to string data
Andreas Schwab <schwab@suse.de>
parents:
98083
diff
changeset
|
233 register const unsigned char **new_argv; |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
234 /* File to use for stderr in the child. |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
235 t means use same as standard output. */ |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
236 Lisp_Object error_file; |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
237 #ifdef MSDOS /* Demacs 1.1.1 91/10/16 HIRANO Satoshi */ |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
238 char *outf, *tempfile; |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
239 int outfilefd; |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
240 #endif |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
241 struct coding_system process_coding; /* coding-system of process output */ |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
242 struct coding_system argument_coding; /* coding-system of arguments */ |
24931
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
243 /* Set to the return value of Ffind_operation_coding_system. */ |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
244 Lisp_Object coding_systems; |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
245 |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
246 /* Qt denotes that Ffind_operation_coding_system is not yet called. */ |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
247 coding_systems = Qt; |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
248 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40114
diff
changeset
|
249 CHECK_STRING (args[0]); |
296 | 250 |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
251 error_file = Qt; |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
252 |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
253 #ifndef subprocesses |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
254 /* Without asynchronous processes we cannot have BUFFER == 0. */ |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
255 if (nargs >= 3 |
22639
8177901b437a
(Fcall_process) [! subprocesses]: Balance parentheses in an if clause.
Eli Zaretskii <eliz@gnu.org>
parents:
22550
diff
changeset
|
256 && (INTEGERP (CONSP (args[2]) ? XCAR (args[2]) : args[2]))) |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
257 error ("Operating system cannot handle asynchronous subprocesses"); |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
258 #endif /* subprocesses */ |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
259 |
24931
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
260 /* Decide the coding-system for giving arguments. */ |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
261 { |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
262 Lisp_Object val, *args2; |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
263 int i; |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
264 |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
265 /* If arguments are supplied, we may have to encode them. */ |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
266 if (nargs >= 5) |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
267 { |
20595
7d5ca0b58282
(Fcall_process): When deciding whether to encode args,
Richard M. Stallman <rms@gnu.org>
parents:
20525
diff
changeset
|
268 int must_encode = 0; |
90434
8c71fed372cf
(Fcall_process): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90393
diff
changeset
|
269 Lisp_Object coding_attrs; |
20595
7d5ca0b58282
(Fcall_process): When deciding whether to encode args,
Richard M. Stallman <rms@gnu.org>
parents:
20525
diff
changeset
|
270 |
20789
140b6fdd53d0
(Fcall_process): Test only args past args[4] for multibyteness.
Richard M. Stallman <rms@gnu.org>
parents:
20724
diff
changeset
|
271 for (i = 4; i < nargs; i++) |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40114
diff
changeset
|
272 CHECK_STRING (args[i]); |
22940
3cfe86230c87
(Fcall_process): Check type of process cmd args earlier on.
Richard M. Stallman <rms@gnu.org>
parents:
22792
diff
changeset
|
273 |
3cfe86230c87
(Fcall_process): Check type of process cmd args earlier on.
Richard M. Stallman <rms@gnu.org>
parents:
22792
diff
changeset
|
274 for (i = 4; i < nargs; i++) |
20595
7d5ca0b58282
(Fcall_process): When deciding whether to encode args,
Richard M. Stallman <rms@gnu.org>
parents:
20525
diff
changeset
|
275 if (STRING_MULTIBYTE (args[i])) |
7d5ca0b58282
(Fcall_process): When deciding whether to encode args,
Richard M. Stallman <rms@gnu.org>
parents:
20525
diff
changeset
|
276 must_encode = 1; |
7d5ca0b58282
(Fcall_process): When deciding whether to encode args,
Richard M. Stallman <rms@gnu.org>
parents:
20525
diff
changeset
|
277 |
18651
982814f78d0d
(Fcall_process): If enable-multibyte-characters is
Kenichi Handa <handa@m17n.org>
parents:
18539
diff
changeset
|
278 if (!NILP (Vcoding_system_for_write)) |
982814f78d0d
(Fcall_process): If enable-multibyte-characters is
Kenichi Handa <handa@m17n.org>
parents:
18539
diff
changeset
|
279 val = Vcoding_system_for_write; |
20595
7d5ca0b58282
(Fcall_process): When deciding whether to encode args,
Richard M. Stallman <rms@gnu.org>
parents:
20525
diff
changeset
|
280 else if (! must_encode) |
18651
982814f78d0d
(Fcall_process): If enable-multibyte-characters is
Kenichi Handa <handa@m17n.org>
parents:
18539
diff
changeset
|
281 val = Qnil; |
982814f78d0d
(Fcall_process): If enable-multibyte-characters is
Kenichi Handa <handa@m17n.org>
parents:
18539
diff
changeset
|
282 else |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
283 { |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
284 args2 = (Lisp_Object *) alloca ((nargs + 1) * sizeof *args2); |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
285 args2[0] = Qcall_process; |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
286 for (i = 0; i < nargs; i++) args2[i + 1] = args[i]; |
18539
8c13c54d52c8
Call Ffind_operation_coding_system.
Kenichi Handa <handa@m17n.org>
parents:
18494
diff
changeset
|
287 coding_systems = Ffind_operation_coding_system (nargs + 1, args2); |
18182
967f92654591
(Fcall_process): Pay attention to
Kenichi Handa <handa@m17n.org>
parents:
17729
diff
changeset
|
288 if (CONSP (coding_systems)) |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
289 val = XCDR (coding_systems); |
18182
967f92654591
(Fcall_process): Pay attention to
Kenichi Handa <handa@m17n.org>
parents:
17729
diff
changeset
|
290 else if (CONSP (Vdefault_process_coding_system)) |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
291 val = XCDR (Vdefault_process_coding_system); |
18651
982814f78d0d
(Fcall_process): If enable-multibyte-characters is
Kenichi Handa <handa@m17n.org>
parents:
18539
diff
changeset
|
292 else |
982814f78d0d
(Fcall_process): If enable-multibyte-characters is
Kenichi Handa <handa@m17n.org>
parents:
18539
diff
changeset
|
293 val = Qnil; |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
294 } |
90393
6592da24d351
(Fcall_process): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90389
diff
changeset
|
295 val = coding_inherit_eol_type (val, Qnil); |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
296 setup_coding_system (Fcheck_coding_system (val), &argument_coding); |
90434
8c71fed372cf
(Fcall_process): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90393
diff
changeset
|
297 coding_attrs = CODING_ID_ATTRS (argument_coding.id); |
8c71fed372cf
(Fcall_process): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90393
diff
changeset
|
298 if (NILP (CODING_ATTR_ASCII_COMPAT (coding_attrs))) |
8c71fed372cf
(Fcall_process): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90393
diff
changeset
|
299 { |
8c71fed372cf
(Fcall_process): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90393
diff
changeset
|
300 /* We should not use an ASCII incompatible coding system. */ |
8c71fed372cf
(Fcall_process): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90393
diff
changeset
|
301 val = raw_text_coding_system (val); |
8c71fed372cf
(Fcall_process): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90393
diff
changeset
|
302 setup_coding_system (val, &argument_coding); |
8c71fed372cf
(Fcall_process): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90393
diff
changeset
|
303 } |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
304 } |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
305 } |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
306 |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
307 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>
parents:
942
diff
changeset
|
308 { |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
309 infile = Fexpand_file_name (args[1], current_buffer->directory); |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40114
diff
changeset
|
310 CHECK_STRING (infile); |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
311 } |
296 | 312 else |
2432
17a84e60603b
New macros NULL_DEVICE and EXEC_SUFFIXES, to give the name of the
Jim Blandy <jimb@redhat.com>
parents:
2286
diff
changeset
|
313 infile = build_string (NULL_DEVICE); |
648 | 314 |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
315 if (nargs >= 3) |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
316 { |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
317 buffer = args[2]; |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
318 |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
319 /* If BUFFER is a list, its meaning is |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
320 (BUFFER-FOR-STDOUT FILE-FOR-STDERR). */ |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
321 if (CONSP (buffer)) |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
322 { |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
323 if (CONSP (XCDR (buffer))) |
15440
87c6c9287f45
(Fcall_process): Handle t or nil as STDERR_FILE.
Richard M. Stallman <rms@gnu.org>
parents:
15236
diff
changeset
|
324 { |
15473
cdf40972804f
(Fcall_process): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
15440
diff
changeset
|
325 Lisp_Object stderr_file; |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
326 stderr_file = XCAR (XCDR (buffer)); |
15440
87c6c9287f45
(Fcall_process): Handle t or nil as STDERR_FILE.
Richard M. Stallman <rms@gnu.org>
parents:
15236
diff
changeset
|
327 |
87c6c9287f45
(Fcall_process): Handle t or nil as STDERR_FILE.
Richard M. Stallman <rms@gnu.org>
parents:
15236
diff
changeset
|
328 if (NILP (stderr_file) || EQ (Qt, stderr_file)) |
87c6c9287f45
(Fcall_process): Handle t or nil as STDERR_FILE.
Richard M. Stallman <rms@gnu.org>
parents:
15236
diff
changeset
|
329 error_file = stderr_file; |
87c6c9287f45
(Fcall_process): Handle t or nil as STDERR_FILE.
Richard M. Stallman <rms@gnu.org>
parents:
15236
diff
changeset
|
330 else |
87c6c9287f45
(Fcall_process): Handle t or nil as STDERR_FILE.
Richard M. Stallman <rms@gnu.org>
parents:
15236
diff
changeset
|
331 error_file = Fexpand_file_name (stderr_file, Qnil); |
87c6c9287f45
(Fcall_process): Handle t or nil as STDERR_FILE.
Richard M. Stallman <rms@gnu.org>
parents:
15236
diff
changeset
|
332 } |
87c6c9287f45
(Fcall_process): Handle t or nil as STDERR_FILE.
Richard M. Stallman <rms@gnu.org>
parents:
15236
diff
changeset
|
333 |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
334 buffer = XCAR (buffer); |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
335 } |
296 | 336 |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
337 if (!(EQ (buffer, Qnil) |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
338 || EQ (buffer, Qt) |
22550
4ec5c343db1f
(Fcall_process): Handle third argument BUFFER
Richard M. Stallman <rms@gnu.org>
parents:
22373
diff
changeset
|
339 || INTEGERP (buffer))) |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
340 { |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
341 Lisp_Object spec_buffer; |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
342 spec_buffer = buffer; |
20823
146647357199
(Fcall_process): Allow creating a new buffer for the output.
Richard M. Stallman <rms@gnu.org>
parents:
20789
diff
changeset
|
343 buffer = Fget_buffer_create (buffer); |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
344 /* Mention the buffer name for a better error message. */ |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
345 if (NILP (buffer)) |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40114
diff
changeset
|
346 CHECK_BUFFER (spec_buffer); |
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40114
diff
changeset
|
347 CHECK_BUFFER (buffer); |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
348 } |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
349 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
350 else |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
351 buffer = Qnil; |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
352 |
1678
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
353 /* Make sure that the child will be able to chdir to the current |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
354 buffer's current directory, or its unhandled equivalent. We |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
355 can't just have the child check for an error when it does the |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
356 chdir, since it's in a vfork. |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
357 |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
358 We have to GCPRO around this because Fexpand_file_name, |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
359 Funhandled_file_name_directory, and Ffile_accessible_directory_p |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
360 might call a file name handling function. The argument list is |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
361 protected by the caller, so all we really have to worry about is |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
362 buffer. */ |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
363 { |
68389
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
364 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; |
1678
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
365 |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
366 current_dir = current_buffer->directory; |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
367 |
68389
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
368 GCPRO4 (infile, buffer, current_dir, error_file); |
1678
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
369 |
91551
f14242124fd7
* process.c (Fstart_process):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91367
diff
changeset
|
370 current_dir = Funhandled_file_name_directory (current_dir); |
f14242124fd7
* process.c (Fstart_process):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91367
diff
changeset
|
371 if (NILP (current_dir)) |
f14242124fd7
* process.c (Fstart_process):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91367
diff
changeset
|
372 /* If the file name handler says that current_dir is unreachable, use |
f14242124fd7
* process.c (Fstart_process):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91367
diff
changeset
|
373 a sensible default. */ |
f14242124fd7
* process.c (Fstart_process):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91367
diff
changeset
|
374 current_dir = build_string ("~/"); |
f14242124fd7
* process.c (Fstart_process):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91367
diff
changeset
|
375 current_dir = expand_and_dir_to_file (current_dir, Qnil); |
98083
78f10c77413c
(Fcall_process): Canonicalize current directory name.
Chong Yidong <cyd@stupidchicken.com>
parents:
97142
diff
changeset
|
376 current_dir = Ffile_name_as_directory (current_dir); |
78f10c77413c
(Fcall_process): Canonicalize current directory name.
Chong Yidong <cyd@stupidchicken.com>
parents:
97142
diff
changeset
|
377 |
1678
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
378 if (NILP (Ffile_accessible_directory_p (current_dir))) |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
379 report_file_error ("Setting current directory", |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
380 Fcons (current_buffer->directory, Qnil)); |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
381 |
68389
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
382 if (STRING_MULTIBYTE (infile)) |
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
383 infile = ENCODE_FILE (infile); |
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
384 if (STRING_MULTIBYTE (current_dir)) |
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
385 current_dir = ENCODE_FILE (current_dir); |
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
386 if (STRINGP (error_file) && STRING_MULTIBYTE (error_file)) |
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
387 error_file = ENCODE_FILE (error_file); |
1678
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
388 UNGCPRO; |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
389 } |
62ecf0c5b54c
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1596
diff
changeset
|
390 |
57473
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
391 display_p = INTERACTIVE && nargs >= 4 && !NILP (args[3]); |
296 | 392 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
393 filefd = emacs_open (SDATA (infile), O_RDONLY, 0); |
6391
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
394 if (filefd < 0) |
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
395 { |
68389
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
396 infile = DECODE_FILE (infile); |
6391
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
397 report_file_error ("Opening process input file", Fcons (infile, Qnil)); |
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
398 } |
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
399 /* Search for program; barf if not found. */ |
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
400 { |
103111
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
401 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; |
6391
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
402 |
103111
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
403 GCPRO4 (infile, buffer, current_dir, error_file); |
45002
f1eb7c3e1e04
(Fcall_process): Update call to openp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44992
diff
changeset
|
404 openp (Vexec_path, args[0], Vexec_suffixes, &path, make_number (X_OK)); |
6391
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
405 UNGCPRO; |
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
406 } |
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
407 if (NILP (path)) |
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
408 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
409 emacs_close (filefd); |
6391
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
410 report_file_error ("Searching for program", Fcons (args[0], Qnil)); |
d4fe8a853557
(Fcall_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents:
6275
diff
changeset
|
411 } |
47018
101eb25eab6d
(Fcall_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents:
46626
diff
changeset
|
412 |
101eb25eab6d
(Fcall_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents:
46626
diff
changeset
|
413 /* If program file name starts with /: for quoting a magic name, |
101eb25eab6d
(Fcall_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents:
46626
diff
changeset
|
414 discard that. */ |
101eb25eab6d
(Fcall_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents:
46626
diff
changeset
|
415 if (SBYTES (path) > 2 && SREF (path, 0) == '/' |
101eb25eab6d
(Fcall_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents:
46626
diff
changeset
|
416 && SREF (path, 1) == ':') |
101eb25eab6d
(Fcall_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents:
46626
diff
changeset
|
417 path = Fsubstring (path, make_number (2), Qnil); |
101eb25eab6d
(Fcall_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents:
46626
diff
changeset
|
418 |
98089
4ea0f5996bd5
(Fcall_process): Don't hold references to string data
Andreas Schwab <schwab@suse.de>
parents:
98083
diff
changeset
|
419 new_argv = (const unsigned char **) |
4ea0f5996bd5
(Fcall_process): Don't hold references to string data
Andreas Schwab <schwab@suse.de>
parents:
98083
diff
changeset
|
420 alloca (max (2, nargs - 2) * sizeof (char *)); |
20230
ad33fb40e5e7
(Fcall_process): GCPRO infile, buffer, and
Kenichi Handa <handa@m17n.org>
parents:
20041
diff
changeset
|
421 if (nargs > 4) |
ad33fb40e5e7
(Fcall_process): GCPRO infile, buffer, and
Kenichi Handa <handa@m17n.org>
parents:
20041
diff
changeset
|
422 { |
ad33fb40e5e7
(Fcall_process): GCPRO infile, buffer, and
Kenichi Handa <handa@m17n.org>
parents:
20041
diff
changeset
|
423 register int i; |
103111
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
424 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5; |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
425 |
103111
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
426 GCPRO5 (infile, buffer, current_dir, path, error_file); |
29000
f5c7d80ed4de
(Fcall_process): Always encode an argument string if
Kenichi Handa <handa@m17n.org>
parents:
28914
diff
changeset
|
427 argument_coding.dst_multibyte = 0; |
f5c7d80ed4de
(Fcall_process): Always encode an argument string if
Kenichi Handa <handa@m17n.org>
parents:
28914
diff
changeset
|
428 for (i = 4; i < nargs; i++) |
f5c7d80ed4de
(Fcall_process): Always encode an argument string if
Kenichi Handa <handa@m17n.org>
parents:
28914
diff
changeset
|
429 { |
f5c7d80ed4de
(Fcall_process): Always encode an argument string if
Kenichi Handa <handa@m17n.org>
parents:
28914
diff
changeset
|
430 argument_coding.src_multibyte = STRING_MULTIBYTE (args[i]); |
f5c7d80ed4de
(Fcall_process): Always encode an argument string if
Kenichi Handa <handa@m17n.org>
parents:
28914
diff
changeset
|
431 if (CODING_REQUIRE_ENCODING (&argument_coding)) |
88356
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
432 /* We must encode this argument. */ |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
433 args[i] = encode_coding_string (&argument_coding, args[i], 1); |
20230
ad33fb40e5e7
(Fcall_process): GCPRO infile, buffer, and
Kenichi Handa <handa@m17n.org>
parents:
20041
diff
changeset
|
434 } |
29000
f5c7d80ed4de
(Fcall_process): Always encode an argument string if
Kenichi Handa <handa@m17n.org>
parents:
28914
diff
changeset
|
435 UNGCPRO; |
98089
4ea0f5996bd5
(Fcall_process): Don't hold references to string data
Andreas Schwab <schwab@suse.de>
parents:
98083
diff
changeset
|
436 for (i = 4; i < nargs; i++) |
4ea0f5996bd5
(Fcall_process): Don't hold references to string data
Andreas Schwab <schwab@suse.de>
parents:
98083
diff
changeset
|
437 new_argv[i - 3] = SDATA (args[i]); |
4ea0f5996bd5
(Fcall_process): Don't hold references to string data
Andreas Schwab <schwab@suse.de>
parents:
98083
diff
changeset
|
438 new_argv[i - 3] = 0; |
20230
ad33fb40e5e7
(Fcall_process): GCPRO infile, buffer, and
Kenichi Handa <handa@m17n.org>
parents:
20041
diff
changeset
|
439 } |
20448
afef187a070b
(Fcall_process): Don't clobber new_argv[0]
Karl Heuer <kwzh@gnu.org>
parents:
20436
diff
changeset
|
440 else |
afef187a070b
(Fcall_process): Don't clobber new_argv[0]
Karl Heuer <kwzh@gnu.org>
parents:
20436
diff
changeset
|
441 new_argv[1] = 0; |
98089
4ea0f5996bd5
(Fcall_process): Don't hold references to string data
Andreas Schwab <schwab@suse.de>
parents:
98083
diff
changeset
|
442 new_argv[0] = SDATA (path); |
296 | 443 |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
444 #ifdef MSDOS /* MW, July 1993 */ |
23462
aaad8461ff34
(Fcall_process): Use $TMPDIR instead of trying $TMP
Eli Zaretskii <eliz@gnu.org>
parents:
23079
diff
changeset
|
445 if ((outf = egetenv ("TMPDIR"))) |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
446 strcpy (tempfile = alloca (strlen (outf) + 20), outf); |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
447 else |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
448 { |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
449 tempfile = alloca (20); |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
450 *tempfile = '\0'; |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
451 } |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
452 dostounix_filename (tempfile); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
453 if (*tempfile == '\0' || tempfile[strlen (tempfile) - 1] != '/') |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
454 strcat (tempfile, "/"); |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
455 strcat (tempfile, "detmp.XXX"); |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
456 mktemp (tempfile); |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
457 |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
458 outfilefd = creat (tempfile, S_IREAD | S_IWRITE); |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
459 if (outfilefd < 0) |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
460 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
461 emacs_close (filefd); |
15610 | 462 report_file_error ("Opening process output file", |
463 Fcons (build_string (tempfile), Qnil)); | |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
464 } |
15610 | 465 fd[0] = filefd; |
13719
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
466 fd[1] = outfilefd; |
15610 | 467 #endif /* MSDOS */ |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
468 |
9138
6c814eb4d892
(Fcall_process, child_setup, getenv_internal): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents:
8853
diff
changeset
|
469 if (INTEGERP (buffer)) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
470 fd[1] = emacs_open (NULL_DEVICE, O_WRONLY, 0), fd[0] = -1; |
296 | 471 else |
472 { | |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
473 #ifndef MSDOS |
87732
d3276439c0d3
(Fcall_process): Fix previous change.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87730
diff
changeset
|
474 errno = 0; |
d3276439c0d3
(Fcall_process): Fix previous change.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87730
diff
changeset
|
475 if (pipe (fd) == -1) |
d3276439c0d3
(Fcall_process): Fix previous change.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87730
diff
changeset
|
476 { |
d3276439c0d3
(Fcall_process): Fix previous change.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87730
diff
changeset
|
477 emacs_close (filefd); |
d3276439c0d3
(Fcall_process): Fix previous change.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87730
diff
changeset
|
478 report_file_error ("Creating process pipe", Qnil); |
d3276439c0d3
(Fcall_process): Fix previous change.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87730
diff
changeset
|
479 } |
25522
c675d8210bda
(call-process) [macintosh]: Call mac_run_command in
Richard M. Stallman <rms@gnu.org>
parents:
25521
diff
changeset
|
480 #endif |
296 | 481 } |
482 | |
483 { | |
484 /* child_setup must clobber environ in systems with true vfork. | |
485 Protect it from permanent change. */ | |
486 register char **save_environ = environ; | |
487 register int fd1 = fd[1]; | |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
488 int fd_error = fd1; |
296 | 489 |
490 #if 0 /* Some systems don't have sigblock. */ | |
638 | 491 mask = sigblock (sigmask (SIGCHLD)); |
296 | 492 #endif |
493 | |
494 /* Record that we're about to create a synchronous process. */ | |
495 synch_process_alive = 1; | |
496 | |
4977
81c44a01ddda
(Fcall_process): Clear synch_process_death and
Richard M. Stallman <rms@gnu.org>
parents:
4701
diff
changeset
|
497 /* These vars record information from process termination. |
81c44a01ddda
(Fcall_process): Clear synch_process_death and
Richard M. Stallman <rms@gnu.org>
parents:
4701
diff
changeset
|
498 Clear them now before process can possibly terminate, |
81c44a01ddda
(Fcall_process): Clear synch_process_death and
Richard M. Stallman <rms@gnu.org>
parents:
4701
diff
changeset
|
499 to avoid timing error if process terminates soon. */ |
81c44a01ddda
(Fcall_process): Clear synch_process_death and
Richard M. Stallman <rms@gnu.org>
parents:
4701
diff
changeset
|
500 synch_process_death = 0; |
81c44a01ddda
(Fcall_process): Clear synch_process_death and
Richard M. Stallman <rms@gnu.org>
parents:
4701
diff
changeset
|
501 synch_process_retcode = 0; |
53712
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
502 synch_process_termsig = 0; |
4977
81c44a01ddda
(Fcall_process): Clear synch_process_death and
Richard M. Stallman <rms@gnu.org>
parents:
4701
diff
changeset
|
503 |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
504 if (NILP (error_file)) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
505 fd_error = emacs_open (NULL_DEVICE, O_WRONLY, 0); |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
506 else if (STRINGP (error_file)) |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
507 { |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
508 #ifdef DOS_NT |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
509 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>
parents:
25767
diff
changeset
|
510 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>
parents:
25767
diff
changeset
|
511 S_IREAD | S_IWRITE); |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
512 #else /* not DOS_NT */ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
513 fd_error = creat (SDATA (error_file), 0666); |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
514 #endif /* not DOS_NT */ |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
515 } |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
516 |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
517 if (fd_error < 0) |
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
518 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
519 emacs_close (filefd); |
15610 | 520 if (fd[0] != filefd) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
521 emacs_close (fd[0]); |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
522 if (fd1 >= 0) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
523 emacs_close (fd1); |
15610 | 524 #ifdef MSDOS |
525 unlink (tempfile); | |
526 #endif | |
68389
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
527 if (NILP (error_file)) |
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
528 error_file = build_string (NULL_DEVICE); |
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
529 else if (STRINGP (error_file)) |
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
530 error_file = DECODE_FILE (error_file); |
ee72dfb5a3cd
(Fcall_process): GCPRO error_file. Encode infile,
Kenichi Handa <handa@m17n.org>
parents:
67989
diff
changeset
|
531 report_file_error ("Cannot redirect stderr", Fcons (error_file, Qnil)); |
10839
2e3eae2280eb
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
10083
diff
changeset
|
532 } |
19838
7e1bbe58eb02
(Fcall_process): Encode the new current dir.
Richard M. Stallman <rms@gnu.org>
parents:
19790
diff
changeset
|
533 |
13719
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
534 #ifdef MSDOS /* MW, July 1993 */ |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
535 /* Note that on MSDOS `child_setup' actually returns the child process |
13719
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
536 exit status, not its PID, so we assign it to `synch_process_retcode' |
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
537 below. */ |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
538 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>
parents:
21626
diff
changeset
|
539 0, current_dir); |
13719
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
540 |
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
541 /* Record that the synchronous process exited and note its |
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
542 termination status. */ |
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
543 synch_process_alive = 0; |
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
544 synch_process_retcode = pid; |
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
545 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>
parents:
25767
diff
changeset
|
546 { |
26526
b7438760079b
* callproc.c (strerror): Remove decl.
Paul Eggert <eggert@twinsun.com>
parents:
26088
diff
changeset
|
547 synchronize_system_messages_locale (); |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
548 synch_process_death = strerror (errno); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
549 } |
13719
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
550 |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
551 emacs_close (outfilefd); |
13719
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
552 if (fd_error != outfilefd) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
553 emacs_close (fd_error); |
13719
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
554 fd1 = -1; /* No harm in closing that one! */ |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
555 /* Since CRLF is converted to LF within `decode_coding', we can |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
556 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>
parents:
25767
diff
changeset
|
557 fd[0] = emacs_open (tempfile, O_RDONLY | O_BINARY, 0); |
13719
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
558 if (fd[0] < 0) |
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
559 { |
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
560 unlink (tempfile); |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
561 emacs_close (filefd); |
13719
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
562 report_file_error ("Cannot re-open temporary file", Qnil); |
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
563 } |
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
564 #else /* not MSDOS */ |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
565 #ifdef WINDOWSNT |
20525
468f59c6c9bf
(Fcall_process): Cast new_argv for child_setup.
Richard M. Stallman <rms@gnu.org>
parents:
20448
diff
changeset
|
566 pid = child_setup (filefd, fd1, fd_error, (char **) new_argv, |
468f59c6c9bf
(Fcall_process): Cast new_argv for child_setup.
Richard M. Stallman <rms@gnu.org>
parents:
20448
diff
changeset
|
567 0, current_dir); |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
568 #else /* not WINDOWSNT */ |
57892 | 569 BLOCK_INPUT; |
570 | |
296 | 571 pid = vfork (); |
572 | |
573 if (pid == 0) | |
574 { | |
575 if (fd[0] >= 0) | |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
576 emacs_close (fd[0]); |
18235
43ce16d5f31e
(Fcall_process): Use setsid to disconnect child
Richard M. Stallman <rms@gnu.org>
parents:
18182
diff
changeset
|
577 #ifdef HAVE_SETSID |
43ce16d5f31e
(Fcall_process): Use setsid to disconnect child
Richard M. Stallman <rms@gnu.org>
parents:
18182
diff
changeset
|
578 setsid (); |
43ce16d5f31e
(Fcall_process): Use setsid to disconnect child
Richard M. Stallman <rms@gnu.org>
parents:
18182
diff
changeset
|
579 #endif |
108235 | 580 #if defined (USG) |
296 | 581 setpgrp (); |
582 #else | |
583 setpgrp (pid, pid); | |
584 #endif /* USG */ | |
20525
468f59c6c9bf
(Fcall_process): Cast new_argv for child_setup.
Richard M. Stallman <rms@gnu.org>
parents:
20448
diff
changeset
|
585 child_setup (filefd, fd1, fd_error, (char **) new_argv, |
468f59c6c9bf
(Fcall_process): Cast new_argv for child_setup.
Richard M. Stallman <rms@gnu.org>
parents:
20448
diff
changeset
|
586 0, current_dir); |
296 | 587 } |
57892 | 588 |
589 UNBLOCK_INPUT; | |
13719
660032b84b23
(Fcall_process) [MSDOS]: Support redirection of
Karl Heuer <kwzh@gnu.org>
parents:
12854
diff
changeset
|
590 #endif /* not WINDOWSNT */ |
15225
a78a1df9690c
(Fcall_process): Fix previous change (now !MSDOS only).
Richard M. Stallman <rms@gnu.org>
parents:
15210
diff
changeset
|
591 |
a78a1df9690c
(Fcall_process): Fix previous change (now !MSDOS only).
Richard M. Stallman <rms@gnu.org>
parents:
15210
diff
changeset
|
592 /* The MSDOS case did this already. */ |
a78a1df9690c
(Fcall_process): Fix previous change (now !MSDOS only).
Richard M. Stallman <rms@gnu.org>
parents:
15210
diff
changeset
|
593 if (fd_error >= 0) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
594 emacs_close (fd_error); |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
595 #endif /* not MSDOS */ |
296 | 596 |
597 environ = save_environ; | |
598 | |
6466
4b3c537e1169
(Fcall_process): Make sure to close descriptors.
Richard M. Stallman <rms@gnu.org>
parents:
6391
diff
changeset
|
599 /* Close most of our fd's, but not fd[0] |
4b3c537e1169
(Fcall_process): Make sure to close descriptors.
Richard M. Stallman <rms@gnu.org>
parents:
6391
diff
changeset
|
600 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>
parents:
25767
diff
changeset
|
601 emacs_close (filefd); |
15236
99d01b1b8799
(Fcall_process): Don't close the same fd twice.
Karl Heuer <kwzh@gnu.org>
parents:
15225
diff
changeset
|
602 if (fd1 >= 0 && fd1 != fd_error) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
603 emacs_close (fd1); |
296 | 604 } |
605 | |
606 if (pid < 0) | |
607 { | |
6466
4b3c537e1169
(Fcall_process): Make sure to close descriptors.
Richard M. Stallman <rms@gnu.org>
parents:
6391
diff
changeset
|
608 if (fd[0] >= 0) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
609 emacs_close (fd[0]); |
296 | 610 report_file_error ("Doing vfork", Qnil); |
611 } | |
612 | |
9138
6c814eb4d892
(Fcall_process, child_setup, getenv_internal): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents:
8853
diff
changeset
|
613 if (INTEGERP (buffer)) |
296 | 614 { |
6466
4b3c537e1169
(Fcall_process): Make sure to close descriptors.
Richard M. Stallman <rms@gnu.org>
parents:
6391
diff
changeset
|
615 if (fd[0] >= 0) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
616 emacs_close (fd[0]); |
296 | 617 #ifndef subprocesses |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
618 /* 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>
parents:
942
diff
changeset
|
619 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>
parents:
942
diff
changeset
|
620 the facilities for handling SIGCHLD. */ |
296 | 621 wait_without_blocking (); |
622 #endif /* subprocesses */ | |
623 return Qnil; | |
624 } | |
625 | |
6466
4b3c537e1169
(Fcall_process): Make sure to close descriptors.
Richard M. Stallman <rms@gnu.org>
parents:
6391
diff
changeset
|
626 /* Enable sending signal if user quits below. */ |
6275
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
627 call_process_exited = 0; |
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
628 |
87730 | 629 #if defined(MSDOS) |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
630 /* MSDOS needs different cleanup information. */ |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
631 record_unwind_protect (call_process_cleanup, |
103111
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
632 Fcons (Fcurrent_buffer (), |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
633 Fcons (make_number (fd[0]), |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
634 build_string (tempfile)))); |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
635 #else |
296 | 636 record_unwind_protect (call_process_cleanup, |
103111
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
637 Fcons (Fcurrent_buffer (), |
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
638 Fcons (make_number (fd[0]), make_number (pid)))); |
87730 | 639 #endif /* not MSDOS */ |
296 | 640 |
641 | |
9138
6c814eb4d892
(Fcall_process, child_setup, getenv_internal): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents:
8853
diff
changeset
|
642 if (BUFFERP (buffer)) |
296 | 643 Fset_buffer (buffer); |
644 | |
24931
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
645 if (NILP (buffer)) |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
646 { |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
647 /* If BUFFER is nil, we must read process output once and then |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
648 discard it, so setup coding system but with nil. */ |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
649 setup_coding_system (Qnil, &process_coding); |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
650 } |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
651 else |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
652 { |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
653 Lisp_Object val, *args2; |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
654 |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
655 val = Qnil; |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
656 if (!NILP (Vcoding_system_for_read)) |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
657 val = Vcoding_system_for_read; |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
658 else |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
659 { |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
660 if (EQ (coding_systems, Qt)) |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
661 { |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
662 int i; |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
663 |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
664 args2 = (Lisp_Object *) alloca ((nargs + 1) * sizeof *args2); |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
665 args2[0] = Qcall_process; |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
666 for (i = 0; i < nargs; i++) args2[i + 1] = args[i]; |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
667 coding_systems |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
668 = Ffind_operation_coding_system (nargs + 1, args2); |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
669 } |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
670 if (CONSP (coding_systems)) |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
671 val = XCAR (coding_systems); |
24931
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
672 else if (CONSP (Vdefault_process_coding_system)) |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
673 val = XCAR (Vdefault_process_coding_system); |
24931
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
674 else |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
675 val = Qnil; |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
676 } |
88356
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
677 Fcheck_coding_system (val); |
24931
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
678 /* In unibyte mode, character code conversion should not take |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
679 place but EOL conversion should. So, setup raw-text or one |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
680 of the subsidiary according to the information just setup. */ |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
681 if (NILP (current_buffer->enable_multibyte_characters) |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
682 && !NILP (val)) |
88356
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
683 val = raw_text_coding_system (val); |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
684 setup_coding_system (val, &process_coding); |
24931
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
685 } |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
686 |
296 | 687 immediate_quit = 1; |
688 QUIT; | |
689 | |
690 { | |
691 register int nread; | |
5251
480731ff8e9a
(Fcall_process): Call prepare_menu_bars.
Richard M. Stallman <rms@gnu.org>
parents:
5179
diff
changeset
|
692 int first = 1; |
11619
ff4be652af46
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
11513
diff
changeset
|
693 int total_read = 0; |
20724
e34b99d443b1
(Fcall_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents:
20595
diff
changeset
|
694 int carryover = 0; |
57473
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
695 int display_on_the_fly = display_p; |
22320
aed8bb8b8837
(Fcall_process): Avoid initializer on auto struct.
Karl Heuer <kwzh@gnu.org>
parents:
21997
diff
changeset
|
696 struct coding_system saved_coding; |
aed8bb8b8837
(Fcall_process): Avoid initializer on auto struct.
Karl Heuer <kwzh@gnu.org>
parents:
21997
diff
changeset
|
697 |
aed8bb8b8837
(Fcall_process): Avoid initializer on auto struct.
Karl Heuer <kwzh@gnu.org>
parents:
21997
diff
changeset
|
698 saved_coding = process_coding; |
11780
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
699 while (1) |
296 | 700 { |
11780
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
701 /* Repeatedly read until we've filled as much as possible |
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
702 of the buffer size we have. But don't read |
14036 | 703 less than 1024--save that for the next bufferful. */ |
20724
e34b99d443b1
(Fcall_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents:
20595
diff
changeset
|
704 nread = carryover; |
11780
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
705 while (nread < bufsize - 1024) |
8853
f44e40e722b2
(Fcall_process) [__osf__ && __alpha]:
Richard M. Stallman <rms@gnu.org>
parents:
8737
diff
changeset
|
706 { |
62982
d7793ac6df62
(Fcall_process): Don't use alloca to gradually
Kim F. Storm <storm@cua.dk>
parents:
60891
diff
changeset
|
707 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>
parents:
25767
diff
changeset
|
708 bufsize - nread); |
11780
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
709 |
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
710 if (this_read < 0) |
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
711 goto give_up; |
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
712 |
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
713 if (this_read == 0) |
21966
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
714 { |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
715 process_coding.mode |= CODING_MODE_LAST_BLOCK; |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
716 break; |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
717 } |
11780
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
718 |
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
719 nread += this_read; |
21966
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
720 total_read += this_read; |
11780
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
721 |
21966
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
722 if (display_on_the_fly) |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
723 break; |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
724 } |
11780
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
725 |
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
726 /* Now NREAD is the total amount of data in the buffer. */ |
296 | 727 immediate_quit = 0; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
728 |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
729 if (!NILP (buffer)) |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
730 { |
88945
9c97427fb1f6
(Fcall_process): Don't call insert_1_both directly if
Kenichi Handa <handa@m17n.org>
parents:
88828
diff
changeset
|
731 if (NILP (current_buffer->enable_multibyte_characters) |
9c97427fb1f6
(Fcall_process): Don't call insert_1_both directly if
Kenichi Handa <handa@m17n.org>
parents:
88828
diff
changeset
|
732 && ! CODING_MAY_REQUIRE_DECODING (&process_coding)) |
62982
d7793ac6df62
(Fcall_process): Don't use alloca to gradually
Kim F. Storm <storm@cua.dk>
parents:
60891
diff
changeset
|
733 insert_1_both (buf, nread, nread, 0, 1, 0); |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
734 else |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
735 { /* We have to decode the input. */ |
90190
d8a6a0474c49
(Fcall_process): Sync with the change in
Kenichi Handa <handa@m17n.org>
parents:
90188
diff
changeset
|
736 Lisp_Object curbuf; |
102360
f7043754fd19
(Fcall_process): Bind inhibit-modification-hooks to t when decoding
Eli Zaretskii <eliz@gnu.org>
parents:
101664
diff
changeset
|
737 int count1 = SPECPDL_INDEX (); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
738 |
90190
d8a6a0474c49
(Fcall_process): Sync with the change in
Kenichi Handa <handa@m17n.org>
parents:
90188
diff
changeset
|
739 XSETBUFFER (curbuf, current_buffer); |
102360
f7043754fd19
(Fcall_process): Bind inhibit-modification-hooks to t when decoding
Eli Zaretskii <eliz@gnu.org>
parents:
101664
diff
changeset
|
740 /* We cannot allow after-change-functions be run |
f7043754fd19
(Fcall_process): Bind inhibit-modification-hooks to t when decoding
Eli Zaretskii <eliz@gnu.org>
parents:
101664
diff
changeset
|
741 during decoding, because that might modify the |
f7043754fd19
(Fcall_process): Bind inhibit-modification-hooks to t when decoding
Eli Zaretskii <eliz@gnu.org>
parents:
101664
diff
changeset
|
742 buffer, while we rely on process_coding.produced to |
f7043754fd19
(Fcall_process): Bind inhibit-modification-hooks to t when decoding
Eli Zaretskii <eliz@gnu.org>
parents:
101664
diff
changeset
|
743 faithfully reflect inserted text until we |
f7043754fd19
(Fcall_process): Bind inhibit-modification-hooks to t when decoding
Eli Zaretskii <eliz@gnu.org>
parents:
101664
diff
changeset
|
744 TEMP_SET_PT_BOTH below. */ |
f7043754fd19
(Fcall_process): Bind inhibit-modification-hooks to t when decoding
Eli Zaretskii <eliz@gnu.org>
parents:
101664
diff
changeset
|
745 specbind (Qinhibit_modification_hooks, Qt); |
90190
d8a6a0474c49
(Fcall_process): Sync with the change in
Kenichi Handa <handa@m17n.org>
parents:
90188
diff
changeset
|
746 decode_coding_c_string (&process_coding, buf, nread, |
d8a6a0474c49
(Fcall_process): Sync with the change in
Kenichi Handa <handa@m17n.org>
parents:
90188
diff
changeset
|
747 curbuf); |
102360
f7043754fd19
(Fcall_process): Bind inhibit-modification-hooks to t when decoding
Eli Zaretskii <eliz@gnu.org>
parents:
101664
diff
changeset
|
748 unbind_to (count1, Qnil); |
21966
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
749 if (display_on_the_fly |
88356
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
750 && CODING_REQUIRE_DETECTION (&saved_coding) |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
751 && ! CODING_REQUIRE_DETECTION (&process_coding)) |
21966
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
752 { |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
753 /* We have detected some coding system. But, |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
754 there's a possibility that the detection was |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
755 done by insufficient data. So, we give up |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
756 displaying on the fly. */ |
88356
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
757 if (process_coding.produced > 0) |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
758 del_range_2 (process_coding.dst_pos, |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
759 process_coding.dst_pos_byte, |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
760 process_coding.dst_pos |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
761 + process_coding.produced_char, |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
762 process_coding.dst_pos_byte |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
763 + process_coding.produced, 0); |
21966
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
764 display_on_the_fly = 0; |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
765 process_coding = saved_coding; |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
766 carryover = nread; |
57473
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
767 /* This is to make the above condition always |
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
768 fails in the future. */ |
90017
6e012bc03071
(Fcall_process): Fix merging of 2004-10-13 change.
Kenichi Handa <handa@m17n.org>
parents:
90016
diff
changeset
|
769 saved_coding.common_flags |
6e012bc03071
(Fcall_process): Fix merging of 2004-10-13 change.
Kenichi Handa <handa@m17n.org>
parents:
90016
diff
changeset
|
770 &= ~CODING_REQUIRE_DETECTION_MASK; |
21966
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
771 continue; |
10183730b250
(Fcall_process): If we must display received data on
Kenichi Handa <handa@m17n.org>
parents:
21786
diff
changeset
|
772 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
773 |
88454
47b395dd6f2c
(Fcall_process): Be sure to give the current buffer
Kenichi Handa <handa@m17n.org>
parents:
88356
diff
changeset
|
774 TEMP_SET_PT_BOTH (PT + process_coding.produced_char, |
47b395dd6f2c
(Fcall_process): Be sure to give the current buffer
Kenichi Handa <handa@m17n.org>
parents:
88356
diff
changeset
|
775 PT_BYTE + process_coding.produced); |
89461
108e326323e3
(Fcall_process): Handle carryover correctly.
Kenichi Handa <handa@m17n.org>
parents:
88945
diff
changeset
|
776 carryover = process_coding.carryover_bytes; |
20724
e34b99d443b1
(Fcall_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents:
20595
diff
changeset
|
777 if (carryover > 0) |
29000
f5c7d80ed4de
(Fcall_process): Always encode an argument string if
Kenichi Handa <handa@m17n.org>
parents:
28914
diff
changeset
|
778 /* As CARRYOVER should not be that large, we had |
f5c7d80ed4de
(Fcall_process): Always encode an argument string if
Kenichi Handa <handa@m17n.org>
parents:
28914
diff
changeset
|
779 better avoid overhead of bcopy. */ |
90190
d8a6a0474c49
(Fcall_process): Sync with the change in
Kenichi Handa <handa@m17n.org>
parents:
90188
diff
changeset
|
780 BCOPY_SHORT (process_coding.carryover, buf, |
89461
108e326323e3
(Fcall_process): Handle carryover correctly.
Kenichi Handa <handa@m17n.org>
parents:
88945
diff
changeset
|
781 process_coding.carryover_bytes); |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
782 } |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
783 } |
29000
f5c7d80ed4de
(Fcall_process): Always encode an argument string if
Kenichi Handa <handa@m17n.org>
parents:
28914
diff
changeset
|
784 |
20724
e34b99d443b1
(Fcall_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents:
20595
diff
changeset
|
785 if (process_coding.mode & CODING_MODE_LAST_BLOCK) |
29000
f5c7d80ed4de
(Fcall_process): Always encode an argument string if
Kenichi Handa <handa@m17n.org>
parents:
28914
diff
changeset
|
786 break; |
11619
ff4be652af46
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
11513
diff
changeset
|
787 |
ff4be652af46
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
11513
diff
changeset
|
788 /* Make the buffer bigger as we continue to read more data, |
62982
d7793ac6df62
(Fcall_process): Don't use alloca to gradually
Kim F. Storm <storm@cua.dk>
parents:
60891
diff
changeset
|
789 but not past CALLPROC_BUFFER_SIZE_MAX. */ |
d7793ac6df62
(Fcall_process): Don't use alloca to gradually
Kim F. Storm <storm@cua.dk>
parents:
60891
diff
changeset
|
790 if (bufsize < CALLPROC_BUFFER_SIZE_MAX && total_read > 32 * bufsize) |
d7793ac6df62
(Fcall_process): Don't use alloca to gradually
Kim F. Storm <storm@cua.dk>
parents:
60891
diff
changeset
|
791 if ((bufsize *= 2) > CALLPROC_BUFFER_SIZE_MAX) |
d7793ac6df62
(Fcall_process): Don't use alloca to gradually
Kim F. Storm <storm@cua.dk>
parents:
60891
diff
changeset
|
792 bufsize = CALLPROC_BUFFER_SIZE_MAX; |
11619
ff4be652af46
(Fcall_process): Extend BUFFER arg so it can specify
Richard M. Stallman <rms@gnu.org>
parents:
11513
diff
changeset
|
793 |
57473
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
794 if (display_p) |
5251
480731ff8e9a
(Fcall_process): Call prepare_menu_bars.
Richard M. Stallman <rms@gnu.org>
parents:
5179
diff
changeset
|
795 { |
480731ff8e9a
(Fcall_process): Call prepare_menu_bars.
Richard M. Stallman <rms@gnu.org>
parents:
5179
diff
changeset
|
796 if (first) |
480731ff8e9a
(Fcall_process): Call prepare_menu_bars.
Richard M. Stallman <rms@gnu.org>
parents:
5179
diff
changeset
|
797 prepare_menu_bars (); |
480731ff8e9a
(Fcall_process): Call prepare_menu_bars.
Richard M. Stallman <rms@gnu.org>
parents:
5179
diff
changeset
|
798 first = 0; |
35336
002c02db42d3
Call redisplay_preserve_echo_area with additional arg.
Gerd Moellmann <gerd@gnu.org>
parents:
33285
diff
changeset
|
799 redisplay_preserve_echo_area (1); |
57473
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
800 /* This variable might have been set to 0 for code |
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
801 detection. In that case, we set it back to 1 because |
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
802 we should have already detected a coding system. */ |
fb60234070b0
(Fcall_process): Simplify handling of display arg.
Kim F. Storm <storm@cua.dk>
parents:
57290
diff
changeset
|
803 display_on_the_fly = 1; |
5251
480731ff8e9a
(Fcall_process): Call prepare_menu_bars.
Richard M. Stallman <rms@gnu.org>
parents:
5179
diff
changeset
|
804 } |
296 | 805 immediate_quit = 1; |
806 QUIT; | |
807 } | |
11780
6ae23eecab6a
(Fcall_process): Keep reading till buffer is nearly full.
Richard M. Stallman <rms@gnu.org>
parents:
11619
diff
changeset
|
808 give_up: ; |
296 | 809 |
88356
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
810 Vlast_coding_system_used = CODING_ID_NAME (process_coding.id); |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
811 /* If the caller required, let the buffer inherit the |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
812 coding-system used to decode the process output. */ |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
813 if (inherit_process_coding_system) |
5ace79aaf5ad
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
41861
diff
changeset
|
814 call1 (intern ("after-insert-file-set-buffer-file-coding-system"), |
103111
138b39938198
(Fcall_process): Fix GC protection. Make sure
Andreas Schwab <schwab@linux-m68k.org>
parents:
102360
diff
changeset
|
815 make_number (total_read)); |
21572 | 816 } |
817 | |
296 | 818 /* Wait for it to terminate, unless it already has. */ |
819 wait_for_termination (pid); | |
820 | |
821 immediate_quit = 0; | |
822 | |
6275
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
823 /* Don't kill any children that the subprocess may have left behind |
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
824 when exiting. */ |
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
825 call_process_exited = 1; |
132464faeaf4
Don't kill remaining processes if child exits.
Richard M. Stallman <rms@gnu.org>
parents:
6031
diff
changeset
|
826 |
296 | 827 unbind_to (count, Qnil); |
828 | |
53712
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
829 if (synch_process_termsig) |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
830 { |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
831 char *signame; |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
832 |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
833 synchronize_system_messages_locale (); |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
834 signame = strsignal (synch_process_termsig); |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
835 |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
836 if (signame == 0) |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
837 signame = "unknown"; |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
838 |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
839 synch_process_death = signame; |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
840 } |
659b9b404c02
Define synch_process_termsig.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
841 |
296 | 842 if (synch_process_death) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
843 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>
parents:
25767
diff
changeset
|
844 Vlocale_coding_system, 0); |
296 | 845 return make_number (synch_process_retcode); |
846 } | |
847 | |
1912
f0d4fb2b9157
* callproc.c (delete_temp_file): Declare this to return
Jim Blandy <jimb@redhat.com>
parents:
1886
diff
changeset
|
848 static Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
849 delete_temp_file (Lisp_Object name) |
296 | 850 { |
67989
d7475f0d0bda
(delete_temp_file): Bind file-name-handler-alist to nil for the call
Ken Raeburn <raeburn@raeburn.org>
parents:
67967
diff
changeset
|
851 /* Suppress jka-compr handling, etc. */ |
d7475f0d0bda
(delete_temp_file): Bind file-name-handler-alist to nil for the call
Ken Raeburn <raeburn@raeburn.org>
parents:
67967
diff
changeset
|
852 int count = SPECPDL_INDEX (); |
d7475f0d0bda
(delete_temp_file): Bind file-name-handler-alist to nil for the call
Ken Raeburn <raeburn@raeburn.org>
parents:
67967
diff
changeset
|
853 specbind (intern ("file-name-handler-alist"), Qnil); |
108806
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108235
diff
changeset
|
854 internal_delete_file (name); |
67989
d7475f0d0bda
(delete_temp_file): Bind file-name-handler-alist to nil for the call
Ken Raeburn <raeburn@raeburn.org>
parents:
67967
diff
changeset
|
855 unbind_to (count, Qnil); |
29905
ca781f54ac48
(setpgrp): Undefine before defining.
Dave Love <fx@gnu.org>
parents:
29287
diff
changeset
|
856 return Qnil; |
296 | 857 } |
858 | |
859 DEFUN ("call-process-region", Fcall_process_region, Scall_process_region, | |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
860 3, MANY, 0, |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
861 doc: /* Send text from START to END to a synchronous process running PROGRAM. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
862 The remaining arguments are optional. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
863 Delete the text if fourth arg DELETE is non-nil. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
864 |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
865 Insert output in BUFFER before point; t means current buffer; |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
866 nil for BUFFER means discard it; 0 means discard and don't wait. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
867 BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case, |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
868 REAL-BUFFER says what to do with standard output, as above, |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
869 while STDERR-FILE says what to do with standard error in the child. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
870 STDERR-FILE may be nil (discard standard error output), |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
871 t (mix it with ordinary output), or a file name string. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
872 |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
873 Sixth arg DISPLAY non-nil means redisplay buffer as output is inserted. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
874 Remaining args are passed to PROGRAM at startup as command args. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
875 |
51070
54c727f3404e
(Fcall_process_region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
49600
diff
changeset
|
876 If BUFFER is 0, `call-process-region' returns immediately with value nil. |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
877 Otherwise it waits for PROGRAM to terminate |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
878 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>
parents:
40103
diff
changeset
|
879 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>
parents:
40103
diff
changeset
|
880 |
c8af574bcf48
(Fcall_process_region, Fcall_process): Add usage: string to doc string.
Miles Bader <miles@gnu.org>
parents:
40103
diff
changeset
|
881 usage: (call-process-region START END PROGRAM &optional DELETE BUFFER DISPLAY &rest ARGS) */) |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
882 (nargs, args) |
296 | 883 int nargs; |
884 register Lisp_Object *args; | |
885 { | |
8555
f1b1537ed3f6
(Fcall_process_region): gcpro filename_string.
Karl Heuer <kwzh@gnu.org>
parents:
7900
diff
changeset
|
886 struct gcpro gcpro1; |
f1b1537ed3f6
(Fcall_process_region): gcpro filename_string.
Karl Heuer <kwzh@gnu.org>
parents:
7900
diff
changeset
|
887 Lisp_Object filename_string; |
f1b1537ed3f6
(Fcall_process_region): gcpro filename_string.
Karl Heuer <kwzh@gnu.org>
parents:
7900
diff
changeset
|
888 register Lisp_Object start, end; |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46260
diff
changeset
|
889 int count = SPECPDL_INDEX (); |
18539
8c13c54d52c8
Call Ffind_operation_coding_system.
Kenichi Handa <handa@m17n.org>
parents:
18494
diff
changeset
|
890 /* Qt denotes we have not yet called Ffind_operation_coding_system. */ |
24931
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
891 Lisp_Object coding_systems; |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
892 Lisp_Object val, *args2; |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
893 int i; |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
894 char *tempfile; |
101664
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
895 Lisp_Object tmpdir, pattern; |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
896 |
101664
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
897 if (STRINGP (Vtemporary_file_directory)) |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
898 tmpdir = Vtemporary_file_directory; |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
899 else |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
900 { |
101664
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
901 #ifndef DOS_NT |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
902 if (getenv ("TMPDIR")) |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
903 tmpdir = build_string (getenv ("TMPDIR")); |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
904 else |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
905 tmpdir = build_string ("/tmp/"); |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
906 #else /* DOS_NT */ |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
907 char *outf; |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
908 if ((outf = egetenv ("TMPDIR")) |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
909 || (outf = egetenv ("TMP")) |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
910 || (outf = egetenv ("TEMP"))) |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
911 tmpdir = build_string (outf); |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
912 else |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
913 tmpdir = Ffile_name_as_directory (build_string ("c:/temp")); |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
914 #endif |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
915 } |
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
916 |
101664
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
917 pattern = Fexpand_file_name (Vtemp_file_name_pattern, tmpdir); |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
918 tempfile = (char *) alloca (SBYTES (pattern) + 1); |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
919 bcopy (SDATA (pattern), tempfile, SBYTES (pattern) + 1); |
24931
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
920 coding_systems = Qt; |
6ccce3af0d2a
(Fcall_process): Decide coding system for decoding
Richard M. Stallman <rms@gnu.org>
parents:
24920
diff
changeset
|
921 |
33285
91819a44456a
(Fcall_process_region): Use HAVE_MKSTEMP.
Dave Love <fx@gnu.org>
parents:
31100
diff
changeset
|
922 #ifdef HAVE_MKSTEMP |
91819a44456a
(Fcall_process_region): Use HAVE_MKSTEMP.
Dave Love <fx@gnu.org>
parents:
31100
diff
changeset
|
923 { |
75152
69fafc0d9959
(Fcall_process_region) [HAVE_MKSTEMP]: Add BLOCK_INPUT
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74836
diff
changeset
|
924 int fd; |
69fafc0d9959
(Fcall_process_region) [HAVE_MKSTEMP]: Add BLOCK_INPUT
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74836
diff
changeset
|
925 |
69fafc0d9959
(Fcall_process_region) [HAVE_MKSTEMP]: Add BLOCK_INPUT
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74836
diff
changeset
|
926 BLOCK_INPUT; |
69fafc0d9959
(Fcall_process_region) [HAVE_MKSTEMP]: Add BLOCK_INPUT
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74836
diff
changeset
|
927 fd = mkstemp (tempfile); |
69fafc0d9959
(Fcall_process_region) [HAVE_MKSTEMP]: Add BLOCK_INPUT
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74836
diff
changeset
|
928 UNBLOCK_INPUT; |
33285
91819a44456a
(Fcall_process_region): Use HAVE_MKSTEMP.
Dave Love <fx@gnu.org>
parents:
31100
diff
changeset
|
929 if (fd == -1) |
91819a44456a
(Fcall_process_region): Use HAVE_MKSTEMP.
Dave Love <fx@gnu.org>
parents:
31100
diff
changeset
|
930 report_file_error ("Failed to open temporary file", |
91819a44456a
(Fcall_process_region): Use HAVE_MKSTEMP.
Dave Love <fx@gnu.org>
parents:
31100
diff
changeset
|
931 Fcons (Vtemp_file_name_pattern, Qnil)); |
91819a44456a
(Fcall_process_region): Use HAVE_MKSTEMP.
Dave Love <fx@gnu.org>
parents:
31100
diff
changeset
|
932 else |
91819a44456a
(Fcall_process_region): Use HAVE_MKSTEMP.
Dave Love <fx@gnu.org>
parents:
31100
diff
changeset
|
933 close (fd); |
91819a44456a
(Fcall_process_region): Use HAVE_MKSTEMP.
Dave Love <fx@gnu.org>
parents:
31100
diff
changeset
|
934 } |
91819a44456a
(Fcall_process_region): Use HAVE_MKSTEMP.
Dave Love <fx@gnu.org>
parents:
31100
diff
changeset
|
935 #else |
296 | 936 mktemp (tempfile); |
33285
91819a44456a
(Fcall_process_region): Use HAVE_MKSTEMP.
Dave Love <fx@gnu.org>
parents:
31100
diff
changeset
|
937 #endif |
296 | 938 |
939 filename_string = build_string (tempfile); | |
8555
f1b1537ed3f6
(Fcall_process_region): gcpro filename_string.
Karl Heuer <kwzh@gnu.org>
parents:
7900
diff
changeset
|
940 GCPRO1 (filename_string); |
296 | 941 start = args[0]; |
942 end = args[1]; | |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
943 /* Decide coding-system of the contents of the temporary file. */ |
19730
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
944 if (!NILP (Vcoding_system_for_write)) |
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
945 val = Vcoding_system_for_write; |
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
946 else if (NILP (current_buffer->enable_multibyte_characters)) |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
947 val = Qnil; |
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
948 else |
18651
982814f78d0d
(Fcall_process): If enable-multibyte-characters is
Kenichi Handa <handa@m17n.org>
parents:
18539
diff
changeset
|
949 { |
19730
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
950 args2 = (Lisp_Object *) alloca ((nargs + 1) * sizeof *args2); |
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
951 args2[0] = Qcall_process_region; |
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
952 for (i = 0; i < nargs; i++) args2[i + 1] = args[i]; |
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
953 coding_systems = Ffind_operation_coding_system (nargs + 1, args2); |
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
954 if (CONSP (coding_systems)) |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
955 val = XCDR (coding_systems); |
19730
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
956 else if (CONSP (Vdefault_process_coding_system)) |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
957 val = XCDR (Vdefault_process_coding_system); |
18651
982814f78d0d
(Fcall_process): If enable-multibyte-characters is
Kenichi Handa <handa@m17n.org>
parents:
18539
diff
changeset
|
958 else |
19730
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
959 val = Qnil; |
18651
982814f78d0d
(Fcall_process): If enable-multibyte-characters is
Kenichi Handa <handa@m17n.org>
parents:
18539
diff
changeset
|
960 } |
19730
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
961 |
21626
ad899130056e
(Fcall_process_region): Unbind coding-system-for-write
Richard M. Stallman <rms@gnu.org>
parents:
21572
diff
changeset
|
962 { |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46260
diff
changeset
|
963 int count1 = SPECPDL_INDEX (); |
21626
ad899130056e
(Fcall_process_region): Unbind coding-system-for-write
Richard M. Stallman <rms@gnu.org>
parents:
21572
diff
changeset
|
964 |
ad899130056e
(Fcall_process_region): Unbind coding-system-for-write
Richard M. Stallman <rms@gnu.org>
parents:
21572
diff
changeset
|
965 specbind (intern ("coding-system-for-write"), val); |
67967
5936baa93f63
(Fcall_process_region): Bind file-name-handler-alist to nil for the call to
Ken Raeburn <raeburn@raeburn.org>
parents:
64770
diff
changeset
|
966 /* POSIX lets mk[s]temp use "."; don't invoke jka-compr if we |
5936baa93f63
(Fcall_process_region): Bind file-name-handler-alist to nil for the call to
Ken Raeburn <raeburn@raeburn.org>
parents:
64770
diff
changeset
|
967 happen to get a ".Z" suffix. */ |
5936baa93f63
(Fcall_process_region): Bind file-name-handler-alist to nil for the call to
Ken Raeburn <raeburn@raeburn.org>
parents:
64770
diff
changeset
|
968 specbind (intern ("file-name-handler-alist"), Qnil); |
21626
ad899130056e
(Fcall_process_region): Unbind coding-system-for-write
Richard M. Stallman <rms@gnu.org>
parents:
21572
diff
changeset
|
969 Fwrite_region (start, end, filename_string, Qnil, Qlambda, Qnil, Qnil); |
ad899130056e
(Fcall_process_region): Unbind coding-system-for-write
Richard M. Stallman <rms@gnu.org>
parents:
21572
diff
changeset
|
970 |
ad899130056e
(Fcall_process_region): Unbind coding-system-for-write
Richard M. Stallman <rms@gnu.org>
parents:
21572
diff
changeset
|
971 unbind_to (count1, Qnil); |
ad899130056e
(Fcall_process_region): Unbind coding-system-for-write
Richard M. Stallman <rms@gnu.org>
parents:
21572
diff
changeset
|
972 } |
17025
3c222a7edda1
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16659
diff
changeset
|
973 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
974 /* Note that Fcall_process takes care of binding |
19730
1657f4dd8c05
(Fcall_process): Set EOL conversion type to LF when
Richard M. Stallman <rms@gnu.org>
parents:
19580
diff
changeset
|
975 coding-system-for-read. */ |
7397
e0ffa47f2ed4
[MSDOS]: Rename Vbinary_process to Vbinary_process_output.
Richard M. Stallman <rms@gnu.org>
parents:
7161
diff
changeset
|
976 |
296 | 977 record_unwind_protect (delete_temp_file, filename_string); |
978 | |
23885 | 979 if (nargs > 3 && !NILP (args[3])) |
296 | 980 Fdelete_region (start, end); |
981 | |
23885 | 982 if (nargs > 3) |
983 { | |
984 args += 2; | |
985 nargs -= 2; | |
986 } | |
987 else | |
988 { | |
989 args[0] = args[2]; | |
990 nargs = 2; | |
991 } | |
992 args[1] = filename_string; | |
296 | 993 |
23885 | 994 RETURN_UNGCPRO (unbind_to (count, Fcall_process (nargs, args))); |
296 | 995 } |
996 | |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
997 static int relocate_fd (int fd, int minfd); |
21514 | 998 |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
999 static char ** |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1000 add_env (char **env, char **new_env, char *string) |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1001 { |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1002 char **ep; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1003 int ok = 1; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1004 if (string == NULL) |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1005 return new_env; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1006 |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1007 /* See if this string duplicates any string already in the env. |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1008 If so, don't put it in. |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1009 When an env var has multiple definitions, |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1010 we keep the definition that comes first in process-environment. */ |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1011 for (ep = env; ok && ep != new_env; ep++) |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1012 { |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1013 char *p = *ep, *q = string; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1014 while (ok) |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1015 { |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1016 if (*q != *p) |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1017 break; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1018 if (*q == 0) |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1019 /* The string is a lone variable name; keep it for now, we |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1020 will remove it later. It is a placeholder for a |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1021 variable that is not to be included in the environment. */ |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1022 break; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1023 if (*q == '=') |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1024 ok = 0; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1025 p++, q++; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1026 } |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1027 } |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1028 if (ok) |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1029 *new_env++ = string; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1030 return new_env; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1031 } |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1032 |
296 | 1033 /* This is the last thing run in a newly forked inferior |
1034 either synchronous or asynchronous. | |
1035 Copy descriptors IN, OUT and ERR as descriptors 0, 1 and 2. | |
1036 Initialize inferior's priority, pgrp, connected dir and environment. | |
1037 then exec another program based on new_argv. | |
1038 | |
1039 This function may change environ for the superior process. | |
1040 Therefore, the superior process must save and restore the value | |
1041 of environ around the vfork and the call to this function. | |
1042 | |
1043 SET_PGRP is nonzero if we should put the subprocess into a separate | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
1044 process group. |
296 | 1045 |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1046 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>
parents:
942
diff
changeset
|
1047 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>
parents:
942
diff
changeset
|
1048 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>
parents:
942
diff
changeset
|
1049 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>
parents:
942
diff
changeset
|
1050 |
21514 | 1051 int |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
1052 child_setup (int in, int out, int err, register char **new_argv, int set_pgrp, Lisp_Object current_dir) |
296 | 1053 { |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1054 char **env; |
7722
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1055 char *pwd_var; |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1056 #ifdef WINDOWSNT |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1057 int cpid; |
15087
46157341f721
(Fcall_process) [WINDOWSNT]: Remove conditional NT code.
Richard M. Stallman <rms@gnu.org>
parents:
14872
diff
changeset
|
1058 HANDLE handles[3]; |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1059 #endif /* WINDOWSNT */ |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1060 |
5530
7ff479a8e8bf
(child_setup): Don't declare PID `register'; we later take its address.
Roland McGrath <roland@gnu.org>
parents:
5516
diff
changeset
|
1061 int pid = getpid (); |
296 | 1062 |
7481
b7d23c08750c
(child_setup): PRIO_PROCESS renamed to SET_EMACS_PRIORITY.
Richard M. Stallman <rms@gnu.org>
parents:
7465
diff
changeset
|
1063 #ifdef SET_EMACS_PRIORITY |
1201
4ea86d32c012
* callproc.c (child_setup): Don't use setpriority; we just need a
Jim Blandy <jimb@redhat.com>
parents:
948
diff
changeset
|
1064 { |
43713
f92c4d87863a
Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41861
diff
changeset
|
1065 extern EMACS_INT emacs_priority; |
1201
4ea86d32c012
* callproc.c (child_setup): Don't use setpriority; we just need a
Jim Blandy <jimb@redhat.com>
parents:
948
diff
changeset
|
1066 |
7481
b7d23c08750c
(child_setup): PRIO_PROCESS renamed to SET_EMACS_PRIORITY.
Richard M. Stallman <rms@gnu.org>
parents:
7465
diff
changeset
|
1067 if (emacs_priority < 0) |
b7d23c08750c
(child_setup): PRIO_PROCESS renamed to SET_EMACS_PRIORITY.
Richard M. Stallman <rms@gnu.org>
parents:
7465
diff
changeset
|
1068 nice (- emacs_priority); |
1201
4ea86d32c012
* callproc.c (child_setup): Don't use setpriority; we just need a
Jim Blandy <jimb@redhat.com>
parents:
948
diff
changeset
|
1069 } |
7161
67618cd7bdbf
(child_setup): Test PRIO_PROCESS, as in sys_subshell.
Richard M. Stallman <rms@gnu.org>
parents:
7000
diff
changeset
|
1070 #endif |
296 | 1071 |
1072 #ifdef subprocesses | |
1073 /* Close Emacs's descriptors that this process should not have. */ | |
1074 close_process_descs (); | |
1075 #endif | |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1076 /* 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>
parents:
21626
diff
changeset
|
1077 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>
parents:
21626
diff
changeset
|
1078 #ifndef DOS_NT |
5569
b9e2884ca8e6
(child_setup): Call close_load_descs.
Richard M. Stallman <rms@gnu.org>
parents:
5530
diff
changeset
|
1079 close_load_descs (); |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1080 #endif |
296 | 1081 |
1082 /* Note that use of alloca is always safe here. It's obvious for systems | |
1083 that do not have true vfork or that have true (stack) alloca. | |
84490
23e7b73bbc00
Update comment referring to C_ALLOCA.
Glenn Morris <rgm@gnu.org>
parents:
83802
diff
changeset
|
1084 If using vfork and C_ALLOCA (when Emacs used to include |
23e7b73bbc00
Update comment referring to C_ALLOCA.
Glenn Morris <rgm@gnu.org>
parents:
83802
diff
changeset
|
1085 src/alloca.c) it is safe because that changes the superior's |
23e7b73bbc00
Update comment referring to C_ALLOCA.
Glenn Morris <rgm@gnu.org>
parents:
83802
diff
changeset
|
1086 static variables as if the superior had done alloca and will be |
23e7b73bbc00
Update comment referring to C_ALLOCA.
Glenn Morris <rgm@gnu.org>
parents:
83802
diff
changeset
|
1087 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>
parents:
942
diff
changeset
|
1088 { |
7722
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1089 register char *temp; |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1090 register int i; |
296 | 1091 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
1092 i = SBYTES (current_dir); |
30530
861a1460eba6
(child_setup) [MSDOS]: malloc pwd_var instead of
Eli Zaretskii <eliz@gnu.org>
parents:
29905
diff
changeset
|
1093 #ifdef MSDOS |
861a1460eba6
(child_setup) [MSDOS]: malloc pwd_var instead of
Eli Zaretskii <eliz@gnu.org>
parents:
29905
diff
changeset
|
1094 /* MSDOS must have all environment variables malloc'ed, because |
861a1460eba6
(child_setup) [MSDOS]: malloc pwd_var instead of
Eli Zaretskii <eliz@gnu.org>
parents:
29905
diff
changeset
|
1095 low-level libc functions that launch subsidiary processes rely |
861a1460eba6
(child_setup) [MSDOS]: malloc pwd_var instead of
Eli Zaretskii <eliz@gnu.org>
parents:
29905
diff
changeset
|
1096 on that. */ |
861a1460eba6
(child_setup) [MSDOS]: malloc pwd_var instead of
Eli Zaretskii <eliz@gnu.org>
parents:
29905
diff
changeset
|
1097 pwd_var = (char *) xmalloc (i + 6); |
861a1460eba6
(child_setup) [MSDOS]: malloc pwd_var instead of
Eli Zaretskii <eliz@gnu.org>
parents:
29905
diff
changeset
|
1098 #else |
7722
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1099 pwd_var = (char *) alloca (i + 6); |
30530
861a1460eba6
(child_setup) [MSDOS]: malloc pwd_var instead of
Eli Zaretskii <eliz@gnu.org>
parents:
29905
diff
changeset
|
1100 #endif |
7722
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1101 temp = pwd_var + 4; |
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1102 bcopy ("PWD=", pwd_var, 4); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
1103 bcopy (SDATA (current_dir), temp, i); |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1104 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>
parents:
942
diff
changeset
|
1105 temp[i] = 0; |
538 | 1106 |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1107 #ifndef DOS_NT |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1108 /* 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>
parents:
942
diff
changeset
|
1109 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>
parents:
942
diff
changeset
|
1110 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>
parents:
942
diff
changeset
|
1111 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>
parents:
942
diff
changeset
|
1112 at least check. */ |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1113 if (chdir (temp) < 0) |
9609
74985a8972e4
(child_setup): Always use _exit.
Richard M. Stallman <rms@gnu.org>
parents:
9138
diff
changeset
|
1114 _exit (errno); |
103711
531520bb5152
* sysdep.c (sys_suspend): Remove USG_JOBCTRL #ifdef, unused.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
103111
diff
changeset
|
1115 #else /* DOS_NT */ |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1116 /* 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>
parents:
21626
diff
changeset
|
1117 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>
parents:
21626
diff
changeset
|
1118 { |
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1119 temp += 2; |
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1120 i -= 2; |
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1121 } |
103711
531520bb5152
* sysdep.c (sys_suspend): Remove USG_JOBCTRL #ifdef, unused.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
103111
diff
changeset
|
1122 #endif /* DOS_NT */ |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1123 |
7722
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1124 /* Strip trailing slashes for PWD, but leave "/" and "//" alone. */ |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1125 while (i > 2 && IS_DIRECTORY_SEP (temp[i - 1])) |
7722
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1126 temp[--i] = 0; |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1127 } |
296 | 1128 |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1129 /* Set `env' to a vector of the strings in the environment. */ |
296 | 1130 { |
1131 register Lisp_Object tem; | |
1132 register char **new_env; | |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1133 char **p, **q; |
296 | 1134 register int new_length; |
84740
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1135 Lisp_Object display = Qnil; |
83640
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1136 |
296 | 1137 new_length = 0; |
1138 | |
1139 for (tem = Vprocess_environment; | |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1140 CONSP (tem) && STRINGP (XCAR (tem)); |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1141 tem = XCDR (tem)) |
84740
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1142 { |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1143 if (strncmp (SDATA (XCAR (tem)), "DISPLAY", 7) == 0 |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1144 && (SDATA (XCAR (tem)) [7] == '\0' |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1145 || SDATA (XCAR (tem)) [7] == '=')) |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1146 /* DISPLAY is specified in process-environment. */ |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1147 display = Qt; |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1148 new_length++; |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1149 } |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1150 |
84740
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1151 /* If not provided yet, use the frame's DISPLAY. */ |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1152 if (NILP (display)) |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1153 { |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1154 Lisp_Object tmp = Fframe_parameter (selected_frame, Qdisplay); |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1155 if (!STRINGP (tmp) && CONSP (Vinitial_environment)) |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1156 /* If still not found, Look for DISPLAY in Vinitial_environment. */ |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1157 tmp = Fgetenv_internal (build_string ("DISPLAY"), |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1158 Vinitial_environment); |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1159 if (STRINGP (tmp)) |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1160 { |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1161 display = tmp; |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1162 new_length++; |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1163 } |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1164 } |
296 | 1165 |
7722
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1166 /* new_length + 2 to include PWD and terminating 0. */ |
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1167 env = new_env = (char **) alloca ((new_length + 2) * sizeof (char *)); |
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1168 /* If we have a PWD envvar, pass one down, |
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1169 but with corrected value. */ |
83529
0d9e16eab053
Rework environment variable support. (Reported by Kalle Olavi Niemitalo and Noah Friedman.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83518
diff
changeset
|
1170 if (egetenv ("PWD")) |
7722
e422f06592d3
(child_setup): If PWD is set, set it in the child so that
Richard M. Stallman <rms@gnu.org>
parents:
7481
diff
changeset
|
1171 *new_env++ = pwd_var; |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1172 |
83796
e7303426ed25
(Vinitial_environment): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
1173 if (STRINGP (display)) |
83640
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1174 { |
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1175 int vlen = strlen ("DISPLAY=") + strlen (SDATA (display)) + 1; |
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1176 char *vdata = (char *) alloca (vlen); |
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1177 strcpy (vdata, "DISPLAY="); |
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1178 strcat (vdata, SDATA (display)); |
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1179 new_env = add_env (env, new_env, vdata); |
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1180 } |
296 | 1181 |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1182 /* Overrides. */ |
296 | 1183 for (tem = Vprocess_environment; |
25645
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
1184 CONSP (tem) && STRINGP (XCAR (tem)); |
a14111a2a100
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25522
diff
changeset
|
1185 tem = XCDR (tem)) |
84740
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1186 new_env = add_env (env, new_env, SDATA (XCAR (tem))); |
296 | 1187 |
1188 *new_env = 0; | |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1189 |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1190 /* Remove variable names without values. */ |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1191 p = q = env; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1192 while (*p != 0) |
2757
a3ee51f30431
(child_setup): Omit duplicates from new env array.
Richard M. Stallman <rms@gnu.org>
parents:
2509
diff
changeset
|
1193 { |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1194 while (*q != 0 && strchr (*q, '=') == NULL) |
85596
ca34d3d5d8bf
(child_setup): Remove spurious *.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85146
diff
changeset
|
1195 q++; |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1196 *p = *q++; |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1197 if (*p != 0) |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1198 p++; |
2757
a3ee51f30431
(child_setup): Omit duplicates from new env array.
Richard M. Stallman <rms@gnu.org>
parents:
2509
diff
changeset
|
1199 } |
296 | 1200 } |
83640
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1201 |
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1202 |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1203 #ifdef WINDOWSNT |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1204 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>
parents:
46293
diff
changeset
|
1205 set_process_dir (SDATA (current_dir)); |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1206 #else /* not WINDOWSNT */ |
2286
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1207 /* Make sure that in, out, and err are not actually already in |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1208 descriptors zero, one, or two; this could happen if Emacs is |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
1209 started with its standard in, out, or error closed, as might |
2286
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1210 happen under X. */ |
12430
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1211 { |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1212 int oin = in, oout = out; |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1213 |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1214 /* We have to avoid relocating the same descriptor twice! */ |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1215 |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1216 in = relocate_fd (in, 3); |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1217 |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1218 if (out == oin) |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1219 out = in; |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1220 else |
6614
e095c5efe2e0
(child_setup): Check out==err when relocating fds.
Karl Heuer <kwzh@gnu.org>
parents:
6495
diff
changeset
|
1221 out = relocate_fd (out, 3); |
12430
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1222 |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1223 if (err == oin) |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1224 err = in; |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1225 else if (err == oout) |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1226 err = out; |
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1227 else |
6614
e095c5efe2e0
(child_setup): Check out==err when relocating fds.
Karl Heuer <kwzh@gnu.org>
parents:
6495
diff
changeset
|
1228 err = relocate_fd (err, 3); |
12430
14792ea851f9
(child_setup): Don't get confused if in == err.
Richard M. Stallman <rms@gnu.org>
parents:
12238
diff
changeset
|
1229 } |
2286
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1230 |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1231 #ifndef MSDOS |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
1232 emacs_close (0); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
1233 emacs_close (1); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
1234 emacs_close (2); |
296 | 1235 |
1236 dup2 (in, 0); | |
1237 dup2 (out, 1); | |
1238 dup2 (err, 2); | |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
1239 emacs_close (in); |
109087
a089fae47976
Avoid erroneous syscalls
Andreas Schwab <schwab@linux-m68k.org>
parents:
108908
diff
changeset
|
1240 if (out != in) |
a089fae47976
Avoid erroneous syscalls
Andreas Schwab <schwab@linux-m68k.org>
parents:
108908
diff
changeset
|
1241 emacs_close (out); |
a089fae47976
Avoid erroneous syscalls
Andreas Schwab <schwab@linux-m68k.org>
parents:
108908
diff
changeset
|
1242 if (err != in && err != out) |
a089fae47976
Avoid erroneous syscalls
Andreas Schwab <schwab@linux-m68k.org>
parents:
108908
diff
changeset
|
1243 emacs_close (err); |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1244 #endif /* not MSDOS */ |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1245 #endif /* not WINDOWSNT */ |
296 | 1246 |
108235 | 1247 #if defined(USG) |
5179
2a1492764d5e
(child_setup): Test SETPGRP_RELEASES_CTTY, not IRIX.
Richard M. Stallman <rms@gnu.org>
parents:
5154
diff
changeset
|
1248 #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>
parents:
942
diff
changeset
|
1249 setpgrp (); /* No arguments but equivalent in this case */ |
5179
2a1492764d5e
(child_setup): Test SETPGRP_RELEASES_CTTY, not IRIX.
Richard M. Stallman <rms@gnu.org>
parents:
5154
diff
changeset
|
1250 #endif |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1251 #else |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1252 setpgrp (pid, pid); |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1253 #endif /* USG */ |
5348 | 1254 /* setpgrp_of_tty is incorrect here; it uses input_fd. */ |
1255 EMACS_SET_TTY_PGRP (0, &pid); | |
296 | 1256 |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1257 #ifdef MSDOS |
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1258 pid = run_msdos_command (new_argv, pwd_var + 4, in, out, err, env); |
30607
7f8793e95bb0
(child_setup): Use xfree instead of free.
Gerd Moellmann <gerd@gnu.org>
parents:
30579
diff
changeset
|
1259 xfree (pwd_var); |
21694
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1260 if (pid == -1) |
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1261 /* 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>
parents:
21626
diff
changeset
|
1262 report_file_error ("Spawning child process", Qnil); |
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1263 return pid; |
6e12eeda6913
(Fcall_process) [MSDOS]: Call child_setup instead of run_msdos_command.
Eli Zaretskii <eliz@gnu.org>
parents:
21626
diff
changeset
|
1264 #else /* not MSDOS */ |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1265 #ifdef WINDOWSNT |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1266 /* Spawn the child. (See ntproc.c:Spawnve). */ |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1267 cpid = spawnve (_P_NOWAIT, new_argv[0], new_argv, env); |
20041
c743e52dd2b0
Ensure standard handles are reset even if spawnve fails.
Andrew Innes <andrewi@gnu.org>
parents:
19967
diff
changeset
|
1268 reset_standard_handles (in, out, err, handles); |
11379
23f7aa711f96
(child_setup) [WINDOWSNT]: Removed syntax errors.
Karl Heuer <kwzh@gnu.org>
parents:
11235
diff
changeset
|
1269 if (cpid == -1) |
23f7aa711f96
(child_setup) [WINDOWSNT]: Removed syntax errors.
Karl Heuer <kwzh@gnu.org>
parents:
11235
diff
changeset
|
1270 /* An error occurred while trying to spawn the process. */ |
23f7aa711f96
(child_setup) [WINDOWSNT]: Removed syntax errors.
Karl Heuer <kwzh@gnu.org>
parents:
11235
diff
changeset
|
1271 report_file_error ("Spawning child process", Qnil); |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1272 return cpid; |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1273 #else /* not WINDOWSNT */ |
296 | 1274 /* execvp does not accept an environment arg so the only way |
1275 to pass this environment is to set environ. Our caller | |
1276 is responsible for restoring the ambient value of environ. */ | |
1277 environ = env; | |
1278 execvp (new_argv[0], new_argv); | |
1279 | |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
1280 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>
parents:
25767
diff
changeset
|
1281 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>
parents:
25767
diff
changeset
|
1282 emacs_write (1, "\n", 1); |
296 | 1283 _exit (1); |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1284 #endif /* not WINDOWSNT */ |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
1285 #endif /* not MSDOS */ |
296 | 1286 } |
1287 | |
21454
1361a790bca8
(relocate_fd): Avoid `min'/`max' as variable names.
Karl Heuer <kwzh@gnu.org>
parents:
21244
diff
changeset
|
1288 /* Move the file descriptor FD so that its number is not less than MINFD. |
2286
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1289 If the file descriptor is moved at all, the original is freed. */ |
21514 | 1290 static int |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
1291 relocate_fd (int fd, int minfd) |
2286
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1292 { |
21454
1361a790bca8
(relocate_fd): Avoid `min'/`max' as variable names.
Karl Heuer <kwzh@gnu.org>
parents:
21244
diff
changeset
|
1293 if (fd >= minfd) |
2286
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1294 return fd; |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1295 else |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1296 { |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1297 int new = dup (fd); |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1298 if (new == -1) |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1299 { |
2509
daaa78c8c980
* callproc.c (relocate_fd): Make messages string literals, not
Jim Blandy <jimb@redhat.com>
parents:
2432
diff
changeset
|
1300 char *message1 = "Error while setting up child: "; |
5516
ec5a245c14ed
Don't declare sys_errlist; declare strerror instead.
Roland McGrath <roland@gnu.org>
parents:
5501
diff
changeset
|
1301 char *errmessage = strerror (errno); |
2509
daaa78c8c980
* callproc.c (relocate_fd): Make messages string literals, not
Jim Blandy <jimb@redhat.com>
parents:
2432
diff
changeset
|
1302 char *message2 = "\n"; |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
1303 emacs_write (2, message1, strlen (message1)); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
1304 emacs_write (2, errmessage, strlen (errmessage)); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
1305 emacs_write (2, message2, strlen (message2)); |
2286
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1306 _exit (1); |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1307 } |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1308 /* Note that we hold the original FD open while we recurse, |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1309 to guarantee we'll get a new FD if we need it. */ |
21454
1361a790bca8
(relocate_fd): Avoid `min'/`max' as variable names.
Karl Heuer <kwzh@gnu.org>
parents:
21244
diff
changeset
|
1310 new = relocate_fd (new, minfd); |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25767
diff
changeset
|
1311 emacs_close (fd); |
2286
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1312 return new; |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1313 } |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1314 } |
7f66b40a0192
* callproc.c (child_setup): Make sure that in, out, and err are
Jim Blandy <jimb@redhat.com>
parents:
1912
diff
changeset
|
1315 |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1316 static int |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
1317 getenv_internal_1 (char *var, int varlen, char **value, int *valuelen, Lisp_Object env) |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1318 { |
84702
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1319 for (; CONSP (env); env = XCDR (env)) |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1320 { |
84702
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1321 Lisp_Object entry = XCAR (env); |
9138
6c814eb4d892
(Fcall_process, child_setup, getenv_internal): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents:
8853
diff
changeset
|
1322 if (STRINGP (entry) |
84702
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1323 && SBYTES (entry) >= varlen |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1324 #ifdef WINDOWSNT |
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1325 /* 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>
parents:
46293
diff
changeset
|
1326 && ! strnicmp (SDATA (entry), var, varlen) |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1327 #else /* not WINDOWSNT */ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
1328 && ! bcmp (SDATA (entry), var, varlen) |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1329 #endif /* not WINDOWSNT */ |
11393
81653012e0a6
(getenv_internal): Balance parentheses across #if/#endif.
Karl Heuer <kwzh@gnu.org>
parents:
11379
diff
changeset
|
1330 ) |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1331 { |
84702
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1332 if (SBYTES (entry) > varlen && SREF (entry, varlen) == '=') |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1333 { |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1334 *value = (char *) SDATA (entry) + (varlen + 1); |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1335 *valuelen = SBYTES (entry) - (varlen + 1); |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1336 return 1; |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1337 } |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1338 else if (SBYTES (entry) == varlen) |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1339 { |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1340 /* Lone variable names in Vprocess_environment mean that |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1341 variable should be removed from the environment. */ |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1342 *value = NULL; |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1343 return 1; |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1344 } |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1345 } |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1346 } |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1347 return 0; |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1348 } |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1349 |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1350 static int |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
1351 getenv_internal (char *var, int varlen, char **value, int *valuelen, Lisp_Object frame) |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1352 { |
84740
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1353 /* Try to find VAR in Vprocess_environment first. */ |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1354 if (getenv_internal_1 (var, varlen, value, valuelen, |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1355 Vprocess_environment)) |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1356 return *value ? 1 : 0; |
83796
e7303426ed25
(Vinitial_environment): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
1357 |
84740
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1358 /* For DISPLAY try to get the values from the frame or the initial env. */ |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1359 if (strcmp (var, "DISPLAY") == 0) |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1360 { |
84740
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1361 Lisp_Object display |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1362 = Fframe_parameter (NILP (frame) ? selected_frame : frame, Qdisplay); |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1363 if (STRINGP (display)) |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1364 { |
83640
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1365 *value = (char *) SDATA (display); |
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1366 *valuelen = SBYTES (display); |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1367 return 1; |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1368 } |
84740
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1369 /* If still not found, Look for DISPLAY in Vinitial_environment. */ |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1370 if (getenv_internal_1 (var, varlen, value, valuelen, |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1371 Vinitial_environment)) |
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1372 return *value ? 1 : 0; |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1373 } |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1374 |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1375 return 0; |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1376 } |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1377 |
83421
bb2edc915032
Implement automatic terminal-local environment variables via `local-environment-variables'.
Karoly Lorentey <lorentey@elte.hu>
parents:
64770
diff
changeset
|
1378 DEFUN ("getenv-internal", Fgetenv_internal, Sgetenv_internal, 1, 2, 0, |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1379 doc: /* Get the value of environment variable VARIABLE. |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1380 VARIABLE should be a string. Value is nil if VARIABLE is undefined in |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1381 the environment. Otherwise, value is a string. |
83421
bb2edc915032
Implement automatic terminal-local environment variables via `local-environment-variables'.
Karoly Lorentey <lorentey@elte.hu>
parents:
64770
diff
changeset
|
1382 |
101275
5bc8609f80b5
* callproc.c (Fgetenv_internal): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100951
diff
changeset
|
1383 This function searches `process-environment' for VARIABLE. |
83421
bb2edc915032
Implement automatic terminal-local environment variables via `local-environment-variables'.
Karoly Lorentey <lorentey@elte.hu>
parents:
64770
diff
changeset
|
1384 |
84702
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1385 If optional parameter ENV is a list, then search this list instead of |
101275
5bc8609f80b5
* callproc.c (Fgetenv_internal): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100951
diff
changeset
|
1386 `process-environment', and return t when encountering a negative entry |
5bc8609f80b5
* callproc.c (Fgetenv_internal): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
100951
diff
changeset
|
1387 \(an entry for a variable with no value). */) |
84702
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1388 (variable, env) |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1389 Lisp_Object variable, env; |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1390 { |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1391 char *value; |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1392 int valuelen; |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1393 |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1394 CHECK_STRING (variable); |
84702
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1395 if (CONSP (env)) |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1396 { |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1397 if (getenv_internal_1 (SDATA (variable), SBYTES (variable), |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1398 &value, &valuelen, env)) |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1399 return value ? make_string (value, valuelen) : Qt; |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1400 else |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1401 return Qnil; |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1402 } |
f859ca19dbb0
(getenv_internal_1): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84490
diff
changeset
|
1403 else if (getenv_internal (SDATA (variable), SBYTES (variable), |
84740
275cddd2a0da
(child_setup, getenv_internal): Use the frame's `display'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84702
diff
changeset
|
1404 &value, &valuelen, env)) |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1405 return make_string (value, valuelen); |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1406 else |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1407 return Qnil; |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1408 } |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1409 |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1410 /* A version of getenv that consults the Lisp environment lists, |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1411 easily callable from C. */ |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1412 char * |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
1413 egetenv (char *var) |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1414 { |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1415 char *value; |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1416 int valuelen; |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1417 |
83421
bb2edc915032
Implement automatic terminal-local environment variables via `local-environment-variables'.
Karoly Lorentey <lorentey@elte.hu>
parents:
64770
diff
changeset
|
1418 if (getenv_internal (var, strlen (var), &value, &valuelen, Qnil)) |
942
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1419 return value; |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1420 else |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1421 return 0; |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1422 } |
c519b70eb50b
Replaced fuctions egetenv, Fgetenv, getenv_internal, which had
Joseph Arceneaux <jla@gnu.org>
parents:
934
diff
changeset
|
1423 |
296 | 1424 |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1425 /* This is run before init_cmdargs. */ |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
1426 |
21514 | 1427 void |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
1428 init_callproc_1 (void) |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1429 { |
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1430 char *data_dir = egetenv ("EMACSDATA"); |
6031
ae4c6623837b
(syms_of_callproc): New variable Vdoc_directory.
Karl Heuer <kwzh@gnu.org>
parents:
5688
diff
changeset
|
1431 char *doc_dir = egetenv ("EMACSDOC"); |
ae4c6623837b
(syms_of_callproc): New variable Vdoc_directory.
Karl Heuer <kwzh@gnu.org>
parents:
5688
diff
changeset
|
1432 |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1433 Vdata_directory |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
1434 = Ffile_name_as_directory (build_string (data_dir ? data_dir |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1435 : PATH_DATA)); |
6031
ae4c6623837b
(syms_of_callproc): New variable Vdoc_directory.
Karl Heuer <kwzh@gnu.org>
parents:
5688
diff
changeset
|
1436 Vdoc_directory |
ae4c6623837b
(syms_of_callproc): New variable Vdoc_directory.
Karl Heuer <kwzh@gnu.org>
parents:
5688
diff
changeset
|
1437 = Ffile_name_as_directory (build_string (doc_dir ? doc_dir |
ae4c6623837b
(syms_of_callproc): New variable Vdoc_directory.
Karl Heuer <kwzh@gnu.org>
parents:
5688
diff
changeset
|
1438 : PATH_DOC)); |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1439 |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1440 /* Check the EMACSPATH environment variable, defaulting to the |
24412
d11ac02f9d6a
Use epaths.h istead of paths.h.
Richard M. Stallman <rms@gnu.org>
parents:
23885
diff
changeset
|
1441 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>
parents:
942
diff
changeset
|
1442 Vexec_path = decode_env_path ("EMACSPATH", PATH_EXEC); |
296 | 1443 Vexec_directory = Ffile_name_as_directory (Fcar (Vexec_path)); |
1444 Vexec_path = nconc2 (decode_env_path ("PATH", ""), Vexec_path); | |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1445 } |
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1446 |
12615
d5db61e1a4ee
(init_callproc): Set Vdoc_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
12430
diff
changeset
|
1447 /* This is run after init_cmdargs, when Vinstallation_directory is valid. */ |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1448 |
21514 | 1449 void |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
1450 init_callproc (void) |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1451 { |
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1452 char *data_dir = egetenv ("EMACSDATA"); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
1453 |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1454 register char * sh; |
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1455 Lisp_Object tempdir; |
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1456 |
22373
cb8484085daf
(init_callproc): Check Vinstallation_directory even if !initialized.
Richard M. Stallman <rms@gnu.org>
parents:
22320
diff
changeset
|
1457 if (!NILP (Vinstallation_directory)) |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1458 { |
5618
a70dc7c886d0
(init_callproc): Use Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5569
diff
changeset
|
1459 /* Add to the path the lib-src subdir of the installation dir. */ |
a70dc7c886d0
(init_callproc): Use Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5569
diff
changeset
|
1460 Lisp_Object tem; |
a70dc7c886d0
(init_callproc): Use Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5569
diff
changeset
|
1461 tem = Fexpand_file_name (build_string ("lib-src"), |
a70dc7c886d0
(init_callproc): Use Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5569
diff
changeset
|
1462 Vinstallation_directory); |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1463 #ifndef DOS_NT |
7824
de1dfb8aea82
(init_callproc) [MSDOS]: Exclude less code, so ../etc
Richard M. Stallman <rms@gnu.org>
parents:
7782
diff
changeset
|
1464 /* 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>
parents:
24432
diff
changeset
|
1465 if (NILP (Fmember (tem, Vexec_path))) |
41861
56385cb63c61
(init_callproc): Set Vdata_directory based on the source
Richard M. Stallman <rms@gnu.org>
parents:
41528
diff
changeset
|
1466 { |
56385cb63c61
(init_callproc): Set Vdata_directory based on the source
Richard M. Stallman <rms@gnu.org>
parents:
41528
diff
changeset
|
1467 Vexec_path = decode_env_path ("EMACSPATH", PATH_EXEC); |
56385cb63c61
(init_callproc): Set Vdata_directory based on the source
Richard M. Stallman <rms@gnu.org>
parents:
41528
diff
changeset
|
1468 Vexec_path = Fcons (tem, Vexec_path); |
56385cb63c61
(init_callproc): Set Vdata_directory based on the source
Richard M. Stallman <rms@gnu.org>
parents:
41528
diff
changeset
|
1469 Vexec_path = nconc2 (decode_env_path ("PATH", ""), Vexec_path); |
56385cb63c61
(init_callproc): Set Vdata_directory based on the source
Richard M. Stallman <rms@gnu.org>
parents:
41528
diff
changeset
|
1470 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47018
diff
changeset
|
1471 |
24920
d95c8bcfe8ae
(init_callproc): Set exec_directory if installation_directory is
Richard M. Stallman <rms@gnu.org>
parents:
24432
diff
changeset
|
1472 Vexec_directory = Ffile_name_as_directory (tem); |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1473 #endif /* not DOS_NT */ |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1474 |
12615
d5db61e1a4ee
(init_callproc): Set Vdoc_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
12430
diff
changeset
|
1475 /* Maybe use ../etc as well as ../lib-src. */ |
d5db61e1a4ee
(init_callproc): Set Vdoc_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
12430
diff
changeset
|
1476 if (data_dir == 0) |
d5db61e1a4ee
(init_callproc): Set Vdoc_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
12430
diff
changeset
|
1477 { |
d5db61e1a4ee
(init_callproc): Set Vdoc_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
12430
diff
changeset
|
1478 tem = Fexpand_file_name (build_string ("etc"), |
d5db61e1a4ee
(init_callproc): Set Vdoc_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
12430
diff
changeset
|
1479 Vinstallation_directory); |
d5db61e1a4ee
(init_callproc): Set Vdoc_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
12430
diff
changeset
|
1480 Vdoc_directory = Ffile_name_as_directory (tem); |
5154
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1481 } |
e4e66bcaa016
(init_callproc): Maybe add ../lib-src to exec-path
Richard M. Stallman <rms@gnu.org>
parents:
4977
diff
changeset
|
1482 } |
7465
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1483 |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1484 /* Look for the files that should be in etc. We don't use |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1485 Vinstallation_directory, because these files are never installed |
12615
d5db61e1a4ee
(init_callproc): Set Vdoc_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
12430
diff
changeset
|
1486 near the executable, and they are never in the build |
7465
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1487 directory when that's different from the source directory. |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1488 |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1489 Instead, if these files are not in the nominal place, we try the |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1490 source directory. */ |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1491 if (data_dir == 0) |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1492 { |
41861
56385cb63c61
(init_callproc): Set Vdata_directory based on the source
Richard M. Stallman <rms@gnu.org>
parents:
41528
diff
changeset
|
1493 Lisp_Object tem, tem1, srcdir; |
7465
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1494 |
41861
56385cb63c61
(init_callproc): Set Vdata_directory based on the source
Richard M. Stallman <rms@gnu.org>
parents:
41528
diff
changeset
|
1495 srcdir = Fexpand_file_name (build_string ("../src/"), |
56385cb63c61
(init_callproc): Set Vdata_directory based on the source
Richard M. Stallman <rms@gnu.org>
parents:
41528
diff
changeset
|
1496 build_string (PATH_DUMPLOADSEARCH)); |
7465
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1497 tem = Fexpand_file_name (build_string ("GNU"), Vdata_directory); |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1498 tem1 = Ffile_exists_p (tem); |
41861
56385cb63c61
(init_callproc): Set Vdata_directory based on the source
Richard M. Stallman <rms@gnu.org>
parents:
41528
diff
changeset
|
1499 if (!NILP (Fequal (srcdir, Vinvocation_directory)) || NILP (tem1)) |
7465
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1500 { |
41861
56385cb63c61
(init_callproc): Set Vdata_directory based on the source
Richard M. Stallman <rms@gnu.org>
parents:
41528
diff
changeset
|
1501 Lisp_Object newdir; |
7465
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1502 newdir = Fexpand_file_name (build_string ("../etc/"), |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1503 build_string (PATH_DUMPLOADSEARCH)); |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1504 tem = Fexpand_file_name (build_string ("GNU"), newdir); |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1505 tem1 = Ffile_exists_p (tem); |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1506 if (!NILP (tem1)) |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1507 Vdata_directory = newdir; |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1508 } |
fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
Richard M. Stallman <rms@gnu.org>
parents:
7397
diff
changeset
|
1509 } |
296 | 1510 |
19498
34057e215ab1
(init_callproc): Don't warn about missing
Richard M. Stallman <rms@gnu.org>
parents:
19135
diff
changeset
|
1511 #ifndef CANNOT_DUMP |
34057e215ab1
(init_callproc): Don't warn about missing
Richard M. Stallman <rms@gnu.org>
parents:
19135
diff
changeset
|
1512 if (initialized) |
34057e215ab1
(init_callproc): Don't warn about missing
Richard M. Stallman <rms@gnu.org>
parents:
19135
diff
changeset
|
1513 #endif |
34057e215ab1
(init_callproc): Don't warn about missing
Richard M. Stallman <rms@gnu.org>
parents:
19135
diff
changeset
|
1514 { |
34057e215ab1
(init_callproc): Don't warn about missing
Richard M. Stallman <rms@gnu.org>
parents:
19135
diff
changeset
|
1515 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>
parents:
46293
diff
changeset
|
1516 if (access (SDATA (tempdir), 0) < 0) |
19498
34057e215ab1
(init_callproc): Don't warn about missing
Richard M. Stallman <rms@gnu.org>
parents:
19135
diff
changeset
|
1517 dir_warning ("Warning: arch-dependent data dir (%s) does not exist.\n", |
34057e215ab1
(init_callproc): Don't warn about missing
Richard M. Stallman <rms@gnu.org>
parents:
19135
diff
changeset
|
1518 Vexec_directory); |
34057e215ab1
(init_callproc): Don't warn about missing
Richard M. Stallman <rms@gnu.org>
parents:
19135
diff
changeset
|
1519 } |
296 | 1520 |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1521 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>
parents:
46293
diff
changeset
|
1522 if (access (SDATA (tempdir), 0) < 0) |
16486
30b8c014eaa7
(init_callproc): Use dir_warning.
Richard M. Stallman <rms@gnu.org>
parents:
15824
diff
changeset
|
1523 dir_warning ("Warning: arch-independent data dir (%s) does not exist.\n", |
30b8c014eaa7
(init_callproc): Use dir_warning.
Richard M. Stallman <rms@gnu.org>
parents:
15824
diff
changeset
|
1524 Vdata_directory); |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1525 |
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1526 sh = (char *) getenv ("SHELL"); |
296 | 1527 Vshell_file_name = build_string (sh ? sh : "/bin/sh"); |
16627
530b3f7373db
(Vtemp_file_name_pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16593
diff
changeset
|
1528 |
46626
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
parents:
46600
diff
changeset
|
1529 #ifdef DOS_NT |
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
parents:
46600
diff
changeset
|
1530 Vshared_game_score_directory = Qnil; |
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
parents:
46600
diff
changeset
|
1531 #else |
46600
736bbb2f8711
(init_callproc): Set up Vshared_game_score_directory.
Richard M. Stallman <rms@gnu.org>
parents:
46546
diff
changeset
|
1532 Vshared_game_score_directory = build_string (PATH_GAME); |
736bbb2f8711
(init_callproc): Set up Vshared_game_score_directory.
Richard M. Stallman <rms@gnu.org>
parents:
46546
diff
changeset
|
1533 if (NILP (Ffile_directory_p (Vshared_game_score_directory))) |
736bbb2f8711
(init_callproc): Set up Vshared_game_score_directory.
Richard M. Stallman <rms@gnu.org>
parents:
46546
diff
changeset
|
1534 Vshared_game_score_directory = Qnil; |
46626
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
parents:
46600
diff
changeset
|
1535 #endif |
1912
f0d4fb2b9157
* callproc.c (delete_temp_file): Declare this to return
Jim Blandy <jimb@redhat.com>
parents:
1886
diff
changeset
|
1536 } |
f0d4fb2b9157
* callproc.c (delete_temp_file): Declare this to return
Jim Blandy <jimb@redhat.com>
parents:
1886
diff
changeset
|
1537 |
21514 | 1538 void |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
1539 set_initial_environment (void) |
1912
f0d4fb2b9157
* callproc.c (delete_temp_file): Declare this to return
Jim Blandy <jimb@redhat.com>
parents:
1886
diff
changeset
|
1540 { |
f0d4fb2b9157
* callproc.c (delete_temp_file): Declare this to return
Jim Blandy <jimb@redhat.com>
parents:
1886
diff
changeset
|
1541 register char **envp; |
296 | 1542 #ifndef CANNOT_DUMP |
1543 if (initialized) | |
96675
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
94963
diff
changeset
|
1544 { |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
94963
diff
changeset
|
1545 #else |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
94963
diff
changeset
|
1546 { |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
94963
diff
changeset
|
1547 Vprocess_environment = Qnil; |
296 | 1548 #endif |
83529
0d9e16eab053
Rework environment variable support. (Reported by Kalle Olavi Niemitalo and Noah Friedman.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83518
diff
changeset
|
1549 for (envp = environ; *envp; envp++) |
83640
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1550 Vprocess_environment = Fcons (build_string (*envp), |
2aee92eacdab
* server.el (server-process-filter): Likewise.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83556
diff
changeset
|
1551 Vprocess_environment); |
83799
6aa4d1effd67
(set_initial_environment): Set Vinitial_environment only when
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83796
diff
changeset
|
1552 /* Ideally, the `copy' shouldn't be necessary, but it seems it's frequent |
6aa4d1effd67
(set_initial_environment): Set Vinitial_environment only when
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83796
diff
changeset
|
1553 to use `delete' and friends on process-environment. */ |
6aa4d1effd67
(set_initial_environment): Set Vinitial_environment only when
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83796
diff
changeset
|
1554 Vinitial_environment = Fcopy_sequence (Vprocess_environment); |
83529
0d9e16eab053
Rework environment variable support. (Reported by Kalle Olavi Niemitalo and Noah Friedman.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83518
diff
changeset
|
1555 } |
296 | 1556 } |
1557 | |
21514 | 1558 void |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109087
diff
changeset
|
1559 syms_of_callproc (void) |
296 | 1560 { |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1561 #ifdef DOS_NT |
7397
e0ffa47f2ed4
[MSDOS]: Rename Vbinary_process to Vbinary_process_output.
Richard M. Stallman <rms@gnu.org>
parents:
7161
diff
changeset
|
1562 Qbuffer_file_type = intern ("buffer-file-type"); |
e0ffa47f2ed4
[MSDOS]: Rename Vbinary_process to Vbinary_process_output.
Richard M. Stallman <rms@gnu.org>
parents:
7161
diff
changeset
|
1563 staticpro (&Qbuffer_file_type); |
9786
7f4b72244919
(getenv_internal) [WINDOWSNT]: Use strnicmp, not bcmp.
Richard M. Stallman <rms@gnu.org>
parents:
9609
diff
changeset
|
1564 #endif /* DOS_NT */ |
5501
902cd7024cfa
(syms_of_callproc) [MSDOS]: New lisp variable: binary-process.
Richard M. Stallman <rms@gnu.org>
parents:
5348
diff
changeset
|
1565 |
101664
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
1566 #ifndef DOS_NT |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
1567 Vtemp_file_name_pattern = build_string ("emacsXXXXXX"); |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
1568 #elif defined (WINDOWSNT) |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
1569 Vtemp_file_name_pattern = build_string ("emXXXXXX"); |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
1570 #else |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
1571 Vtemp_file_name_pattern = build_string ("detmp.XXX"); |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
1572 #endif |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
1573 staticpro (&Vtemp_file_name_pattern); |
9415ef85934e
(Vtemp_file_name_pattern): Remove DEFVAR_LISP.
Chong Yidong <cyd@stupidchicken.com>
parents:
101275
diff
changeset
|
1574 |
296 | 1575 DEFVAR_LISP ("shell-file-name", &Vshell_file_name, |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1576 doc: /* *File name to load inferior shells from. |
74836 | 1577 Initialized from the SHELL environment variable, or to a system-dependent |
1578 default if SHELL is not set. */); | |
296 | 1579 |
1580 DEFVAR_LISP ("exec-path", &Vexec_path, | |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1581 doc: /* *List of directories to search programs to run in subprocesses. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1582 Each element is a string (directory name) or nil (try default directory). */); |
296 | 1583 |
39811
9f7e72fba3d2
(Vexec_suffixes): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39535
diff
changeset
|
1584 DEFVAR_LISP ("exec-suffixes", &Vexec_suffixes, |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1585 doc: /* *List of suffixes to try to find executable file names. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1586 Each element is a string. */); |
39934
674e73ec881a
(syms_of_callproc): Init Vexec_suffixes to Qnil.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39811
diff
changeset
|
1587 Vexec_suffixes = Qnil; |
39811
9f7e72fba3d2
(Vexec_suffixes): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39535
diff
changeset
|
1588 |
296 | 1589 DEFVAR_LISP ("exec-directory", &Vexec_directory, |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1590 doc: /* Directory for executables for Emacs to invoke. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1591 More generally, this includes any architecture-dependent files |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1592 that are built and installed from the Emacs distribution. */); |
439 | 1593 |
948
928ed74adf4f
Restored up-to-date version of this file from pogo. What is going on
Jim Blandy <jimb@redhat.com>
parents:
942
diff
changeset
|
1594 DEFVAR_LISP ("data-directory", &Vdata_directory, |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1595 doc: /* Directory of machine-independent files that come with GNU Emacs. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1596 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>
parents:
942
diff
changeset
|
1597 |
6031
ae4c6623837b
(syms_of_callproc): New variable Vdoc_directory.
Karl Heuer <kwzh@gnu.org>
parents:
5688
diff
changeset
|
1598 DEFVAR_LISP ("doc-directory", &Vdoc_directory, |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1599 doc: /* Directory containing the DOC file that comes with GNU Emacs. |
75969
58d48cd0f5f0
(syms_of_callproc) <doc-directory, configure-info-directory>:
Juanma Barranquero <lekktu@gmail.com>
parents:
75348
diff
changeset
|
1600 This is usually the same as `data-directory'. */); |
6031
ae4c6623837b
(syms_of_callproc): New variable Vdoc_directory.
Karl Heuer <kwzh@gnu.org>
parents:
5688
diff
changeset
|
1601 |
3064
fa5466904709
* paths.h (PATH_INFO): New path, to edited by the configuration
Jim Blandy <jimb@redhat.com>
parents:
2961
diff
changeset
|
1602 DEFVAR_LISP ("configure-info-directory", &Vconfigure_info_directory, |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1603 doc: /* For internal use by the build procedure only. |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1604 This is the name of the directory in which the build procedure installed |
75969
58d48cd0f5f0
(syms_of_callproc) <doc-directory, configure-info-directory>:
Juanma Barranquero <lekktu@gmail.com>
parents:
75348
diff
changeset
|
1605 Emacs's info files; the default value for `Info-default-directory-list' |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1606 includes this. */); |
3064
fa5466904709
* paths.h (PATH_INFO): New path, to edited by the configuration
Jim Blandy <jimb@redhat.com>
parents:
2961
diff
changeset
|
1607 Vconfigure_info_directory = build_string (PATH_INFO); |
fa5466904709
* paths.h (PATH_INFO): New path, to edited by the configuration
Jim Blandy <jimb@redhat.com>
parents:
2961
diff
changeset
|
1608 |
45092
7f1d09693ef3
(Vgame_score_directory): Renamed to Vshared_game_score_directory.
Colin Walters <walters@gnu.org>
parents:
45002
diff
changeset
|
1609 DEFVAR_LISP ("shared-game-score-directory", &Vshared_game_score_directory, |
44486
7b98c268f335
(Vgame_score_directory): New variable.
Colin Walters <walters@gnu.org>
parents:
43713
diff
changeset
|
1610 doc: /* Directory of score files for games which come with GNU Emacs. |
7b98c268f335
(Vgame_score_directory): New variable.
Colin Walters <walters@gnu.org>
parents:
43713
diff
changeset
|
1611 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>
parents:
46600
diff
changeset
|
1612 #ifdef DOS_NT |
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
parents:
46600
diff
changeset
|
1613 Vshared_game_score_directory = Qnil; |
4173dcd87832
(init_callproc) [DOS_NT]: Initialize Vshared_game_score_directory to nil.
Juanma Barranquero <lekktu@gmail.com>
parents:
46600
diff
changeset
|
1614 #else |
46600
736bbb2f8711
(init_callproc): Set up Vshared_game_score_directory.
Richard M. Stallman <rms@gnu.org>
parents:
46546
diff
changeset
|
1615 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>
parents:
46600
diff
changeset
|
1616 #endif |
44486
7b98c268f335
(Vgame_score_directory): New variable.
Colin Walters <walters@gnu.org>
parents:
43713
diff
changeset
|
1617 |
83796
e7303426ed25
(Vinitial_environment): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
1618 DEFVAR_LISP ("initial-environment", &Vinitial_environment, |
e7303426ed25
(Vinitial_environment): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
1619 doc: /* List of environment variables inherited from the parent process. |
e7303426ed25
(Vinitial_environment): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
1620 Each element should be a string of the form ENVVARNAME=VALUE. |
e7303426ed25
(Vinitial_environment): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
1621 The elements must normally be decoded (using `locale-coding-system') for use. */); |
e7303426ed25
(Vinitial_environment): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
1622 Vinitial_environment = Qnil; |
e7303426ed25
(Vinitial_environment): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
1623 |
296 | 1624 DEFVAR_LISP ("process-environment", &Vprocess_environment, |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1625 doc: /* List of overridden environment variables for subprocesses to inherit. |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1626 Each element should be a string of the form ENVVARNAME=VALUE. |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1627 |
83529
0d9e16eab053
Rework environment variable support. (Reported by Kalle Olavi Niemitalo and Noah Friedman.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83518
diff
changeset
|
1628 Entries in this list take precedence to those in the frame-local |
0d9e16eab053
Rework environment variable support. (Reported by Kalle Olavi Niemitalo and Noah Friedman.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83518
diff
changeset
|
1629 environments. Therefore, let-binding `process-environment' is an easy |
0d9e16eab053
Rework environment variable support. (Reported by Kalle Olavi Niemitalo and Noah Friedman.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83518
diff
changeset
|
1630 way to temporarily change the value of an environment variable, |
0d9e16eab053
Rework environment variable support. (Reported by Kalle Olavi Niemitalo and Noah Friedman.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83518
diff
changeset
|
1631 irrespective of where it comes from. To use `process-environment' to |
0d9e16eab053
Rework environment variable support. (Reported by Kalle Olavi Niemitalo and Noah Friedman.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83518
diff
changeset
|
1632 remove an environment variable, include only its name in the list, |
0d9e16eab053
Rework environment variable support. (Reported by Kalle Olavi Niemitalo and Noah Friedman.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83518
diff
changeset
|
1633 without "=VALUE". |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1634 |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1635 This variable is set to nil when Emacs starts. |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1636 |
40103
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1637 If multiple entries define the same variable, the first one always |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39934
diff
changeset
|
1638 takes precedence. |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1639 |
51403 | 1640 Non-ASCII characters are encoded according to the initial value of |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1641 `locale-coding-system', i.e. the elements must normally be decoded for |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1642 use. |
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83422
diff
changeset
|
1643 |
51403 | 1644 See `setenv' and `getenv'. */); |
83426
7c7d1f1cb2e7
Initialize Vprocess_environment to nil.
Karoly Lorentey <lorentey@elte.hu>
parents:
83425
diff
changeset
|
1645 Vprocess_environment = Qnil; |
296 | 1646 |
1647 defsubr (&Scall_process); | |
28914
45b919961573
(Fgetenv_internal): Renamed from Fgetenv.
Gerd Moellmann <gerd@gnu.org>
parents:
26838
diff
changeset
|
1648 defsubr (&Sgetenv_internal); |
296 | 1649 defsubr (&Scall_process_region); |
1650 } | |
52401 | 1651 |
1652 /* arch-tag: 769b8045-1df7-4d2b-8968-e3fb49017f95 | |
1653 (do not change this comment) */ |