annotate src/w32proc.c @ 80462:837d54fb9fc9

(dired-dnd-handle-local-file): Obey dired-backup-overwrite for copy, move, and link operations.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 06 Apr 2008 21:01:54 +0000
parents fc2bcd2a8aad
children f1f27e9c15d7 606f2d163a64
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16826
diff changeset
1 /* Process support for GNU Emacs on the Microsoft W32 API.
64770
a0d1312ede66 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64363
diff changeset
2 Copyright (C) 1992, 1995, 1999, 2000, 2001, 2002, 2003, 2004,
79759
fc2bcd2a8aad Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 79490
diff changeset
3 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
5 This file is part of GNU Emacs.
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
7 GNU Emacs is free software; you can redistribute it and/or modify
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
8 it under the terms of the GNU General Public License as published by
78260
922696f363b0 Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 78168
diff changeset
9 the Free Software Foundation; either version 3, or (at your option)
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
10 any later version.
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
15 GNU General Public License for more details.
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
17 You should have received a copy of the GNU General Public License
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
18 along with GNU Emacs; see the file COPYING. If not, write to
64084
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63087
diff changeset
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63087
diff changeset
20 Boston, MA 02110-1301, USA.
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 Drew Bliss Oct 14, 1993
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 Adapted from alarm.c by Tim Fleehart
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 #include <stdio.h>
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 #include <stdlib.h>
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 #include <errno.h>
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 #include <io.h>
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
30 #include <fcntl.h>
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 #include <signal.h>
45089
3e9cb1567659 include sys/file.h.
Jason Rumney <jasonr@gnu.org>
parents: 45008
diff changeset
32 #include <sys/file.h>
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
34 /* must include CRT headers *before* config.h */
42469
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 40962
diff changeset
35
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 40962
diff changeset
36 #ifdef HAVE_CONFIG_H
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 40962
diff changeset
37 #include <config.h>
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 40962
diff changeset
38 #endif
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 40962
diff changeset
39
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
40 #undef signal
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
41 #undef wait
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
42 #undef spawnve
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
43 #undef select
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
44 #undef kill
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
45
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 #include <windows.h>
31115
42753ce203f8 (IsValidLocale): Extern missing from mingw32 headers.
Andrew Innes <andrewi@gnu.org>
parents: 26526
diff changeset
47 #ifdef __GNUC__
42753ce203f8 (IsValidLocale): Extern missing from mingw32 headers.
Andrew Innes <andrewi@gnu.org>
parents: 26526
diff changeset
48 /* This definition is missing from mingw32 headers. */
42753ce203f8 (IsValidLocale): Extern missing from mingw32 headers.
Andrew Innes <andrewi@gnu.org>
parents: 26526
diff changeset
49 extern BOOL WINAPI IsValidLocale(LCID, DWORD);
42753ce203f8 (IsValidLocale): Extern missing from mingw32 headers.
Andrew Innes <andrewi@gnu.org>
parents: 26526
diff changeset
50 #endif
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51
73091
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
52 #ifdef HAVE_LANGINFO_CODESET
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
53 #include <nl_types.h>
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
54 #include <langinfo.h>
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
55 #endif
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
56
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 #include "lisp.h"
16593
4ed80eda6fac Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
58 #include "w32.h"
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
59 #include "w32heap.h"
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 #include "systime.h"
13931
c80fb27c183b (win32_wait): fixed bad synch_process_retcode
Geoff Voelker <voelker@cs.washington.edu>
parents: 13425
diff changeset
61 #include "syswait.h"
c80fb27c183b (win32_wait): fixed bad synch_process_retcode
Geoff Voelker <voelker@cs.washington.edu>
parents: 13425
diff changeset
62 #include "process.h"
37703
d0b43907dca5 Include syssignal.h, to avoid compiler warnings.
Eli Zaretskii <eliz@gnu.org>
parents: 37290
diff changeset
63 #include "syssignal.h"
21613
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
64 #include "w32term.h"
13931
c80fb27c183b (win32_wait): fixed bad synch_process_retcode
Geoff Voelker <voelker@cs.washington.edu>
parents: 13425
diff changeset
65
63087
ba5fe07b9394 (RVA_TO_PTR): New macro.
Eli Zaretskii <eliz@gnu.org>
parents: 56729
diff changeset
66 #define RVA_TO_PTR(var,section,filedata) \
ba5fe07b9394 (RVA_TO_PTR): New macro.
Eli Zaretskii <eliz@gnu.org>
parents: 56729
diff changeset
67 ((void *)((section)->PointerToRawData \
ba5fe07b9394 (RVA_TO_PTR): New macro.
Eli Zaretskii <eliz@gnu.org>
parents: 56729
diff changeset
68 + ((DWORD)(var) - (section)->VirtualAddress) \
ba5fe07b9394 (RVA_TO_PTR): New macro.
Eli Zaretskii <eliz@gnu.org>
parents: 56729
diff changeset
69 + (filedata).file_base))
ba5fe07b9394 (RVA_TO_PTR): New macro.
Eli Zaretskii <eliz@gnu.org>
parents: 56729
diff changeset
70
15201
43551ec4b69d (Vwin32_quote_process_args): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15145
diff changeset
71 /* Control whether spawnve quotes arguments as necessary to ensure
43551ec4b69d (Vwin32_quote_process_args): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15145
diff changeset
72 correct parsing by child process. Because not all uses of spawnve
43551ec4b69d (Vwin32_quote_process_args): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15145
diff changeset
73 are careful about constructing argv arrays, we make this behaviour
43551ec4b69d (Vwin32_quote_process_args): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15145
diff changeset
74 conditional (off by default). */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16000
diff changeset
75 Lisp_Object Vw32_quote_process_args;
15201
43551ec4b69d (Vwin32_quote_process_args): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15145
diff changeset
76
16000
b5ecd5022991 (Vwin32_start_process_show_window): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15419
diff changeset
77 /* Control whether create_child causes the process' window to be
b5ecd5022991 (Vwin32_start_process_show_window): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15419
diff changeset
78 hidden. The default is nil. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16000
diff changeset
79 Lisp_Object Vw32_start_process_show_window;
16000
b5ecd5022991 (Vwin32_start_process_show_window): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15419
diff changeset
80
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
81 /* Control whether create_child causes the process to inherit Emacs'
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
82 console window, or be given a new one of its own. The default is
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
83 nil, to allow multiple DOS programs to run on Win95. Having separate
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
84 consoles also allows Emacs to cleanly terminate process groups. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
85 Lisp_Object Vw32_start_process_share_console;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
86
23949
9f8417cca07b (Vw32_start_process_inherit_error_mode): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 23678
diff changeset
87 /* Control whether create_child cause the process to inherit Emacs'
9f8417cca07b (Vw32_start_process_inherit_error_mode): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 23678
diff changeset
88 error mode setting. The default is t, to minimize the possibility of
9f8417cca07b (Vw32_start_process_inherit_error_mode): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 23678
diff changeset
89 subprocesses blocking when accessing unmounted drives. */
9f8417cca07b (Vw32_start_process_inherit_error_mode): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 23678
diff changeset
90 Lisp_Object Vw32_start_process_inherit_error_mode;
9f8417cca07b (Vw32_start_process_inherit_error_mode): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 23678
diff changeset
91
15247
874a66251747 (Vwin32_pipe_read_delay): New var.
Karl Heuer <kwzh@gnu.org>
parents: 15201
diff changeset
92 /* Time to sleep before reading from a subprocess output pipe - this
874a66251747 (Vwin32_pipe_read_delay): New var.
Karl Heuer <kwzh@gnu.org>
parents: 15201
diff changeset
93 avoids the inefficiency of frequently reading small amounts of data.
874a66251747 (Vwin32_pipe_read_delay): New var.
Karl Heuer <kwzh@gnu.org>
parents: 15201
diff changeset
94 This is primarily necessary for handling DOS processes on Windows 95,
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16826
diff changeset
95 but is useful for W32 processes on both Windows 95 and NT as well. */
55642
d69e0fb91340 * w32proc.c (w32_pipe_read_delay): Rename from Vw32_pipe_read_delay
Jason Rumney <jasonr@gnu.org>
parents: 52401
diff changeset
96 int w32_pipe_read_delay;
15247
874a66251747 (Vwin32_pipe_read_delay): New var.
Karl Heuer <kwzh@gnu.org>
parents: 15201
diff changeset
97
15325
5c8e4ef3137c (Vwin32_downcase_file_names): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15247
diff changeset
98 /* Control conversion of upper case file names to lower case.
5c8e4ef3137c (Vwin32_downcase_file_names): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15247
diff changeset
99 nil means no, t means yes. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16000
diff changeset
100 Lisp_Object Vw32_downcase_file_names;
15325
5c8e4ef3137c (Vwin32_downcase_file_names): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15247
diff changeset
101
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
102 /* Control whether stat() attempts to generate fake but hopefully
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
103 "accurate" inode values, by hashing the absolute truenames of files.
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
104 This should detect aliasing between long and short names, but still
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
105 allows the possibility of hash collisions. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
106 Lisp_Object Vw32_generate_fake_inodes;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
107
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
108 /* Control whether stat() attempts to determine file type and link count
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
109 exactly, at the expense of slower operation. Since true hard links
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
110 are supported on NTFS volumes, this is only relevant on NT. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
111 Lisp_Object Vw32_get_true_file_attributes;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
112
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
113 Lisp_Object Qhigh, Qlow;
15247
874a66251747 (Vwin32_pipe_read_delay): New var.
Karl Heuer <kwzh@gnu.org>
parents: 15201
diff changeset
114
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
115 #ifdef EMACSDEBUG
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
116 void _DebPrint (const char *fmt, ...)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117 {
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
118 char buf[1024];
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119 va_list args;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
121 va_start (args, fmt);
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122 vsprintf (buf, fmt, args);
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
123 va_end (args);
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124 OutputDebugString (buf);
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
125 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126 #endif
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
128 typedef void (_CALLBACK_ *signal_handler)(int);
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130 /* Signal handlers...SIG_DFL == 0 so this is initialized correctly. */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
131 static signal_handler sig_handlers[NSIG];
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
133 /* Fake signal implementation to record the SIGCHLD handler. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
134 signal_handler
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
135 sys_signal (int sig, signal_handler handler)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137 signal_handler old;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
138
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139 if (sig != SIGCHLD)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
140 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
141 errno = EINVAL;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142 return SIG_ERR;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
144 old = sig_handlers[sig];
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
145 sig_handlers[sig] = handler;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 return old;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
149 /* Defined in <process.h> which conflicts with the local copy */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
150 #define _P_NOWAIT 1
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
151
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
152 /* Child process management list. */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
153 int child_proc_count = 0;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
154 child_process child_procs[ MAX_CHILDREN ];
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
155 child_process *dead_child = NULL;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
156
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
157 DWORD WINAPI reader_thread (void *arg);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
158
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159 /* Find an unused process slot. */
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
160 child_process *
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
161 new_child (void)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
162 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
163 child_process *cp;
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
164 DWORD id;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
165
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
166 for (cp = child_procs+(child_proc_count-1); cp >= child_procs; cp--)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167 if (!CHILD_ACTIVE (cp))
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
168 goto Initialise;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
169 if (child_proc_count == MAX_CHILDREN)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
170 return NULL;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
171 cp = &child_procs[child_proc_count++];
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
172
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
173 Initialise:
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
174 memset (cp, 0, sizeof(*cp));
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
175 cp->fd = -1;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
176 cp->pid = -1;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
177 cp->procinfo.hProcess = NULL;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
178 cp->status = STATUS_READ_ERROR;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
179
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
180 /* use manual reset event so that select() will function properly */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
181 cp->char_avail = CreateEvent (NULL, TRUE, FALSE, NULL);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
182 if (cp->char_avail)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
183 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
184 cp->char_consumed = CreateEvent (NULL, FALSE, FALSE, NULL);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
185 if (cp->char_consumed)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
186 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
187 cp->thrd = CreateThread (NULL, 1024, reader_thread, cp, 0, &id);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
188 if (cp->thrd)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
189 return cp;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
190 }
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
191 }
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
192 delete_child (cp);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
193 return NULL;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
194 }
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
195
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
196 void
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
197 delete_child (child_process *cp)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
198 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
199 int i;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
200
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
201 /* Should not be deleting a child that is still needed. */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
202 for (i = 0; i < MAXDESC; i++)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
203 if (fd_info[i].cp == cp)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
204 abort ();
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
205
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
206 if (!CHILD_ACTIVE (cp))
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
207 return;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
208
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
209 /* reap thread if necessary */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
210 if (cp->thrd)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
211 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
212 DWORD rc;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
213
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
214 if (GetExitCodeThread (cp->thrd, &rc) && rc == STILL_ACTIVE)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
215 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
216 /* let the thread exit cleanly if possible */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
217 cp->status = STATUS_READ_ERROR;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
218 SetEvent (cp->char_consumed);
78726
bede1aa77f62 (delete_child): Don't terminate threads of zombies.
Jason Rumney <jasonr@gnu.org>
parents: 78260
diff changeset
219 #if 0
bede1aa77f62 (delete_child): Don't terminate threads of zombies.
Jason Rumney <jasonr@gnu.org>
parents: 78260
diff changeset
220 /* We used to forceably terminate the thread here, but it
bede1aa77f62 (delete_child): Don't terminate threads of zombies.
Jason Rumney <jasonr@gnu.org>
parents: 78260
diff changeset
221 is normally unnecessary, and in abnormal cases, the worst that
bede1aa77f62 (delete_child): Don't terminate threads of zombies.
Jason Rumney <jasonr@gnu.org>
parents: 78260
diff changeset
222 will happen is we have an extra idle thread hanging around
bede1aa77f62 (delete_child): Don't terminate threads of zombies.
Jason Rumney <jasonr@gnu.org>
parents: 78260
diff changeset
223 waiting for the zombie process. */
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
224 if (WaitForSingleObject (cp->thrd, 1000) != WAIT_OBJECT_0)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
225 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
226 DebPrint (("delete_child.WaitForSingleObject (thread) failed "
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
227 "with %lu for fd %ld\n", GetLastError (), cp->fd));
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
228 TerminateThread (cp->thrd, 0);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
229 }
78726
bede1aa77f62 (delete_child): Don't terminate threads of zombies.
Jason Rumney <jasonr@gnu.org>
parents: 78260
diff changeset
230 #endif
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
231 }
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
232 CloseHandle (cp->thrd);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
233 cp->thrd = NULL;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
234 }
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
235 if (cp->char_avail)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
236 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
237 CloseHandle (cp->char_avail);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
238 cp->char_avail = NULL;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
239 }
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
240 if (cp->char_consumed)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
241 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
242 CloseHandle (cp->char_consumed);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
243 cp->char_consumed = NULL;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
244 }
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
245
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
246 /* update child_proc_count (highest numbered slot in use plus one) */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
247 if (cp == child_procs + child_proc_count - 1)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
248 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
249 for (i = child_proc_count-1; i >= 0; i--)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
250 if (CHILD_ACTIVE (&child_procs[i]))
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
251 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
252 child_proc_count = i + 1;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
253 break;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
254 }
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
255 }
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
256 if (i < 0)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
257 child_proc_count = 0;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
258 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
259
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
260 /* Find a child by pid. */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
261 static child_process *
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
262 find_child_pid (DWORD pid)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
263 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
264 child_process *cp;
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
265
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
266 for (cp = child_procs+(child_proc_count-1); cp >= child_procs; cp--)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
267 if (CHILD_ACTIVE (cp) && pid == cp->pid)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
268 return cp;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
269 return NULL;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
271
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
273 /* Thread proc for child process and socket reader threads. Each thread
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
274 is normally blocked until woken by select() to check for input by
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
275 reading one char. When the read completes, char_avail is signalled
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
276 to wake up the select emulator and the thread blocks itself again. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
277 DWORD WINAPI
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
278 reader_thread (void *arg)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
279 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
280 child_process *cp;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
281
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
282 /* Our identity */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
283 cp = (child_process *)arg;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
284
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
285 /* We have to wait for the go-ahead before we can start */
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
286 if (cp == NULL
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
287 || WaitForSingleObject (cp->char_consumed, INFINITE) != WAIT_OBJECT_0)
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
288 return 1;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
289
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
290 for (;;)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
291 {
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
292 int rc;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
293
71901
7c2a2cf361cb (reader_thread): Use _sys_wait_accept to wait on a
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
294 if (fd_info[cp->fd].flags & FILE_LISTEN)
7c2a2cf361cb (reader_thread): Use _sys_wait_accept to wait on a
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
295 rc = _sys_wait_accept (cp->fd);
7c2a2cf361cb (reader_thread): Use _sys_wait_accept to wait on a
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
296 else
7c2a2cf361cb (reader_thread): Use _sys_wait_accept to wait on a
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
297 rc = _sys_read_ahead (cp->fd);
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
298
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
299 /* The name char_avail is a misnomer - it really just means the
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
300 read-ahead has completed, whether successfully or not. */
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
301 if (!SetEvent (cp->char_avail))
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
302 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
303 DebPrint (("reader_thread.SetEvent failed with %lu for fd %ld\n",
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
304 GetLastError (), cp->fd));
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
305 return 1;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
306 }
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
307
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
308 if (rc == STATUS_READ_ERROR)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
309 return 1;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
310
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
311 /* If the read died, the child has died so let the thread die */
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
312 if (rc == STATUS_READ_FAILED)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
313 break;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
314
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
315 /* Wait until our input is acknowledged before reading again */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
316 if (WaitForSingleObject (cp->char_consumed, INFINITE) != WAIT_OBJECT_0)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
317 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
318 DebPrint (("reader_thread.WaitForSingleObject failed with "
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
319 "%lu for fd %ld\n", GetLastError (), cp->fd));
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
320 break;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
321 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
322 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
323 return 0;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
324 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
325
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
326 /* To avoid Emacs changing directory, we just record here the directory
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
327 the new process should start in. This is set just before calling
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
328 sys_spawnve, and is not generally valid at any other time. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
329 static char * process_dir;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
330
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
331 static BOOL
38022
71e8b6ae114f (create_child): Add new parameter is_gui_app.
Andrew Innes <andrewi@gnu.org>
parents: 37703
diff changeset
332 create_child (char *exe, char *cmdline, char *env, int is_gui_app,
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
333 int * pPid, child_process *cp)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
334 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
335 STARTUPINFO start;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
336 SECURITY_ATTRIBUTES sec_attrs;
31115
42753ce203f8 (IsValidLocale): Extern missing from mingw32 headers.
Andrew Innes <andrewi@gnu.org>
parents: 26526
diff changeset
337 #if 0
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
338 SECURITY_DESCRIPTOR sec_desc;
31115
42753ce203f8 (IsValidLocale): Extern missing from mingw32 headers.
Andrew Innes <andrewi@gnu.org>
parents: 26526
diff changeset
339 #endif
23949
9f8417cca07b (Vw32_start_process_inherit_error_mode): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 23678
diff changeset
340 DWORD flags;
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
341 char dir[ MAXPATHLEN ];
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
342
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
343 if (cp == NULL) abort ();
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
344
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
345 memset (&start, 0, sizeof (start));
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
346 start.cb = sizeof (start);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
347
13425
b6eacb7da9f6 [HAVE_NTGUI] (create_child): Pass handles to children.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12325
diff changeset
348 #ifdef HAVE_NTGUI
38022
71e8b6ae114f (create_child): Add new parameter is_gui_app.
Andrew Innes <andrewi@gnu.org>
parents: 37703
diff changeset
349 if (NILP (Vw32_start_process_show_window) && !is_gui_app)
16000
b5ecd5022991 (Vwin32_start_process_show_window): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15419
diff changeset
350 start.dwFlags = STARTF_USESTDHANDLES | STARTF_USESHOWWINDOW;
b5ecd5022991 (Vwin32_start_process_show_window): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15419
diff changeset
351 else
b5ecd5022991 (Vwin32_start_process_show_window): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15419
diff changeset
352 start.dwFlags = STARTF_USESTDHANDLES;
13425
b6eacb7da9f6 [HAVE_NTGUI] (create_child): Pass handles to children.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12325
diff changeset
353 start.wShowWindow = SW_HIDE;
b6eacb7da9f6 [HAVE_NTGUI] (create_child): Pass handles to children.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12325
diff changeset
354
b6eacb7da9f6 [HAVE_NTGUI] (create_child): Pass handles to children.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12325
diff changeset
355 start.hStdInput = GetStdHandle (STD_INPUT_HANDLE);
b6eacb7da9f6 [HAVE_NTGUI] (create_child): Pass handles to children.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12325
diff changeset
356 start.hStdOutput = GetStdHandle (STD_OUTPUT_HANDLE);
b6eacb7da9f6 [HAVE_NTGUI] (create_child): Pass handles to children.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12325
diff changeset
357 start.hStdError = GetStdHandle (STD_ERROR_HANDLE);
b6eacb7da9f6 [HAVE_NTGUI] (create_child): Pass handles to children.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12325
diff changeset
358 #endif /* HAVE_NTGUI */
b6eacb7da9f6 [HAVE_NTGUI] (create_child): Pass handles to children.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12325
diff changeset
359
31115
42753ce203f8 (IsValidLocale): Extern missing from mingw32 headers.
Andrew Innes <andrewi@gnu.org>
parents: 26526
diff changeset
360 #if 0
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
361 /* Explicitly specify no security */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
362 if (!InitializeSecurityDescriptor (&sec_desc, SECURITY_DESCRIPTOR_REVISION))
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
363 goto EH_Fail;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
364 if (!SetSecurityDescriptorDacl (&sec_desc, TRUE, NULL, FALSE))
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
365 goto EH_Fail;
31115
42753ce203f8 (IsValidLocale): Extern missing from mingw32 headers.
Andrew Innes <andrewi@gnu.org>
parents: 26526
diff changeset
366 #endif
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
367 sec_attrs.nLength = sizeof (sec_attrs);
31115
42753ce203f8 (IsValidLocale): Extern missing from mingw32 headers.
Andrew Innes <andrewi@gnu.org>
parents: 26526
diff changeset
368 sec_attrs.lpSecurityDescriptor = NULL /* &sec_desc */;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
369 sec_attrs.bInheritHandle = FALSE;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
370
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
371 strcpy (dir, process_dir);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
372 unixtodos_filename (dir);
23949
9f8417cca07b (Vw32_start_process_inherit_error_mode): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 23678
diff changeset
373
9f8417cca07b (Vw32_start_process_inherit_error_mode): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 23678
diff changeset
374 flags = (!NILP (Vw32_start_process_share_console)
9f8417cca07b (Vw32_start_process_inherit_error_mode): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 23678
diff changeset
375 ? CREATE_NEW_PROCESS_GROUP
9f8417cca07b (Vw32_start_process_inherit_error_mode): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 23678
diff changeset
376 : CREATE_NEW_CONSOLE);
9f8417cca07b (Vw32_start_process_inherit_error_mode): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 23678
diff changeset
377 if (NILP (Vw32_start_process_inherit_error_mode))
9f8417cca07b (Vw32_start_process_inherit_error_mode): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 23678
diff changeset
378 flags |= CREATE_DEFAULT_ERROR_MODE;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
379 if (!CreateProcess (exe, cmdline, &sec_attrs, NULL, TRUE,
23949
9f8417cca07b (Vw32_start_process_inherit_error_mode): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 23678
diff changeset
380 flags, env, dir, &start, &cp->procinfo))
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
381 goto EH_Fail;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
382
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
383 cp->pid = (int) cp->procinfo.dwProcessId;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
384
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
385 /* Hack for Windows 95, which assigns large (ie negative) pids */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
386 if (cp->pid < 0)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
387 cp->pid = -cp->pid;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
388
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
389 /* pid must fit in a Lisp_Int */
55674
97c2d7314ac2 (create_child): Use INTMASK.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55648
diff changeset
390 cp->pid = cp->pid & INTMASK;
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
391
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
392 *pPid = cp->pid;
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
393
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
394 return TRUE;
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
395
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
396 EH_Fail:
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
397 DebPrint (("create_child.CreateProcess failed: %ld\n", GetLastError()););
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
398 return FALSE;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
399 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
400
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
401 /* create_child doesn't know what emacs' file handle will be for waiting
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
402 on output from the child, so we need to make this additional call
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
403 to register the handle with the process
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
404 This way the select emulator knows how to match file handles with
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
405 entries in child_procs. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
406 void
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
407 register_child (int pid, int fd)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
408 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
409 child_process *cp;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
410
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
411 cp = find_child_pid (pid);
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
412 if (cp == NULL)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
413 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
414 DebPrint (("register_child unable to find pid %lu\n", pid));
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
415 return;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
416 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
417
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
418 #ifdef FULL_DEBUG
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
419 DebPrint (("register_child registered fd %d with pid %lu\n", fd, pid));
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
420 #endif
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
421
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
422 cp->fd = fd;
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
423
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
424 /* thread is initially blocked until select is called; set status so
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
425 that select will release thread */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
426 cp->status = STATUS_READ_ACKNOWLEDGED;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
427
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
428 /* attach child_process to fd_info */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
429 if (fd_info[fd].cp != NULL)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
430 {
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
431 DebPrint (("register_child: fd_info[%d] apparently in use!\n", fd));
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
432 abort ();
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
433 }
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
434
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
435 fd_info[fd].cp = cp;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
436 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
437
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
438 /* When a process dies its pipe will break so the reader thread will
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
439 signal failure to the select emulator.
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
440 The select emulator then calls this routine to clean up.
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
441 Since the thread signaled failure we can assume it is exiting. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
442 static void
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
443 reap_subprocess (child_process *cp)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
444 {
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
445 if (cp->procinfo.hProcess)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
446 {
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
447 /* Reap the process */
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
448 #ifdef FULL_DEBUG
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
449 /* Process should have already died before we are called. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
450 if (WaitForSingleObject (cp->procinfo.hProcess, 0) != WAIT_OBJECT_0)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
451 DebPrint (("reap_subprocess: child fpr fd %d has not died yet!", cp->fd));
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
452 #endif
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
453 CloseHandle (cp->procinfo.hProcess);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
454 cp->procinfo.hProcess = NULL;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
455 CloseHandle (cp->procinfo.hThread);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
456 cp->procinfo.hThread = NULL;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
457 }
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
458
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
459 /* For asynchronous children, the child_proc resources will be freed
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
460 when the last pipe read descriptor is closed; for synchronous
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
461 children, we must explicitly free the resources now because
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
462 register_child has not been called. */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
463 if (cp->fd == -1)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
464 delete_child (cp);
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
465 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
466
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
467 /* Wait for any of our existing child processes to die
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
468 When it does, close its handle
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
469 Return the pid and fill in the status if non-NULL. */
11388
96fa39ad9403 (win32_wait): Reap synchronous subprocesses, and place
Karl Heuer <kwzh@gnu.org>
parents: 9907
diff changeset
470
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
471 int
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
472 sys_wait (int *status)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
473 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
474 DWORD active, retval;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
475 int nh;
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
476 int pid;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
477 child_process *cp, *cps[MAX_CHILDREN];
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
478 HANDLE wait_hnd[MAX_CHILDREN];
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
479
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
480 nh = 0;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
481 if (dead_child != NULL)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
482 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
483 /* We want to wait for a specific child */
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
484 wait_hnd[nh] = dead_child->procinfo.hProcess;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
485 cps[nh] = dead_child;
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
486 if (!wait_hnd[nh]) abort ();
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
487 nh++;
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
488 active = 0;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
489 goto get_result;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
490 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
491 else
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
492 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
493 for (cp = child_procs+(child_proc_count-1); cp >= child_procs; cp--)
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
494 /* some child_procs might be sockets; ignore them */
73664
a525ba4c658b * w32proc.c: (sys_wait) Only wait for processes with fd<0.
Chong Yidong <cyd@stupidchicken.com>
parents: 73091
diff changeset
495 if (CHILD_ACTIVE (cp) && cp->procinfo.hProcess
a525ba4c658b * w32proc.c: (sys_wait) Only wait for processes with fd<0.
Chong Yidong <cyd@stupidchicken.com>
parents: 73091
diff changeset
496 && (cp->fd < 0 || (fd_info[cp->fd].flags & FILE_AT_EOF) != 0))
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
497 {
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
498 wait_hnd[nh] = cp->procinfo.hProcess;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
499 cps[nh] = cp;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
500 nh++;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
501 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
502 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
503
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
504 if (nh == 0)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
505 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
506 /* Nothing to wait on, so fail */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
507 errno = ECHILD;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
508 return -1;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
509 }
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
510
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
511 do
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
512 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
513 /* Check for quit about once a second. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
514 QUIT;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
515 active = WaitForMultipleObjects (nh, wait_hnd, FALSE, 1000);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
516 } while (active == WAIT_TIMEOUT);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
517
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
518 if (active == WAIT_FAILED)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
519 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
520 errno = EBADF;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
521 return -1;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
522 }
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
523 else if (active >= WAIT_OBJECT_0
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
524 && active < WAIT_OBJECT_0+MAXIMUM_WAIT_OBJECTS)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
525 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
526 active -= WAIT_OBJECT_0;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
527 }
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
528 else if (active >= WAIT_ABANDONED_0
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
529 && active < WAIT_ABANDONED_0+MAXIMUM_WAIT_OBJECTS)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
530 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
531 active -= WAIT_ABANDONED_0;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
532 }
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
533 else
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
534 abort ();
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
535
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
536 get_result:
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
537 if (!GetExitCodeProcess (wait_hnd[active], &retval))
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
538 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
539 DebPrint (("Wait.GetExitCodeProcess failed with %lu\n",
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
540 GetLastError ()));
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
541 retval = 1;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
542 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
543 if (retval == STILL_ACTIVE)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
544 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
545 /* Should never happen */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
546 DebPrint (("Wait.WaitForMultipleObjects returned an active process\n"));
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
547 errno = EINVAL;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
548 return -1;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
549 }
12325
aa6fc4e97a28 (win32_wait): Massage retval into what is expected in Unix.
Richard M. Stallman <rms@gnu.org>
parents: 12239
diff changeset
550
aa6fc4e97a28 (win32_wait): Massage retval into what is expected in Unix.
Richard M. Stallman <rms@gnu.org>
parents: 12239
diff changeset
551 /* Massage the exit code from the process to match the format expected
14036
621a575db6f7 Comment fixes.
Karl Heuer <kwzh@gnu.org>
parents: 13931
diff changeset
552 by the WIFSTOPPED et al macros in syswait.h. Only WIFSIGNALED and
12325
aa6fc4e97a28 (win32_wait): Massage retval into what is expected in Unix.
Richard M. Stallman <rms@gnu.org>
parents: 12239
diff changeset
553 WIFEXITED are supported; WIFSTOPPED doesn't make sense under NT. */
aa6fc4e97a28 (win32_wait): Massage retval into what is expected in Unix.
Richard M. Stallman <rms@gnu.org>
parents: 12239
diff changeset
554
aa6fc4e97a28 (win32_wait): Massage retval into what is expected in Unix.
Richard M. Stallman <rms@gnu.org>
parents: 12239
diff changeset
555 if (retval == STATUS_CONTROL_C_EXIT)
aa6fc4e97a28 (win32_wait): Massage retval into what is expected in Unix.
Richard M. Stallman <rms@gnu.org>
parents: 12239
diff changeset
556 retval = SIGINT;
aa6fc4e97a28 (win32_wait): Massage retval into what is expected in Unix.
Richard M. Stallman <rms@gnu.org>
parents: 12239
diff changeset
557 else
aa6fc4e97a28 (win32_wait): Massage retval into what is expected in Unix.
Richard M. Stallman <rms@gnu.org>
parents: 12239
diff changeset
558 retval <<= 8;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
559
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
560 cp = cps[active];
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
561 pid = cp->pid;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
562 #ifdef FULL_DEBUG
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
563 DebPrint (("Wait signaled with process pid %d\n", cp->pid));
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
564 #endif
11388
96fa39ad9403 (win32_wait): Reap synchronous subprocesses, and place
Karl Heuer <kwzh@gnu.org>
parents: 9907
diff changeset
565
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
566 if (status)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
567 {
11388
96fa39ad9403 (win32_wait): Reap synchronous subprocesses, and place
Karl Heuer <kwzh@gnu.org>
parents: 9907
diff changeset
568 *status = retval;
96fa39ad9403 (win32_wait): Reap synchronous subprocesses, and place
Karl Heuer <kwzh@gnu.org>
parents: 9907
diff changeset
569 }
96fa39ad9403 (win32_wait): Reap synchronous subprocesses, and place
Karl Heuer <kwzh@gnu.org>
parents: 9907
diff changeset
570 else if (synch_process_alive)
96fa39ad9403 (win32_wait): Reap synchronous subprocesses, and place
Karl Heuer <kwzh@gnu.org>
parents: 9907
diff changeset
571 {
96fa39ad9403 (win32_wait): Reap synchronous subprocesses, and place
Karl Heuer <kwzh@gnu.org>
parents: 9907
diff changeset
572 synch_process_alive = 0;
96fa39ad9403 (win32_wait): Reap synchronous subprocesses, and place
Karl Heuer <kwzh@gnu.org>
parents: 9907
diff changeset
573
13931
c80fb27c183b (win32_wait): fixed bad synch_process_retcode
Geoff Voelker <voelker@cs.washington.edu>
parents: 13425
diff changeset
574 /* Report the status of the synchronous process. */
c80fb27c183b (win32_wait): fixed bad synch_process_retcode
Geoff Voelker <voelker@cs.washington.edu>
parents: 13425
diff changeset
575 if (WIFEXITED (retval))
c80fb27c183b (win32_wait): fixed bad synch_process_retcode
Geoff Voelker <voelker@cs.washington.edu>
parents: 13425
diff changeset
576 synch_process_retcode = WRETCODE (retval);
c80fb27c183b (win32_wait): fixed bad synch_process_retcode
Geoff Voelker <voelker@cs.washington.edu>
parents: 13425
diff changeset
577 else if (WIFSIGNALED (retval))
c80fb27c183b (win32_wait): fixed bad synch_process_retcode
Geoff Voelker <voelker@cs.washington.edu>
parents: 13425
diff changeset
578 {
c80fb27c183b (win32_wait): fixed bad synch_process_retcode
Geoff Voelker <voelker@cs.washington.edu>
parents: 13425
diff changeset
579 int code = WTERMSIG (retval);
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25646
diff changeset
580 char *signame;
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25646
diff changeset
581
26526
b7438760079b * callproc.c (strerror): Remove decl.
Paul Eggert <eggert@twinsun.com>
parents: 26088
diff changeset
582 synchronize_system_messages_locale ();
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25646
diff changeset
583 signame = strsignal (code);
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25646
diff changeset
584
13931
c80fb27c183b (win32_wait): fixed bad synch_process_retcode
Geoff Voelker <voelker@cs.washington.edu>
parents: 13425
diff changeset
585 if (signame == 0)
c80fb27c183b (win32_wait): fixed bad synch_process_retcode
Geoff Voelker <voelker@cs.washington.edu>
parents: 13425
diff changeset
586 signame = "unknown";
c80fb27c183b (win32_wait): fixed bad synch_process_retcode
Geoff Voelker <voelker@cs.washington.edu>
parents: 13425
diff changeset
587
c80fb27c183b (win32_wait): fixed bad synch_process_retcode
Geoff Voelker <voelker@cs.washington.edu>
parents: 13425
diff changeset
588 synch_process_death = signame;
c80fb27c183b (win32_wait): fixed bad synch_process_retcode
Geoff Voelker <voelker@cs.washington.edu>
parents: 13425
diff changeset
589 }
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
590
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
591 reap_subprocess (cp);
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
592 }
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
593
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
594 reap_subprocess (cp);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
595
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
596 return pid;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
597 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
598
78168
5d5dea23e4fd (IMAGE_NT_OPTIONAL_HDR32_MAGIC, IMAGE_OPTIONAL_HEADER32): Define
Eli Zaretskii <eliz@gnu.org>
parents: 78164
diff changeset
599 /* Old versions of w32api headers don't have separate 32-bit and
5d5dea23e4fd (IMAGE_NT_OPTIONAL_HDR32_MAGIC, IMAGE_OPTIONAL_HEADER32): Define
Eli Zaretskii <eliz@gnu.org>
parents: 78164
diff changeset
600 64-bit defines, but the one they have matches the 32-bit variety. */
5d5dea23e4fd (IMAGE_NT_OPTIONAL_HDR32_MAGIC, IMAGE_OPTIONAL_HEADER32): Define
Eli Zaretskii <eliz@gnu.org>
parents: 78164
diff changeset
601 #ifndef IMAGE_NT_OPTIONAL_HDR32_MAGIC
5d5dea23e4fd (IMAGE_NT_OPTIONAL_HDR32_MAGIC, IMAGE_OPTIONAL_HEADER32): Define
Eli Zaretskii <eliz@gnu.org>
parents: 78164
diff changeset
602 # define IMAGE_NT_OPTIONAL_HDR32_MAGIC IMAGE_NT_OPTIONAL_HDR_MAGIC
5d5dea23e4fd (IMAGE_NT_OPTIONAL_HDR32_MAGIC, IMAGE_OPTIONAL_HEADER32): Define
Eli Zaretskii <eliz@gnu.org>
parents: 78164
diff changeset
603 # define IMAGE_OPTIONAL_HEADER32 IMAGE_OPTIONAL_HEADER
5d5dea23e4fd (IMAGE_NT_OPTIONAL_HDR32_MAGIC, IMAGE_OPTIONAL_HEADER32): Define
Eli Zaretskii <eliz@gnu.org>
parents: 78164
diff changeset
604 #endif
5d5dea23e4fd (IMAGE_NT_OPTIONAL_HDR32_MAGIC, IMAGE_OPTIONAL_HEADER32): Define
Eli Zaretskii <eliz@gnu.org>
parents: 78164
diff changeset
605
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
606 void
38022
71e8b6ae114f (create_child): Add new parameter is_gui_app.
Andrew Innes <andrewi@gnu.org>
parents: 37703
diff changeset
607 w32_executable_type (char * filename, int * is_dos_app, int * is_cygnus_app, int * is_gui_app)
15247
874a66251747 (Vwin32_pipe_read_delay): New var.
Karl Heuer <kwzh@gnu.org>
parents: 15201
diff changeset
608 {
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
609 file_data executable;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
610 char * p;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
611
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
612 /* Default values in case we can't tell for sure. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
613 *is_dos_app = FALSE;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
614 *is_cygnus_app = FALSE;
38022
71e8b6ae114f (create_child): Add new parameter is_gui_app.
Andrew Innes <andrewi@gnu.org>
parents: 37703
diff changeset
615 *is_gui_app = FALSE;
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
616
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
617 if (!open_input_file (&executable, filename))
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
618 return;
15247
874a66251747 (Vwin32_pipe_read_delay): New var.
Karl Heuer <kwzh@gnu.org>
parents: 15201
diff changeset
619
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
620 p = strrchr (filename, '.');
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
621
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
622 /* We can only identify DOS .com programs from the extension. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
623 if (p && stricmp (p, ".com") == 0)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
624 *is_dos_app = TRUE;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
625 else if (p && (stricmp (p, ".bat") == 0
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
626 || stricmp (p, ".cmd") == 0))
15247
874a66251747 (Vwin32_pipe_read_delay): New var.
Karl Heuer <kwzh@gnu.org>
parents: 15201
diff changeset
627 {
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
628 /* A DOS shell script - it appears that CreateProcess is happy to
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
629 accept this (somewhat surprisingly); presumably it looks at
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
630 COMSPEC to determine what executable to actually invoke.
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
631 Therefore, we have to do the same here as well. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
632 /* Actually, I think it uses the program association for that
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
633 extension, which is defined in the registry. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
634 p = egetenv ("COMSPEC");
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
635 if (p)
38022
71e8b6ae114f (create_child): Add new parameter is_gui_app.
Andrew Innes <andrewi@gnu.org>
parents: 37703
diff changeset
636 w32_executable_type (p, is_dos_app, is_cygnus_app, is_gui_app);
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
637 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
638 else
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
639 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
640 /* Look for DOS .exe signature - if found, we must also check that
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
641 it isn't really a 16- or 32-bit Windows exe, since both formats
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
642 start with a DOS program stub. Note that 16-bit Windows
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
643 executables use the OS/2 1.x format. */
15247
874a66251747 (Vwin32_pipe_read_delay): New var.
Karl Heuer <kwzh@gnu.org>
parents: 15201
diff changeset
644
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
645 IMAGE_DOS_HEADER * dos_header;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
646 IMAGE_NT_HEADERS * nt_header;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
647
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
648 dos_header = (PIMAGE_DOS_HEADER) executable.file_base;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
649 if (dos_header->e_magic != IMAGE_DOS_SIGNATURE)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
650 goto unwind;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
651
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
652 nt_header = (PIMAGE_NT_HEADERS) ((char *) dos_header + dos_header->e_lfanew);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
653
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
654 if ((char *) nt_header > (char *) dos_header + executable.size)
15247
874a66251747 (Vwin32_pipe_read_delay): New var.
Karl Heuer <kwzh@gnu.org>
parents: 15201
diff changeset
655 {
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
656 /* Some dos headers (pkunzip) have bogus e_lfanew fields. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
657 *is_dos_app = TRUE;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
658 }
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
659 else if (nt_header->Signature != IMAGE_NT_SIGNATURE
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
660 && LOWORD (nt_header->Signature) != IMAGE_OS2_SIGNATURE)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
661 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
662 *is_dos_app = TRUE;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
663 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
664 else if (nt_header->Signature == IMAGE_NT_SIGNATURE)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
665 {
78164
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
666 IMAGE_DATA_DIRECTORY *data_dir = NULL;
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
667 if (nt_header->OptionalHeader.Magic == IMAGE_NT_OPTIONAL_HDR32_MAGIC)
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
668 {
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
669 /* Ensure we are using the 32 bit structure. */
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
670 IMAGE_OPTIONAL_HEADER32 *opt
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
671 = (IMAGE_OPTIONAL_HEADER32*) &(nt_header->OptionalHeader);
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
672 data_dir = opt->DataDirectory;
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
673 *is_gui_app = (opt->Subsystem == IMAGE_SUBSYSTEM_WINDOWS_GUI);
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
674 }
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
675 /* MingW 3.12 has the required 64 bit structs, but in case older
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
676 versions don't, only check 64 bit exes if we know how. */
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
677 #ifdef IMAGE_NT_OPTIONAL_HDR64_MAGIC
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
678 else if (nt_header->OptionalHeader.Magic
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
679 == IMAGE_NT_OPTIONAL_HDR64_MAGIC)
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
680 {
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
681 IMAGE_OPTIONAL_HEADER64 *opt
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
682 = (IMAGE_OPTIONAL_HEADER64*) &(nt_header->OptionalHeader);
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
683 data_dir = opt->DataDirectory;
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
684 *is_gui_app = (opt->Subsystem == IMAGE_SUBSYSTEM_WINDOWS_GUI);
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
685 }
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
686 #endif
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
687 if (data_dir)
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
688 {
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
689 /* Look for cygwin.dll in DLL import list. */
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
690 IMAGE_DATA_DIRECTORY import_dir =
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
691 data_dir[IMAGE_DIRECTORY_ENTRY_IMPORT];
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
692 IMAGE_IMPORT_DESCRIPTOR * imports;
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
693 IMAGE_SECTION_HEADER * section;
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
694
78164
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
695 section = rva_to_section (import_dir.VirtualAddress, nt_header);
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
696 imports = RVA_TO_PTR (import_dir.VirtualAddress, section,
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
697 executable);
38022
71e8b6ae114f (create_child): Add new parameter is_gui_app.
Andrew Innes <andrewi@gnu.org>
parents: 37703
diff changeset
698
78164
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
699 for ( ; imports->Name; imports++)
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
700 {
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
701 char * dllname = RVA_TO_PTR (imports->Name, section,
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
702 executable);
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
703
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
704 /* The exact name of the cygwin dll has changed with
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
705 various releases, but hopefully this will be reasonably
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
706 future proof. */
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
707 if (strncmp (dllname, "cygwin", 6) == 0)
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
708 {
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
709 *is_cygnus_app = TRUE;
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
710 break;
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
711 }
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
712 }
d9f9dda7474c (w32_executable_type): Handle 64 bit executables.
Jason Rumney <jasonr@gnu.org>
parents: 75348
diff changeset
713 }
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
714 }
15247
874a66251747 (Vwin32_pipe_read_delay): New var.
Karl Heuer <kwzh@gnu.org>
parents: 15201
diff changeset
715 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
716
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
717 unwind:
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
718 close_file_data (&executable);
15247
874a66251747 (Vwin32_pipe_read_delay): New var.
Karl Heuer <kwzh@gnu.org>
parents: 15201
diff changeset
719 }
874a66251747 (Vwin32_pipe_read_delay): New var.
Karl Heuer <kwzh@gnu.org>
parents: 15201
diff changeset
720
16826
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
721 int
31115
42753ce203f8 (IsValidLocale): Extern missing from mingw32 headers.
Andrew Innes <andrewi@gnu.org>
parents: 26526
diff changeset
722 compare_env (const void *strp1, const void *strp2)
16826
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
723 {
31115
42753ce203f8 (IsValidLocale): Extern missing from mingw32 headers.
Andrew Innes <andrewi@gnu.org>
parents: 26526
diff changeset
724 const char *str1 = *(const char **)strp1, *str2 = *(const char **)strp2;
16826
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
725
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
726 while (*str1 && *str2 && *str1 != '=' && *str2 != '=')
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
727 {
31354
547138676a74 (compare_env): Convert to uppercase for comparison,
Andrew Innes <andrewi@gnu.org>
parents: 31115
diff changeset
728 /* Sort order in command.com/cmd.exe is based on uppercasing
547138676a74 (compare_env): Convert to uppercase for comparison,
Andrew Innes <andrewi@gnu.org>
parents: 31115
diff changeset
729 names, so do the same here. */
547138676a74 (compare_env): Convert to uppercase for comparison,
Andrew Innes <andrewi@gnu.org>
parents: 31115
diff changeset
730 if (toupper (*str1) > toupper (*str2))
16826
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
731 return 1;
31354
547138676a74 (compare_env): Convert to uppercase for comparison,
Andrew Innes <andrewi@gnu.org>
parents: 31115
diff changeset
732 else if (toupper (*str1) < toupper (*str2))
16826
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
733 return -1;
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
734 str1++, str2++;
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
735 }
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
736
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
737 if (*str1 == '=' && *str2 == '=')
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
738 return 0;
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
739 else if (*str1 == '=')
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
740 return -1;
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
741 else
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
742 return 1;
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
743 }
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
744
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
745 void
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
746 merge_and_sort_env (char **envp1, char **envp2, char **new_envp)
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
747 {
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
748 char **optr, **nptr;
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
749 int num;
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
750
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
751 nptr = new_envp;
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
752 optr = envp1;
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
753 while (*optr)
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
754 *nptr++ = *optr++;
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
755 num = optr - envp1;
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
756
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
757 optr = envp2;
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
758 while (*optr)
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
759 *nptr++ = *optr++;
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
760 num += optr - envp2;
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
761
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
762 qsort (new_envp, num, sizeof (char *), compare_env);
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
763
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
764 *nptr = NULL;
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
765 }
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
766
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
767 /* When a new child process is created we need to register it in our list,
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
768 so intercept spawn requests. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
769 int
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
770 sys_spawnve (int mode, char *cmdname, char **argv, char **envp)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
771 {
12239
ff7738cdbd99 (win32_spawnve): Accept program names without executable suffixes.
Richard M. Stallman <rms@gnu.org>
parents: 12183
diff changeset
772 Lisp_Object program, full;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
773 char *cmdline, *env, *parg, **targ;
16826
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
774 int arglen, numenv;
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
775 int pid;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
776 child_process *cp;
38022
71e8b6ae114f (create_child): Add new parameter is_gui_app.
Andrew Innes <andrewi@gnu.org>
parents: 37703
diff changeset
777 int is_dos_app, is_cygnus_app, is_gui_app;
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
778 int do_quoting = 0;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
779 char escape_char;
16826
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
780 /* We pass our process ID to our children by setting up an environment
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
781 variable in their environment. */
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
782 char ppid_env_var_buffer[64];
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
783 char *extra_env[] = {ppid_env_var_buffer, NULL};
79490
217ec3ada789 (sys_spawnve): Quote args with wildcards.
Jason Rumney <jasonr@gnu.org>
parents: 78726
diff changeset
784 /* These are the characters that cause an argument to need quoting.
217ec3ada789 (sys_spawnve): Quote args with wildcards.
Jason Rumney <jasonr@gnu.org>
parents: 78726
diff changeset
785 Arguments with whitespace characters need quoting to prevent the
217ec3ada789 (sys_spawnve): Quote args with wildcards.
Jason Rumney <jasonr@gnu.org>
parents: 78726
diff changeset
786 argument being split into two or more. Arguments with wildcards
217ec3ada789 (sys_spawnve): Quote args with wildcards.
Jason Rumney <jasonr@gnu.org>
parents: 78726
diff changeset
787 are also quoted, for consistency with posix platforms, where wildcards
217ec3ada789 (sys_spawnve): Quote args with wildcards.
Jason Rumney <jasonr@gnu.org>
parents: 78726
diff changeset
788 are not expanded if we run the program directly without a shell.
217ec3ada789 (sys_spawnve): Quote args with wildcards.
Jason Rumney <jasonr@gnu.org>
parents: 78726
diff changeset
789 Some extra whitespace characters need quoting in Cygwin programs,
217ec3ada789 (sys_spawnve): Quote args with wildcards.
Jason Rumney <jasonr@gnu.org>
parents: 78726
diff changeset
790 so this list is conditionally modified below. */
217ec3ada789 (sys_spawnve): Quote args with wildcards.
Jason Rumney <jasonr@gnu.org>
parents: 78726
diff changeset
791 char *sepchars = " \t*?";
16826
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
792
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
793 /* We don't care about the other modes */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
794 if (mode != _P_NOWAIT)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
795 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
796 errno = EINVAL;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
797 return -1;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
798 }
12239
ff7738cdbd99 (win32_spawnve): Accept program names without executable suffixes.
Richard M. Stallman <rms@gnu.org>
parents: 12183
diff changeset
799
ff7738cdbd99 (win32_spawnve): Accept program names without executable suffixes.
Richard M. Stallman <rms@gnu.org>
parents: 12183
diff changeset
800 /* Handle executable names without an executable suffix. */
ff7738cdbd99 (win32_spawnve): Accept program names without executable suffixes.
Richard M. Stallman <rms@gnu.org>
parents: 12183
diff changeset
801 program = make_string (cmdname, strlen (cmdname));
ff7738cdbd99 (win32_spawnve): Accept program names without executable suffixes.
Richard M. Stallman <rms@gnu.org>
parents: 12183
diff changeset
802 if (NILP (Ffile_executable_p (program)))
ff7738cdbd99 (win32_spawnve): Accept program names without executable suffixes.
Richard M. Stallman <rms@gnu.org>
parents: 12183
diff changeset
803 {
ff7738cdbd99 (win32_spawnve): Accept program names without executable suffixes.
Richard M. Stallman <rms@gnu.org>
parents: 12183
diff changeset
804 struct gcpro gcpro1;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
805
12239
ff7738cdbd99 (win32_spawnve): Accept program names without executable suffixes.
Richard M. Stallman <rms@gnu.org>
parents: 12183
diff changeset
806 full = Qnil;
ff7738cdbd99 (win32_spawnve): Accept program names without executable suffixes.
Richard M. Stallman <rms@gnu.org>
parents: 12183
diff changeset
807 GCPRO1 (program);
45008
07245ba4ebcc (sys_spawnve): Update call to openp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44928
diff changeset
808 openp (Vexec_path, program, Vexec_suffixes, &full, make_number (X_OK));
12239
ff7738cdbd99 (win32_spawnve): Accept program names without executable suffixes.
Richard M. Stallman <rms@gnu.org>
parents: 12183
diff changeset
809 UNGCPRO;
ff7738cdbd99 (win32_spawnve): Accept program names without executable suffixes.
Richard M. Stallman <rms@gnu.org>
parents: 12183
diff changeset
810 if (NILP (full))
ff7738cdbd99 (win32_spawnve): Accept program names without executable suffixes.
Richard M. Stallman <rms@gnu.org>
parents: 12183
diff changeset
811 {
ff7738cdbd99 (win32_spawnve): Accept program names without executable suffixes.
Richard M. Stallman <rms@gnu.org>
parents: 12183
diff changeset
812 errno = EINVAL;
ff7738cdbd99 (win32_spawnve): Accept program names without executable suffixes.
Richard M. Stallman <rms@gnu.org>
parents: 12183
diff changeset
813 return -1;
ff7738cdbd99 (win32_spawnve): Accept program names without executable suffixes.
Richard M. Stallman <rms@gnu.org>
parents: 12183
diff changeset
814 }
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
815 program = full;
12239
ff7738cdbd99 (win32_spawnve): Accept program names without executable suffixes.
Richard M. Stallman <rms@gnu.org>
parents: 12183
diff changeset
816 }
ff7738cdbd99 (win32_spawnve): Accept program names without executable suffixes.
Richard M. Stallman <rms@gnu.org>
parents: 12183
diff changeset
817
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
818 /* make sure argv[0] and cmdname are both in DOS format */
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45089
diff changeset
819 cmdname = SDATA (program);
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
820 unixtodos_filename (cmdname);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
821 argv[0] = cmdname;
15247
874a66251747 (Vwin32_pipe_read_delay): New var.
Karl Heuer <kwzh@gnu.org>
parents: 15201
diff changeset
822
21613
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
823 /* Determine whether program is a 16-bit DOS executable, or a w32
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
824 executable that is implicitly linked to the Cygnus dll (implying it
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
825 was compiled with the Cygnus GNU toolchain and hence relies on
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
826 cygwin.dll to parse the command line - we use this to decide how to
38022
71e8b6ae114f (create_child): Add new parameter is_gui_app.
Andrew Innes <andrewi@gnu.org>
parents: 37703
diff changeset
827 escape quote chars in command line args that must be quoted).
71e8b6ae114f (create_child): Add new parameter is_gui_app.
Andrew Innes <andrewi@gnu.org>
parents: 37703
diff changeset
828
71e8b6ae114f (create_child): Add new parameter is_gui_app.
Andrew Innes <andrewi@gnu.org>
parents: 37703
diff changeset
829 Also determine whether it is a GUI app, so that we don't hide its
71e8b6ae114f (create_child): Add new parameter is_gui_app.
Andrew Innes <andrewi@gnu.org>
parents: 37703
diff changeset
830 initial window unless specifically requested. */
71e8b6ae114f (create_child): Add new parameter is_gui_app.
Andrew Innes <andrewi@gnu.org>
parents: 37703
diff changeset
831 w32_executable_type (cmdname, &is_dos_app, &is_cygnus_app, &is_gui_app);
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
832
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
833 /* On Windows 95, if cmdname is a DOS app, we invoke a helper
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
834 application to start it by specifying the helper app as cmdname,
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
835 while leaving the real app name as argv[0]. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
836 if (is_dos_app)
15247
874a66251747 (Vwin32_pipe_read_delay): New var.
Karl Heuer <kwzh@gnu.org>
parents: 15201
diff changeset
837 {
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
838 cmdname = alloca (MAXPATHLEN);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
839 if (egetenv ("CMDPROXY"))
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
840 strcpy (cmdname, egetenv ("CMDPROXY"));
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
841 else
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
842 {
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45089
diff changeset
843 strcpy (cmdname, SDATA (Vinvocation_directory));
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
844 strcat (cmdname, "cmdproxy.exe");
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
845 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
846 unixtodos_filename (cmdname);
15247
874a66251747 (Vwin32_pipe_read_delay): New var.
Karl Heuer <kwzh@gnu.org>
parents: 15201
diff changeset
847 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
848
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
849 /* we have to do some conjuring here to put argv and envp into the
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
850 form CreateProcess wants... argv needs to be a space separated/null
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
851 terminated list of parameters, and envp is a null
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
852 separated/double-null terminated list of parameters.
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
853
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
854 Additionally, zero-length args and args containing whitespace or
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
855 quote chars need to be wrapped in double quotes - for this to work,
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
856 embedded quotes need to be escaped as well. The aim is to ensure
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
857 the child process reconstructs the argv array we start with
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
858 exactly, so we treat quotes at the beginning and end of arguments
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
859 as embedded quotes.
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
860
21613
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
861 The w32 GNU-based library from Cygnus doubles quotes to escape
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
862 them, while MSVC uses backslash for escaping. (Actually the MSVC
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
863 startup code does attempt to recognise doubled quotes and accept
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
864 them, but gets it wrong and ends up requiring three quotes to get a
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
865 single embedded quote!) So by default we decide whether to use
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
866 quote or backslash as the escape character based on whether the
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
867 binary is apparently a Cygnus compiled app.
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
868
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
869 Note that using backslash to escape embedded quotes requires
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
870 additional special handling if an embedded quote is already
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
871 preceeded by backslash, or if an arg requiring quoting ends with
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
872 backslash. In such cases, the run of escape characters needs to be
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
873 doubled. For consistency, we apply this special handling as long
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
874 as the escape character is not quote.
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
875
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
876 Since we have no idea how large argv and envp are likely to be we
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
877 figure out list lengths on the fly and allocate them. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
878
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
879 if (!NILP (Vw32_quote_process_args))
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
880 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
881 do_quoting = 1;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
882 /* Override escape char by binding w32-quote-process-args to
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
883 desired character, or use t for auto-selection. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
884 if (INTEGERP (Vw32_quote_process_args))
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
885 escape_char = XINT (Vw32_quote_process_args);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
886 else
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
887 escape_char = is_cygnus_app ? '"' : '\\';
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
888 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
889
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
890 /* Cygwin apps needs quoting a bit more often */
37290
6e6e46d239df (sys_spawnve): Quote more chars for Cygwin.
Gerd Moellmann <gerd@gnu.org>
parents: 33694
diff changeset
891 if (escape_char == '"')
6e6e46d239df (sys_spawnve): Quote more chars for Cygwin.
Gerd Moellmann <gerd@gnu.org>
parents: 33694
diff changeset
892 sepchars = "\r\n\t\f '";
6e6e46d239df (sys_spawnve): Quote more chars for Cygwin.
Gerd Moellmann <gerd@gnu.org>
parents: 33694
diff changeset
893
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
894 /* do argv... */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
895 arglen = 0;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
896 targ = argv;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
897 while (*targ)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
898 {
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
899 char * p = *targ;
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
900 int need_quotes = 0;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
901 int escape_char_run = 0;
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
902
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
903 if (*p == 0)
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
904 need_quotes = 1;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
905 for ( ; *p; p++)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
906 {
37290
6e6e46d239df (sys_spawnve): Quote more chars for Cygwin.
Gerd Moellmann <gerd@gnu.org>
parents: 33694
diff changeset
907 if (escape_char == '"' && *p == '\\')
6e6e46d239df (sys_spawnve): Quote more chars for Cygwin.
Gerd Moellmann <gerd@gnu.org>
parents: 33694
diff changeset
908 /* If it's a Cygwin app, \ needs to be escaped. */
6e6e46d239df (sys_spawnve): Quote more chars for Cygwin.
Gerd Moellmann <gerd@gnu.org>
parents: 33694
diff changeset
909 arglen++;
6e6e46d239df (sys_spawnve): Quote more chars for Cygwin.
Gerd Moellmann <gerd@gnu.org>
parents: 33694
diff changeset
910 else if (*p == '"')
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
911 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
912 /* allow for embedded quotes to be escaped */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
913 arglen++;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
914 need_quotes = 1;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
915 /* handle the case where the embedded quote is already escaped */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
916 if (escape_char_run > 0)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
917 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
918 /* To preserve the arg exactly, we need to double the
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
919 preceding escape characters (plus adding one to
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
920 escape the quote character itself). */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
921 arglen += escape_char_run;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
922 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
923 }
37290
6e6e46d239df (sys_spawnve): Quote more chars for Cygwin.
Gerd Moellmann <gerd@gnu.org>
parents: 33694
diff changeset
924 else if (strchr (sepchars, *p) != NULL)
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
925 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
926 need_quotes = 1;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
927 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
928
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
929 if (*p == escape_char && escape_char != '"')
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
930 escape_char_run++;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
931 else
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
932 escape_char_run = 0;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
933 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
934 if (need_quotes)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
935 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
936 arglen += 2;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
937 /* handle the case where the arg ends with an escape char - we
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
938 must not let the enclosing quote be escaped. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
939 if (escape_char_run > 0)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
940 arglen += escape_char_run;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
941 }
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
942 arglen += strlen (*targ++) + 1;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
943 }
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
944 cmdline = alloca (arglen);
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
945 targ = argv;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
946 parg = cmdline;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
947 while (*targ)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
948 {
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
949 char * p = *targ;
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
950 int need_quotes = 0;
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
951
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
952 if (*p == 0)
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
953 need_quotes = 1;
15201
43551ec4b69d (Vwin32_quote_process_args): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15145
diff changeset
954
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
955 if (do_quoting)
15201
43551ec4b69d (Vwin32_quote_process_args): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15145
diff changeset
956 {
43551ec4b69d (Vwin32_quote_process_args): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15145
diff changeset
957 for ( ; *p; p++)
37290
6e6e46d239df (sys_spawnve): Quote more chars for Cygwin.
Gerd Moellmann <gerd@gnu.org>
parents: 33694
diff changeset
958 if ((strchr (sepchars, *p) != NULL) || *p == '"')
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
959 need_quotes = 1;
15201
43551ec4b69d (Vwin32_quote_process_args): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15145
diff changeset
960 }
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
961 if (need_quotes)
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
962 {
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
963 int escape_char_run = 0;
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
964 char * first;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
965 char * last;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
966
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
967 p = *targ;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
968 first = p;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
969 last = p + strlen (p) - 1;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
970 *parg++ = '"';
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
971 #if 0
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
972 /* This version does not escape quotes if they occur at the
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
973 beginning or end of the arg - this could lead to incorrect
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
974 behaviour when the arg itself represents a command line
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
975 containing quoted args. I believe this was originally done
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
976 as a hack to make some things work, before
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
977 `w32-quote-process-args' was added. */
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
978 while (*p)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
979 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
980 if (*p == '"' && p > first && p < last)
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
981 *parg++ = escape_char; /* escape embedded quotes */
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
982 *parg++ = *p++;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
983 }
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
984 #else
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
985 for ( ; *p; p++)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
986 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
987 if (*p == '"')
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
988 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
989 /* double preceding escape chars if any */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
990 while (escape_char_run > 0)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
991 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
992 *parg++ = escape_char;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
993 escape_char_run--;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
994 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
995 /* escape all quote chars, even at beginning or end */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
996 *parg++ = escape_char;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
997 }
37290
6e6e46d239df (sys_spawnve): Quote more chars for Cygwin.
Gerd Moellmann <gerd@gnu.org>
parents: 33694
diff changeset
998 else if (escape_char == '"' && *p == '\\')
6e6e46d239df (sys_spawnve): Quote more chars for Cygwin.
Gerd Moellmann <gerd@gnu.org>
parents: 33694
diff changeset
999 *parg++ = '\\';
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1000 *parg++ = *p;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1001
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1002 if (*p == escape_char && escape_char != '"')
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1003 escape_char_run++;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1004 else
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1005 escape_char_run = 0;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1006 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1007 /* double escape chars before enclosing quote */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1008 while (escape_char_run > 0)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1009 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1010 *parg++ = escape_char;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1011 escape_char_run--;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1012 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1013 #endif
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1014 *parg++ = '"';
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1015 }
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1016 else
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1017 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1018 strcpy (parg, *targ);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1019 parg += strlen (*targ);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1020 }
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1021 *parg++ = ' ';
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1022 targ++;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1023 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1024 *--parg = '\0';
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1025
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1026 /* and envp... */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1027 arglen = 1;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1028 targ = envp;
16826
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
1029 numenv = 1; /* for end null */
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1030 while (*targ)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1031 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1032 arglen += strlen (*targ++) + 1;
16826
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
1033 numenv++;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1034 }
16826
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
1035 /* extra env vars... */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1036 sprintf (ppid_env_var_buffer, "EM_PARENT_PROCESS_ID=%d",
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1037 GetCurrentProcessId ());
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1038 arglen += strlen (ppid_env_var_buffer) + 1;
16826
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
1039 numenv++;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1040
16826
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
1041 /* merge env passed in and extra env into one, and sort it. */
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
1042 targ = (char **) alloca (numenv * sizeof (char *));
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
1043 merge_and_sort_env (envp, extra_env, targ);
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
1044
e7ad34b65d8e (compare_env, merge_and_sort_env): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16593
diff changeset
1045 /* concatenate env entries. */
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1046 env = alloca (arglen);
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1047 parg = env;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1048 while (*targ)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1049 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1050 strcpy (parg, *targ);
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1051 parg += strlen (*targ++);
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1052 *parg++ = '\0';
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1053 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1054 *parg++ = '\0';
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1055 *parg = '\0';
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1056
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1057 cp = new_child ();
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1058 if (cp == NULL)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1059 {
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1060 errno = EAGAIN;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1061 return -1;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1062 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1063
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1064 /* Now create the process. */
38022
71e8b6ae114f (create_child): Add new parameter is_gui_app.
Andrew Innes <andrewi@gnu.org>
parents: 37703
diff changeset
1065 if (!create_child (cmdname, cmdline, env, is_gui_app, &pid, cp))
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1066 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1067 delete_child (cp);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1068 errno = ENOEXEC;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1069 return -1;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1070 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1071
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1072 return pid;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1073 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1074
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1075 /* Emulate the select call
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1076 Wait for available input on any of the given rfds, or timeout if
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1077 a timeout is given and no input is detected
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1078 wfds and efds are not supported and must be NULL.
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1079
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1080 For simplicity, we detect the death of child processes here and
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1081 synchronously call the SIGCHLD handler. Since it is possible for
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1082 children to be created without a corresponding pipe handle from which
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1083 to read output, we wait separately on the process handles as well as
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1084 the char_avail events for each process pipe. We only call
22079
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1085 wait/reap_process when the process actually terminates.
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1086
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1087 To reduce the number of places in which Emacs can be hung such that
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1088 C-g is not able to interrupt it, we always wait on interrupt_handle
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1089 (which is signalled by the input thread when C-g is detected). If we
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1090 detect that we were woken up by C-g, we return -1 with errno set to
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1091 EINTR as on Unix. */
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1092
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1093 /* From ntterm.c */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1094 extern HANDLE keyboard_handle;
22079
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1095
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1096 /* From w32xfns.c */
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1097 extern HANDLE interrupt_handle;
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1098
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1099 /* From process.c */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1100 extern int proc_buffered_char[];
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1101
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1102 int
11388
96fa39ad9403 (win32_wait): Reap synchronous subprocesses, and place
Karl Heuer <kwzh@gnu.org>
parents: 9907
diff changeset
1103 sys_select (int nfds, SELECT_TYPE *rfds, SELECT_TYPE *wfds, SELECT_TYPE *efds,
96fa39ad9403 (win32_wait): Reap synchronous subprocesses, and place
Karl Heuer <kwzh@gnu.org>
parents: 9907
diff changeset
1104 EMACS_TIME *timeout)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1105 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1106 SELECT_TYPE orfds;
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1107 DWORD timeout_ms, start_time;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1108 int i, nh, nc, nr;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1109 DWORD active;
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1110 child_process *cp, *cps[MAX_CHILDREN];
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1111 HANDLE wait_hnd[MAXDESC + MAX_CHILDREN];
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1112 int fdindex[MAXDESC]; /* mapping from wait handles back to descriptors */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1113
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1114 timeout_ms = timeout ? (timeout->tv_sec * 1000 + timeout->tv_usec / 1000) : INFINITE;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1115
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1116 /* If the descriptor sets are NULL but timeout isn't, then just Sleep. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1117 if (rfds == NULL && wfds == NULL && efds == NULL && timeout != NULL)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1118 {
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1119 Sleep (timeout_ms);
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1120 return 0;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1121 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1122
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1123 /* Otherwise, we only handle rfds, so fail otherwise. */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1124 if (rfds == NULL || wfds != NULL || efds != NULL)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1125 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1126 errno = EINVAL;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1127 return -1;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1128 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1129
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1130 orfds = *rfds;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1131 FD_ZERO (rfds);
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1132 nr = 0;
22079
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1133
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1134 /* Always wait on interrupt_handle, to detect C-g (quit). */
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1135 wait_hnd[0] = interrupt_handle;
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1136 fdindex[0] = -1;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1137
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1138 /* Build a list of pipe handles to wait on. */
22079
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1139 nh = 1;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1140 for (i = 0; i < nfds; i++)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1141 if (FD_ISSET (i, &orfds))
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1142 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1143 if (i == 0)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1144 {
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1145 if (keyboard_handle)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1146 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1147 /* Handle stdin specially */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1148 wait_hnd[nh] = keyboard_handle;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1149 fdindex[nh] = i;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1150 nh++;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1151 }
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1152
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1153 /* Check for any emacs-generated input in the queue since
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1154 it won't be detected in the wait */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1155 if (detect_input_pending ())
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1156 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1157 FD_SET (i, rfds);
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1158 return 1;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1159 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1160 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1161 else
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1162 {
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1163 /* Child process and socket input */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1164 cp = fd_info[i].cp;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1165 if (cp)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1166 {
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1167 int current_status = cp->status;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1168
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1169 if (current_status == STATUS_READ_ACKNOWLEDGED)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1170 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1171 /* Tell reader thread which file handle to use. */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1172 cp->fd = i;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1173 /* Wake up the reader thread for this process */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1174 cp->status = STATUS_READ_READY;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1175 if (!SetEvent (cp->char_consumed))
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1176 DebPrint (("nt_select.SetEvent failed with "
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1177 "%lu for fd %ld\n", GetLastError (), i));
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1178 }
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1179
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1180 #ifdef CHECK_INTERLOCK
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1181 /* slightly crude cross-checking of interlock between threads */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1182
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1183 current_status = cp->status;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1184 if (WaitForSingleObject (cp->char_avail, 0) == WAIT_OBJECT_0)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1185 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1186 /* char_avail has been signalled, so status (which may
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1187 have changed) should indicate read has completed
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1188 but has not been acknowledged. */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1189 current_status = cp->status;
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1190 if (current_status != STATUS_READ_SUCCEEDED
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1191 && current_status != STATUS_READ_FAILED)
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1192 DebPrint (("char_avail set, but read not completed: status %d\n",
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1193 current_status));
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1194 }
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1195 else
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1196 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1197 /* char_avail has not been signalled, so status should
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1198 indicate that read is in progress; small possibility
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1199 that read has completed but event wasn't yet signalled
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1200 when we tested it (because a context switch occurred
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1201 or if running on separate CPUs). */
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1202 if (current_status != STATUS_READ_READY
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1203 && current_status != STATUS_READ_IN_PROGRESS
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1204 && current_status != STATUS_READ_SUCCEEDED
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1205 && current_status != STATUS_READ_FAILED)
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1206 DebPrint (("char_avail reset, but read status is bad: %d\n",
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1207 current_status));
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1208 }
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1209 #endif
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1210 wait_hnd[nh] = cp->char_avail;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1211 fdindex[nh] = i;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1212 if (!wait_hnd[nh]) abort ();
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1213 nh++;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1214 #ifdef FULL_DEBUG
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1215 DebPrint (("select waiting on child %d fd %d\n",
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1216 cp-child_procs, i));
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1217 #endif
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1218 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1219 else
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1220 {
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1221 /* Unable to find something to wait on for this fd, skip */
21613
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1222
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1223 /* Note that this is not a fatal error, and can in fact
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1224 happen in unusual circumstances. Specifically, if
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1225 sys_spawnve fails, eg. because the program doesn't
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1226 exist, and debug-on-error is t so Fsignal invokes a
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1227 nested input loop, then the process output pipe is
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1228 still included in input_wait_mask with no child_proc
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1229 associated with it. (It is removed when the debugger
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1230 exits the nested input loop and the error is thrown.) */
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1231
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1232 DebPrint (("sys_select: fd %ld is invalid! ignoring\n", i));
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1233 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1234 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1235 }
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1236
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1237 count_children:
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1238 /* Add handles of child processes. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1239 nc = 0;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1240 for (cp = child_procs+(child_proc_count-1); cp >= child_procs; cp--)
21613
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1241 /* Some child_procs might be sockets; ignore them. Also some
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1242 children may have died already, but we haven't finished reading
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1243 the process output; ignore them too. */
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1244 if (CHILD_ACTIVE (cp) && cp->procinfo.hProcess
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1245 && (cp->fd < 0
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1246 || (fd_info[cp->fd].flags & FILE_SEND_SIGCHLD) == 0
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1247 || (fd_info[cp->fd].flags & FILE_AT_EOF) != 0)
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1248 )
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1249 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1250 wait_hnd[nh + nc] = cp->procinfo.hProcess;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1251 cps[nc] = cp;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1252 nc++;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1253 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1254
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1255 /* Nothing to look for, so we didn't find anything */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1256 if (nh + nc == 0)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1257 {
11388
96fa39ad9403 (win32_wait): Reap synchronous subprocesses, and place
Karl Heuer <kwzh@gnu.org>
parents: 9907
diff changeset
1258 if (timeout)
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1259 Sleep (timeout_ms);
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1260 return 0;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1261 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1262
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1263 start_time = GetTickCount ();
24915
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1264
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1265 /* Wait for input or child death to be signalled. If user input is
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1266 allowed, then also accept window messages. */
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1267 if (FD_ISSET (0, &orfds))
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1268 active = MsgWaitForMultipleObjects (nh + nc, wait_hnd, FALSE, timeout_ms,
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1269 QS_ALLINPUT);
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1270 else
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1271 active = WaitForMultipleObjects (nh + nc, wait_hnd, FALSE, timeout_ms);
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1272
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1273 if (active == WAIT_FAILED)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1274 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1275 DebPrint (("select.WaitForMultipleObjects (%d, %lu) failed with %lu\n",
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1276 nh + nc, timeout_ms, GetLastError ()));
56729
e6e0caa7ec87 Rename wait_reading_process_input to wait_reading_process_output.
Kim F. Storm <storm@cua.dk>
parents: 55674
diff changeset
1277 /* don't return EBADF - this causes wait_reading_process_output to
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1278 abort; WAIT_FAILED is returned when single-stepping under
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1279 Windows 95 after switching thread focus in debugger, and
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1280 possibly at other times. */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1281 errno = EINTR;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1282 return -1;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1283 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1284 else if (active == WAIT_TIMEOUT)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1285 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1286 return 0;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1287 }
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1288 else if (active >= WAIT_OBJECT_0
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1289 && active < WAIT_OBJECT_0+MAXIMUM_WAIT_OBJECTS)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1290 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1291 active -= WAIT_OBJECT_0;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1292 }
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1293 else if (active >= WAIT_ABANDONED_0
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1294 && active < WAIT_ABANDONED_0+MAXIMUM_WAIT_OBJECTS)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1295 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1296 active -= WAIT_ABANDONED_0;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1297 }
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1298 else
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1299 abort ();
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1300
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1301 /* Loop over all handles after active (now officially documented as
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1302 being the first signalled handle in the array). We do this to
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1303 ensure fairness, so that all channels with data available will be
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1304 processed - otherwise higher numbered channels could be starved. */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1305 do
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1306 {
24915
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1307 if (active == nh + nc)
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1308 {
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1309 /* There are messages in the lisp thread's queue; we must
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1310 drain the queue now to ensure they are processed promptly,
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1311 because if we don't do so, we will not be woken again until
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1312 further messages arrive.
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1313
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1314 NB. If ever we allow window message procedures to callback
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1315 into lisp, we will need to ensure messages are dispatched
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1316 at a safe time for lisp code to be run (*), and we may also
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1317 want to provide some hooks in the dispatch loop to cater
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1318 for modeless dialogs created by lisp (ie. to register
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1319 window handles to pass to IsDialogMessage).
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1320
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1321 (*) Note that MsgWaitForMultipleObjects above is an
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1322 internal dispatch point for messages that are sent to
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1323 windows created by this thread. */
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1324 drain_message_queue ();
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1325 }
ff85091a55e7 (sys_select): Call MsgWaitForMultipleObjects instead
Andrew Innes <andrewi@gnu.org>
parents: 24671
diff changeset
1326 else if (active >= nh)
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1327 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1328 cp = cps[active - nh];
21613
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1329
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1330 /* We cannot always signal SIGCHLD immediately; if we have not
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1331 finished reading the process output, we must delay sending
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1332 SIGCHLD until we do. */
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1333
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1334 if (cp->fd >= 0 && (fd_info[cp->fd].flags & FILE_AT_EOF) == 0)
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1335 fd_info[cp->fd].flags |= FILE_SEND_SIGCHLD;
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1336 /* SIG_DFL for SIGCHLD is ignore */
21613
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1337 else if (sig_handlers[SIGCHLD] != SIG_DFL &&
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1338 sig_handlers[SIGCHLD] != SIG_IGN)
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1339 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1340 #ifdef FULL_DEBUG
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1341 DebPrint (("select calling SIGCHLD handler for pid %d\n",
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1342 cp->pid));
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1343 #endif
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1344 dead_child = cp;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1345 sig_handlers[SIGCHLD] (SIGCHLD);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1346 dead_child = NULL;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1347 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1348 }
22079
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1349 else if (fdindex[active] == -1)
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1350 {
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1351 /* Quit (C-g) was detected. */
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1352 errno = EINTR;
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1353 return -1;
b7a2370ee82d (sys_select): Always wait on interrupt_handle, so that
Richard M. Stallman <rms@gnu.org>
parents: 21742
diff changeset
1354 }
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1355 else if (fdindex[active] == 0)
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1356 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1357 /* Keyboard input available */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1358 FD_SET (0, rfds);
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1359 nr++;
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1360 }
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1361 else
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1362 {
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1363 /* must be a socket or pipe - read ahead should have
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1364 completed, either succeeding or failing. */
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1365 FD_SET (fdindex[active], rfds);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1366 nr++;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1367 }
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1368
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1369 /* Even though wait_reading_process_output only reads from at most
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1370 one channel, we must process all channels here so that we reap
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1371 all children that have died. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1372 while (++active < nh + nc)
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1373 if (WaitForSingleObject (wait_hnd[active], 0) == WAIT_OBJECT_0)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1374 break;
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1375 } while (active < nh + nc);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1376
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1377 /* If no input has arrived and timeout hasn't expired, wait again. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1378 if (nr == 0)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1379 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1380 DWORD elapsed = GetTickCount () - start_time;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1381
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1382 if (timeout_ms > elapsed) /* INFINITE is MAX_UINT */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1383 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1384 if (timeout_ms != INFINITE)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1385 timeout_ms -= elapsed;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1386 goto count_children;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1387 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1388 }
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1389
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1390 return nr;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1391 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1392
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1393 /* Substitute for certain kill () operations */
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1394
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1395 static BOOL CALLBACK
31115
42753ce203f8 (IsValidLocale): Extern missing from mingw32 headers.
Andrew Innes <andrewi@gnu.org>
parents: 26526
diff changeset
1396 find_child_console (HWND hwnd, LPARAM arg)
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1397 {
31115
42753ce203f8 (IsValidLocale): Extern missing from mingw32 headers.
Andrew Innes <andrewi@gnu.org>
parents: 26526
diff changeset
1398 child_process * cp = (child_process *) arg;
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1399 DWORD thread_id;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1400 DWORD process_id;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1401
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1402 thread_id = GetWindowThreadProcessId (hwnd, &process_id);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1403 if (process_id == cp->procinfo.dwProcessId)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1404 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1405 char window_class[32];
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1406
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1407 GetClassName (hwnd, window_class, sizeof (window_class));
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1408 if (strcmp (window_class,
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1409 (os_subtype == OS_WIN95)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1410 ? "tty"
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1411 : "ConsoleWindowClass") == 0)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1412 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1413 cp->hwnd = hwnd;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1414 return FALSE;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1415 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1416 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1417 /* keep looking */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1418 return TRUE;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1419 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1420
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1421 int
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1422 sys_kill (int pid, int sig)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1423 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1424 child_process *cp;
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1425 HANDLE proc_hand;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1426 int need_to_free = 0;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1427 int rc = 0;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1428
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1429 /* Only handle signals that will result in the process dying */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1430 if (sig != SIGINT && sig != SIGKILL && sig != SIGQUIT && sig != SIGHUP)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1431 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1432 errno = EINVAL;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1433 return -1;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1434 }
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1435
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1436 cp = find_child_pid (pid);
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1437 if (cp == NULL)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1438 {
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1439 proc_hand = OpenProcess (PROCESS_TERMINATE, 0, pid);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1440 if (proc_hand == NULL)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1441 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1442 errno = EPERM;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1443 return -1;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1444 }
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1445 need_to_free = 1;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1446 }
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1447 else
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1448 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1449 proc_hand = cp->procinfo.hProcess;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1450 pid = cp->procinfo.dwProcessId;
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1451
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1452 /* Try to locate console window for process. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1453 EnumWindows (find_child_console, (LPARAM) cp);
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1454 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1455
38022
71e8b6ae114f (create_child): Add new parameter is_gui_app.
Andrew Innes <andrewi@gnu.org>
parents: 37703
diff changeset
1456 if (sig == SIGINT || sig == SIGQUIT)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1457 {
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1458 if (NILP (Vw32_start_process_share_console) && cp && cp->hwnd)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1459 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1460 BYTE control_scan_code = (BYTE) MapVirtualKey (VK_CONTROL, 0);
38022
71e8b6ae114f (create_child): Add new parameter is_gui_app.
Andrew Innes <andrewi@gnu.org>
parents: 37703
diff changeset
1461 /* Fake Ctrl-C for SIGINT, and Ctrl-Break for SIGQUIT. */
71e8b6ae114f (create_child): Add new parameter is_gui_app.
Andrew Innes <andrewi@gnu.org>
parents: 37703
diff changeset
1462 BYTE vk_break_code = (sig == SIGINT) ? 'C' : VK_CANCEL;
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1463 BYTE break_scan_code = (BYTE) MapVirtualKey (vk_break_code, 0);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1464 HWND foreground_window;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1465
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1466 if (break_scan_code == 0)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1467 {
38022
71e8b6ae114f (create_child): Add new parameter is_gui_app.
Andrew Innes <andrewi@gnu.org>
parents: 37703
diff changeset
1468 /* Fake Ctrl-C for SIGQUIT if we can't manage Ctrl-Break. */
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1469 vk_break_code = 'C';
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1470 break_scan_code = (BYTE) MapVirtualKey (vk_break_code, 0);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1471 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1472
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1473 foreground_window = GetForegroundWindow ();
24671
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1474 if (foreground_window)
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1475 {
24671
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1476 /* NT 5.0, and apparently also Windows 98, will not allow
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1477 a Window to be set to foreground directly without the
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1478 user's involvement. The workaround is to attach
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1479 ourselves to the thread that owns the foreground
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1480 window, since that is the only thread that can set the
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1481 foreground window. */
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1482 DWORD foreground_thread, child_thread;
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1483 foreground_thread =
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1484 GetWindowThreadProcessId (foreground_window, NULL);
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1485 if (foreground_thread == GetCurrentThreadId ()
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1486 || !AttachThreadInput (GetCurrentThreadId (),
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1487 foreground_thread, TRUE))
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1488 foreground_thread = 0;
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1489
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1490 child_thread = GetWindowThreadProcessId (cp->hwnd, NULL);
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1491 if (child_thread == GetCurrentThreadId ()
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1492 || !AttachThreadInput (GetCurrentThreadId (),
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1493 child_thread, TRUE))
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1494 child_thread = 0;
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1495
24671
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1496 /* Set the foreground window to the child. */
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1497 if (SetForegroundWindow (cp->hwnd))
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1498 {
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1499 /* Generate keystrokes as if user had typed Ctrl-Break or
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1500 Ctrl-C. */
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1501 keybd_event (VK_CONTROL, control_scan_code, 0, 0);
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1502 keybd_event (vk_break_code, break_scan_code,
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1503 (vk_break_code == 'C' ? 0 : KEYEVENTF_EXTENDEDKEY), 0);
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1504 keybd_event (vk_break_code, break_scan_code,
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1505 (vk_break_code == 'C' ? 0 : KEYEVENTF_EXTENDEDKEY)
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1506 | KEYEVENTF_KEYUP, 0);
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1507 keybd_event (VK_CONTROL, control_scan_code,
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1508 KEYEVENTF_KEYUP, 0);
21613
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1509
24671
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1510 /* Sleep for a bit to give time for Emacs frame to respond
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1511 to focus change events (if Emacs was active app). */
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1512 Sleep (100);
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1513
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1514 SetForegroundWindow (foreground_window);
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1515 }
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1516 /* Detach from the foreground and child threads now that
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1517 the foreground switching is over. */
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1518 if (foreground_thread)
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1519 AttachThreadInput (GetCurrentThreadId (),
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1520 foreground_thread, FALSE);
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1521 if (child_thread)
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1522 AttachThreadInput (GetCurrentThreadId (),
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1523 child_thread, FALSE);
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1524 }
65ebab3569e0 (sys_kill): Attach to current foreground thread
Andrew Innes <andrewi@gnu.org>
parents: 24105
diff changeset
1525 }
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1526 /* Ctrl-Break is NT equivalent of SIGINT. */
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1527 else if (!GenerateConsoleCtrlEvent (CTRL_BREAK_EVENT, pid))
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1528 {
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1529 DebPrint (("sys_kill.GenerateConsoleCtrlEvent return %d "
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1530 "for pid %lu\n", GetLastError (), pid));
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1531 errno = EINVAL;
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1532 rc = -1;
21742
b1c3fe58dbbe (sys_kill): Fix indenting.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21613
diff changeset
1533 }
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1534 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1535 else
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1536 {
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1537 if (NILP (Vw32_start_process_share_console) && cp && cp->hwnd)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1538 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1539 #if 1
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1540 if (os_subtype == OS_WIN95)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1541 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1542 /*
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1543 Another possibility is to try terminating the VDM out-right by
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1544 calling the Shell VxD (id 0x17) V86 interface, function #4
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1545 "SHELL_Destroy_VM", ie.
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1546
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1547 mov edx,4
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1548 mov ebx,vm_handle
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1549 call shellapi
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1550
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1551 First need to determine the current VM handle, and then arrange for
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1552 the shellapi call to be made from the system vm (by using
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1553 Switch_VM_and_callback).
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1554
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1555 Could try to invoke DestroyVM through CallVxD.
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1556
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1557 */
21613
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1558 #if 0
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1559 /* On Win95, posting WM_QUIT causes the 16-bit subsystem
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1560 to hang when cmdproxy is used in conjunction with
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1561 command.com for an interactive shell. Posting
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1562 WM_CLOSE pops up a dialog that, when Yes is selected,
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1563 does the same thing. TerminateProcess is also less
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1564 than ideal in that subprocesses tend to stick around
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1565 until the machine is shutdown, but at least it
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1566 doesn't freeze the 16-bit subsystem. */
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1567 PostMessage (cp->hwnd, WM_QUIT, 0xff, 0);
21613
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1568 #endif
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1569 if (!TerminateProcess (proc_hand, 0xff))
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1570 {
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1571 DebPrint (("sys_kill.TerminateProcess returned %d "
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1572 "for pid %lu\n", GetLastError (), pid));
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1573 errno = EINVAL;
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1574 rc = -1;
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1575 }
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1576 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1577 else
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1578 #endif
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1579 PostMessage (cp->hwnd, WM_CLOSE, 0, 0);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1580 }
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16000
diff changeset
1581 /* Kill the process. On W32 this doesn't kill child processes
15351
6deee3a18ba8 (sys_kill): Don't try to terminate a DOS process.
Richard M. Stallman <rms@gnu.org>
parents: 15325
diff changeset
1582 so it doesn't work very well for shells which is why it's not
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1583 used in every case. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1584 else if (!TerminateProcess (proc_hand, 0xff))
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1585 {
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1586 DebPrint (("sys_kill.TerminateProcess returned %d "
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1587 "for pid %lu\n", GetLastError (), pid));
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1588 errno = EINVAL;
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1589 rc = -1;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1590 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1591 }
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1592
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1593 if (need_to_free)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1594 CloseHandle (proc_hand);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1595
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1596 return rc;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1597 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1598
21452
bd9b548fd162 Delete incorrect prototype of report_file_error.
Karl Heuer <kwzh@gnu.org>
parents: 19712
diff changeset
1599 /* extern int report_file_error (char *, Lisp_Object); */
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1600
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1601 /* The following two routines are used to manipulate stdin, stdout, and
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1602 stderr of our child processes.
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1603
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1604 Assuming that in, out, and err are *not* inheritable, we make them
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1605 stdin, stdout, and stderr of the child as follows:
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1606
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1607 - Save the parent's current standard handles.
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1608 - Set the std handles to inheritable duplicates of the ones being passed in.
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1609 (Note that _get_osfhandle() is an io.h procedure that retrieves the
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1610 NT file handle for a crt file descriptor.)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1611 - Spawn the child, which inherits in, out, and err as stdin,
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1612 stdout, and stderr. (see Spawnve)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1613 - Close the std handles passed to the child.
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1614 - Reset the parent's standard handles to the saved handles.
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1615 (see reset_standard_handles)
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1616 We assume that the caller closes in, out, and err after calling us. */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1617
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1618 void
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1619 prepare_standard_handles (int in, int out, int err, HANDLE handles[3])
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1620 {
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1621 HANDLE parent;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1622 HANDLE newstdin, newstdout, newstderr;
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1623
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1624 parent = GetCurrentProcess ();
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1625
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1626 handles[0] = GetStdHandle (STD_INPUT_HANDLE);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1627 handles[1] = GetStdHandle (STD_OUTPUT_HANDLE);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1628 handles[2] = GetStdHandle (STD_ERROR_HANDLE);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1629
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1630 /* make inheritable copies of the new handles */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1631 if (!DuplicateHandle (parent,
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1632 (HANDLE) _get_osfhandle (in),
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1633 parent,
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1634 &newstdin,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1635 0,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1636 TRUE,
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1637 DUPLICATE_SAME_ACCESS))
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1638 report_file_error ("Duplicating input handle for child", Qnil);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1639
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1640 if (!DuplicateHandle (parent,
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1641 (HANDLE) _get_osfhandle (out),
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1642 parent,
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1643 &newstdout,
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1644 0,
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1645 TRUE,
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1646 DUPLICATE_SAME_ACCESS))
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1647 report_file_error ("Duplicating output handle for child", Qnil);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1648
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1649 if (!DuplicateHandle (parent,
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1650 (HANDLE) _get_osfhandle (err),
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1651 parent,
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1652 &newstderr,
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1653 0,
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1654 TRUE,
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1655 DUPLICATE_SAME_ACCESS))
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1656 report_file_error ("Duplicating error handle for child", Qnil);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1657
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1658 /* and store them as our std handles */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1659 if (!SetStdHandle (STD_INPUT_HANDLE, newstdin))
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1660 report_file_error ("Changing stdin handle", Qnil);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
1661
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1662 if (!SetStdHandle (STD_OUTPUT_HANDLE, newstdout))
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1663 report_file_error ("Changing stdout handle", Qnil);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1664
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1665 if (!SetStdHandle (STD_ERROR_HANDLE, newstderr))
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1666 report_file_error ("Changing stderr handle", Qnil);
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1667 }
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1668
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1669 void
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1670 reset_standard_handles (int in, int out, int err, HANDLE handles[3])
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1671 {
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1672 /* close the duplicated handles passed to the child */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1673 CloseHandle (GetStdHandle (STD_INPUT_HANDLE));
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1674 CloseHandle (GetStdHandle (STD_OUTPUT_HANDLE));
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1675 CloseHandle (GetStdHandle (STD_ERROR_HANDLE));
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1676
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1677 /* now restore parent's saved std handles */
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1678 SetStdHandle (STD_INPUT_HANDLE, handles[0]);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1679 SetStdHandle (STD_OUTPUT_HANDLE, handles[1]);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1680 SetStdHandle (STD_ERROR_HANDLE, handles[2]);
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1681 }
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
1682
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1683 void
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1684 set_process_dir (char * dir)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1685 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1686 process_dir = dir;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1687 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1688
15356
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1689 #ifdef HAVE_SOCKETS
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1690
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1691 /* To avoid problems with winsock implementations that work over dial-up
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1692 connections causing or requiring a connection to exist while Emacs is
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1693 running, Emacs no longer automatically loads winsock on startup if it
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1694 is present. Instead, it will be loaded when open-network-stream is
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1695 first called.
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1696
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1697 To allow full control over when winsock is loaded, we provide these
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1698 two functions to dynamically load and unload winsock. This allows
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1699 dial-up users to only be connected when they actually need to use
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1700 socket services. */
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1701
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1702 /* From nt.c */
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1703 extern HANDLE winsock_lib;
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1704 extern BOOL term_winsock (void);
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1705 extern BOOL init_winsock (int load_now);
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1706
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1707 extern Lisp_Object Vsystem_name;
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1708
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16000
diff changeset
1709 DEFUN ("w32-has-winsock", Fw32_has_winsock, Sw32_has_winsock, 0, 1, 0,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1710 doc: /* Test for presence of the Windows socket library `winsock'.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1711 Returns non-nil if winsock support is present, nil otherwise.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1712
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1713 If the optional argument LOAD-NOW is non-nil, the winsock library is
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1714 also loaded immediately if not already loaded. If winsock is loaded,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1715 the winsock local hostname is returned (since this may be different from
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1716 the value of `system-name' and should supplant it), otherwise t is
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1717 returned to indicate winsock support is present. */)
15356
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1718 (load_now)
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1719 Lisp_Object load_now;
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1720 {
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1721 int have_winsock;
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1722
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1723 have_winsock = init_winsock (!NILP (load_now));
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1724 if (have_winsock)
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1725 {
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1726 if (winsock_lib != NULL)
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1727 {
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1728 /* Return new value for system-name. The best way to do this
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1729 is to call init_system_name, saving and restoring the
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1730 original value to avoid side-effects. */
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1731 Lisp_Object orig_hostname = Vsystem_name;
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1732 Lisp_Object hostname;
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1733
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1734 init_system_name ();
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1735 hostname = Vsystem_name;
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1736 Vsystem_name = orig_hostname;
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1737 return hostname;
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1738 }
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1739 return Qt;
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1740 }
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1741 return Qnil;
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1742 }
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1743
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16000
diff changeset
1744 DEFUN ("w32-unload-winsock", Fw32_unload_winsock, Sw32_unload_winsock,
15356
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1745 0, 0, 0,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1746 doc: /* Unload the Windows socket library `winsock' if loaded.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1747 This is provided to allow dial-up socket connections to be disconnected
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1748 when no longer needed. Returns nil without unloading winsock if any
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1749 socket connections still exist. */)
15356
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1750 ()
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1751 {
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1752 return term_winsock () ? Qt : Qnil;
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1753 }
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1754
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1755 #endif /* HAVE_SOCKETS */
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
1756
15201
43551ec4b69d (Vwin32_quote_process_args): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15145
diff changeset
1757
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1758 /* Some miscellaneous functions that are Windows specific, but not GUI
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1759 specific (ie. are applicable in terminal or batch mode as well). */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1760
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1761 /* lifted from fileio.c */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1762 #define CORRECT_DIR_SEPS(s) \
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1763 do { if ('/' == DIRECTORY_SEP) dostounix_filename (s); \
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1764 else unixtodos_filename (s); \
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1765 } while (0)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1766
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1767 DEFUN ("w32-short-file-name", Fw32_short_file_name, Sw32_short_file_name, 1, 1, 0,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1768 doc: /* Return the short file name version (8.3) of the full path of FILENAME.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1769 If FILENAME does not exist, return nil.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1770 All path elements in FILENAME are converted to their short names. */)
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1771 (filename)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1772 Lisp_Object filename;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1773 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1774 char shortname[MAX_PATH];
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1775
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39812
diff changeset
1776 CHECK_STRING (filename);
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1777
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1778 /* first expand it. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1779 filename = Fexpand_file_name (filename, Qnil);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1780
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1781 /* luckily, this returns the short version of each element in the path. */
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45089
diff changeset
1782 if (GetShortPathName (SDATA (filename), shortname, MAX_PATH) == 0)
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1783 return Qnil;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1784
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1785 CORRECT_DIR_SEPS (shortname);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1786
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1787 return build_string (shortname);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1788 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1789
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1790
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1791 DEFUN ("w32-long-file-name", Fw32_long_file_name, Sw32_long_file_name,
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1792 1, 1, 0,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1793 doc: /* Return the long file name version of the full path of FILENAME.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1794 If FILENAME does not exist, return nil.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1795 All path elements in FILENAME are converted to their long names. */)
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1796 (filename)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1797 Lisp_Object filename;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1798 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1799 char longname[ MAX_PATH ];
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1800
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39812
diff changeset
1801 CHECK_STRING (filename);
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1802
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1803 /* first expand it. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1804 filename = Fexpand_file_name (filename, Qnil);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1805
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45089
diff changeset
1806 if (!w32_get_long_filename (SDATA (filename), longname, MAX_PATH))
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1807 return Qnil;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1808
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1809 CORRECT_DIR_SEPS (longname);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1810
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1811 return build_string (longname);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1812 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1813
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1814 DEFUN ("w32-set-process-priority", Fw32_set_process_priority,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1815 Sw32_set_process_priority, 2, 2, 0,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1816 doc: /* Set the priority of PROCESS to PRIORITY.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1817 If PROCESS is nil, the priority of Emacs is changed, otherwise the
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1818 priority of the process whose pid is PROCESS is changed.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1819 PRIORITY should be one of the symbols high, normal, or low;
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1820 any other symbol will be interpreted as normal.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1821
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1822 If successful, the return value is t, otherwise nil. */)
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1823 (process, priority)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1824 Lisp_Object process, priority;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1825 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1826 HANDLE proc_handle = GetCurrentProcess ();
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1827 DWORD priority_class = NORMAL_PRIORITY_CLASS;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1828 Lisp_Object result = Qnil;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1829
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39812
diff changeset
1830 CHECK_SYMBOL (priority);
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1831
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1832 if (!NILP (process))
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1833 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1834 DWORD pid;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1835 child_process *cp;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1836
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39812
diff changeset
1837 CHECK_NUMBER (process);
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1838
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1839 /* Allow pid to be an internally generated one, or one obtained
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1840 externally. This is necessary because real pids on Win95 are
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1841 negative. */
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1842
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1843 pid = XINT (process);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1844 cp = find_child_pid (pid);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1845 if (cp != NULL)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1846 pid = cp->procinfo.dwProcessId;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1847
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1848 proc_handle = OpenProcess (PROCESS_SET_INFORMATION, FALSE, pid);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1849 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1850
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1851 if (EQ (priority, Qhigh))
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1852 priority_class = HIGH_PRIORITY_CLASS;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1853 else if (EQ (priority, Qlow))
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1854 priority_class = IDLE_PRIORITY_CLASS;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1855
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1856 if (proc_handle != NULL)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1857 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1858 if (SetPriorityClass (proc_handle, priority_class))
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1859 result = Qt;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1860 if (!NILP (process))
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1861 CloseHandle (proc_handle);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1862 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1863
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1864 return result;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1865 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1866
73091
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1867 #ifdef HAVE_LANGINFO_CODESET
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1868 /* Emulation of nl_langinfo. Used in fns.c:Flocale_info. */
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1869 char *nl_langinfo (nl_item item)
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1870 {
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1871 /* Conversion of Posix item numbers to their Windows equivalents. */
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1872 static const LCTYPE w32item[] = {
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1873 LOCALE_IDEFAULTANSICODEPAGE,
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1874 LOCALE_SDAYNAME1, LOCALE_SDAYNAME2, LOCALE_SDAYNAME3,
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1875 LOCALE_SDAYNAME4, LOCALE_SDAYNAME5, LOCALE_SDAYNAME6, LOCALE_SDAYNAME7,
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1876 LOCALE_SMONTHNAME1, LOCALE_SMONTHNAME2, LOCALE_SMONTHNAME3,
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1877 LOCALE_SMONTHNAME4, LOCALE_SMONTHNAME5, LOCALE_SMONTHNAME6,
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1878 LOCALE_SMONTHNAME7, LOCALE_SMONTHNAME8, LOCALE_SMONTHNAME9,
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1879 LOCALE_SMONTHNAME10, LOCALE_SMONTHNAME11, LOCALE_SMONTHNAME12
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1880 };
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1881
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1882 static char *nl_langinfo_buf = NULL;
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1883 static int nl_langinfo_len = 0;
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1884
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1885 if (nl_langinfo_len <= 0)
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1886 nl_langinfo_buf = xmalloc (nl_langinfo_len = 1);
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1887
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1888 if (item < 0 || item >= _NL_NUM)
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1889 nl_langinfo_buf[0] = 0;
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1890 else
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1891 {
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1892 LCID cloc = GetThreadLocale ();
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1893 int need_len = GetLocaleInfo (cloc, w32item[item] | LOCALE_USE_CP_ACP,
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1894 NULL, 0);
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1895
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1896 if (need_len <= 0)
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1897 nl_langinfo_buf[0] = 0;
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1898 else
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1899 {
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1900 if (item == CODESET)
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1901 {
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1902 need_len += 2; /* for the "cp" prefix */
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1903 if (need_len < 8) /* for the case we call GetACP */
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1904 need_len = 8;
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1905 }
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1906 if (nl_langinfo_len <= need_len)
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1907 nl_langinfo_buf = xrealloc (nl_langinfo_buf,
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1908 nl_langinfo_len = need_len);
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1909 if (!GetLocaleInfo (cloc, w32item[item] | LOCALE_USE_CP_ACP,
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1910 nl_langinfo_buf, nl_langinfo_len))
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1911 nl_langinfo_buf[0] = 0;
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1912 else if (item == CODESET)
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1913 {
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1914 if (strcmp (nl_langinfo_buf, "0") == 0 /* CP_ACP */
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1915 || strcmp (nl_langinfo_buf, "1") == 0) /* CP_OEMCP */
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1916 sprintf (nl_langinfo_buf, "cp%u", GetACP ());
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1917 else
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1918 {
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1919 memmove (nl_langinfo_buf + 2, nl_langinfo_buf,
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1920 strlen (nl_langinfo_buf) + 1);
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1921 nl_langinfo_buf[0] = 'c';
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1922 nl_langinfo_buf[1] = 'p';
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1923 }
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1924 }
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1925 }
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1926 }
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1927 return nl_langinfo_buf;
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1928 }
fd4e9d08fa35 (nl_langinfo): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 71901
diff changeset
1929 #endif /* HAVE_LANGINFO_CODESET */
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1930
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1931 DEFUN ("w32-get-locale-info", Fw32_get_locale_info,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1932 Sw32_get_locale_info, 1, 2, 0,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1933 doc: /* Return information about the Windows locale LCID.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1934 By default, return a three letter locale code which encodes the default
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1935 language as the first two characters, and the country or regionial variant
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1936 as the third letter. For example, ENU refers to `English (United States)',
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1937 while ENC means `English (Canadian)'.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1938
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1939 If the optional argument LONGFORM is t, the long form of the locale
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1940 name is returned, e.g. `English (United States)' instead; if LONGFORM
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1941 is a number, it is interpreted as an LCTYPE constant and the corresponding
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1942 locale information is returned.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1943
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1944 If LCID (a 16-bit number) is not a valid locale, the result is nil. */)
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1945 (lcid, longform)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1946 Lisp_Object lcid, longform;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1947 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1948 int got_abbrev;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1949 int got_full;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1950 char abbrev_name[32] = { 0 };
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1951 char full_name[256] = { 0 };
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1952
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39812
diff changeset
1953 CHECK_NUMBER (lcid);
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1954
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1955 if (!IsValidLocale (XINT (lcid), LCID_SUPPORTED))
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1956 return Qnil;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1957
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1958 if (NILP (longform))
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1959 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1960 got_abbrev = GetLocaleInfo (XINT (lcid),
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1961 LOCALE_SABBREVLANGNAME | LOCALE_USE_CP_ACP,
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1962 abbrev_name, sizeof (abbrev_name));
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1963 if (got_abbrev)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1964 return build_string (abbrev_name);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1965 }
23678
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
1966 else if (EQ (longform, Qt))
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1967 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1968 got_full = GetLocaleInfo (XINT (lcid),
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1969 LOCALE_SLANGUAGE | LOCALE_USE_CP_ACP,
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1970 full_name, sizeof (full_name));
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1971 if (got_full)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1972 return build_string (full_name);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1973 }
23678
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
1974 else if (NUMBERP (longform))
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
1975 {
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
1976 got_full = GetLocaleInfo (XINT (lcid),
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
1977 XINT (longform),
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
1978 full_name, sizeof (full_name));
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
1979 if (got_full)
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
1980 return make_unibyte_string (full_name, got_full);
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
1981 }
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1982
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1983 return Qnil;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1984 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1985
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1986
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1987 DEFUN ("w32-get-current-locale-id", Fw32_get_current_locale_id,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1988 Sw32_get_current_locale_id, 0, 0, 0,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1989 doc: /* Return Windows locale id for current locale setting.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1990 This is a numerical value; use `w32-get-locale-info' to convert to a
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
1991 human-readable form. */)
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1992 ()
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1993 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1994 return make_number (GetThreadLocale ());
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1995 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1996
21613
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1997 DWORD int_from_hex (char * s)
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1998 {
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
1999 DWORD val = 0;
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2000 static char hex[] = "0123456789abcdefABCDEF";
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2001 char * p;
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2002
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2003 while (*s && (p = strchr(hex, *s)) != NULL)
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2004 {
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2005 unsigned digit = p - hex;
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2006 if (digit > 15)
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2007 digit -= 6;
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2008 val = val * 16 + digit;
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2009 s++;
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2010 }
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2011 return val;
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2012 }
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2013
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2014 /* We need to build a global list, since the EnumSystemLocale callback
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2015 function isn't given a context pointer. */
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2016 Lisp_Object Vw32_valid_locale_ids;
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2017
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2018 BOOL CALLBACK enum_locale_fn (LPTSTR localeNum)
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2019 {
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2020 DWORD id = int_from_hex (localeNum);
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2021 Vw32_valid_locale_ids = Fcons (make_number (id), Vw32_valid_locale_ids);
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2022 return TRUE;
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2023 }
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2024
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2025 DEFUN ("w32-get-valid-locale-ids", Fw32_get_valid_locale_ids,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2026 Sw32_get_valid_locale_ids, 0, 0, 0,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2027 doc: /* Return list of all valid Windows locale ids.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2028 Each id is a numerical value; use `w32-get-locale-info' to convert to a
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2029 human-readable form. */)
21613
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2030 ()
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2031 {
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2032 Vw32_valid_locale_ids = Qnil;
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2033
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2034 EnumSystemLocales (enum_locale_fn, LCID_SUPPORTED);
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2035
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2036 Vw32_valid_locale_ids = Fnreverse (Vw32_valid_locale_ids);
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2037 return Vw32_valid_locale_ids;
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2038 }
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2039
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2040
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2041 DEFUN ("w32-get-default-locale-id", Fw32_get_default_locale_id, Sw32_get_default_locale_id, 0, 1, 0,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2042 doc: /* Return Windows locale id for default locale setting.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2043 By default, the system default locale setting is returned; if the optional
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2044 parameter USERP is non-nil, the user default locale setting is returned.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2045 This is a numerical value; use `w32-get-locale-info' to convert to a
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2046 human-readable form. */)
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2047 (userp)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2048 Lisp_Object userp;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2049 {
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2050 if (NILP (userp))
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2051 return make_number (GetSystemDefaultLCID ());
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2052 return make_number (GetUserDefaultLCID ());
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2053 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2054
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
2055
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2056 DEFUN ("w32-set-current-locale", Fw32_set_current_locale, Sw32_set_current_locale, 1, 1, 0,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2057 doc: /* Make Windows locale LCID be the current locale setting for Emacs.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2058 If successful, the new locale id is returned, otherwise nil. */)
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2059 (lcid)
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2060 Lisp_Object lcid;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2061 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39812
diff changeset
2062 CHECK_NUMBER (lcid);
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2063
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2064 if (!IsValidLocale (XINT (lcid), LCID_SUPPORTED))
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2065 return Qnil;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2066
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2067 if (!SetThreadLocale (XINT (lcid)))
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2068 return Qnil;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2069
21613
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2070 /* Need to set input thread locale if present. */
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2071 if (dwWindowsThreadId)
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2072 /* Reply is not needed. */
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2073 PostThreadMessage (dwWindowsThreadId, WM_EMACS_SETLOCALE, XINT (lcid), 0);
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2074
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2075 return make_number (GetThreadLocale ());
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2076 }
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2077
23678
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2078
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2079 /* We need to build a global list, since the EnumCodePages callback
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2080 function isn't given a context pointer. */
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2081 Lisp_Object Vw32_valid_codepages;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2082
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2083 BOOL CALLBACK enum_codepage_fn (LPTSTR codepageNum)
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2084 {
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2085 DWORD id = atoi (codepageNum);
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2086 Vw32_valid_codepages = Fcons (make_number (id), Vw32_valid_codepages);
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2087 return TRUE;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2088 }
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2089
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2090 DEFUN ("w32-get-valid-codepages", Fw32_get_valid_codepages,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2091 Sw32_get_valid_codepages, 0, 0, 0,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2092 doc: /* Return list of all valid Windows codepages. */)
23678
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2093 ()
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2094 {
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2095 Vw32_valid_codepages = Qnil;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2096
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2097 EnumSystemCodePages (enum_codepage_fn, CP_SUPPORTED);
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2098
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2099 Vw32_valid_codepages = Fnreverse (Vw32_valid_codepages);
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2100 return Vw32_valid_codepages;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2101 }
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2102
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2103
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2104 DEFUN ("w32-get-console-codepage", Fw32_get_console_codepage,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2105 Sw32_get_console_codepage, 0, 0, 0,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2106 doc: /* Return current Windows codepage for console input. */)
23678
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2107 ()
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2108 {
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2109 return make_number (GetConsoleCP ());
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2110 }
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2111
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
2112
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2113 DEFUN ("w32-set-console-codepage", Fw32_set_console_codepage,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2114 Sw32_set_console_codepage, 1, 1, 0,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2115 doc: /* Make Windows codepage CP be the current codepage setting for Emacs.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2116 The codepage setting affects keyboard input and display in tty mode.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2117 If successful, the new CP is returned, otherwise nil. */)
23678
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2118 (cp)
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2119 Lisp_Object cp;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2120 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39812
diff changeset
2121 CHECK_NUMBER (cp);
23678
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2122
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2123 if (!IsValidCodePage (XINT (cp)))
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2124 return Qnil;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2125
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2126 if (!SetConsoleCP (XINT (cp)))
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2127 return Qnil;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2128
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2129 return make_number (GetConsoleCP ());
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2130 }
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2131
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2132
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2133 DEFUN ("w32-get-console-output-codepage", Fw32_get_console_output_codepage,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2134 Sw32_get_console_output_codepage, 0, 0, 0,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2135 doc: /* Return current Windows codepage for console output. */)
23678
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2136 ()
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2137 {
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2138 return make_number (GetConsoleOutputCP ());
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2139 }
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2140
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
2141
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2142 DEFUN ("w32-set-console-output-codepage", Fw32_set_console_output_codepage,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2143 Sw32_set_console_output_codepage, 1, 1, 0,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2144 doc: /* Make Windows codepage CP be the current codepage setting for Emacs.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2145 The codepage setting affects keyboard input and display in tty mode.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2146 If successful, the new CP is returned, otherwise nil. */)
23678
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2147 (cp)
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2148 Lisp_Object cp;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2149 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39812
diff changeset
2150 CHECK_NUMBER (cp);
23678
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2151
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2152 if (!IsValidCodePage (XINT (cp)))
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2153 return Qnil;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2154
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2155 if (!SetConsoleOutputCP (XINT (cp)))
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2156 return Qnil;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2157
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2158 return make_number (GetConsoleOutputCP ());
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2159 }
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2160
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2161
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2162 DEFUN ("w32-get-codepage-charset", Fw32_get_codepage_charset,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2163 Sw32_get_codepage_charset, 1, 1, 0,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2164 doc: /* Return charset of codepage CP.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2165 Returns nil if the codepage is not valid. */)
23678
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2166 (cp)
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2167 Lisp_Object cp;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2168 {
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2169 CHARSETINFO info;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2170
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39812
diff changeset
2171 CHECK_NUMBER (cp);
23678
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2172
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2173 if (!IsValidCodePage (XINT (cp)))
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2174 return Qnil;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2175
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2176 if (TranslateCharsetInfo ((DWORD *) XINT (cp), &info, TCI_SRCCODEPAGE))
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2177 return make_number (info.ciCharset);
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2178
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2179 return Qnil;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2180 }
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2181
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2182
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2183 DEFUN ("w32-get-valid-keyboard-layouts", Fw32_get_valid_keyboard_layouts,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2184 Sw32_get_valid_keyboard_layouts, 0, 0, 0,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2185 doc: /* Return list of Windows keyboard languages and layouts.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2186 The return value is a list of pairs of language id and layout id. */)
23678
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2187 ()
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2188 {
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2189 int num_layouts = GetKeyboardLayoutList (0, NULL);
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2190 HKL * layouts = (HKL *) alloca (num_layouts * sizeof (HKL));
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2191 Lisp_Object obj = Qnil;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2192
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2193 if (GetKeyboardLayoutList (num_layouts, layouts) == num_layouts)
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2194 {
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2195 while (--num_layouts >= 0)
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2196 {
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2197 DWORD kl = (DWORD) layouts[num_layouts];
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2198
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2199 obj = Fcons (Fcons (make_number (kl & 0xffff),
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2200 make_number ((kl >> 16) & 0xffff)),
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2201 obj);
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2202 }
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2203 }
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2204
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2205 return obj;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2206 }
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2207
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2208
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2209 DEFUN ("w32-get-keyboard-layout", Fw32_get_keyboard_layout,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2210 Sw32_get_keyboard_layout, 0, 0, 0,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2211 doc: /* Return current Windows keyboard language and layout.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2212 The return value is the cons of the language id and the layout id. */)
23678
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2213 ()
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2214 {
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2215 DWORD kl = (DWORD) GetKeyboardLayout (dwWindowsThreadId);
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2216
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2217 return Fcons (make_number (kl & 0xffff),
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2218 make_number ((kl >> 16) & 0xffff));
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2219 }
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2220
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
2221
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2222 DEFUN ("w32-set-keyboard-layout", Fw32_set_keyboard_layout,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2223 Sw32_set_keyboard_layout, 1, 1, 0,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2224 doc: /* Make LAYOUT be the current keyboard layout for Emacs.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2225 The keyboard layout setting affects interpretation of keyboard input.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2226 If successful, the new layout id is returned, otherwise nil. */)
23678
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2227 (layout)
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2228 Lisp_Object layout;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2229 {
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2230 DWORD kl;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2231
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39812
diff changeset
2232 CHECK_CONS (layout);
40752
8b5deb3bca03 (Fw32_set_keyboard_layout): Use CHECK_NUMBER_CAR and
Andrew Innes <andrewi@gnu.org>
parents: 40656
diff changeset
2233 CHECK_NUMBER_CAR (layout);
8b5deb3bca03 (Fw32_set_keyboard_layout): Use CHECK_NUMBER_CAR and
Andrew Innes <andrewi@gnu.org>
parents: 40656
diff changeset
2234 CHECK_NUMBER_CDR (layout);
23678
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2235
25646
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 24915
diff changeset
2236 kl = (XINT (XCAR (layout)) & 0xffff)
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 24915
diff changeset
2237 | (XINT (XCDR (layout)) << 16);
23678
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2238
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2239 /* Synchronize layout with input thread. */
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2240 if (dwWindowsThreadId)
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2241 {
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2242 if (PostThreadMessage (dwWindowsThreadId, WM_EMACS_SETKEYBOARDLAYOUT,
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2243 (WPARAM) kl, 0))
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2244 {
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2245 MSG msg;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2246 GetMessage (&msg, NULL, WM_EMACS_DONE, WM_EMACS_DONE);
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2247
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2248 if (msg.wParam == 0)
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2249 return Qnil;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2250 }
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2251 }
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2252 else if (!ActivateKeyboardLayout ((HKL) kl, 0))
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2253 return Qnil;
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2254
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2255 return Fw32_get_keyboard_layout ();
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2256 }
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2257
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2258
15201
43551ec4b69d (Vwin32_quote_process_args): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15145
diff changeset
2259 syms_of_ntproc ()
43551ec4b69d (Vwin32_quote_process_args): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15145
diff changeset
2260 {
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2261 Qhigh = intern ("high");
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2262 Qlow = intern ("low");
64363
71c7519df9b7 (syms_of_ntproc): staticpro Qhigh, Qlow,
Eli Zaretskii <eliz@gnu.org>
parents: 64084
diff changeset
2263 staticpro (&Qhigh);
71c7519df9b7 (syms_of_ntproc): staticpro Qhigh, Qlow,
Eli Zaretskii <eliz@gnu.org>
parents: 64084
diff changeset
2264 staticpro (&Qlow);
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2265
15356
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
2266 #ifdef HAVE_SOCKETS
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16000
diff changeset
2267 defsubr (&Sw32_has_winsock);
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16000
diff changeset
2268 defsubr (&Sw32_unload_winsock);
15356
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
2269 #endif
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2270 defsubr (&Sw32_short_file_name);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2271 defsubr (&Sw32_long_file_name);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2272 defsubr (&Sw32_set_process_priority);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2273 defsubr (&Sw32_get_locale_info);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2274 defsubr (&Sw32_get_current_locale_id);
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2275 defsubr (&Sw32_get_default_locale_id);
21613
fe4f5bfae371 (w32_executable_type): Properly cast dos_header when
Geoff Voelker <voelker@cs.washington.edu>
parents: 21452
diff changeset
2276 defsubr (&Sw32_get_valid_locale_ids);
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2277 defsubr (&Sw32_set_current_locale);
15356
1a917c5d944c (Fwin32_has_winsock, Fwin32_unload_winsock) [HAVE_SOCKETS]: New functions.
Richard M. Stallman <rms@gnu.org>
parents: 15351
diff changeset
2278
23678
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2279 defsubr (&Sw32_get_console_codepage);
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2280 defsubr (&Sw32_set_console_codepage);
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2281 defsubr (&Sw32_get_console_output_codepage);
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2282 defsubr (&Sw32_set_console_output_codepage);
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2283 defsubr (&Sw32_get_valid_codepages);
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2284 defsubr (&Sw32_get_codepage_charset);
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2285
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2286 defsubr (&Sw32_get_valid_keyboard_layouts);
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2287 defsubr (&Sw32_get_keyboard_layout);
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2288 defsubr (&Sw32_set_keyboard_layout);
b2480e274f42 (sys_kill): Set extended key flag when faking
Geoff Voelker <voelker@cs.washington.edu>
parents: 22298
diff changeset
2289
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16000
diff changeset
2290 DEFVAR_LISP ("w32-quote-process-args", &Vw32_quote_process_args,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2291 doc: /* Non-nil enables quoting of process arguments to ensure correct parsing.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2292 Because Windows does not directly pass argv arrays to child processes,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2293 programs have to reconstruct the argv array by parsing the command
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2294 line string. For an argument to contain a space, it must be enclosed
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2295 in double quotes or it will be parsed as multiple arguments.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2296
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2297 If the value is a character, that character will be used to escape any
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2298 quote characters that appear, otherwise a suitable escape character
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2299 will be chosen based on the type of the program. */);
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2300 Vw32_quote_process_args = Qt;
15247
874a66251747 (Vwin32_pipe_read_delay): New var.
Karl Heuer <kwzh@gnu.org>
parents: 15201
diff changeset
2301
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16000
diff changeset
2302 DEFVAR_LISP ("w32-start-process-show-window",
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16000
diff changeset
2303 &Vw32_start_process_show_window,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2304 doc: /* When nil, new child processes hide their windows.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2305 When non-nil, they show their window in the method of their choice.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2306 This variable doesn't affect GUI applications, which will never be hidden. */);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16000
diff changeset
2307 Vw32_start_process_show_window = Qnil;
16000
b5ecd5022991 (Vwin32_start_process_show_window): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15419
diff changeset
2308
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2309 DEFVAR_LISP ("w32-start-process-share-console",
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2310 &Vw32_start_process_share_console,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2311 doc: /* When nil, new child processes are given a new console.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2312 When non-nil, they share the Emacs console; this has the limitation of
43548
c185eb97b9ee (syms_of_ntproc): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 42469
diff changeset
2313 allowing only one DOS subprocess to run at a time (whether started directly
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2314 or indirectly by Emacs), and preventing Emacs from cleanly terminating the
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2315 subprocess group, but may allow Emacs to interrupt a subprocess that doesn't
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2316 otherwise respond to interrupts from Emacs. */);
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2317 Vw32_start_process_share_console = Qnil;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2318
23949
9f8417cca07b (Vw32_start_process_inherit_error_mode): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 23678
diff changeset
2319 DEFVAR_LISP ("w32-start-process-inherit-error-mode",
9f8417cca07b (Vw32_start_process_inherit_error_mode): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 23678
diff changeset
2320 &Vw32_start_process_inherit_error_mode,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2321 doc: /* When nil, new child processes revert to the default error mode.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2322 When non-nil, they inherit their error mode setting from Emacs, which stops
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2323 them blocking when trying to access unmounted drives etc. */);
23949
9f8417cca07b (Vw32_start_process_inherit_error_mode): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 23678
diff changeset
2324 Vw32_start_process_inherit_error_mode = Qt;
9f8417cca07b (Vw32_start_process_inherit_error_mode): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 23678
diff changeset
2325
55642
d69e0fb91340 * w32proc.c (w32_pipe_read_delay): Rename from Vw32_pipe_read_delay
Jason Rumney <jasonr@gnu.org>
parents: 52401
diff changeset
2326 DEFVAR_INT ("w32-pipe-read-delay", &w32_pipe_read_delay,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2327 doc: /* Forced delay before reading subprocess output.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2328 This is done to improve the buffering of subprocess output, by
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2329 avoiding the inefficiency of frequently reading small amounts of data.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2330
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2331 If positive, the value is the number of milliseconds to sleep before
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2332 reading the subprocess output. If negative, the magnitude is the number
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2333 of time slices to wait (effectively boosting the priority of the child
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2334 process temporarily). A value of zero disables waiting entirely. */);
55642
d69e0fb91340 * w32proc.c (w32_pipe_read_delay): Rename from Vw32_pipe_read_delay
Jason Rumney <jasonr@gnu.org>
parents: 52401
diff changeset
2335 w32_pipe_read_delay = 50;
15325
5c8e4ef3137c (Vwin32_downcase_file_names): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15247
diff changeset
2336
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16000
diff changeset
2337 DEFVAR_LISP ("w32-downcase-file-names", &Vw32_downcase_file_names,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2338 doc: /* Non-nil means convert all-upper case file names to lower case.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2339 This applies when performing completions and file name expansion.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2340 Note that the value of this setting also affects remote file names,
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2341 so you probably don't want to set to non-nil if you use case-sensitive
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46750
diff changeset
2342 filesystems via ange-ftp. */);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16000
diff changeset
2343 Vw32_downcase_file_names = Qnil;
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2344
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2345 #if 0
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2346 DEFVAR_LISP ("w32-generate-fake-inodes", &Vw32_generate_fake_inodes,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2347 doc: /* Non-nil means attempt to fake realistic inode values.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2348 This works by hashing the truename of files, and should detect
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2349 aliasing between long and short (8.3 DOS) names, but can have
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2350 false positives because of hash collisions. Note that determing
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40752
diff changeset
2351 the truename of a file can be slow. */);
19712
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2352 Vw32_generate_fake_inodes = Qnil;
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2353 #endif
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2354
9a6e50f6b471 Include w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
2355 DEFVAR_LISP ("w32-get-true-file-attributes", &Vw32_get_true_file_attributes,
46748
15a19dbe41bc (syms_of_ntproc): Fix docstring of `w32-get-true-file-attributes'.
Juanma Barranquero <lekktu@gmail.com>
parents: 46370
diff changeset
2356 doc: /* Non-nil means determine accurate link count in `file-attributes'.
15a19dbe41bc (syms_of_ntproc): Fix docstring of `w32-get-true-file-attributes'.
Juanma Barranquero <lekktu@gmail.com>
parents: 46370
diff changeset
2357 Note that this option is only useful for files on NTFS volumes, where hard links
46750
514398573221 Add missing semicolon.
Juanma Barranquero <lekktu@gmail.com>
parents: 46748
diff changeset
2358 are supported. Moreover, it slows down `file-attributes' noticeably. */);
44928
c887ee4e08f3 (syms_of_w32proc): Get true file attributes by default.
Jason Rumney <jasonr@gnu.org>
parents: 43548
diff changeset
2359 Vw32_get_true_file_attributes = Qt;
64363
71c7519df9b7 (syms_of_ntproc): staticpro Qhigh, Qlow,
Eli Zaretskii <eliz@gnu.org>
parents: 64084
diff changeset
2360
71c7519df9b7 (syms_of_ntproc): staticpro Qhigh, Qlow,
Eli Zaretskii <eliz@gnu.org>
parents: 64084
diff changeset
2361 staticpro (&Vw32_valid_locale_ids);
71c7519df9b7 (syms_of_ntproc): staticpro Qhigh, Qlow,
Eli Zaretskii <eliz@gnu.org>
parents: 64084
diff changeset
2362 staticpro (&Vw32_valid_codepages);
15201
43551ec4b69d (Vwin32_quote_process_args): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 15145
diff changeset
2363 }
15145
86a1f426871e Include config.h after CRT headers. Include fcntl.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
2364 /* end of ntproc.c */
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
2365
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
2366 /* arch-tag: 23d3a34c-06d2-48a1-833b-ac7609aa5250
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
2367 (do not change this comment) */