19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
1 /* Proxy shell designed for use with Emacs on Windows 95 and NT.
|
|
75249
|
2 Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005,
|
|
|
3 2006, 2007 Free Software Foundation, Inc.
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
4
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
5 Accepts subset of Unix sh(1) command-line options, for compatability
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
6 with elisp code written for Unix. When possible, executes external
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
7 programs directly (a common use of /bin/sh by Emacs), otherwise
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
8 invokes the user-specified command processor to handle built-in shell
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
9 commands, batch files and interactive mode.
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
10
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
11 The main function is simply to process the "-c string" option in the
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
12 way /bin/sh does, since the standard Windows command shells use the
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
13 convention that everything after "/c" (the Windows equivalent of
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
14 "-c") is the input string.
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
15
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
16 This file is part of GNU Emacs.
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
17
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
18 GNU Emacs is free software; you can redistribute it and/or modify
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
19 it under the terms of the GNU General Public License as published by
|
|
78246
|
20 the Free Software Foundation; either version 3, or (at your option)
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
21 any later version.
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
22
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
23 GNU Emacs is distributed in the hope that it will be useful,
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
24 but WITHOUT ANY WARRANTY; without even the implied warranty of
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
25 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
26 GNU General Public License for more details.
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
27
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
28 You should have received a copy of the GNU General Public License
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
29 along with GNU Emacs; see the file COPYING. If not, write to
|
|
64083
|
30 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
|
31 Boston, MA 02110-1301, USA. */
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
32
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
33 #include <windows.h>
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
34
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
35 #include <stdarg.h> /* va_args */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
36 #include <malloc.h> /* alloca */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
37 #include <stdlib.h> /* getenv */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
38 #include <string.h> /* strlen */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
39
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
40
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
41 /******* Mock C library routines *********************************/
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
42
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
43 /* These routines are used primarily to minimize the executable size. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
44
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
45 #define stdin GetStdHandle (STD_INPUT_HANDLE)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
46 #define stdout GetStdHandle (STD_OUTPUT_HANDLE)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
47 #define stderr GetStdHandle (STD_ERROR_HANDLE)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
48
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
49 int
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
50 vfprintf(HANDLE hnd, char * msg, va_list args)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
51 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
52 DWORD bytes_written;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
53 char buf[1024];
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
54
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
55 wvsprintf (buf, msg, args);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
56 return WriteFile (hnd, buf, strlen (buf), &bytes_written, NULL);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
57 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
58
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
59 int
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
60 fprintf(HANDLE hnd, char * msg, ...)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
61 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
62 va_list args;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
63 int rc;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
64
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
65 va_start (args, msg);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
66 rc = vfprintf (hnd, msg, args);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
67 va_end (args);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
68
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
69 return rc;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
70 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
71
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
72 int
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
73 printf(char * msg, ...)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
74 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
75 va_list args;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
76 int rc;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
77
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
78 va_start (args, msg);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
79 rc = vfprintf (stdout, msg, args);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
80 va_end (args);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
81
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
82 return rc;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
83 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
84
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
85 void
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
86 fail (char * msg, ...)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
87 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
88 va_list args;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
89
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
90 va_start (args, msg);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
91 vfprintf (stderr, msg, args);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
92 va_end (args);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
93
|
|
21598
|
94 exit (-1);
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
95 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
96
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
97 void
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
98 warn (char * msg, ...)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
99 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
100 va_list args;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
101
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
102 va_start (args, msg);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
103 vfprintf (stderr, msg, args);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
104 va_end (args);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
105 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
106
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
107 /******************************************************************/
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
108
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
109 char *
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
110 canon_filename (char *fname)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
111 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
112 char *p = fname;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
113
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
114 while (*p)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
115 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
116 if (*p == '/')
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
117 *p = '\\';
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
118 p++;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
119 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
120
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
121 return fname;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
122 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
123
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
124 char *
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
125 skip_space (char *str)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
126 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
127 while (isspace (*str)) str++;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
128 return str;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
129 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
130
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
131 char *
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
132 skip_nonspace (char *str)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
133 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
134 while (*str && !isspace (*str)) str++;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
135 return str;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
136 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
137
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
138 int escape_char = '\\';
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
139
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
140 /* Get next token from input, advancing pointer. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
141 int
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
142 get_next_token (char * buf, char ** pSrc)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
143 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
144 char * p = *pSrc;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
145 char * o = buf;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
146
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
147 p = skip_space (p);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
148 if (*p == '"')
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
149 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
150 int escape_char_run = 0;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
151
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
152 /* Go through src until an ending quote is found, unescaping
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
153 quotes along the way. If the escape char is not quote, then do
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
154 special handling of multiple escape chars preceding a quote
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
155 char (ie. the reverse of what Emacs does to escape quotes). */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
156 p++;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
157 while (1)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
158 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
159 if (p[0] == escape_char && escape_char != '"')
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
160 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
161 escape_char_run++;
|
|
36858
|
162 p++;
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
163 continue;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
164 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
165 else if (p[0] == '"')
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
166 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
167 while (escape_char_run > 1)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
168 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
169 *o++ = escape_char;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
170 escape_char_run -= 2;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
171 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
172
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
173 if (escape_char_run > 0)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
174 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
175 /* escaped quote */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
176 *o++ = *p++;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
177 escape_char_run = 0;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
178 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
179 else if (p[1] == escape_char && escape_char == '"')
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
180 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
181 /* quote escaped by doubling */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
182 *o++ = *p;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
183 p += 2;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
184 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
185 else
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
186 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
187 /* The ending quote. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
188 *o = '\0';
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
189 /* Leave input pointer after token. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
190 p++;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
191 break;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
192 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
193 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
194 else if (p[0] == '\0')
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
195 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
196 /* End of string, but no ending quote found. We might want to
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
197 flag this as an error, but for now will consider the end as
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
198 the end of the token. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
199 *o = '\0';
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
200 break;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
201 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
202 else
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
203 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
204 *o++ = *p++;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
205 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
206 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
207 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
208 else
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
209 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
210 /* Next token is delimited by whitespace. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
211 char * p1 = skip_nonspace (p);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
212 memcpy (o, p, p1 - p);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
213 o += (p1 - p);
|
|
19718
|
214 *o = '\0';
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
215 p = p1;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
216 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
217
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
218 *pSrc = p;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
219
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
220 return o - buf;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
221 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
222
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
223 /* Search for EXEC file in DIR. If EXEC does not have an extension,
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
224 DIR is searched for EXEC with the standard extensions appended. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
225 int
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
226 search_dir (char *dir, char *exec, int bufsize, char *buffer)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
227 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
228 char *exts[] = {".bat", ".cmd", ".exe", ".com"};
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
229 int n_exts = sizeof (exts) / sizeof (char *);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
230 char *dummy;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
231 int i, rc;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
232
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
233 /* Search the directory for the program. */
|
|
49600
|
234 for (i = 0; i < n_exts; i++)
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
235 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
236 rc = SearchPath (dir, exec, exts[i], bufsize, buffer, &dummy);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
237 if (rc > 0)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
238 return rc;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
239 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
240
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
241 return 0;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
242 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
243
|
|
49600
|
244 /* Return the absolute name of executable file PROG, including
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
245 any file extensions. If an absolute name for PROG cannot be found,
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
246 return NULL. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
247 char *
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
248 make_absolute (char *prog)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
249 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
250 char absname[MAX_PATH];
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
251 char dir[MAX_PATH];
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
252 char curdir[MAX_PATH];
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
253 char *p, *fname;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
254 char *path;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
255 int i;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
256
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
257 /* At least partial absolute path specified; search there. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
258 if ((isalpha (prog[0]) && prog[1] == ':') ||
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
259 (prog[0] == '\\'))
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
260 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
261 /* Split the directory from the filename. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
262 fname = strrchr (prog, '\\');
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
263 if (!fname)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
264 /* Only a drive specifier is given. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
265 fname = prog + 2;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
266 strncpy (dir, prog, fname - prog);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
267 dir[fname - prog] = '\0';
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
268
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
269 /* Search the directory for the program. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
270 if (search_dir (dir, prog, MAX_PATH, absname) > 0)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
271 return strdup (absname);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
272 else
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
273 return NULL;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
274 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
275
|
|
49600
|
276 if (GetCurrentDirectory (MAX_PATH, curdir) <= 0)
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
277 return NULL;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
278
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
279 /* Relative path; search in current dir. */
|
|
49600
|
280 if (strpbrk (prog, "\\"))
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
281 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
282 if (search_dir (curdir, prog, MAX_PATH, absname) > 0)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
283 return strdup (absname);
|
|
49600
|
284 else
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
285 return NULL;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
286 }
|
|
49600
|
287
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
288 /* Just filename; search current directory then PATH. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
289 path = alloca (strlen (getenv ("PATH")) + strlen (curdir) + 2);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
290 strcpy (path, curdir);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
291 strcat (path, ";");
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
292 strcat (path, getenv ("PATH"));
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
293
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
294 while (*path)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
295 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
296 /* Get next directory from path. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
297 p = path;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
298 while (*p && *p != ';') p++;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
299 strncpy (dir, path, p - path);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
300 dir[p - path] = '\0';
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
301
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
302 /* Search the directory for the program. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
303 if (search_dir (dir, prog, MAX_PATH, absname) > 0)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
304 return strdup (absname);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
305
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
306 /* Move to the next directory. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
307 path = p + 1;
|
|
49600
|
308 }
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
309
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
310 return NULL;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
311 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
312
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
313 /*****************************************************************/
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
314
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
315 #if 0
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
316 char ** _argv;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
317 int _argc;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
318
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
319 /* Parse commandline into argv array, allowing proper quoting of args. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
320 void
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
321 setup_argv (void)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
322 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
323 char * cmdline = GetCommandLine ();
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
324 int arg_bytes = 0;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
325
|
|
49600
|
326
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
327 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
328 #endif
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
329
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
330 /* Information about child proc is global, to allow for automatic
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
331 termination when interrupted. At the moment, only one child process
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
332 can be running at any one time. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
333
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
334 PROCESS_INFORMATION child;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
335 int interactive = TRUE;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
336
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
337 BOOL
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
338 console_event_handler (DWORD event)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
339 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
340 switch (event)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
341 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
342 case CTRL_C_EVENT:
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
343 case CTRL_BREAK_EVENT:
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
344 if (!interactive)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
345 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
346 /* Both command.com and cmd.exe have the annoying behaviour of
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
347 prompting "Terminate batch job (y/n)?" when interrupted
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
348 while running a batch file, even if running in
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
349 non-interactive (-c) mode. Try to make up for this
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
350 deficiency by forcibly terminating the subprocess if
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
351 running non-interactively. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
352 if (child.hProcess &&
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
353 WaitForSingleObject (child.hProcess, 500) != WAIT_OBJECT_0)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
354 TerminateProcess (child.hProcess, 0);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
355 exit (STATUS_CONTROL_C_EXIT);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
356 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
357 break;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
358
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
359 #if 0
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
360 default:
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
361 /* CLOSE, LOGOFF and SHUTDOWN events - actually we don't get these
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
362 under Windows 95. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
363 fail ("cmdproxy: received %d event\n", event);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
364 if (child.hProcess)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
365 TerminateProcess (child.hProcess, 0);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
366 #endif
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
367 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
368 return TRUE;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
369 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
370
|
|
21598
|
371 /* Change from normal usage; return value indicates whether spawn
|
|
|
372 succeeded or failed - program return code is returned separately. */
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
373 int
|
|
23947
|
374 spawn (char * progname, char * cmdline, char * dir, int * retcode)
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
375 {
|
|
21598
|
376 BOOL success = FALSE;
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
377 SECURITY_ATTRIBUTES sec_attrs;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
378 STARTUPINFO start;
|
|
21598
|
379 /* In theory, passing NULL for the environment block to CreateProcess
|
|
|
380 is the same as passing the value of GetEnvironmentStrings, but
|
|
|
381 doing this explicitly seems to cure problems running DOS programs
|
|
|
382 in some cases. */
|
|
19718
|
383 char * envblock = GetEnvironmentStrings ();
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
384
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
385 sec_attrs.nLength = sizeof (sec_attrs);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
386 sec_attrs.lpSecurityDescriptor = NULL;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
387 sec_attrs.bInheritHandle = FALSE;
|
|
49600
|
388
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
389 memset (&start, 0, sizeof (start));
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
390 start.cb = sizeof (start);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
391
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
392 if (CreateProcess (progname, cmdline, &sec_attrs, NULL, TRUE,
|
|
23947
|
393 0, envblock, dir, &start, &child))
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
394 {
|
|
21598
|
395 success = TRUE;
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
396 /* wait for completion and pass on return code */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
397 WaitForSingleObject (child.hProcess, INFINITE);
|
|
21598
|
398 if (retcode)
|
|
|
399 GetExitCodeProcess (child.hProcess, (DWORD *)retcode);
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
400 CloseHandle (child.hThread);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
401 CloseHandle (child.hProcess);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
402 child.hProcess = NULL;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
403 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
404
|
|
19718
|
405 FreeEnvironmentStrings (envblock);
|
|
|
406
|
|
21598
|
407 return success;
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
408 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
409
|
|
19718
|
410 /* Return size of current environment block. */
|
|
|
411 int
|
|
|
412 get_env_size ()
|
|
|
413 {
|
|
|
414 char * start = GetEnvironmentStrings ();
|
|
|
415 char * tmp = start;
|
|
|
416
|
|
|
417 while (tmp[0] || tmp[1])
|
|
|
418 ++tmp;
|
|
|
419 FreeEnvironmentStrings (start);
|
|
|
420 return tmp + 2 - start;
|
|
|
421 }
|
|
|
422
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
423 /******* Main program ********************************************/
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
424
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
425 int
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
426 main (int argc, char ** argv)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
427 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
428 int rc;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
429 int need_shell;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
430 char * cmdline;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
431 char * progname;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
432 int envsize;
|
|
19718
|
433 char **pass_through_args;
|
|
|
434 int num_pass_through_args;
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
435 char modname[MAX_PATH];
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
436 char path[MAX_PATH];
|
|
23947
|
437 char dir[MAX_PATH];
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
438
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
439
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
440 interactive = TRUE;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
441
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
442 SetConsoleCtrlHandler ((PHANDLER_ROUTINE) console_event_handler, TRUE);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
443
|
|
23947
|
444 if (!GetCurrentDirectory (sizeof (dir), dir))
|
|
|
445 fail ("error: GetCurrentDirectory failed\n");
|
|
|
446
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
447 /* We serve double duty: we can be called either as a proxy for the
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
448 real shell (that is, because we are defined to be the user shell),
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
449 or in our role as a helper application for running DOS programs.
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
450 In the former case, we interpret the command line options as if we
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
451 were a Unix shell, but in the latter case we simply pass our
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
452 command line to CreateProcess. We know which case we are dealing
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
453 with by whether argv[0] refers to ourself or to some other program.
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
454 (This relies on an arcane feature of CreateProcess, where we can
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
455 specify cmdproxy as the module to run, but specify a different
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
456 program in the command line - the MSVC startup code sets argv[0]
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
457 from the command line.) */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
458
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
459 if (!GetModuleFileName (NULL, modname, sizeof (modname)))
|
|
19718
|
460 fail ("error: GetModuleFileName failed\n");
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
461
|
|
23947
|
462 /* Change directory to location of .exe so startup directory can be
|
|
|
463 deleted. */
|
|
|
464 progname = strrchr (modname, '\\');
|
|
|
465 *progname = '\0';
|
|
|
466 SetCurrentDirectory (modname);
|
|
|
467 *progname = '\\';
|
|
|
468
|
|
78049
|
469 /* Due to problems with interaction between API functions that use "OEM"
|
|
|
470 codepage vs API functions that use the "ANSI" codepage, we need to
|
|
|
471 make things consistent by choosing one and sticking with it. */
|
|
|
472 SetConsoleCP (GetACP());
|
|
|
473 SetConsoleOutputCP (GetACP());
|
|
|
474
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
475 /* Although Emacs always sets argv[0] to an absolute pathname, we
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
476 might get run in other ways as well, so convert argv[0] to an
|
|
24516
|
477 absolute name before comparing to the module name. Don't get
|
|
|
478 caught out by mixed short and long names. */
|
|
|
479 GetShortPathName (modname, modname, sizeof (modname));
|
|
|
480 path[0] = '\0';
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
481 if (!SearchPath (NULL, argv[0], ".exe", sizeof (path), path, &progname)
|
|
24516
|
482 || !GetShortPathName (path, path, sizeof (path))
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
483 || stricmp (modname, path) != 0)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
484 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
485 /* We are being used as a helper to run a DOS app; just pass
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
486 command line to DOS app without change. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
487 /* TODO: fill in progname. */
|
|
23947
|
488 if (spawn (NULL, GetCommandLine (), dir, &rc))
|
|
21598
|
489 return rc;
|
|
|
490 fail ("Could not run %s\n", GetCommandLine ());
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
491 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
492
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
493 /* Process command line. If running interactively (-c or /c not
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
494 specified) then spawn a real command shell, passing it the command
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
495 line arguments.
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
496
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
497 If not running interactively, then attempt to execute the specified
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
498 command directly. If necessary, spawn a real shell to execute the
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
499 command.
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
500
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
501 */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
502
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
503 progname = NULL;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
504 cmdline = NULL;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
505 /* If no args, spawn real shell for interactive use. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
506 need_shell = TRUE;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
507 interactive = TRUE;
|
|
19718
|
508 /* Ask command.com to create an environment block with a reasonable
|
|
|
509 amount of free space. */
|
|
|
510 envsize = get_env_size () + 300;
|
|
|
511 pass_through_args = (char **) alloca (argc * sizeof(char *));
|
|
|
512 num_pass_through_args = 0;
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
513
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
514 while (--argc > 0)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
515 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
516 ++argv;
|
|
19718
|
517 /* Act on switches we recognize (mostly single letter switches,
|
|
|
518 except for -e); all unrecognised switches and extra args are
|
|
|
519 passed on to real shell if used (only really of benefit for
|
|
|
520 interactive use, but allow for batch use as well). Accept / as
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
521 switch char for compatability with cmd.exe. */
|
23374
0110032de8b3
(main): Treat command line options as case-insensitive.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
522 if (((*argv)[0] == '-' || (*argv)[0] == '/') && (*argv)[1] != '\0')
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
523 {
|
23374
0110032de8b3
(main): Treat command line options as case-insensitive.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
524 if (((*argv)[1] == 'c' || (*argv)[1] == 'C') && ((*argv)[2] == '\0'))
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
525 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
526 if (--argc == 0)
|
|
19718
|
527 fail ("error: expecting arg for %s\n", *argv);
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
528 cmdline = *(++argv);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
529 interactive = FALSE;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
530 }
|
23374
0110032de8b3
(main): Treat command line options as case-insensitive.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
531 else if (((*argv)[1] == 'i' || (*argv)[1] == 'I') && ((*argv)[2] == '\0'))
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
532 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
533 if (cmdline)
|
|
19718
|
534 warn ("warning: %s ignored because of -c\n", *argv);
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
535 }
|
|
24555
|
536 else if (((*argv)[1] == 'e' || (*argv)[1] == 'E') && ((*argv)[2] == ':'))
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
537 {
|
|
19718
|
538 int requested_envsize = atoi (*argv + 3);
|
|
|
539 /* Enforce a reasonable minimum size, as above. */
|
|
|
540 if (requested_envsize > envsize)
|
|
|
541 envsize = requested_envsize;
|
|
|
542 /* For sanity, enforce a reasonable maximum. */
|
|
|
543 if (envsize > 32768)
|
|
|
544 envsize = 32768;
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
545 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
546 else
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
547 {
|
|
19718
|
548 /* warn ("warning: unknown option %s ignored", *argv); */
|
|
|
549 pass_through_args[num_pass_through_args++] = *argv;
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
550 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
551 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
552 else
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
553 break;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
554 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
555
|
|
19718
|
556 #if 0
|
|
|
557 /* I think this is probably not useful - cmd.exe ignores extra
|
|
|
558 (non-switch) args in interactive mode, and they cannot be passed on
|
|
|
559 when -c was given. */
|
|
|
560
|
|
|
561 /* Collect any remaining args after (initial) switches. */
|
|
|
562 while (argc-- > 0)
|
|
|
563 {
|
|
|
564 pass_through_args[num_pass_through_args++] = *argv++;
|
|
|
565 }
|
|
|
566 #else
|
|
|
567 /* Probably a mistake for there to be extra args; not fatal. */
|
|
|
568 if (argc > 0)
|
|
21733
|
569 warn ("warning: extra args ignored after '%s'\n", argv[-1]);
|
|
19718
|
570 #endif
|
|
|
571
|
|
|
572 pass_through_args[num_pass_through_args] = NULL;
|
|
|
573
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
574 /* If -c option, determine if we must spawn a real shell, or if we can
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
575 execute the command directly ourself. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
576 if (cmdline)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
577 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
578 /* If no redirection or piping, and if program can be found, then
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
579 run program directly. Otherwise invoke a real shell. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
580
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
581 static char copout_chars[] = "|<>&";
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
582
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
583 if (strpbrk (cmdline, copout_chars) == NULL)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
584 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
585 char *args;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
586
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
587 /* The program name is the first token of cmdline. Since
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
588 filenames cannot legally contain embedded quotes, the value
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
589 of escape_char doesn't matter. */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
590 args = cmdline;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
591 if (!get_next_token (path, &args))
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
592 fail ("error: no program name specified.\n");
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
593
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
594 canon_filename (path);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
595 progname = make_absolute (path);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
596
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
597 /* If we found the program, run it directly (if not found it
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
598 might be an internal shell command, so don't fail). */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
599 if (progname != NULL)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
600 need_shell = FALSE;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
601 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
602 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
603
|
|
21733
|
604 pass_to_shell:
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
605 if (need_shell)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
606 {
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
607 char * p;
|
|
19718
|
608 int extra_arg_space = 0;
|
|
23683
|
609 int run_command_dot_com;
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
610
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
611 progname = getenv ("COMSPEC");
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
612 if (!progname)
|
|
19718
|
613 fail ("error: COMSPEC is not set\n");
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
614
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
615 canon_filename (progname);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
616 progname = make_absolute (progname);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
617
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
618 if (progname == NULL || strchr (progname, '\\') == NULL)
|
|
19718
|
619 fail ("error: the program %s could not be found.\n", getenv ("COMSPEC"));
|
|
|
620
|
|
23683
|
621 /* Need to set environment size when running command.com. */
|
|
|
622 run_command_dot_com =
|
|
|
623 (stricmp (strrchr (progname, '\\'), "command.com") == 0);
|
|
|
624
|
|
19718
|
625 /* Work out how much extra space is required for
|
|
|
626 pass_through_args. */
|
|
|
627 for (argv = pass_through_args; *argv != NULL; ++argv)
|
|
|
628 /* We don't expect to have to quote switches. */
|
|
|
629 extra_arg_space += strlen (*argv) + 2;
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
630
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
631 if (cmdline)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
632 {
|
|
19718
|
633 char * buf;
|
|
|
634
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
635 /* Convert to syntax expected by cmd.exe/command.com for
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
636 running non-interactively. Always quote program name in
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
637 case path contains spaces (fortunately it can't contain
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
638 quotes, since they are illegal in path names). */
|
|
19718
|
639
|
|
|
640 buf = p = alloca (strlen (progname) + extra_arg_space +
|
|
|
641 strlen (cmdline) + 16);
|
|
|
642
|
|
|
643 /* Quote progname in case it contains spaces. */
|
|
|
644 p += wsprintf (p, "\"%s\"", progname);
|
|
|
645
|
|
|
646 /* Include pass_through_args verbatim; these are just switches
|
|
|
647 so should not need quoting. */
|
|
|
648 for (argv = pass_through_args; *argv != NULL; ++argv)
|
|
|
649 p += wsprintf (p, " %s", *argv);
|
|
|
650
|
|
23683
|
651 if (run_command_dot_com)
|
|
21733
|
652 wsprintf(p, " /e:%d /c %s", envsize, cmdline);
|
|
|
653 else
|
|
|
654 wsprintf(p, " /c %s", cmdline);
|
|
19718
|
655 cmdline = buf;
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
656 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
657 else
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
658 {
|
|
23683
|
659 if (run_command_dot_com)
|
|
21733
|
660 {
|
|
|
661 /* Provide dir arg expected by command.com when first
|
|
23683
|
662 started interactively (the "command search path"). To
|
|
21733
|
663 avoid potential problems with spaces in command dir
|
|
|
664 (which cannot be quoted - command.com doesn't like it),
|
|
|
665 we always use the 8.3 form. */
|
|
|
666 GetShortPathName (progname, path, sizeof (path));
|
|
|
667 p = strrchr (path, '\\');
|
|
|
668 /* Trailing slash is acceptable, so always leave it. */
|
|
|
669 *(++p) = '\0';
|
|
|
670 }
|
|
|
671 else
|
|
|
672 path[0] = '\0';
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
673
|
|
19718
|
674 cmdline = p = alloca (strlen (progname) + extra_arg_space +
|
|
|
675 strlen (path) + 13);
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
676
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
677 /* Quote progname in case it contains spaces. */
|
|
19718
|
678 p += wsprintf (p, "\"%s\" %s", progname, path);
|
|
|
679
|
|
|
680 /* Include pass_through_args verbatim; these are just switches
|
|
|
681 so should not need quoting. */
|
|
|
682 for (argv = pass_through_args; *argv != NULL; ++argv)
|
|
|
683 p += wsprintf (p, " %s", *argv);
|
|
|
684
|
|
23683
|
685 if (run_command_dot_com)
|
|
21733
|
686 wsprintf (p, " /e:%d", envsize);
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
687 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
688 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
689
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
690 if (!progname)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
691 fail ("Internal error: program name not defined\n");
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
692
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
693 if (!cmdline)
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
694 cmdline = progname;
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
695
|
|
23947
|
696 if (spawn (progname, cmdline, dir, &rc))
|
|
21598
|
697 return rc;
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
698
|
|
21598
|
699 if (!need_shell)
|
|
|
700 {
|
|
|
701 need_shell = TRUE;
|
|
|
702 goto pass_to_shell;
|
|
|
703 }
|
|
|
704
|
|
|
705 fail ("Could not run %s\n", progname);
|
|
|
706
|
|
|
707 return 0;
|
19236
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
708 }
|
|
52401
|
709
|
|
|
710 /* arch-tag: 88678d93-07ac-4e2f-ad63-d4a740ca69ac
|
|
|
711 (do not change this comment) */
|
