Mercurial > emacs
annotate src/w32.c @ 14121:8df78fb06aef
(using-unix-filesystems):
Don't do anything to write-contents-hooks.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Tue, 09 Jan 1996 23:20:20 +0000 |
parents | de7851688890 |
children | ee40177f6c68 |
rev | line source |
---|---|
9803 | 1 /* Utility and Unix shadow routines for GNU Emacs on Windows NT. |
11384 | 2 Copyright (C) 1994, 1995 Free Software Foundation, Inc. |
9803 | 3 |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify it | |
7 under the terms of the GNU General Public License as published by the | |
11384 | 8 Free Software Foundation; either version 2, or (at your option) any later |
9803 | 9 version. |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, but WITHOUT | |
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for | |
14 more details. | |
15 | |
16 You should have received a copy of the GNU General Public License along | |
17 with GNU Emacs; see the file COPYING. If not, write to the Free Software | |
18 Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
19 | |
20 Geoff Voelker (voelker@cs.washington.edu) 7-29-94 | |
21 */ | |
22 | |
11384 | 23 /* Define stat before including config.h. */ |
24 #include <string.h> | |
25 #include <sys/stat.h> | |
26 int | |
27 nt_stat (char *filename, struct stat *statbuf) | |
28 { | |
29 int r, l = strlen (filename); | |
30 char *str = NULL; | |
31 extern long *xmalloc (); | |
32 extern void xfree (); | |
33 | |
34 /* stat has a bug when passed a name of a directory with a trailing | |
35 backslash (but a trailing forward slash works fine). */ | |
36 if (filename[l - 1] == '\\') | |
37 { | |
38 str = (char *) xmalloc (l + 1); | |
39 strcpy (str, filename); | |
40 str[l - 1] = '/'; | |
41 r = stat (str, statbuf); | |
42 xfree (str); | |
43 return r; | |
44 } | |
45 else | |
46 return stat (filename, statbuf); | |
47 } | |
48 | |
49 /* Place a wrapper around the NT version of ctime. It returns NULL | |
50 on network directories, so we handle that case here. | |
51 Define it before including config.h. (Ulrich Leodolter, 1/11/95). */ | |
52 char * | |
53 nt_ctime (const time_t *t) | |
54 { | |
55 char *str = (char *) ctime (t); | |
56 return (str ? str : "Sun Jan 01 00:00:00 1970"); | |
57 } | |
58 | |
12183
47685fb0fbd1
Include config.h before stdio.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12025
diff
changeset
|
59 #include <config.h> |
9803 | 60 #include <windows.h> |
61 #include <stdlib.h> | |
62 #include <stdio.h> | |
63 #include <io.h> | |
64 #include <fcntl.h> | |
65 #include <ctype.h> | |
66 | |
67 #define getwd _getwd | |
68 #include "lisp.h" | |
69 #undef getwd | |
70 | |
71 #include <pwd.h> | |
72 | |
73 #include "ndir.h" | |
74 #include "ntheap.h" | |
75 | |
76 extern int report_file_error (char *, Lisp_Object); | |
77 | |
78 /* Get the current working directory. */ | |
79 int | |
80 getwd (char *dir) | |
81 { | |
82 return GetCurrentDirectory (MAXPATHLEN, dir); | |
83 } | |
84 | |
85 /* Emulate gethostname. */ | |
86 int | |
87 gethostname (char *buffer, int size) | |
88 { | |
89 /* NT only allows small host names, so the buffer is | |
90 certainly large enough. */ | |
91 return !GetComputerName (buffer, &size); | |
92 } | |
93 | |
94 /* Emulate getloadavg. */ | |
95 int | |
96 getloadavg (double loadavg[], int nelem) | |
97 { | |
98 int i; | |
99 | |
100 /* A faithful emulation is going to have to be saved for a rainy day. */ | |
101 for (i = 0; i < nelem; i++) | |
102 { | |
103 loadavg[i] = 0.0; | |
104 } | |
105 return i; | |
106 } | |
107 | |
108 /* Emulate sleep...we could have done this with a define, but that | |
109 would necessitate including windows.h in the files that used it. | |
110 This is much easier. */ | |
111 void | |
112 nt_sleep (int seconds) | |
113 { | |
114 Sleep (seconds * 1000); | |
115 } | |
116 | |
117 /* Emulate the Unix directory procedures opendir, closedir, | |
118 and readdir. We can't use the procedures supplied in sysdep.c, | |
119 so we provide them here. */ | |
120 | |
121 struct direct dir_static; /* simulated directory contents */ | |
122 static int dir_finding; | |
123 static HANDLE dir_find_handle; | |
124 | |
125 DIR * | |
126 opendir (char *filename) | |
127 { | |
128 DIR *dirp; | |
129 | |
130 /* Opening is done by FindFirstFile. However, a read is inherent to | |
131 this operation, so we have a flag to handle the open at read | |
132 time. This flag essentially means "there is a find-handle open and | |
133 it needs to be closed." */ | |
134 | |
135 if (!(dirp = (DIR *) malloc (sizeof (DIR)))) | |
136 { | |
137 return 0; | |
138 } | |
139 | |
140 dirp->dd_fd = 0; | |
141 dirp->dd_loc = 0; | |
142 dirp->dd_size = 0; | |
143 | |
144 /* This is tacky, but we need the directory name for our | |
145 implementation of readdir. */ | |
146 strncpy (dirp->dd_buf, filename, DIRBLKSIZ); | |
147 return dirp; | |
148 } | |
149 | |
150 void | |
151 closedir (DIR *dirp) | |
152 { | |
153 /* If we have a find-handle open, close it. */ | |
154 if (dir_finding) | |
155 { | |
156 FindClose (dir_find_handle); | |
157 dir_finding = 0; | |
158 } | |
159 xfree ((char *) dirp); | |
160 } | |
161 | |
162 struct direct * | |
163 readdir (DIR *dirp) | |
164 { | |
165 WIN32_FIND_DATA find_data; | |
166 | |
167 /* If we aren't dir_finding, do a find-first, otherwise do a find-next. */ | |
168 if (!dir_finding) | |
169 { | |
170 char filename[MAXNAMLEN + 3]; | |
171 int ln; | |
172 | |
173 strncpy (filename, dirp->dd_buf, MAXNAMLEN); | |
174 ln = strlen (filename)-1; | |
175 if (filename[ln] != '\\' && filename[ln] != ':') | |
176 strcat (filename, "\\"); | |
177 strcat (filename, "*.*"); | |
178 | |
179 dir_find_handle = FindFirstFile (filename, &find_data); | |
180 | |
181 if (dir_find_handle == INVALID_HANDLE_VALUE) | |
182 return NULL; | |
183 | |
184 dir_finding = 1; | |
185 } | |
186 else | |
187 { | |
188 if (!FindNextFile (dir_find_handle, &find_data)) | |
189 return NULL; | |
190 } | |
191 | |
192 /* NT's unique ID for a file is 64 bits, so we have to fake it here. | |
193 This should work as long as we never use 0. */ | |
194 dir_static.d_ino = 1; | |
195 | |
196 dir_static.d_reclen = sizeof (struct direct) - MAXNAMLEN + 3 + | |
197 dir_static.d_namlen - dir_static.d_namlen % 4; | |
198 | |
199 dir_static.d_namlen = strlen (find_data.cFileName); | |
200 strncpy (dir_static.d_name, find_data.cFileName, MAXNAMLEN); | |
201 | |
202 return &dir_static; | |
203 } | |
204 | |
205 /* Emulate getpwuid and getpwnam. */ | |
206 | |
207 int getuid (); /* forward declaration */ | |
208 | |
12451
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
209 #define PASSWD_FIELD_SIZE 256 |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
210 |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
211 static char the_passwd_name[PASSWD_FIELD_SIZE]; |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
212 static char the_passwd_passwd[PASSWD_FIELD_SIZE]; |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
213 static char the_passwd_gecos[PASSWD_FIELD_SIZE]; |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
214 static char the_passwd_dir[PASSWD_FIELD_SIZE]; |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
215 static char the_passwd_shell[PASSWD_FIELD_SIZE]; |
9803 | 216 |
217 static struct passwd the_passwd = | |
218 { | |
219 the_passwd_name, | |
220 the_passwd_passwd, | |
221 0, | |
222 0, | |
223 0, | |
224 the_passwd_gecos, | |
225 the_passwd_dir, | |
226 the_passwd_shell, | |
227 }; | |
228 | |
229 struct passwd * | |
230 getpwuid (int uid) | |
231 { | |
12451
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
232 int size = PASSWD_FIELD_SIZE; |
9803 | 233 |
234 if (!GetUserName (the_passwd.pw_name, &size)) | |
235 return NULL; | |
236 | |
237 the_passwd.pw_passwd[0] = '\0'; | |
238 the_passwd.pw_uid = 0; | |
239 the_passwd.pw_gid = 0; | |
240 strcpy (the_passwd.pw_gecos, the_passwd.pw_name); | |
241 the_passwd.pw_dir[0] = '\0'; | |
242 the_passwd.pw_shell[0] = '\0'; | |
243 | |
244 return &the_passwd; | |
245 } | |
246 | |
247 struct passwd * | |
248 getpwnam (char *name) | |
249 { | |
250 struct passwd *pw; | |
251 | |
252 pw = getpwuid (getuid ()); | |
253 if (!pw) | |
254 return pw; | |
255 | |
256 if (strcmp (name, pw->pw_name)) | |
257 return NULL; | |
258 | |
259 return pw; | |
260 } | |
261 | |
262 | |
263 /* We don't have scripts to automatically determine the system configuration | |
264 for Emacs before it's compiled, and we don't want to have to make the | |
265 user enter it, so we define EMACS_CONFIGURATION to invoke this runtime | |
266 routine. */ | |
267 | |
11941
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
268 static char configuration_buffer[32]; |
9803 | 269 |
270 char * | |
271 get_emacs_configuration (void) | |
272 { | |
13156 | 273 char *arch, *oem, *os; |
9803 | 274 |
13156 | 275 /* Determine the processor type. */ |
276 switch (get_processor_type ()) | |
277 { | |
12451
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
278 |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
279 #ifdef PROCESSOR_INTEL_386 |
13156 | 280 case PROCESSOR_INTEL_386: |
281 case PROCESSOR_INTEL_486: | |
282 case PROCESSOR_INTEL_PENTIUM: | |
283 arch = "i386"; | |
284 break; | |
12451
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
285 #endif |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
286 |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
287 #ifdef PROCESSOR_INTEL_860 |
13156 | 288 case PROCESSOR_INTEL_860: |
289 arch = "i860"; | |
290 break; | |
12451
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
291 #endif |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
292 |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
293 #ifdef PROCESSOR_MIPS_R2000 |
13156 | 294 case PROCESSOR_MIPS_R2000: |
295 case PROCESSOR_MIPS_R3000: | |
296 case PROCESSOR_MIPS_R4000: | |
297 arch = "mips"; | |
298 break; | |
12451
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
299 #endif |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
300 |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
301 #ifdef PROCESSOR_ALPHA_21064 |
13156 | 302 case PROCESSOR_ALPHA_21064: |
303 arch = "alpha"; | |
304 break; | |
12451
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
305 #endif |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
306 |
13156 | 307 default: |
308 arch = "unknown"; | |
309 break; | |
310 } | |
9803 | 311 |
13156 | 312 /* Let oem be "*" until we figure out how to decode the OEM field. */ |
313 oem = "*"; | |
9803 | 314 |
11941
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
315 #ifdef WINDOWS95 |
13156 | 316 os = "win"; |
11941
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
317 #else |
13156 | 318 os = "nt"; |
11941
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
319 #endif |
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
320 |
13156 | 321 sprintf (configuration_buffer, "%s-%s-%s%d.%d", arch, oem, os, |
322 get_nt_major_version (), get_nt_minor_version ()); | |
323 return configuration_buffer; | |
9803 | 324 } |
325 | |
326 /* Conjure up inode and device numbers that will serve the purpose | |
327 of Emacs. Return 1 upon success, 0 upon failure. */ | |
328 int | |
329 get_inode_and_device_vals (Lisp_Object filename, Lisp_Object *p_inode, | |
330 Lisp_Object *p_device) | |
331 { | |
332 /* File uids on NT are found using a handle to a file, which | |
333 implies that it has been opened. Since we want to be able | |
334 to stat an arbitrary file, we must open it, get the info, | |
335 and then close it. | |
336 | |
337 Also, NT file uids are 64-bits. This is a problem. */ | |
338 | |
339 HANDLE handle; | |
340 BOOL result; | |
11384 | 341 DWORD attrs; |
9803 | 342 BY_HANDLE_FILE_INFORMATION info; |
343 | |
11384 | 344 /* We have to stat files and directories differently, so check |
345 to see what filename references. */ | |
346 attrs = GetFileAttributes (XSTRING (filename)->data); | |
347 if (attrs == 0xFFFFFFFF) { | |
348 return 0; | |
349 } | |
350 if (attrs & FILE_ATTRIBUTE_DIRECTORY) { | |
351 /* Conjure up bogus, but unique, values. */ | |
352 attrs = GetTickCount (); | |
353 *p_inode = make_number (attrs); | |
354 *p_device = make_number (attrs); | |
355 return 1; | |
356 } | |
357 | |
9803 | 358 /* FIXME: It shouldn't be opened without READ access, but NT on x86 |
359 doesn't allow GetFileInfo in that case (NT on mips does). */ | |
360 | |
361 handle = CreateFile (XSTRING (filename)->data, | |
362 GENERIC_READ, | |
363 FILE_SHARE_READ | FILE_SHARE_WRITE, | |
364 NULL, | |
365 OPEN_EXISTING, | |
366 FILE_ATTRIBUTE_NORMAL, | |
367 NULL); | |
368 if (handle == INVALID_HANDLE_VALUE) | |
369 return 0; | |
370 | |
371 result = GetFileInformationByHandle (handle, &info); | |
372 CloseHandle (handle); | |
373 if (!result) | |
374 return 0; | |
375 | |
376 *p_inode = make_number (info.nFileIndexLow); /* use the low value */ | |
377 *p_device = make_number (info.dwVolumeSerialNumber); | |
378 | |
379 return 1; | |
380 } | |
381 | |
382 /* The following pipe routines are used to support our fork emulation. | |
383 Since NT's crt dup always creates inherited handles, we | |
384 must be careful in setting up pipes. First create | |
385 non-inherited pipe handles, then create an inherited handle | |
386 to the write end by dup-ing it, and then close the non-inherited | |
387 end that was just duped. This gives us one non-inherited handle | |
388 on the read end and one inherited handle to the write end. As | |
389 the parent, we close the inherited handle to the write end after | |
390 spawning the child. */ | |
391 | |
392 /* From callproc.c */ | |
393 extern Lisp_Object Vbinary_process_input; | |
394 extern Lisp_Object Vbinary_process_output; | |
395 | |
396 void | |
397 pipe_with_inherited_out (int fds[2]) | |
398 { | |
399 int inherit_out; | |
400 unsigned int flags = _O_NOINHERIT; | |
401 | |
402 if (!NILP (Vbinary_process_output)) | |
403 flags |= _O_BINARY; | |
404 | |
405 _pipe (fds, 0, flags); | |
406 inherit_out = dup (fds[1]); | |
407 close (fds[1]); | |
408 fds[1] = inherit_out; | |
409 } | |
410 | |
411 void | |
412 pipe_with_inherited_in (int fds[2]) | |
413 { | |
414 int inherit_in; | |
415 unsigned int flags = _O_NOINHERIT; | |
416 | |
417 if (!NILP (Vbinary_process_input)) | |
418 flags |= _O_BINARY; | |
419 | |
420 _pipe (fds, 0, flags); | |
421 inherit_in = dup (fds[0]); | |
422 close (fds[0]); | |
423 fds[0] = inherit_in; | |
424 } | |
425 | |
426 /* The following two routines are used to manipulate stdin, stdout, and | |
427 stderr of our child processes. | |
428 | |
429 Assuming that in, out, and err are inherited, we make them stdin, | |
430 stdout, and stderr of the child as follows: | |
431 | |
432 - Save the parent's current standard handles. | |
433 - Set the parent's standard handles to the handles being passed in. | |
434 (Note that _get_osfhandle is an io.h procedure that | |
435 maps crt file descriptors to NT file handles.) | |
436 - Spawn the child, which inherits in, out, and err as stdin, | |
437 stdout, and stderr. (see Spawnve) | |
438 - Reset the parent's standard handles to the saved handles. | |
439 (see reset_standard_handles) | |
440 We assume that the caller closes in, out, and err after calling us. */ | |
441 | |
442 void | |
443 prepare_standard_handles (int in, int out, int err, HANDLE handles[4]) | |
444 { | |
445 HANDLE parent, stdin_save, stdout_save, stderr_save, err_handle; | |
11941
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
446 |
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
447 #ifdef WINDOWS95 |
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
448 /* The Win95 beta doesn't set the standard handles correctly. |
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
449 Handicap subprocesses until we get a version that works correctly. |
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
450 Undefining the subprocesses macro reveals other incompatibilities, |
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
451 so, since we're expecting subprocs to work in the near future, |
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
452 disable them here. */ |
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
453 report_file_error ("Subprocesses currently disabled on Win95", Qnil); |
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
454 #endif |
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
455 |
9803 | 456 parent = GetCurrentProcess (); |
11941
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
457 stdin_save = GetStdHandle (STD_INPUT_HANDLE); |
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
458 stdout_save = GetStdHandle (STD_OUTPUT_HANDLE); |
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
459 stderr_save = GetStdHandle (STD_ERROR_HANDLE); |
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
460 |
13427
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
461 #ifndef HAVE_NTGUI |
9803 | 462 if (!DuplicateHandle (parent, |
463 GetStdHandle (STD_INPUT_HANDLE), | |
464 parent, | |
465 &stdin_save, | |
466 0, | |
467 FALSE, | |
468 DUPLICATE_SAME_ACCESS)) | |
469 report_file_error ("Duplicating parent's input handle", Qnil); | |
470 | |
471 if (!DuplicateHandle (parent, | |
472 GetStdHandle (STD_OUTPUT_HANDLE), | |
473 parent, | |
474 &stdout_save, | |
475 0, | |
476 FALSE, | |
477 DUPLICATE_SAME_ACCESS)) | |
478 report_file_error ("Duplicating parent's output handle", Qnil); | |
479 | |
480 if (!DuplicateHandle (parent, | |
481 GetStdHandle (STD_ERROR_HANDLE), | |
482 parent, | |
483 &stderr_save, | |
484 0, | |
485 FALSE, | |
486 DUPLICATE_SAME_ACCESS)) | |
487 report_file_error ("Duplicating parent's error handle", Qnil); | |
13427
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
488 #endif /* !HAVE_NTGUI */ |
9803 | 489 |
490 if (!SetStdHandle (STD_INPUT_HANDLE, (HANDLE) _get_osfhandle (in))) | |
491 report_file_error ("Changing stdin handle", Qnil); | |
492 | |
493 if (!SetStdHandle (STD_OUTPUT_HANDLE, (HANDLE) _get_osfhandle (out))) | |
494 report_file_error ("Changing stdout handle", Qnil); | |
495 | |
496 /* We lose data if we use the same handle to the pipe for stdout and | |
497 stderr, so make a duplicate. This took a while to find. */ | |
498 if (out == err) | |
499 { | |
500 if (!DuplicateHandle (parent, | |
501 (HANDLE) _get_osfhandle (err), | |
502 parent, | |
503 &err_handle, | |
504 0, | |
505 TRUE, | |
506 DUPLICATE_SAME_ACCESS)) | |
507 report_file_error ("Duplicating out handle to make err handle.", | |
508 Qnil); | |
509 } | |
510 else | |
511 { | |
512 err_handle = (HANDLE) _get_osfhandle (err); | |
513 } | |
514 | |
515 if (!SetStdHandle (STD_ERROR_HANDLE, err_handle)) | |
516 report_file_error ("Changing stderr handle", Qnil); | |
517 | |
518 handles[0] = stdin_save; | |
519 handles[1] = stdout_save; | |
520 handles[2] = stderr_save; | |
521 handles[3] = err_handle; | |
522 } | |
523 | |
524 void | |
525 reset_standard_handles (int in, int out, int err, HANDLE handles[4]) | |
526 { | |
527 HANDLE stdin_save = handles[0]; | |
528 HANDLE stdout_save = handles[1]; | |
529 HANDLE stderr_save = handles[2]; | |
530 HANDLE err_handle = handles[3]; | |
11941
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
531 int i; |
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
532 |
13427
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
533 #ifndef HAVE_NTGUI |
9803 | 534 if (!SetStdHandle (STD_INPUT_HANDLE, stdin_save)) |
535 report_file_error ("Resetting input handle", Qnil); | |
536 | |
537 if (!SetStdHandle (STD_OUTPUT_HANDLE, stdout_save)) | |
11941
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
538 { |
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
539 i = GetLastError (); |
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
540 report_file_error ("Resetting output handle", Qnil); |
cb26a4ca0e10
(configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents:
11384
diff
changeset
|
541 } |
9803 | 542 |
543 if (!SetStdHandle (STD_ERROR_HANDLE, stderr_save)) | |
544 report_file_error ("Resetting error handle", Qnil); | |
13427
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
545 #endif /* !HAVE_NTGUI */ |
9803 | 546 |
547 if (out == err) | |
548 { | |
549 /* If out and err are the same handle, then we duplicated out | |
550 and stuck it in err_handle. Close the duplicate to clean up. */ | |
551 if (!CloseHandle (err_handle)) | |
552 report_file_error ("Closing error handle duplicated from out.", | |
553 Qnil); | |
554 } | |
555 } | |
556 | |
11384 | 557 int |
558 random () | |
559 { | |
560 /* rand () on NT gives us 15 random bits...hack together 30 bits. */ | |
561 return ((rand () << 15) | rand ()); | |
562 } | |
563 | |
564 void | |
565 srandom (int seed) | |
566 { | |
567 srand (seed); | |
568 } | |
569 | |
9803 | 570 /* Destructively turn backslashes into slashes. */ |
571 void | |
572 dostounix_filename (p) | |
573 register char *p; | |
574 { | |
575 while (*p) | |
576 { | |
577 if (*p == '\\') | |
578 *p = '/'; | |
579 p++; | |
580 } | |
581 } | |
582 | |
583 /* Routines that are no-ops on NT but are defined to get Emacs to compile. */ | |
584 | |
585 | |
586 int | |
587 sigsetmask (int signal_mask) | |
588 { | |
589 return 0; | |
590 } | |
591 | |
592 int | |
593 sigblock (int sig) | |
594 { | |
595 return 0; | |
596 } | |
597 | |
598 int | |
599 kill (int pid, int signal) | |
600 { | |
601 return 0; | |
602 } | |
603 | |
604 int | |
605 setpgrp (int pid, int gid) | |
606 { | |
607 return 0; | |
608 } | |
609 | |
610 int | |
611 alarm (int seconds) | |
612 { | |
613 return 0; | |
614 } | |
615 | |
616 int | |
617 unrequest_sigio (void) | |
618 { | |
619 return 0; | |
620 } | |
621 | |
622 int | |
623 request_sigio (void) | |
624 { | |
625 return 0; | |
626 } | |
627 | |
628 int | |
629 getuid () | |
630 { | |
13932
de7851688890
(getuid): Only return root uid if Administrator.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13427
diff
changeset
|
631 char buffer[256]; |
de7851688890
(getuid): Only return root uid if Administrator.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13427
diff
changeset
|
632 int size = 256; |
de7851688890
(getuid): Only return root uid if Administrator.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13427
diff
changeset
|
633 |
de7851688890
(getuid): Only return root uid if Administrator.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13427
diff
changeset
|
634 if (!GetUserName (buffer, &size)) |
de7851688890
(getuid): Only return root uid if Administrator.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13427
diff
changeset
|
635 /* Assume all powers upon failure. */ |
de7851688890
(getuid): Only return root uid if Administrator.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13427
diff
changeset
|
636 return 0; |
de7851688890
(getuid): Only return root uid if Administrator.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13427
diff
changeset
|
637 |
de7851688890
(getuid): Only return root uid if Administrator.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13427
diff
changeset
|
638 if (!stricmp ("administrator", buffer)) |
de7851688890
(getuid): Only return root uid if Administrator.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13427
diff
changeset
|
639 return 0; |
de7851688890
(getuid): Only return root uid if Administrator.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13427
diff
changeset
|
640 else |
de7851688890
(getuid): Only return root uid if Administrator.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13427
diff
changeset
|
641 /* A complete fabrication...is there anything to base it on? */ |
de7851688890
(getuid): Only return root uid if Administrator.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13427
diff
changeset
|
642 return 123; |
9803 | 643 } |
644 | |
645 int | |
646 geteuid () | |
647 { | |
13932
de7851688890
(getuid): Only return root uid if Administrator.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13427
diff
changeset
|
648 /* I could imagine arguing for checking to see whether the user is |
de7851688890
(getuid): Only return root uid if Administrator.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13427
diff
changeset
|
649 in the Administrators group and returning a UID of 0 for that |
de7851688890
(getuid): Only return root uid if Administrator.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13427
diff
changeset
|
650 case, but I don't know how wise that would be in the long run. */ |
de7851688890
(getuid): Only return root uid if Administrator.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13427
diff
changeset
|
651 return getuid (); |
9803 | 652 } |
653 | |
654 /* Remove all CR's that are followed by a LF. | |
655 (From msdos.c...probably should figure out a way to share it, | |
656 although this code isn't going to ever change.) */ | |
657 int | |
658 crlf_to_lf (n, buf) | |
659 register int n; | |
660 register unsigned char *buf; | |
661 { | |
662 unsigned char *np = buf; | |
663 unsigned char *startp = buf; | |
664 unsigned char *endp = buf + n; | |
665 | |
666 if (n == 0) | |
667 return n; | |
668 while (buf < endp - 1) | |
669 { | |
670 if (*buf == 0x0d) | |
671 { | |
672 if (*(++buf) != 0x0a) | |
673 *np++ = 0x0d; | |
674 } | |
675 else | |
676 *np++ = *buf++; | |
677 } | |
678 if (buf < endp) | |
679 *np++ = *buf++; | |
680 return np - startp; | |
681 } | |
682 | |
13427
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
683 #define REG_ROOT "SOFTWARE\\GNU\\Emacs\\" |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
684 |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
685 LPBYTE |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
686 nt_get_resource (key, lpdwtype) |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
687 char *key; |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
688 LPDWORD lpdwtype; |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
689 { |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
690 LPBYTE lpvalue; |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
691 HKEY hrootkey = NULL; |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
692 DWORD cbData; |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
693 BOOL ok = FALSE; |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
694 |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
695 /* Check both the current user and the local machine to see if |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
696 we have any resources. */ |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
697 |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
698 if (RegOpenKeyEx (HKEY_CURRENT_USER, REG_ROOT, 0, KEY_READ, &hrootkey) == ERROR_SUCCESS) |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
699 { |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
700 lpvalue = NULL; |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
701 |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
702 if (RegQueryValueEx (hrootkey, key, NULL, NULL, NULL, &cbData) == ERROR_SUCCESS |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
703 && (lpvalue = (LPBYTE) xmalloc (cbData)) != NULL |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
704 && RegQueryValueEx (hrootkey, key, NULL, lpdwtype, lpvalue, &cbData) == ERROR_SUCCESS) |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
705 { |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
706 return (lpvalue); |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
707 } |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
708 |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
709 if (lpvalue) xfree (lpvalue); |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
710 |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
711 RegCloseKey (hrootkey); |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
712 } |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
713 |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
714 if (RegOpenKeyEx (HKEY_LOCAL_MACHINE, REG_ROOT, 0, KEY_READ, &hrootkey) == ERROR_SUCCESS) |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
715 { |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
716 lpvalue = NULL; |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
717 |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
718 if (RegQueryValueEx (hrootkey, key, NULL, NULL, NULL, &cbData) == ERROR_SUCCESS && |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
719 (lpvalue = (LPBYTE) xmalloc (cbData)) != NULL && |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
720 RegQueryValueEx (hrootkey, key, NULL, lpdwtype, lpvalue, &cbData) == ERROR_SUCCESS) |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
721 { |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
722 return (lpvalue); |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
723 } |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
724 |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
725 if (lpvalue) xfree (lpvalue); |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
726 |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
727 RegCloseKey (hrootkey); |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
728 } |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
729 |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
730 return (NULL); |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
731 } |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
732 |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
733 void |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
734 init_environment () |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
735 { |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
736 /* Open a console window to display messages during dumping. */ |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
737 if (!initialized) |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
738 AllocConsole (); |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
739 |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
740 /* Check for environment variables and use registry if they don't exist */ |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
741 { |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
742 int i; |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
743 LPBYTE lpval; |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
744 DWORD dwType; |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
745 |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
746 static char * env_vars[] = |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
747 { |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
748 "emacs_path", |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
749 "EMACSLOADPATH", |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
750 "SHELL", |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
751 "EMACSDATA", |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
752 "EMACSPATH", |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
753 "EMACSLOCKDIR", |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
754 "INFOPATH", |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
755 "EMACSDOC", |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
756 "TERM", |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
757 }; |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
758 |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
759 for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++) |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
760 { |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
761 if (!getenv (env_vars[i]) && |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
762 (lpval = nt_get_resource (env_vars[i], &dwType)) != NULL) |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
763 { |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
764 if (dwType == REG_EXPAND_SZ) |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
765 { |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
766 char buf1[500], buf2[500]; |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
767 |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
768 ExpandEnvironmentStrings ((LPSTR) lpval, buf1, 500); |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
769 _snprintf (buf2, 499, "%s=%s", env_vars[i], buf1); |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
770 putenv (strdup (buf2)); |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
771 } |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
772 else if (dwType == REG_SZ) |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
773 { |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
774 char buf[500]; |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
775 |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
776 _snprintf (buf, 499, "%s=%s", env_vars[i], lpval); |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
777 putenv (strdup (buf)); |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
778 } |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
779 |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
780 xfree (lpval); |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
781 } |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
782 } |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
783 } |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
784 } |
71d734525d2c
(nt_get_resource, init_environment): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13156
diff
changeset
|
785 |
11384 | 786 #ifdef HAVE_TIMEVAL |
787 #include <sys/timeb.h> | |
788 | |
789 /* Emulate gettimeofday (Ulrich Leodolter, 1/11/95). */ | |
790 void | |
791 gettimeofday (struct timeval *tv, struct timezone *tz) | |
792 { | |
793 struct _timeb tb; | |
794 _ftime (&tb); | |
795 | |
796 tv->tv_sec = tb.time; | |
797 tv->tv_usec = tb.millitm * 1000L; | |
798 if (tz) | |
799 { | |
800 tz->tz_minuteswest = tb.timezone; /* minutes west of Greenwich */ | |
801 tz->tz_dsttime = tb.dstflag; /* type of dst correction */ | |
802 } | |
803 } | |
804 #endif /* HAVE_TIMEVAL */ | |
805 | |
9803 | 806 |
807 #ifdef PIGSFLY | |
808 Keep this around...we might need it later. | |
809 #ifdef WINDOWSNT | |
810 { | |
811 /* | |
812 * Find the user's real name by opening the process token and looking | |
813 * up the name associated with the user-sid in that token. | |
814 */ | |
815 | |
816 char b[256], Name[256], RefD[256]; | |
817 DWORD length = 256, rlength = 256, trash; | |
818 HANDLE Token; | |
819 SID_NAME_USE User; | |
820 | |
821 if (1) | |
12025
e804b43418f6
Change Vuser_real_name to Vuser_real_login_name.
Karl Heuer <kwzh@gnu.org>
parents:
11941
diff
changeset
|
822 Vuser_real_login_name = build_string ("foo"); |
9803 | 823 else if (!OpenProcessToken (GetCurrentProcess (), TOKEN_QUERY, &Token)) |
824 { | |
12025
e804b43418f6
Change Vuser_real_name to Vuser_real_login_name.
Karl Heuer <kwzh@gnu.org>
parents:
11941
diff
changeset
|
825 Vuser_real_login_name = build_string ("unknown"); |
9803 | 826 } |
827 else if (!GetTokenInformation (Token, TokenUser, (PVOID)b, 256, | |
828 &trash)) | |
829 { | |
830 CloseHandle (Token); | |
12025
e804b43418f6
Change Vuser_real_name to Vuser_real_login_name.
Karl Heuer <kwzh@gnu.org>
parents:
11941
diff
changeset
|
831 Vuser_real_login_name = build_string ("unknown"); |
9803 | 832 } |
833 else if (!LookupAccountSid ((void *)0, (PSID)b, Name, &length, RefD, | |
834 &rlength, &User)) | |
835 { | |
836 CloseHandle (Token); | |
12025
e804b43418f6
Change Vuser_real_name to Vuser_real_login_name.
Karl Heuer <kwzh@gnu.org>
parents:
11941
diff
changeset
|
837 Vuser_real_login_name = build_string ("unknown"); |
9803 | 838 } |
839 else | |
12025
e804b43418f6
Change Vuser_real_name to Vuser_real_login_name.
Karl Heuer <kwzh@gnu.org>
parents:
11941
diff
changeset
|
840 Vuser_real_login_name = build_string (Name); |
9803 | 841 } |
842 #else /* not WINDOWSNT */ | |
843 #endif /* not WINDOWSNT */ | |
844 #endif /* PIGSFLY */ |