annotate src/w32.c @ 107393:a2823b84b7fb

(mm-charset-to-coding-system): Use coding-system-from-name if it is available. (bug#5647)
author Katsumi Yamaoka <yamaoka@jpl.org>
date Mon, 15 Mar 2010 01:38:28 +0000
parents 1d1d5d9bd884
children e30aff0bf9d5 734b2470f93c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16867
diff changeset
1 /* Utility and Unix shadow routines for GNU Emacs on the Microsoft W32 API.
96462
c74d39c72729 Spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 96376
diff changeset
2 Copyright (C) 1994, 1995, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 105669
diff changeset
3 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
5 This file is part of GNU Emacs.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94816
diff changeset
7 GNU Emacs is free software: you can redistribute it and/or modify
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
8 it under the terms of the GNU General Public License as published by
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94816
diff changeset
9 the Free Software Foundation, either version 3 of the License, or
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94816
diff changeset
10 (at your option) any later version.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
15 GNU General Public License for more details.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
17 You should have received a copy of the GNU General Public License
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94816
diff changeset
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94816
diff changeset
19
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94816
diff changeset
20 /*
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 Geoff Voelker (voelker@cs.washington.edu) 7-29-94
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 */
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
23 #include <stddef.h> /* for offsetof */
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 #include <stdlib.h>
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25 #include <stdio.h>
103718
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
26 #include <float.h> /* for DBL_EPSILON */
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 #include <io.h>
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
28 #include <errno.h>
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 #include <fcntl.h>
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 #include <ctype.h>
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
31 #include <signal.h>
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
32 #include <sys/file.h>
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
33 #include <sys/time.h>
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
34 #include <sys/utime.h>
76098
9ad6c99cdc71 (stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents: 75348
diff changeset
35 #include <mbstring.h> /* for _mbspbrk */
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
36 #include <math.h>
105669
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 103868
diff changeset
37 #include <setjmp.h>
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
38
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
39 /* must include CRT headers *before* config.h */
42469
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 42192
diff changeset
40
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 42192
diff changeset
41 #ifdef HAVE_CONFIG_H
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 42192
diff changeset
42 #include <config.h>
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 42192
diff changeset
43 #endif
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 42192
diff changeset
44
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
45 #undef access
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
46 #undef chdir
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
47 #undef chmod
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
48 #undef creat
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
49 #undef ctime
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
50 #undef fopen
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
51 #undef link
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
52 #undef mkdir
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
53 #undef mktemp
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
54 #undef open
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
55 #undef rename
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
56 #undef rmdir
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
57 #undef unlink
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
58
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
59 #undef close
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
60 #undef dup
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
61 #undef dup2
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
62 #undef pipe
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
63 #undef read
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
64 #undef write
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
66 #undef strerror
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
67
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 #include "lisp.h"
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 #include <pwd.h>
53123
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
71 #include <grp.h>
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72
31350
f5c37cece73f (_ANONYMOUS_UNION) [__GNUC__]: New define
Andrew Innes <andrewi@gnu.org>
parents: 31106
diff changeset
73 #ifdef __GNUC__
f5c37cece73f (_ANONYMOUS_UNION) [__GNUC__]: New define
Andrew Innes <andrewi@gnu.org>
parents: 31106
diff changeset
74 #define _ANONYMOUS_UNION
f5c37cece73f (_ANONYMOUS_UNION) [__GNUC__]: New define
Andrew Innes <andrewi@gnu.org>
parents: 31106
diff changeset
75 #define _ANONYMOUS_STRUCT
f5c37cece73f (_ANONYMOUS_UNION) [__GNUC__]: New define
Andrew Innes <andrewi@gnu.org>
parents: 31106
diff changeset
76 #endif
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
77 #include <windows.h>
97486
2c195017488c (_MEMORY_STATUS_EX, MEMORY_STATUS_EX, LPMEMORY_STATUS_EX): Rename from
Eli Zaretskii <eliz@gnu.org>
parents: 97372
diff changeset
78 /* Some versions of compiler define MEMORYSTATUSEX, some don't, so we
2c195017488c (_MEMORY_STATUS_EX, MEMORY_STATUS_EX, LPMEMORY_STATUS_EX): Rename from
Eli Zaretskii <eliz@gnu.org>
parents: 97372
diff changeset
79 use a different name to avoid compilation problems. */
2c195017488c (_MEMORY_STATUS_EX, MEMORY_STATUS_EX, LPMEMORY_STATUS_EX): Rename from
Eli Zaretskii <eliz@gnu.org>
parents: 97372
diff changeset
80 typedef struct _MEMORY_STATUS_EX {
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
81 DWORD dwLength;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
82 DWORD dwMemoryLoad;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
83 DWORDLONG ullTotalPhys;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
84 DWORDLONG ullAvailPhys;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
85 DWORDLONG ullTotalPageFile;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
86 DWORDLONG ullAvailPageFile;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
87 DWORDLONG ullTotalVirtual;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
88 DWORDLONG ullAvailVirtual;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
89 DWORDLONG ullAvailExtendedVirtual;
97486
2c195017488c (_MEMORY_STATUS_EX, MEMORY_STATUS_EX, LPMEMORY_STATUS_EX): Rename from
Eli Zaretskii <eliz@gnu.org>
parents: 97372
diff changeset
90 } MEMORY_STATUS_EX,*LPMEMORY_STATUS_EX;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
91
91878
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
92 #include <lmcons.h>
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
93 #include <shlobj.h>
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
94
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
95 #include <tlhelp32.h>
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
96 #include <psapi.h>
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
97 /* This either is not in psapi.h or guarded by higher value of
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
98 _WIN32_WINNT than what we use. */
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
99 typedef struct _PROCESS_MEMORY_COUNTERS_EX {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
100 DWORD cb;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
101 DWORD PageFaultCount;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
102 DWORD PeakWorkingSetSize;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
103 DWORD WorkingSetSize;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
104 DWORD QuotaPeakPagedPoolUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
105 DWORD QuotaPagedPoolUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
106 DWORD QuotaPeakNonPagedPoolUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
107 DWORD QuotaNonPagedPoolUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
108 DWORD PagefileUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
109 DWORD PeakPagefileUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
110 DWORD PrivateUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
111 } PROCESS_MEMORY_COUNTERS_EX,*PPROCESS_MEMORY_COUNTERS_EX;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
112
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
113 #ifdef HAVE_SOCKETS /* TCP connection support, if kernel can do it */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
114 #include <sys/socket.h>
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
115 #undef socket
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
116 #undef bind
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
117 #undef connect
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
118 #undef htons
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
119 #undef ntohs
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
120 #undef inet_addr
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
121 #undef gethostname
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
122 #undef gethostbyname
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
123 #undef getservbyname
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
124 #undef getpeername
18725
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
125 #undef shutdown
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
126 #undef setsockopt
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
127 #undef listen
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
128 #undef getsockname
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
129 #undef accept
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
130 #undef recvfrom
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
131 #undef sendto
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
132 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
133
16593
4ed80eda6fac Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
134 #include "w32.h"
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
135 #include "ndir.h"
16593
4ed80eda6fac Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
136 #include "w32heap.h"
35286
fcd8120b294a (init_environment, sys_shutdown, sys_pipe): Remove unused
Jason Rumney <jasonr@gnu.org>
parents: 34696
diff changeset
137 #include "systime.h"
95277
3df8e58fdc7f Include dispextern.h.
Eli Zaretskii <eliz@gnu.org>
parents: 95217
diff changeset
138 #include "dispextern.h" /* for xstrcasecmp */
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
139 #include "coding.h" /* for Vlocale_coding_system */
35286
fcd8120b294a (init_environment, sys_shutdown, sys_pipe): Remove unused
Jason Rumney <jasonr@gnu.org>
parents: 34696
diff changeset
140
95917
c46e112bded0 Comment fix for rms.
Glenn Morris <rgm@gnu.org>
parents: 95884
diff changeset
141 /* For serial_configure and serial_open. */
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
142 #include "process.h"
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
143 /* From process.c */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
144 extern Lisp_Object QCport, QCspeed, QCprocess;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
145 extern Lisp_Object QCbytesize, QCstopbits, QCparity, Qodd, Qeven;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
146 extern Lisp_Object QCflowcontrol, Qhw, Qsw, QCsummary;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
147
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
148 typedef HRESULT (WINAPI * ShGetFolderPath_fn)
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
149 (IN HWND, IN int, IN HANDLE, IN DWORD, OUT char *);
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
150
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
151 void globals_of_w32 ();
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
152 static DWORD get_rid (PSID);
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
153
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
154 extern Lisp_Object Vw32_downcase_file_names;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
155 extern Lisp_Object Vw32_generate_fake_inodes;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
156 extern Lisp_Object Vw32_get_true_file_attributes;
80484
796bbedc63b1 (stat): When Vw32_get_true_file_attributes is Qlocal, get
Jason Rumney <jasonr@gnu.org>
parents: 80376
diff changeset
157 /* Defined in process.c for its own purpose. */
796bbedc63b1 (stat): When Vw32_get_true_file_attributes is Qlocal, get
Jason Rumney <jasonr@gnu.org>
parents: 80376
diff changeset
158 extern Lisp_Object Qlocal;
796bbedc63b1 (stat): When Vw32_get_true_file_attributes is Qlocal, get
Jason Rumney <jasonr@gnu.org>
parents: 80376
diff changeset
159
55645
5b3f2477d17b Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents: 55643
diff changeset
160 extern int w32_num_mouse_buttons;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
161
34696
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
162
92124
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
163 /* Initialization states.
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
164
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
165 WARNING: If you add any more such variables for additional APIs,
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
166 you MUST add initialization for them to globals_of_w32
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
167 below. This is because these variables might get set
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
168 to non-NULL values during dumping, but the dumped Emacs
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
169 cannot reuse those values, because it could be run on a
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
170 different version of the OS, where API addresses are
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
171 different. */
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
172 static BOOL g_b_init_is_windows_9x;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
173 static BOOL g_b_init_open_process_token;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
174 static BOOL g_b_init_get_token_information;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
175 static BOOL g_b_init_lookup_account_sid;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
176 static BOOL g_b_init_get_sid_identifier_authority;
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
177 static BOOL g_b_init_get_sid_sub_authority;
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
178 static BOOL g_b_init_get_sid_sub_authority_count;
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
179 static BOOL g_b_init_get_file_security;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
180 static BOOL g_b_init_get_security_descriptor_owner;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
181 static BOOL g_b_init_get_security_descriptor_group;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
182 static BOOL g_b_init_is_valid_sid;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
183 static BOOL g_b_init_create_toolhelp32_snapshot;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
184 static BOOL g_b_init_process32_first;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
185 static BOOL g_b_init_process32_next;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
186 static BOOL g_b_init_open_thread_token;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
187 static BOOL g_b_init_impersonate_self;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
188 static BOOL g_b_init_revert_to_self;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
189 static BOOL g_b_init_get_process_memory_info;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
190 static BOOL g_b_init_get_process_working_set_size;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
191 static BOOL g_b_init_global_memory_status;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
192 static BOOL g_b_init_global_memory_status_ex;
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
193 static BOOL g_b_init_get_length_sid;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
194 static BOOL g_b_init_equal_sid;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
195 static BOOL g_b_init_copy_sid;
103718
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
196 static BOOL g_b_init_get_native_system_info;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
197 static BOOL g_b_init_get_system_times;
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
198
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
199 /*
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
200 BEGIN: Wrapper functions around OpenProcessToken
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
201 and other functions in advapi32.dll that are only
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
202 supported in Windows NT / 2k / XP
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
203 */
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
204 /* ** Function pointer typedefs ** */
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
205 typedef BOOL (WINAPI * OpenProcessToken_Proc) (
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
206 HANDLE ProcessHandle,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
207 DWORD DesiredAccess,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
208 PHANDLE TokenHandle);
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
209 typedef BOOL (WINAPI * GetTokenInformation_Proc) (
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
210 HANDLE TokenHandle,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
211 TOKEN_INFORMATION_CLASS TokenInformationClass,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
212 LPVOID TokenInformation,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
213 DWORD TokenInformationLength,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
214 PDWORD ReturnLength);
81421
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
215 typedef BOOL (WINAPI * GetProcessTimes_Proc) (
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
216 HANDLE process_handle,
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
217 LPFILETIME creation_time,
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
218 LPFILETIME exit_time,
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
219 LPFILETIME kernel_time,
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
220 LPFILETIME user_time);
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
221
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
222 GetProcessTimes_Proc get_process_times_fn = NULL;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
223
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
224 #ifdef _UNICODE
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
225 const char * const LookupAccountSid_Name = "LookupAccountSidW";
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
226 const char * const GetFileSecurity_Name = "GetFileSecurityW";
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
227 #else
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
228 const char * const LookupAccountSid_Name = "LookupAccountSidA";
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
229 const char * const GetFileSecurity_Name = "GetFileSecurityA";
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
230 #endif
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
231 typedef BOOL (WINAPI * LookupAccountSid_Proc) (
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
232 LPCTSTR lpSystemName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
233 PSID Sid,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
234 LPTSTR Name,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
235 LPDWORD cbName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
236 LPTSTR DomainName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
237 LPDWORD cbDomainName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
238 PSID_NAME_USE peUse);
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
239 typedef PSID_IDENTIFIER_AUTHORITY (WINAPI * GetSidIdentifierAuthority_Proc) (
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
240 PSID pSid);
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
241 typedef PDWORD (WINAPI * GetSidSubAuthority_Proc) (
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
242 PSID pSid,
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
243 DWORD n);
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
244 typedef PUCHAR (WINAPI * GetSidSubAuthorityCount_Proc) (
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
245 PSID pSid);
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
246 typedef BOOL (WINAPI * GetFileSecurity_Proc) (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
247 LPCTSTR lpFileName,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
248 SECURITY_INFORMATION RequestedInformation,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
249 PSECURITY_DESCRIPTOR pSecurityDescriptor,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
250 DWORD nLength,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
251 LPDWORD lpnLengthNeeded);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
252 typedef BOOL (WINAPI * GetSecurityDescriptorOwner_Proc) (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
253 PSECURITY_DESCRIPTOR pSecurityDescriptor,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
254 PSID *pOwner,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
255 LPBOOL lpbOwnerDefaulted);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
256 typedef BOOL (WINAPI * GetSecurityDescriptorGroup_Proc) (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
257 PSECURITY_DESCRIPTOR pSecurityDescriptor,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
258 PSID *pGroup,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
259 LPBOOL lpbGroupDefaulted);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
260 typedef BOOL (WINAPI * IsValidSid_Proc) (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
261 PSID sid);
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
262 typedef HANDLE (WINAPI * CreateToolhelp32Snapshot_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
263 DWORD dwFlags,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
264 DWORD th32ProcessID);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
265 typedef BOOL (WINAPI * Process32First_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
266 HANDLE hSnapshot,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
267 LPPROCESSENTRY32 lppe);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
268 typedef BOOL (WINAPI * Process32Next_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
269 HANDLE hSnapshot,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
270 LPPROCESSENTRY32 lppe);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
271 typedef BOOL (WINAPI * OpenThreadToken_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
272 HANDLE ThreadHandle,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
273 DWORD DesiredAccess,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
274 BOOL OpenAsSelf,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
275 PHANDLE TokenHandle);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
276 typedef BOOL (WINAPI * ImpersonateSelf_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
277 SECURITY_IMPERSONATION_LEVEL ImpersonationLevel);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
278 typedef BOOL (WINAPI * RevertToSelf_Proc) (void);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
279 typedef BOOL (WINAPI * GetProcessMemoryInfo_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
280 HANDLE Process,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
281 PPROCESS_MEMORY_COUNTERS ppsmemCounters,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
282 DWORD cb);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
283 typedef BOOL (WINAPI * GetProcessWorkingSetSize_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
284 HANDLE hProcess,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
285 DWORD * lpMinimumWorkingSetSize,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
286 DWORD * lpMaximumWorkingSetSize);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
287 typedef BOOL (WINAPI * GlobalMemoryStatus_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
288 LPMEMORYSTATUS lpBuffer);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
289 typedef BOOL (WINAPI * GlobalMemoryStatusEx_Proc) (
97486
2c195017488c (_MEMORY_STATUS_EX, MEMORY_STATUS_EX, LPMEMORY_STATUS_EX): Rename from
Eli Zaretskii <eliz@gnu.org>
parents: 97372
diff changeset
290 LPMEMORY_STATUS_EX lpBuffer);
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
291 typedef BOOL (WINAPI * CopySid_Proc) (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
292 DWORD nDestinationSidLength,
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
293 PSID pDestinationSid,
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
294 PSID pSourceSid);
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
295 typedef BOOL (WINAPI * EqualSid_Proc) (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
296 PSID pSid1,
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
297 PSID pSid2);
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
298 typedef DWORD (WINAPI * GetLengthSid_Proc) (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
299 PSID pSid);
103718
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
300 typedef void (WINAPI * GetNativeSystemInfo_Proc) (
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
301 LPSYSTEM_INFO lpSystemInfo);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
302 typedef BOOL (WINAPI * GetSystemTimes_Proc) (
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
303 LPFILETIME lpIdleTime,
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
304 LPFILETIME lpKernelTime,
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
305 LPFILETIME lpUserTime);
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
306
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
307
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
308
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
309 /* ** A utility function ** */
74947
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
310 static BOOL
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
311 is_windows_9x ()
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
312 {
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
313 static BOOL s_b_ret=0;
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
314 OSVERSIONINFO os_ver;
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
315 if (g_b_init_is_windows_9x == 0)
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
316 {
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
317 g_b_init_is_windows_9x = 1;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
318 ZeroMemory(&os_ver, sizeof(OSVERSIONINFO));
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
319 os_ver.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
320 if (GetVersionEx (&os_ver))
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
321 {
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
322 s_b_ret = (os_ver.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS);
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
323 }
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
324 }
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
325 return s_b_ret;
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
326 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
327
81421
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
328 /* Get total user and system times for get-internal-run-time.
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
329 Returns a list of three integers if the times are provided by the OS
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
330 (NT derivatives), otherwise it returns the result of current-time. */
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
331 Lisp_Object
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
332 w32_get_internal_run_time ()
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
333 {
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
334 if (get_process_times_fn)
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
335 {
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
336 FILETIME create, exit, kernel, user;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
337 HANDLE proc = GetCurrentProcess();
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
338 if ((*get_process_times_fn) (proc, &create, &exit, &kernel, &user))
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
339 {
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
340 LARGE_INTEGER user_int, kernel_int, total;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
341 int microseconds;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
342 user_int.LowPart = user.dwLowDateTime;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
343 user_int.HighPart = user.dwHighDateTime;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
344 kernel_int.LowPart = kernel.dwLowDateTime;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
345 kernel_int.HighPart = kernel.dwHighDateTime;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
346 total.QuadPart = user_int.QuadPart + kernel_int.QuadPart;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
347 /* FILETIME is 100 nanosecond increments, Emacs only wants
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
348 microsecond resolution. */
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
349 total.QuadPart /= 10;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
350 microseconds = total.QuadPart % 1000000;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
351 total.QuadPart /= 1000000;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
352
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
353 /* Sanity check to make sure we can represent the result. */
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
354 if (total.HighPart == 0)
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
355 {
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
356 int secs = total.LowPart;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
357
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
358 return list3 (make_number ((secs >> 16) & 0xffff),
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
359 make_number (secs & 0xffff),
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
360 make_number (microseconds));
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
361 }
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
362 }
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
363 }
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
364
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
365 return Fcurrent_time ();
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
366 }
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
367
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
368 /* ** The wrapper functions ** */
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
369
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
370 BOOL WINAPI open_process_token (
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
371 HANDLE ProcessHandle,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
372 DWORD DesiredAccess,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
373 PHANDLE TokenHandle)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
374 {
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
375 static OpenProcessToken_Proc s_pfn_Open_Process_Token = NULL;
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
376 HMODULE hm_advapi32 = NULL;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
377 if (is_windows_9x () == TRUE)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
378 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
379 return FALSE;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
380 }
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
381 if (g_b_init_open_process_token == 0)
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
382 {
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
383 g_b_init_open_process_token = 1;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
384 hm_advapi32 = LoadLibrary ("Advapi32.dll");
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
385 s_pfn_Open_Process_Token =
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
386 (OpenProcessToken_Proc) GetProcAddress (hm_advapi32, "OpenProcessToken");
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
387 }
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
388 if (s_pfn_Open_Process_Token == NULL)
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
389 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
390 return FALSE;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
391 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
392 return (
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
393 s_pfn_Open_Process_Token (
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
394 ProcessHandle,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
395 DesiredAccess,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
396 TokenHandle)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
397 );
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
398 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
399
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
400 BOOL WINAPI get_token_information (
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
401 HANDLE TokenHandle,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
402 TOKEN_INFORMATION_CLASS TokenInformationClass,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
403 LPVOID TokenInformation,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
404 DWORD TokenInformationLength,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
405 PDWORD ReturnLength)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
406 {
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
407 static GetTokenInformation_Proc s_pfn_Get_Token_Information = NULL;
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
408 HMODULE hm_advapi32 = NULL;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
409 if (is_windows_9x () == TRUE)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
410 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
411 return FALSE;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
412 }
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
413 if (g_b_init_get_token_information == 0)
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
414 {
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
415 g_b_init_get_token_information = 1;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
416 hm_advapi32 = LoadLibrary ("Advapi32.dll");
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
417 s_pfn_Get_Token_Information =
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
418 (GetTokenInformation_Proc) GetProcAddress (hm_advapi32, "GetTokenInformation");
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
419 }
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
420 if (s_pfn_Get_Token_Information == NULL)
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
421 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
422 return FALSE;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
423 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
424 return (
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
425 s_pfn_Get_Token_Information (
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
426 TokenHandle,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
427 TokenInformationClass,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
428 TokenInformation,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
429 TokenInformationLength,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
430 ReturnLength)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
431 );
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
432 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
433
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
434 BOOL WINAPI lookup_account_sid (
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
435 LPCTSTR lpSystemName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
436 PSID Sid,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
437 LPTSTR Name,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
438 LPDWORD cbName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
439 LPTSTR DomainName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
440 LPDWORD cbDomainName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
441 PSID_NAME_USE peUse)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
442 {
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
443 static LookupAccountSid_Proc s_pfn_Lookup_Account_Sid = NULL;
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
444 HMODULE hm_advapi32 = NULL;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
445 if (is_windows_9x () == TRUE)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
446 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
447 return FALSE;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
448 }
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
449 if (g_b_init_lookup_account_sid == 0)
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
450 {
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
451 g_b_init_lookup_account_sid = 1;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
452 hm_advapi32 = LoadLibrary ("Advapi32.dll");
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
453 s_pfn_Lookup_Account_Sid =
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
454 (LookupAccountSid_Proc) GetProcAddress (hm_advapi32, LookupAccountSid_Name);
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
455 }
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
456 if (s_pfn_Lookup_Account_Sid == NULL)
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
457 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
458 return FALSE;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
459 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
460 return (
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
461 s_pfn_Lookup_Account_Sid (
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
462 lpSystemName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
463 Sid,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
464 Name,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
465 cbName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
466 DomainName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
467 cbDomainName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
468 peUse)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
469 );
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
470 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
471
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
472 PSID_IDENTIFIER_AUTHORITY WINAPI get_sid_identifier_authority (
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
473 PSID pSid)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
474 {
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
475 static GetSidIdentifierAuthority_Proc s_pfn_Get_Sid_Identifier_Authority = NULL;
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
476 HMODULE hm_advapi32 = NULL;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
477 if (is_windows_9x () == TRUE)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
478 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
479 return NULL;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
480 }
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
481 if (g_b_init_get_sid_identifier_authority == 0)
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
482 {
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
483 g_b_init_get_sid_identifier_authority = 1;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
484 hm_advapi32 = LoadLibrary ("Advapi32.dll");
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
485 s_pfn_Get_Sid_Identifier_Authority =
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
486 (GetSidIdentifierAuthority_Proc) GetProcAddress (
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
487 hm_advapi32, "GetSidIdentifierAuthority");
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
488 }
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
489 if (s_pfn_Get_Sid_Identifier_Authority == NULL)
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
490 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
491 return NULL;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
492 }
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
493 return (s_pfn_Get_Sid_Identifier_Authority (pSid));
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
494 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
495
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
496 PDWORD WINAPI get_sid_sub_authority (
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
497 PSID pSid,
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
498 DWORD n)
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
499 {
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
500 static GetSidSubAuthority_Proc s_pfn_Get_Sid_Sub_Authority = NULL;
87998
3ef9b6e3d2fa (get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents: 87995
diff changeset
501 static DWORD zero = 0U;
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
502 HMODULE hm_advapi32 = NULL;
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
503 if (is_windows_9x () == TRUE)
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
504 {
87998
3ef9b6e3d2fa (get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents: 87995
diff changeset
505 return &zero;
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
506 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
507 if (g_b_init_get_sid_sub_authority == 0)
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
508 {
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
509 g_b_init_get_sid_sub_authority = 1;
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
510 hm_advapi32 = LoadLibrary ("Advapi32.dll");
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
511 s_pfn_Get_Sid_Sub_Authority =
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
512 (GetSidSubAuthority_Proc) GetProcAddress (
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
513 hm_advapi32, "GetSidSubAuthority");
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
514 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
515 if (s_pfn_Get_Sid_Sub_Authority == NULL)
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
516 {
87998
3ef9b6e3d2fa (get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents: 87995
diff changeset
517 return &zero;
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
518 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
519 return (s_pfn_Get_Sid_Sub_Authority (pSid, n));
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
520 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
521
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
522 PUCHAR WINAPI get_sid_sub_authority_count (
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
523 PSID pSid)
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
524 {
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
525 static GetSidSubAuthorityCount_Proc s_pfn_Get_Sid_Sub_Authority_Count = NULL;
87998
3ef9b6e3d2fa (get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents: 87995
diff changeset
526 static UCHAR zero = 0U;
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
527 HMODULE hm_advapi32 = NULL;
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
528 if (is_windows_9x () == TRUE)
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
529 {
87998
3ef9b6e3d2fa (get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents: 87995
diff changeset
530 return &zero;
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
531 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
532 if (g_b_init_get_sid_sub_authority_count == 0)
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
533 {
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
534 g_b_init_get_sid_sub_authority_count = 1;
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
535 hm_advapi32 = LoadLibrary ("Advapi32.dll");
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
536 s_pfn_Get_Sid_Sub_Authority_Count =
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
537 (GetSidSubAuthorityCount_Proc) GetProcAddress (
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
538 hm_advapi32, "GetSidSubAuthorityCount");
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
539 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
540 if (s_pfn_Get_Sid_Sub_Authority_Count == NULL)
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
541 {
87998
3ef9b6e3d2fa (get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents: 87995
diff changeset
542 return &zero;
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
543 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
544 return (s_pfn_Get_Sid_Sub_Authority_Count (pSid));
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
545 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
546
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
547 BOOL WINAPI get_file_security (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
548 LPCTSTR lpFileName,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
549 SECURITY_INFORMATION RequestedInformation,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
550 PSECURITY_DESCRIPTOR pSecurityDescriptor,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
551 DWORD nLength,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
552 LPDWORD lpnLengthNeeded)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
553 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
554 static GetFileSecurity_Proc s_pfn_Get_File_Security = NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
555 HMODULE hm_advapi32 = NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
556 if (is_windows_9x () == TRUE)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
557 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
558 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
559 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
560 if (g_b_init_get_file_security == 0)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
561 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
562 g_b_init_get_file_security = 1;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
563 hm_advapi32 = LoadLibrary ("Advapi32.dll");
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
564 s_pfn_Get_File_Security =
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
565 (GetFileSecurity_Proc) GetProcAddress (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
566 hm_advapi32, GetFileSecurity_Name);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
567 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
568 if (s_pfn_Get_File_Security == NULL)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
569 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
570 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
571 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
572 return (s_pfn_Get_File_Security (lpFileName, RequestedInformation,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
573 pSecurityDescriptor, nLength,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
574 lpnLengthNeeded));
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
575 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
576
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
577 BOOL WINAPI get_security_descriptor_owner (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
578 PSECURITY_DESCRIPTOR pSecurityDescriptor,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
579 PSID *pOwner,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
580 LPBOOL lpbOwnerDefaulted)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
581 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
582 static GetSecurityDescriptorOwner_Proc s_pfn_Get_Security_Descriptor_Owner = NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
583 HMODULE hm_advapi32 = NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
584 if (is_windows_9x () == TRUE)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
585 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
586 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
587 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
588 if (g_b_init_get_security_descriptor_owner == 0)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
589 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
590 g_b_init_get_security_descriptor_owner = 1;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
591 hm_advapi32 = LoadLibrary ("Advapi32.dll");
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
592 s_pfn_Get_Security_Descriptor_Owner =
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
593 (GetSecurityDescriptorOwner_Proc) GetProcAddress (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
594 hm_advapi32, "GetSecurityDescriptorOwner");
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
595 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
596 if (s_pfn_Get_Security_Descriptor_Owner == NULL)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
597 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
598 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
599 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
600 return (s_pfn_Get_Security_Descriptor_Owner (pSecurityDescriptor, pOwner,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
601 lpbOwnerDefaulted));
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
602 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
603
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
604 BOOL WINAPI get_security_descriptor_group (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
605 PSECURITY_DESCRIPTOR pSecurityDescriptor,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
606 PSID *pGroup,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
607 LPBOOL lpbGroupDefaulted)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
608 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
609 static GetSecurityDescriptorGroup_Proc s_pfn_Get_Security_Descriptor_Group = NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
610 HMODULE hm_advapi32 = NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
611 if (is_windows_9x () == TRUE)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
612 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
613 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
614 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
615 if (g_b_init_get_security_descriptor_group == 0)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
616 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
617 g_b_init_get_security_descriptor_group = 1;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
618 hm_advapi32 = LoadLibrary ("Advapi32.dll");
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
619 s_pfn_Get_Security_Descriptor_Group =
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
620 (GetSecurityDescriptorGroup_Proc) GetProcAddress (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
621 hm_advapi32, "GetSecurityDescriptorGroup");
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
622 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
623 if (s_pfn_Get_Security_Descriptor_Group == NULL)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
624 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
625 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
626 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
627 return (s_pfn_Get_Security_Descriptor_Group (pSecurityDescriptor, pGroup,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
628 lpbGroupDefaulted));
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
629 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
630
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
631 BOOL WINAPI is_valid_sid (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
632 PSID sid)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
633 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
634 static IsValidSid_Proc s_pfn_Is_Valid_Sid = NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
635 HMODULE hm_advapi32 = NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
636 if (is_windows_9x () == TRUE)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
637 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
638 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
639 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
640 if (g_b_init_is_valid_sid == 0)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
641 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
642 g_b_init_is_valid_sid = 1;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
643 hm_advapi32 = LoadLibrary ("Advapi32.dll");
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
644 s_pfn_Is_Valid_Sid =
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
645 (IsValidSid_Proc) GetProcAddress (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
646 hm_advapi32, "IsValidSid");
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
647 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
648 if (s_pfn_Is_Valid_Sid == NULL)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
649 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
650 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
651 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
652 return (s_pfn_Is_Valid_Sid (sid));
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
653 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
654
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
655 BOOL WINAPI equal_sid (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
656 PSID sid1,
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
657 PSID sid2)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
658 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
659 static EqualSid_Proc s_pfn_Equal_Sid = NULL;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
660 HMODULE hm_advapi32 = NULL;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
661 if (is_windows_9x () == TRUE)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
662 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
663 return FALSE;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
664 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
665 if (g_b_init_equal_sid == 0)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
666 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
667 g_b_init_equal_sid = 1;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
668 hm_advapi32 = LoadLibrary ("Advapi32.dll");
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
669 s_pfn_Equal_Sid =
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
670 (EqualSid_Proc) GetProcAddress (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
671 hm_advapi32, "EqualSid");
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
672 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
673 if (s_pfn_Equal_Sid == NULL)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
674 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
675 return FALSE;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
676 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
677 return (s_pfn_Equal_Sid (sid1, sid2));
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
678 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
679
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
680 DWORD WINAPI get_length_sid (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
681 PSID sid)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
682 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
683 static GetLengthSid_Proc s_pfn_Get_Length_Sid = NULL;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
684 HMODULE hm_advapi32 = NULL;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
685 if (is_windows_9x () == TRUE)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
686 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
687 return 0;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
688 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
689 if (g_b_init_get_length_sid == 0)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
690 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
691 g_b_init_get_length_sid = 1;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
692 hm_advapi32 = LoadLibrary ("Advapi32.dll");
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
693 s_pfn_Get_Length_Sid =
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
694 (GetLengthSid_Proc) GetProcAddress (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
695 hm_advapi32, "GetLengthSid");
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
696 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
697 if (s_pfn_Get_Length_Sid == NULL)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
698 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
699 return 0;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
700 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
701 return (s_pfn_Get_Length_Sid (sid));
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
702 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
703
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
704 BOOL WINAPI copy_sid (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
705 DWORD destlen,
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
706 PSID dest,
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
707 PSID src)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
708 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
709 static CopySid_Proc s_pfn_Copy_Sid = NULL;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
710 HMODULE hm_advapi32 = NULL;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
711 if (is_windows_9x () == TRUE)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
712 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
713 return FALSE;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
714 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
715 if (g_b_init_copy_sid == 0)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
716 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
717 g_b_init_copy_sid = 1;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
718 hm_advapi32 = LoadLibrary ("Advapi32.dll");
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
719 s_pfn_Copy_Sid =
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
720 (CopySid_Proc) GetProcAddress (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
721 hm_advapi32, "CopySid");
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
722 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
723 if (s_pfn_Copy_Sid == NULL)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
724 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
725 return FALSE;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
726 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
727 return (s_pfn_Copy_Sid (destlen, dest, src));
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
728 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
729
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
730 /*
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
731 END: Wrapper functions around OpenProcessToken
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
732 and other functions in advapi32.dll that are only
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
733 supported in Windows NT / 2k / XP
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
734 */
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
735
103718
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
736 void WINAPI get_native_system_info (
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
737 LPSYSTEM_INFO lpSystemInfo)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
738 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
739 static GetNativeSystemInfo_Proc s_pfn_Get_Native_System_Info = NULL;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
740 if (is_windows_9x () != TRUE)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
741 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
742 if (g_b_init_get_native_system_info == 0)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
743 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
744 g_b_init_get_native_system_info = 1;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
745 s_pfn_Get_Native_System_Info =
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
746 (GetNativeSystemInfo_Proc)GetProcAddress (GetModuleHandle ("kernel32.dll"),
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
747 "GetNativeSystemInfo");
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
748 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
749 if (s_pfn_Get_Native_System_Info != NULL)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
750 s_pfn_Get_Native_System_Info (lpSystemInfo);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
751 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
752 else
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
753 lpSystemInfo->dwNumberOfProcessors = -1;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
754 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
755
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
756 BOOL WINAPI get_system_times(
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
757 LPFILETIME lpIdleTime,
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
758 LPFILETIME lpKernelTime,
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
759 LPFILETIME lpUserTime)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
760 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
761 static GetSystemTimes_Proc s_pfn_Get_System_times = NULL;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
762 if (is_windows_9x () == TRUE)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
763 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
764 return FALSE;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
765 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
766 if (g_b_init_get_system_times == 0)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
767 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
768 g_b_init_get_system_times = 1;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
769 s_pfn_Get_System_times =
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
770 (GetSystemTimes_Proc)GetProcAddress (GetModuleHandle ("kernel32.dll"),
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
771 "GetSystemTimes");
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
772 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
773 if (s_pfn_Get_System_times == NULL)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
774 return FALSE;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
775 return (s_pfn_Get_System_times (lpIdleTime, lpKernelTime, lpUserTime));
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
776 }
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
777
34696
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
778 /* Equivalent of strerror for W32 error codes. */
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
779 char *
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
780 w32_strerror (int error_no)
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
781 {
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
782 static char buf[500];
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
783
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
784 if (error_no == 0)
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
785 error_no = GetLastError ();
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
786
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
787 buf[0] = '\0';
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
788 if (!FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM, NULL,
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
789 error_no,
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
790 0, /* choose most suitable language */
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
791 buf, sizeof (buf), NULL))
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
792 sprintf (buf, "w32 error %u", error_no);
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
793 return buf;
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
794 }
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
795
72286
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
796 /* Return 1 if P is a valid pointer to an object of size SIZE. Return
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
797 0 if P is NOT a valid pointer. Return -1 if we cannot validate P.
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
798
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
799 This is called from alloc.c:valid_pointer_p. */
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
800 int
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
801 w32_valid_pointer_p (void *p, int size)
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
802 {
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
803 SIZE_T done;
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
804 HANDLE h = OpenProcess (PROCESS_VM_READ, FALSE, GetCurrentProcessId ());
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
805
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
806 if (h)
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
807 {
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
808 unsigned char *buf = alloca (size);
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
809 int retval = ReadProcessMemory (h, p, buf, size, &done);
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
810
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
811 CloseHandle (h);
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
812 return retval;
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
813 }
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
814 else
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
815 return -1;
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
816 }
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
817
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
818 static char startup_dir[MAXPATHLEN];
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
819
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
820 /* Get the current working directory. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
821 char *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
822 getwd (char *dir)
14246
ebdd1b50daba (nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
823 {
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
824 #if 0
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
825 if (GetCurrentDirectory (MAXPATHLEN, dir) > 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
826 return dir;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
827 return NULL;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
828 #else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
829 /* Emacs doesn't actually change directory itself, and we want to
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
830 force our real wd to be where emacs.exe is to avoid unnecessary
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
831 conflicts when trying to rename or delete directories. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
832 strcpy (dir, startup_dir);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
833 return dir;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
834 #endif
14246
ebdd1b50daba (nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
835 }
ebdd1b50daba (nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
836
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
837 #ifndef HAVE_SOCKETS
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
838 /* Emulate gethostname. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
839 int
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
840 gethostname (char *buffer, int size)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
841 {
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
842 /* NT only allows small host names, so the buffer is
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
843 certainly large enough. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
844 return !GetComputerName (buffer, &size);
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
845 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
846 #endif /* HAVE_SOCKETS */
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
847
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
848 /* Emulate getloadavg. */
103718
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
849
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
850 struct load_sample {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
851 time_t sample_time;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
852 ULONGLONG idle;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
853 ULONGLONG kernel;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
854 ULONGLONG user;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
855 };
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
856
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
857 /* Number of processors on this machine. */
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
858 static unsigned num_of_processors;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
859
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
860 /* We maintain 1-sec samples for the last 16 minutes in a circular buffer. */
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
861 static struct load_sample samples[16*60];
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
862 static int first_idx = -1, last_idx = -1;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
863 static int max_idx = sizeof (samples) / sizeof (samples[0]);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
864
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
865 static int
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
866 buf_next (int from)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
867 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
868 int next_idx = from + 1;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
869
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
870 if (next_idx >= max_idx)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
871 next_idx = 0;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
872
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
873 return next_idx;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
874 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
875
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
876 static int
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
877 buf_prev (int from)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
878 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
879 int prev_idx = from - 1;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
880
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
881 if (prev_idx < 0)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
882 prev_idx = max_idx - 1;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
883
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
884 return prev_idx;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
885 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
886
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
887 static void
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
888 sample_system_load (ULONGLONG *idle, ULONGLONG *kernel, ULONGLONG *user)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
889 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
890 SYSTEM_INFO sysinfo;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
891 FILETIME ft_idle, ft_user, ft_kernel;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
892
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
893 /* Initialize the number of processors on this machine. */
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
894 if (num_of_processors <= 0)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
895 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
896 get_native_system_info (&sysinfo);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
897 num_of_processors = sysinfo.dwNumberOfProcessors;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
898 if (num_of_processors <= 0)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
899 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
900 GetSystemInfo (&sysinfo);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
901 num_of_processors = sysinfo.dwNumberOfProcessors;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
902 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
903 if (num_of_processors <= 0)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
904 num_of_processors = 1;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
905 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
906
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
907 /* TODO: Take into account threads that are ready to run, by
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
908 sampling the "\System\Processor Queue Length" performance
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
909 counter. The code below accounts only for threads that are
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
910 actually running. */
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
911
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
912 if (get_system_times (&ft_idle, &ft_kernel, &ft_user))
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
913 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
914 ULARGE_INTEGER uidle, ukernel, uuser;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
915
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
916 memcpy (&uidle, &ft_idle, sizeof (ft_idle));
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
917 memcpy (&ukernel, &ft_kernel, sizeof (ft_kernel));
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
918 memcpy (&uuser, &ft_user, sizeof (ft_user));
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
919 *idle = uidle.QuadPart;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
920 *kernel = ukernel.QuadPart;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
921 *user = uuser.QuadPart;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
922 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
923 else
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
924 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
925 *idle = 0;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
926 *kernel = 0;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
927 *user = 0;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
928 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
929 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
930
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
931 /* Produce the load average for a given time interval, using the
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
932 samples in the samples[] array. WHICH can be 0, 1, or 2, meaning
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
933 1-minute, 5-minute, or 15-minute average, respectively. */
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
934 static double
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
935 getavg (int which)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
936 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
937 double retval = -1.0;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
938 double tdiff;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
939 int idx;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
940 double span = (which == 0 ? 1.0 : (which == 1 ? 5.0 : 15.0)) * 60;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
941 time_t now = samples[last_idx].sample_time;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
942
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
943 if (first_idx != last_idx)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
944 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
945 for (idx = buf_prev (last_idx); ; idx = buf_prev (idx))
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
946 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
947 tdiff = difftime (now, samples[idx].sample_time);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
948 if (tdiff >= span - 2*DBL_EPSILON*now)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
949 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
950 long double sys =
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
951 samples[last_idx].kernel + samples[last_idx].user
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
952 - (samples[idx].kernel + samples[idx].user);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
953 long double idl = samples[last_idx].idle - samples[idx].idle;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
954
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
955 retval = (1.0 - idl / sys) * num_of_processors;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
956 break;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
957 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
958 if (idx == first_idx)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
959 break;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
960 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
961 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
962
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
963 return retval;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
964 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
965
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
966 int
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
967 getloadavg (double loadavg[], int nelem)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
968 {
103718
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
969 int elem;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
970 ULONGLONG idle, kernel, user;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
971 time_t now = time (NULL);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
972
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
973 /* Store another sample. We ignore samples that are less than 1 sec
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
974 apart. */
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
975 if (difftime (now, samples[last_idx].sample_time) >= 1.0 - 2*DBL_EPSILON*now)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
976 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
977 sample_system_load (&idle, &kernel, &user);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
978 last_idx = buf_next (last_idx);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
979 samples[last_idx].sample_time = now;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
980 samples[last_idx].idle = idle;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
981 samples[last_idx].kernel = kernel;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
982 samples[last_idx].user = user;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
983 /* If the buffer has more that 15 min worth of samples, discard
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
984 the old ones. */
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
985 if (first_idx == -1)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
986 first_idx = last_idx;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
987 while (first_idx != last_idx
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
988 && (difftime (now, samples[first_idx].sample_time)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
989 >= 15.0*60 + 2*DBL_EPSILON*now))
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
990 first_idx = buf_next (first_idx);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
991 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
992
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
993 for (elem = 0; elem < nelem; elem++)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
994 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
995 double avg = getavg (elem);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
996
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
997 if (avg < 0)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
998 break;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
999 loadavg[elem] = avg;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
1000 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
1001
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
1002 return elem;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1003 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1004
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1005 /* Emulate getpwuid, getpwnam and others. */
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1006
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1007 #define PASSWD_FIELD_SIZE 256
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1008
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1009 static char dflt_passwd_name[PASSWD_FIELD_SIZE];
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1010 static char dflt_passwd_passwd[PASSWD_FIELD_SIZE];
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1011 static char dflt_passwd_gecos[PASSWD_FIELD_SIZE];
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1012 static char dflt_passwd_dir[PASSWD_FIELD_SIZE];
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1013 static char dflt_passwd_shell[PASSWD_FIELD_SIZE];
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1014
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1015 static struct passwd dflt_passwd =
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1016 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1017 dflt_passwd_name,
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1018 dflt_passwd_passwd,
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1019 0,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1020 0,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1021 0,
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1022 dflt_passwd_gecos,
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1023 dflt_passwd_dir,
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1024 dflt_passwd_shell,
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1025 };
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1026
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1027 static char dflt_group_name[GNLEN+1];
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1028
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1029 static struct group dflt_group =
53123
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
1030 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1031 /* When group information is not available, we return this as the
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1032 group for all files. */
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1033 dflt_group_name,
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1034 0,
53123
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
1035 };
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
1036
102670
06ca3efb355b inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents: 100951
diff changeset
1037 unsigned
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1038 getuid ()
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1039 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1040 return dflt_passwd.pw_uid;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1041 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1042
102670
06ca3efb355b inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents: 100951
diff changeset
1043 unsigned
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1044 geteuid ()
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1045 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1046 /* I could imagine arguing for checking to see whether the user is
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1047 in the Administrators group and returning a UID of 0 for that
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1048 case, but I don't know how wise that would be in the long run. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1049 return getuid ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1050 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1051
102670
06ca3efb355b inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents: 100951
diff changeset
1052 unsigned
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1053 getgid ()
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1054 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1055 return dflt_passwd.pw_gid;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1056 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1057
102670
06ca3efb355b inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents: 100951
diff changeset
1058 unsigned
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1059 getegid ()
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1060 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1061 return getgid ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1062 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1063
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1064 struct passwd *
102670
06ca3efb355b inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents: 100951
diff changeset
1065 getpwuid (unsigned uid)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1066 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1067 if (uid == dflt_passwd.pw_uid)
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1068 return &dflt_passwd;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1069 return NULL;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1070 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1071
53123
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
1072 struct group *
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
1073 getgrgid (gid_t gid)
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
1074 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1075 return &dflt_group;
53123
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
1076 }
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
1077
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1078 struct passwd *
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1079 getpwnam (char *name)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1080 {
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1081 struct passwd *pw;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1082
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1083 pw = getpwuid (getuid ());
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1084 if (!pw)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1085 return pw;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1086
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
1087 if (xstrcasecmp (name, pw->pw_name))
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1088 return NULL;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1089
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1090 return pw;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1091 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1092
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1093 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1094 init_user_info ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1095 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1096 /* Find the user's real name by opening the process token and
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1097 looking up the name associated with the user-sid in that token.
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1098
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1099 Use the relative portion of the identifier authority value from
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1100 the user-sid as the user id value (same for group id using the
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1101 primary group sid from the process token). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1102
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1103 char uname[UNLEN+1], gname[GNLEN+1], domain[1025];
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1104 DWORD ulength = sizeof (uname), dlength = sizeof (domain), needed;
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1105 DWORD glength = sizeof (gname);
78028
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
1106 HANDLE token = NULL;
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
1107 SID_NAME_USE user_type;
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1108 unsigned char *buf = NULL;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1109 DWORD blen = 0;
91878
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
1110 TOKEN_USER user_token;
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
1111 TOKEN_PRIMARY_GROUP group_token;
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1112 BOOL result;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1113
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1114 result = open_process_token (GetCurrentProcess (), TOKEN_QUERY, &token);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1115 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1116 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1117 result = get_token_information (token, TokenUser, NULL, 0, &blen);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1118 if (!result && GetLastError () == ERROR_INSUFFICIENT_BUFFER)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1119 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1120 buf = xmalloc (blen);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1121 result = get_token_information (token, TokenUser,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1122 (LPVOID)buf, blen, &needed);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1123 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1124 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1125 memcpy (&user_token, buf, sizeof (user_token));
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1126 result = lookup_account_sid (NULL, user_token.User.Sid,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1127 uname, &ulength,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1128 domain, &dlength, &user_type);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1129 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1130 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1131 else
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1132 result = FALSE;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1133 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1134 if (result)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1135 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1136 strcpy (dflt_passwd.pw_name, uname);
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
1137 /* Determine a reasonable uid value. */
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
1138 if (xstrcasecmp ("administrator", uname) == 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1139 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1140 dflt_passwd.pw_uid = 500; /* well-known Administrator uid */
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1141 dflt_passwd.pw_gid = 513; /* well-known None gid */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1142 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1143 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1144 {
87995
e576feac5b90 (init_user_info): Fix commentary for RID usage.
Eli Zaretskii <eliz@gnu.org>
parents: 87990
diff changeset
1145 /* Use the last sub-authority value of the RID, the relative
e576feac5b90 (init_user_info): Fix commentary for RID usage.
Eli Zaretskii <eliz@gnu.org>
parents: 87990
diff changeset
1146 portion of the SID, as user/group ID. */
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
1147 dflt_passwd.pw_uid = get_rid (user_token.User.Sid);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
1148
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
1149 /* Get group id and name. */
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1150 result = get_token_information (token, TokenPrimaryGroup,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1151 (LPVOID)buf, blen, &needed);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1152 if (!result && GetLastError () == ERROR_INSUFFICIENT_BUFFER)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1153 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1154 buf = xrealloc (buf, blen = needed);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1155 result = get_token_information (token, TokenPrimaryGroup,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1156 (LPVOID)buf, blen, &needed);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1157 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1158 if (result)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1159 {
91878
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
1160 memcpy (&group_token, buf, sizeof (group_token));
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
1161 dflt_passwd.pw_gid = get_rid (group_token.PrimaryGroup);
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1162 dlength = sizeof (domain);
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1163 /* If we can get at the real Primary Group name, use that.
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1164 Otherwise, the default group name was already set to
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1165 "None" in globals_of_w32. */
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1166 if (lookup_account_sid (NULL, group_token.PrimaryGroup,
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1167 gname, &glength, NULL, &dlength,
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1168 &user_type))
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1169 strcpy (dflt_group_name, gname);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1170 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1171 else
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1172 dflt_passwd.pw_gid = dflt_passwd.pw_uid;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1173 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1174 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1175 /* If security calls are not supported (presumably because we
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1176 are running under Windows 9X), fallback to this: */
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1177 else if (GetUserName (uname, &ulength))
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1178 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1179 strcpy (dflt_passwd.pw_name, uname);
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
1180 if (xstrcasecmp ("administrator", uname) == 0)
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1181 dflt_passwd.pw_uid = 0;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1182 else
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1183 dflt_passwd.pw_uid = 123;
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1184 dflt_passwd.pw_gid = dflt_passwd.pw_uid;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1185 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1186 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1187 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1188 strcpy (dflt_passwd.pw_name, "unknown");
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1189 dflt_passwd.pw_uid = 123;
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1190 dflt_passwd.pw_gid = 123;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1191 }
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1192 dflt_group.gr_gid = dflt_passwd.pw_gid;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1193
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1194 /* Ensure HOME and SHELL are defined. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1195 if (getenv ("HOME") == NULL)
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1196 abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1197 if (getenv ("SHELL") == NULL)
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1198 abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1199
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1200 /* Set dir and shell from environment variables. */
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1201 strcpy (dflt_passwd.pw_dir, getenv ("HOME"));
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1202 strcpy (dflt_passwd.pw_shell, getenv ("SHELL"));
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1203
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1204 xfree (buf);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1205 if (token)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1206 CloseHandle (token);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1207 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1208
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1209 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1210 random ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1211 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1212 /* rand () on NT gives us 15 random bits...hack together 30 bits. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1213 return ((rand () << 15) | rand ());
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1214 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1215
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1216 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1217 srandom (int seed)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1218 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1219 srand (seed);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1220 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1221
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1222
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1223 /* Normalize filename by converting all path separators to
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1224 the specified separator. Also conditionally convert upper
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1225 case path name components to lower case. */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1226
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1227 static void
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1228 normalize_filename (fp, path_sep)
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1229 register char *fp;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1230 char path_sep;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1231 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1232 char sep;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1233 char *elem;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1234
15615
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1235 /* Always lower-case drive letters a-z, even if the filesystem
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1236 preserves case in filenames.
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1237 This is so filenames can be compared by string comparison
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1238 functions that are case-sensitive. Even case-preserving filesystems
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1239 do not distinguish case in drive letters. */
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1240 if (fp[1] == ':' && *fp >= 'A' && *fp <= 'Z')
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1241 {
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1242 *fp += 'a' - 'A';
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1243 fp += 2;
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1244 }
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1245
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
1246 if (NILP (Vw32_downcase_file_names))
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1247 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1248 while (*fp)
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1249 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1250 if (*fp == '/' || *fp == '\\')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1251 *fp = path_sep;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1252 fp++;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1253 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1254 return;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1255 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1256
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1257 sep = path_sep; /* convert to this path separator */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1258 elem = fp; /* start of current path element */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1259
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1260 do {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1261 if (*fp >= 'a' && *fp <= 'z')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1262 elem = 0; /* don't convert this element */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1263
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1264 if (*fp == 0 || *fp == ':')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1265 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1266 sep = *fp; /* restore current separator (or 0) */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1267 *fp = '/'; /* after conversion of this element */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1268 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1269
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1270 if (*fp == '/' || *fp == '\\')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1271 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1272 if (elem && elem != fp)
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1273 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1274 *fp = 0; /* temporary end of string */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1275 _strlwr (elem); /* while we convert to lower case */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1276 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1277 *fp = sep; /* convert (or restore) path separator */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1278 elem = fp + 1; /* next element starts after separator */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1279 sep = path_sep;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1280 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1281 } while (*fp++);
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1282 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1283
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1284 /* Destructively turn backslashes into slashes. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1285 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1286 dostounix_filename (p)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1287 register char *p;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1288 {
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1289 normalize_filename (p, '/');
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1290 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1291
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1292 /* Destructively turn slashes into backslashes. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1293 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1294 unixtodos_filename (p)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1295 register char *p;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1296 {
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1297 normalize_filename (p, '\\');
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1298 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1299
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1300 /* Remove all CR's that are followed by a LF.
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1301 (From msdos.c...probably should figure out a way to share it,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1302 although this code isn't going to ever change.) */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1303 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1304 crlf_to_lf (n, buf)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1305 register int n;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1306 register unsigned char *buf;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1307 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1308 unsigned char *np = buf;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1309 unsigned char *startp = buf;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1310 unsigned char *endp = buf + n;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1311
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1312 if (n == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1313 return n;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1314 while (buf < endp - 1)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1315 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1316 if (*buf == 0x0d)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1317 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1318 if (*(++buf) != 0x0a)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1319 *np++ = 0x0d;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1320 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1321 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1322 *np++ = *buf++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1323 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1324 if (buf < endp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1325 *np++ = *buf++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1326 return np - startp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1327 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1328
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1329 /* Parse the root part of file name, if present. Return length and
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1330 optionally store pointer to char after root. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1331 static int
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1332 parse_root (char * name, char ** pPath)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1333 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1334 char * start = name;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1335
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1336 if (name == NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1337 return 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1338
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1339 /* find the root name of the volume if given */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1340 if (isalpha (name[0]) && name[1] == ':')
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1341 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1342 /* skip past drive specifier */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1343 name += 2;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1344 if (IS_DIRECTORY_SEP (name[0]))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1345 name++;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1346 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1347 else if (IS_DIRECTORY_SEP (name[0]) && IS_DIRECTORY_SEP (name[1]))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1348 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1349 int slashes = 2;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1350 name += 2;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1351 do
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1352 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1353 if (IS_DIRECTORY_SEP (*name) && --slashes == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1354 break;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1355 name++;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1356 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1357 while ( *name );
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1358 if (IS_DIRECTORY_SEP (name[0]))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1359 name++;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1360 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1361
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1362 if (pPath)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1363 *pPath = name;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1364
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1365 return name - start;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1366 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1367
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1368 /* Get long base name for name; name is assumed to be absolute. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1369 static int
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1370 get_long_basename (char * name, char * buf, int size)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1371 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1372 WIN32_FIND_DATA find_data;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1373 HANDLE dir_handle;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1374 int len = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1375
28932
f8b0ac62f238 Use the term `invalid' instead of `illegal'.
Gerd Moellmann <gerd@gnu.org>
parents: 27890
diff changeset
1376 /* must be valid filename, no wild cards or other invalid characters */
76098
9ad6c99cdc71 (stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents: 75348
diff changeset
1377 if (_mbspbrk (name, "*?|<>\""))
22039
c33bec4d9e67 (stat, get_long_basename): Fail if filename contains any
Richard M. Stallman <rms@gnu.org>
parents: 21747
diff changeset
1378 return 0;
c33bec4d9e67 (stat, get_long_basename): Fail if filename contains any
Richard M. Stallman <rms@gnu.org>
parents: 21747
diff changeset
1379
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1380 dir_handle = FindFirstFile (name, &find_data);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1381 if (dir_handle != INVALID_HANDLE_VALUE)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1382 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1383 if ((len = strlen (find_data.cFileName)) < size)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1384 memcpy (buf, find_data.cFileName, len + 1);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1385 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1386 len = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1387 FindClose (dir_handle);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1388 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1389 return len;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1390 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1391
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1392 /* Get long name for file, if possible (assumed to be absolute). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1393 BOOL
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1394 w32_get_long_filename (char * name, char * buf, int size)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1395 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1396 char * o = buf;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1397 char * p;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1398 char * q;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1399 char full[ MAX_PATH ];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1400 int len;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1401
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1402 len = strlen (name);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1403 if (len >= MAX_PATH)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1404 return FALSE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1405
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1406 /* Use local copy for destructive modification. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1407 memcpy (full, name, len+1);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1408 unixtodos_filename (full);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1409
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1410 /* Copy root part verbatim. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1411 len = parse_root (full, &p);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1412 memcpy (o, full, len);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1413 o += len;
23858
6bb3dc7f1b48 (w32_get_long_filename): Handle root dirs correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23809
diff changeset
1414 *o = '\0';
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1415 size -= len;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1416
23858
6bb3dc7f1b48 (w32_get_long_filename): Handle root dirs correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23809
diff changeset
1417 while (p != NULL && *p)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1418 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1419 q = p;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1420 p = strchr (q, '\\');
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1421 if (p) *p = '\0';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1422 len = get_long_basename (full, o, size);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1423 if (len > 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1424 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1425 o += len;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1426 size -= len;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1427 if (p != NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1428 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1429 *p++ = '\\';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1430 if (size < 2)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1431 return FALSE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1432 *o++ = '\\';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1433 size--;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1434 *o = '\0';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1435 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1436 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1437 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1438 return FALSE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1439 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1440
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1441 return TRUE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1442 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1443
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1444 int
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1445 is_unc_volume (const char *filename)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1446 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1447 const char *ptr = filename;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1448
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1449 if (!IS_DIRECTORY_SEP (ptr[0]) || !IS_DIRECTORY_SEP (ptr[1]) || !ptr[2])
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1450 return 0;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1451
76098
9ad6c99cdc71 (stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents: 75348
diff changeset
1452 if (_mbspbrk (ptr + 2, "*?|<>\"\\/"))
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1453 return 0;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1454
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1455 return 1;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1456 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1457
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1458 /* Routines that are no-ops on NT but are defined to get Emacs to compile. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1459
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1460 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1461 sigsetmask (int signal_mask)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1462 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1463 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1464 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1465
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1466 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1467 sigmask (int sig)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1468 {
27630
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
1469 return 0;
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
1470 }
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
1471
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1472 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1473 sigblock (int sig)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1474 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1475 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1476 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1477
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1478 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1479 sigunblock (int sig)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1480 {
27630
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
1481 return 0;
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
1482 }
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
1483
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1484 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1485 setpgrp (int pid, int gid)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1486 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1487 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1488 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1489
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1490 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1491 alarm (int seconds)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1492 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1493 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1494 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1495
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1496 #define REG_ROOT "SOFTWARE\\GNU\\Emacs"
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1497
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1498 LPBYTE
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
1499 w32_get_resource (key, lpdwtype)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1500 char *key;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1501 LPDWORD lpdwtype;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1502 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1503 LPBYTE lpvalue;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1504 HKEY hrootkey = NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1505 DWORD cbData;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1506
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1507 /* Check both the current user and the local machine to see if
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1508 we have any resources. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1509
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1510 if (RegOpenKeyEx (HKEY_CURRENT_USER, REG_ROOT, 0, KEY_READ, &hrootkey) == ERROR_SUCCESS)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1511 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1512 lpvalue = NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1513
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1514 if (RegQueryValueEx (hrootkey, key, NULL, NULL, NULL, &cbData) == ERROR_SUCCESS
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1515 && (lpvalue = (LPBYTE) xmalloc (cbData)) != NULL
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1516 && RegQueryValueEx (hrootkey, key, NULL, lpdwtype, lpvalue, &cbData) == ERROR_SUCCESS)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1517 {
78919
87875c00eb06 (w32_get_resource): Always close registry keys.
Jason Rumney <jasonr@gnu.org>
parents: 78260
diff changeset
1518 RegCloseKey (hrootkey);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1519 return (lpvalue);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1520 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1521
95481
4390d64d3328 Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents: 95277
diff changeset
1522 xfree (lpvalue);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1523
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1524 RegCloseKey (hrootkey);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1525 }
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1526
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1527 if (RegOpenKeyEx (HKEY_LOCAL_MACHINE, REG_ROOT, 0, KEY_READ, &hrootkey) == ERROR_SUCCESS)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1528 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1529 lpvalue = NULL;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1530
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1531 if (RegQueryValueEx (hrootkey, key, NULL, NULL, NULL, &cbData) == ERROR_SUCCESS
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1532 && (lpvalue = (LPBYTE) xmalloc (cbData)) != NULL
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1533 && RegQueryValueEx (hrootkey, key, NULL, lpdwtype, lpvalue, &cbData) == ERROR_SUCCESS)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1534 {
78919
87875c00eb06 (w32_get_resource): Always close registry keys.
Jason Rumney <jasonr@gnu.org>
parents: 78260
diff changeset
1535 RegCloseKey (hrootkey);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1536 return (lpvalue);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1537 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1538
95481
4390d64d3328 Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents: 95277
diff changeset
1539 xfree (lpvalue);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1540
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1541 RegCloseKey (hrootkey);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1542 }
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1543
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1544 return (NULL);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1545 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1546
16892
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1547 char *get_emacs_configuration (void);
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1548 extern Lisp_Object Vsystem_configuration;
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1549
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1550 void
24229
fc89585ce76f (init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents: 23858
diff changeset
1551 init_environment (char ** argv)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1552 {
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1553 static const char * const tempdirs[] = {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1554 "$TMPDIR", "$TEMP", "$TMP", "c:/"
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1555 };
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1556
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1557 int i;
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1558
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1559 const int imax = sizeof (tempdirs) / sizeof (tempdirs[0]);
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1560
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1561 /* Make sure they have a usable $TMPDIR. Many Emacs functions use
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1562 temporary files and assume "/tmp" if $TMPDIR is unset, which
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1563 will break on DOS/Windows. Refuse to work if we cannot find
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1564 a directory, not even "c:/", usable for that purpose. */
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1565 for (i = 0; i < imax ; i++)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1566 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1567 const char *tmp = tempdirs[i];
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1568
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1569 if (*tmp == '$')
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1570 tmp = getenv (tmp + 1);
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1571 /* Note that `access' can lie to us if the directory resides on a
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1572 read-only filesystem, like CD-ROM or a write-protected floppy.
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1573 The only way to be really sure is to actually create a file and
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1574 see if it succeeds. But I think that's too much to ask. */
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1575 if (tmp && _access (tmp, D_OK) == 0)
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1576 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1577 char * var = alloca (strlen (tmp) + 8);
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1578 sprintf (var, "TMPDIR=%s", tmp);
36001
1d402a57bb21 (init-environment): Duplicate local string before putenv.
Jason Rumney <jasonr@gnu.org>
parents: 35425
diff changeset
1579 _putenv (strdup (var));
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1580 break;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1581 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1582 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1583 if (i >= imax)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1584 cmd_error_internal
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1585 (Fcons (Qerror,
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1586 Fcons (build_string ("no usable temporary directories found!!"),
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1587 Qnil)),
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1588 "While setting TMPDIR: ");
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1589
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1590 /* Check for environment variables and use registry settings if they
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1591 don't exist. Fallback on default values where applicable. */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1592 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1593 int i;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1594 LPBYTE lpval;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1595 DWORD dwType;
33869
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1596 char locale_name[32];
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1597 struct stat ignored;
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1598 char default_home[MAX_PATH];
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1599
70738
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1600 static const struct env_entry
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1601 {
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1602 char * name;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1603 char * def_value;
70738
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1604 } dflt_envvars[] =
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1605 {
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1606 {"HOME", "C:/"},
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1607 {"PRELOAD_WINSOCK", NULL},
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1608 {"emacs_dir", "C:/emacs"},
35425
c26271ca6ad0 (init_environment): Add a version-independent site-lisp
Andrew Innes <andrewi@gnu.org>
parents: 35286
diff changeset
1609 {"EMACSLOADPATH", "%emacs_dir%/site-lisp;%emacs_dir%/../site-lisp;%emacs_dir%/lisp;%emacs_dir%/leim"},
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1610 {"SHELL", "%emacs_dir%/bin/cmdproxy.exe"},
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1611 {"EMACSDATA", "%emacs_dir%/etc"},
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1612 {"EMACSPATH", "%emacs_dir%/bin"},
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1613 /* We no longer set INFOPATH because Info-default-directory-list
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1614 is then ignored. */
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1615 /* {"INFOPATH", "%emacs_dir%/info"}, */
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1616 {"EMACSDOC", "%emacs_dir%/etc"},
33869
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1617 {"TERM", "cmd"},
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1618 {"LANG", NULL},
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1619 };
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1620
70738
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1621 #define N_ENV_VARS sizeof(dflt_envvars)/sizeof(dflt_envvars[0])
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1622
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1623 /* We need to copy dflt_envvars[] and work on the copy because we
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1624 don't want the dumped Emacs to inherit the values of
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1625 environment variables we saw during dumping (which could be on
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1626 a different system). The defaults above must be left intact. */
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1627 struct env_entry env_vars[N_ENV_VARS];
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1628
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1629 for (i = 0; i < N_ENV_VARS; i++)
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1630 env_vars[i] = dflt_envvars[i];
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1631
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1632 /* For backwards compatibility, check if a .emacs file exists in C:/
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1633 If not, then we can try to default to the appdata directory under the
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1634 user's profile, which is more likely to be writable. */
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1635 if (stat ("C:/.emacs", &ignored) < 0)
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1636 {
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1637 HRESULT profile_result;
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1638 /* Dynamically load ShGetFolderPath, as it won't exist on versions
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1639 of Windows 95 and NT4 that have not been updated to include
100192
038d7d21b786 * w32.c (init_environment): Don't free handle to library shell32.dll.
Juanma Barranquero <lekktu@gmail.com>
parents: 97875
diff changeset
1640 MSIE 5. */
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1641 ShGetFolderPath_fn get_folder_path;
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1642 get_folder_path = (ShGetFolderPath_fn)
100192
038d7d21b786 * w32.c (init_environment): Don't free handle to library shell32.dll.
Juanma Barranquero <lekktu@gmail.com>
parents: 97875
diff changeset
1643 GetProcAddress (GetModuleHandle ("shell32.dll"), "SHGetFolderPathA");
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1644
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1645 if (get_folder_path != NULL)
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1646 {
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1647 profile_result = get_folder_path (NULL, CSIDL_APPDATA, NULL,
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1648 0, default_home);
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1649
96376
c3309dba6542 American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 95917
diff changeset
1650 /* If we can't get the appdata dir, revert to old behavior. */
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1651 if (profile_result == S_OK)
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1652 env_vars[0].def_value = default_home;
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1653 }
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1654 }
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1655
33869
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1656 /* Get default locale info and use it for LANG. */
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1657 if (GetLocaleInfo (LOCALE_USER_DEFAULT,
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1658 LOCALE_SABBREVLANGNAME | LOCALE_USE_CP_ACP,
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1659 locale_name, sizeof (locale_name)))
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1660 {
70738
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1661 for (i = 0; i < N_ENV_VARS; i++)
33869
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1662 {
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1663 if (strcmp (env_vars[i].name, "LANG") == 0)
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1664 {
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1665 env_vars[i].def_value = locale_name;
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1666 break;
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1667 }
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1668 }
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1669 }
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1670
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1671 #define SET_ENV_BUF_SIZE (4 * MAX_PATH) /* to cover EMACSLOADPATH */
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1672
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1673 /* Treat emacs_dir specially: set it unconditionally based on our
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1674 location, if it appears that we are running from the bin subdir
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1675 of a standard installation. */
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1676 {
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1677 char *p;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1678 char modname[MAX_PATH];
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1679
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1680 if (!GetModuleFileName (NULL, modname, MAX_PATH))
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1681 abort ();
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1682 if ((p = strrchr (modname, '\\')) == NULL)
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1683 abort ();
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1684 *p = 0;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1685
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
1686 if ((p = strrchr (modname, '\\')) && xstrcasecmp (p, "\\bin") == 0)
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1687 {
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1688 char buf[SET_ENV_BUF_SIZE];
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1689
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1690 *p = 0;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1691 for (p = modname; *p; p++)
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1692 if (*p == '\\') *p = '/';
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1693
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1694 _snprintf (buf, sizeof(buf)-1, "emacs_dir=%s", modname);
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1695 _putenv (strdup (buf));
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1696 }
57609
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1697 /* Handle running emacs from the build directory: src/oo-spd/i386/ */
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1698
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1699 /* FIXME: should use substring of get_emacs_configuration ().
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1700 But I don't think the Windows build supports alpha, mips etc
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1701 anymore, so have taken the easy option for now. */
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
1702 else if (p && xstrcasecmp (p, "\\i386") == 0)
57609
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1703 {
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1704 *p = 0;
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1705 p = strrchr (modname, '\\');
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1706 if (p != NULL)
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1707 {
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1708 *p = 0;
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1709 p = strrchr (modname, '\\');
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
1710 if (p && xstrcasecmp (p, "\\src") == 0)
57609
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1711 {
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1712 char buf[SET_ENV_BUF_SIZE];
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1713
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1714 *p = 0;
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1715 for (p = modname; *p; p++)
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1716 if (*p == '\\') *p = '/';
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1717
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1718 _snprintf (buf, sizeof(buf)-1, "emacs_dir=%s", modname);
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1719 _putenv (strdup (buf));
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1720 }
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1721 }
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1722 }
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1723 }
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1724
70738
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1725 for (i = 0; i < N_ENV_VARS; i++)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1726 {
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1727 if (!getenv (env_vars[i].name))
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1728 {
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1729 int dont_free = 0;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1730
78028
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
1731 if ((lpval = w32_get_resource (env_vars[i].name, &dwType)) == NULL
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
1732 /* Also ignore empty environment variables. */
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
1733 || *lpval == 0)
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1734 {
95481
4390d64d3328 Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents: 95277
diff changeset
1735 xfree (lpval);
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1736 lpval = env_vars[i].def_value;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1737 dwType = REG_EXPAND_SZ;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1738 dont_free = 1;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1739 }
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1740
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1741 if (lpval)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1742 {
70740
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1743 char buf1[SET_ENV_BUF_SIZE], buf2[SET_ENV_BUF_SIZE];
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1744
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1745 if (dwType == REG_EXPAND_SZ)
70740
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1746 ExpandEnvironmentStrings ((LPSTR) lpval, buf1, sizeof(buf1));
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1747 else if (dwType == REG_SZ)
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1748 strcpy (buf1, lpval);
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1749 if (dwType == REG_EXPAND_SZ || dwType == REG_SZ)
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1750 {
70740
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1751 _snprintf (buf2, sizeof(buf2)-1, "%s=%s", env_vars[i].name,
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1752 buf1);
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1753 _putenv (strdup (buf2));
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1754 }
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1755
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1756 if (!dont_free)
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1757 xfree (lpval);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1758 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1759 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1760 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1761 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1762
16892
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1763 /* Rebuild system configuration to reflect invoking system. */
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1764 Vsystem_configuration = build_string (EMACS_CONFIGURATION);
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1765
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1766 /* Another special case: on NT, the PATH variable is actually named
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1767 "Path" although cmd.exe (perhaps NT itself) arranges for
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1768 environment variable lookup and setting to be case insensitive.
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1769 However, Emacs assumes a fully case sensitive environment, so we
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1770 need to change "Path" to "PATH" to match the expectations of
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1771 various elisp packages. We do this by the sneaky method of
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1772 modifying the string in the C runtime environ entry.
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1773
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1774 The same applies to COMSPEC. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1775 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1776 char ** envp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1777
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1778 for (envp = environ; *envp; envp++)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1779 if (_strnicmp (*envp, "PATH=", 5) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1780 memcpy (*envp, "PATH=", 5);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1781 else if (_strnicmp (*envp, "COMSPEC=", 8) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1782 memcpy (*envp, "COMSPEC=", 8);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1783 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1784
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1785 /* Remember the initial working directory for getwd, then make the
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1786 real wd be the location of emacs.exe to avoid conflicts when
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1787 renaming or deleting directories. (We also don't call chdir when
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1788 running subprocesses for the same reason.) */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1789 if (!GetCurrentDirectory (MAXPATHLEN, startup_dir))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1790 abort ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1791
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1792 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1793 char *p;
24229
fc89585ce76f (init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents: 23858
diff changeset
1794 static char modname[MAX_PATH];
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1795
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1796 if (!GetModuleFileName (NULL, modname, MAX_PATH))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1797 abort ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1798 if ((p = strrchr (modname, '\\')) == NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1799 abort ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1800 *p = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1801
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1802 SetCurrentDirectory (modname);
24229
fc89585ce76f (init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents: 23858
diff changeset
1803
fc89585ce76f (init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents: 23858
diff changeset
1804 /* Ensure argv[0] has the full path to Emacs. */
fc89585ce76f (init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents: 23858
diff changeset
1805 *p = '\\';
fc89585ce76f (init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents: 23858
diff changeset
1806 argv[0] = modname;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1807 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1808
27890
91be3fa84ccb (init_environment): Set Vw32_num_mouse_buttons here.
Jason Rumney <jasonr@gnu.org>
parents: 27630
diff changeset
1809 /* Determine if there is a middle mouse button, to allow parse_button
91be3fa84ccb (init_environment): Set Vw32_num_mouse_buttons here.
Jason Rumney <jasonr@gnu.org>
parents: 27630
diff changeset
1810 to decide whether right mouse events should be mouse-2 or
91be3fa84ccb (init_environment): Set Vw32_num_mouse_buttons here.
Jason Rumney <jasonr@gnu.org>
parents: 27630
diff changeset
1811 mouse-3. */
55645
5b3f2477d17b Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents: 55643
diff changeset
1812 w32_num_mouse_buttons = GetSystemMetrics (SM_CMOUSEBUTTONS);
27890
91be3fa84ccb (init_environment): Set Vw32_num_mouse_buttons here.
Jason Rumney <jasonr@gnu.org>
parents: 27630
diff changeset
1813
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1814 init_user_info ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1815 }
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1816
42192
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1817 char *
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1818 emacs_root_dir (void)
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1819 {
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1820 static char root_dir[FILENAME_MAX];
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1821 const char *p;
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1822
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1823 p = getenv ("emacs_dir");
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1824 if (p == NULL)
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1825 abort ();
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1826 strcpy (root_dir, p);
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1827 root_dir[parse_root (root_dir, NULL)] = '\0';
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1828 dostounix_filename (root_dir);
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1829 return root_dir;
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1830 }
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1831
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1832 /* We don't have scripts to automatically determine the system configuration
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1833 for Emacs before it's compiled, and we don't want to have to make the
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1834 user enter it, so we define EMACS_CONFIGURATION to invoke this runtime
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1835 routine. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1836
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1837 char *
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1838 get_emacs_configuration (void)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1839 {
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1840 char *arch, *oem, *os;
24885
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1841 int build_num;
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1842 static char configuration_buffer[32];
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1843
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1844 /* Determine the processor type. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1845 switch (get_processor_type ())
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1846 {
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1847
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1848 #ifdef PROCESSOR_INTEL_386
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1849 case PROCESSOR_INTEL_386:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1850 case PROCESSOR_INTEL_486:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1851 case PROCESSOR_INTEL_PENTIUM:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1852 arch = "i386";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1853 break;
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1854 #endif
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1855
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1856 #ifdef PROCESSOR_MIPS_R2000
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1857 case PROCESSOR_MIPS_R2000:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1858 case PROCESSOR_MIPS_R3000:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1859 case PROCESSOR_MIPS_R4000:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1860 arch = "mips";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1861 break;
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1862 #endif
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1863
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1864 #ifdef PROCESSOR_ALPHA_21064
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1865 case PROCESSOR_ALPHA_21064:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1866 arch = "alpha";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1867 break;
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1868 #endif
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1869
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1870 default:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1871 arch = "unknown";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1872 break;
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1873 }
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1874
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1875 /* Use the OEM field to reflect the compiler/library combination. */
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1876 #ifdef _MSC_VER
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1877 #define COMPILER_NAME "msvc"
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1878 #else
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1879 #ifdef __GNUC__
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1880 #define COMPILER_NAME "mingw"
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1881 #else
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1882 #define COMPILER_NAME "unknown"
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1883 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1884 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1885 oem = COMPILER_NAME;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1886
24885
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1887 switch (osinfo_cache.dwPlatformId) {
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1888 case VER_PLATFORM_WIN32_NT:
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1889 os = "nt";
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1890 build_num = osinfo_cache.dwBuildNumber;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1891 break;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1892 case VER_PLATFORM_WIN32_WINDOWS:
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1893 if (osinfo_cache.dwMinorVersion == 0) {
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1894 os = "windows95";
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1895 } else {
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1896 os = "windows98";
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1897 }
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1898 build_num = LOWORD (osinfo_cache.dwBuildNumber);
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1899 break;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1900 case VER_PLATFORM_WIN32s:
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1901 /* Not supported, should not happen. */
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1902 os = "windows32s";
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1903 build_num = LOWORD (osinfo_cache.dwBuildNumber);
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1904 break;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1905 default:
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1906 os = "unknown";
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1907 build_num = 0;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1908 break;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1909 }
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1910
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1911 if (osinfo_cache.dwPlatformId == VER_PLATFORM_WIN32_NT) {
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1912 sprintf (configuration_buffer, "%s-%s-%s%d.%d.%d", arch, oem, os,
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1913 get_w32_major_version (), get_w32_minor_version (), build_num);
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1914 } else {
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1915 sprintf (configuration_buffer, "%s-%s-%s.%d", arch, oem, os, build_num);
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1916 }
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1917
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1918 return configuration_buffer;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1919 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1920
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1921 char *
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1922 get_emacs_configuration_options (void)
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1923 {
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1924 static char options_buffer[256];
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1925
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1926 /* Work out the effective configure options for this build. */
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1927 #ifdef _MSC_VER
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1928 #define COMPILER_VERSION "--with-msvc (%d.%02d)", _MSC_VER / 100, _MSC_VER % 100
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1929 #else
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1930 #ifdef __GNUC__
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1931 #define COMPILER_VERSION "--with-gcc (%d.%d)", __GNUC__, __GNUC_MINOR__
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1932 #else
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1933 #define COMPILER_VERSION ""
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1934 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1935 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1936
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1937 sprintf (options_buffer, COMPILER_VERSION);
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1938 #ifdef EMACSDEBUG
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1939 strcat (options_buffer, " --no-opt");
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1940 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1941 #ifdef USER_CFLAGS
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1942 strcat (options_buffer, " --cflags");
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1943 strcat (options_buffer, USER_CFLAGS);
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1944 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1945 #ifdef USER_LDFLAGS
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1946 strcat (options_buffer, " --ldflags");
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1947 strcat (options_buffer, USER_LDFLAGS);
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1948 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1949 return options_buffer;
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1950 }
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1951
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1952
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1953 #include <sys/timeb.h>
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1954
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1955 /* Emulate gettimeofday (Ulrich Leodolter, 1/11/95). */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1956 void
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1957 gettimeofday (struct timeval *tv, struct timezone *tz)
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1958 {
63020
92ecd695d7c1 (gettimeofday): Use struct _timeb, not struct timeb.
Eli Zaretskii <eliz@gnu.org>
parents: 60092
diff changeset
1959 struct _timeb tb;
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1960 _ftime (&tb);
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1961
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1962 tv->tv_sec = tb.time;
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1963 tv->tv_usec = tb.millitm * 1000L;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1964 if (tz)
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1965 {
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1966 tz->tz_minuteswest = tb.timezone; /* minutes west of Greenwich */
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1967 tz->tz_dsttime = tb.dstflag; /* type of dst correction */
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1968 }
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1969 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1970
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1971 /* ------------------------------------------------------------------------- */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
1972 /* IO support and wrapper functions for W32 API. */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1973 /* ------------------------------------------------------------------------- */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1974
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1975 /* Place a wrapper around the MSVC version of ctime. It returns NULL
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1976 on network directories, so we handle that case here.
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1977 (Ulrich Leodolter, 1/11/95). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1978 char *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1979 sys_ctime (const time_t *t)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1980 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1981 char *str = (char *) ctime (t);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1982 return (str ? str : "Sun Jan 01 00:00:00 1970");
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1983 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1984
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1985 /* Emulate sleep...we could have done this with a define, but that
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1986 would necessitate including windows.h in the files that used it.
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1987 This is much easier. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1988 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1989 sys_sleep (int seconds)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1990 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1991 Sleep (seconds * 1000);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1992 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1993
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1994 /* Internal MSVC functions for low-level descriptor munging */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1995 extern int __cdecl _set_osfhnd (int fd, long h);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1996 extern int __cdecl _free_osfhnd (int fd);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1997
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1998 /* parallel array of private info on file handles */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1999 filedesc fd_info [ MAXDESC ];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2000
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2001 typedef struct volume_info_data {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2002 struct volume_info_data * next;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2003
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2004 /* time when info was obtained */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2005 DWORD timestamp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2006
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2007 /* actual volume info */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2008 char * root_dir;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2009 DWORD serialnum;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2010 DWORD maxcomp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2011 DWORD flags;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2012 char * name;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2013 char * type;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2014 } volume_info_data;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2015
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2016 /* Global referenced by various functions. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2017 static volume_info_data volume_info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2018
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2019 /* Vector to indicate which drives are local and fixed (for which cached
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2020 data never expires). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2021 static BOOL fixed_drives[26];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2022
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2023 /* Consider cached volume information to be stale if older than 10s,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2024 at least for non-local drives. Info for fixed drives is never stale. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2025 #define DRIVE_INDEX( c ) ( (c) <= 'Z' ? (c) - 'A' : (c) - 'a' )
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2026 #define VOLINFO_STILL_VALID( root_dir, info ) \
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2027 ( ( isalpha (root_dir[0]) && \
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2028 fixed_drives[ DRIVE_INDEX (root_dir[0]) ] ) \
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2029 || GetTickCount () - info->timestamp < 10000 )
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2030
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2031 /* Cache support functions. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2032
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2033 /* Simple linked list with linear search is sufficient. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2034 static volume_info_data *volume_cache = NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2035
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2036 static volume_info_data *
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2037 lookup_volume_info (char * root_dir)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2038 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2039 volume_info_data * info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2040
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2041 for (info = volume_cache; info; info = info->next)
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
2042 if (xstrcasecmp (info->root_dir, root_dir) == 0)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2043 break;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2044 return info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2045 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2046
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2047 static void
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2048 add_volume_info (char * root_dir, volume_info_data * info)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2049 {
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
2050 info->root_dir = xstrdup (root_dir);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2051 info->next = volume_cache;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2052 volume_cache = info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2053 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2054
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2055
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2056 /* Wrapper for GetVolumeInformation, which uses caching to avoid
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2057 performance penalty (~2ms on 486 for local drives, 7.5ms for local
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2058 cdrom drive, ~5-10ms or more for remote drives on LAN). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2059 volume_info_data *
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2060 GetCachedVolumeInformation (char * root_dir)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2061 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2062 volume_info_data * info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2063 char default_root[ MAX_PATH ];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2064
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2065 /* NULL for root_dir means use root from current directory. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2066 if (root_dir == NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2067 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2068 if (GetCurrentDirectory (MAX_PATH, default_root) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2069 return NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2070 parse_root (default_root, &root_dir);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2071 *root_dir = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2072 root_dir = default_root;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2073 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2074
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2075 /* Local fixed drives can be cached permanently. Removable drives
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2076 cannot be cached permanently, since the volume name and serial
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2077 number (if nothing else) can change. Remote drives should be
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2078 treated as if they are removable, since there is no sure way to
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2079 tell whether they are or not. Also, the UNC association of drive
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2080 letters mapped to remote volumes can be changed at any time (even
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2081 by other processes) without notice.
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2082
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2083 As a compromise, so we can benefit from caching info for remote
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2084 volumes, we use a simple expiry mechanism to invalidate cache
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2085 entries that are more than ten seconds old. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2086
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2087 #if 0
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2088 /* No point doing this, because WNetGetConnection is even slower than
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2089 GetVolumeInformation, consistently taking ~50ms on a 486 (FWIW,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2090 GetDriveType is about the only call of this type which does not
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2091 involve network access, and so is extremely quick). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2092
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2093 /* Map drive letter to UNC if remote. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2094 if ( isalpha( root_dir[0] ) && !fixed[ DRIVE_INDEX( root_dir[0] ) ] )
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2095 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2096 char remote_name[ 256 ];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2097 char drive[3] = { root_dir[0], ':' };
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2098
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2099 if (WNetGetConnection (drive, remote_name, sizeof (remote_name))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2100 == NO_ERROR)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2101 /* do something */ ;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2102 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2103 #endif
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2104
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2105 info = lookup_volume_info (root_dir);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2106
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2107 if (info == NULL || ! VOLINFO_STILL_VALID (root_dir, info))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2108 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2109 char name[ 256 ];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2110 DWORD serialnum;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2111 DWORD maxcomp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2112 DWORD flags;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2113 char type[ 256 ];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2114
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2115 /* Info is not cached, or is stale. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2116 if (!GetVolumeInformation (root_dir,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2117 name, sizeof (name),
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2118 &serialnum,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2119 &maxcomp,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2120 &flags,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2121 type, sizeof (type)))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2122 return NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2123
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2124 /* Cache the volume information for future use, overwriting existing
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2125 entry if present. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2126 if (info == NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2127 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2128 info = (volume_info_data *) xmalloc (sizeof (volume_info_data));
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2129 add_volume_info (root_dir, info);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2130 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2131 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2132 {
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
2133 xfree (info->name);
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
2134 xfree (info->type);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2135 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2136
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
2137 info->name = xstrdup (name);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2138 info->serialnum = serialnum;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2139 info->maxcomp = maxcomp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2140 info->flags = flags;
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
2141 info->type = xstrdup (type);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2142 info->timestamp = GetTickCount ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2143 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2144
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2145 return info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2146 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2147
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2148 /* Get information on the volume where name is held; set path pointer to
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2149 start of pathname in name (past UNC header\volume header if present). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2150 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2151 get_volume_info (const char * name, const char ** pPath)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2152 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2153 char temp[MAX_PATH];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2154 char *rootname = NULL; /* default to current volume */
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2155 volume_info_data * info;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2156
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2157 if (name == NULL)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2158 return FALSE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2159
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2160 /* find the root name of the volume if given */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2161 if (isalpha (name[0]) && name[1] == ':')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2162 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2163 rootname = temp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2164 temp[0] = *name++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2165 temp[1] = *name++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2166 temp[2] = '\\';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2167 temp[3] = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2168 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2169 else if (IS_DIRECTORY_SEP (name[0]) && IS_DIRECTORY_SEP (name[1]))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2170 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2171 char *str = temp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2172 int slashes = 4;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2173 rootname = temp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2174 do
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2175 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2176 if (IS_DIRECTORY_SEP (*name) && --slashes == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2177 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2178 *str++ = *name++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2179 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2180 while ( *name );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2181
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2182 *str++ = '\\';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2183 *str = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2184 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2185
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2186 if (pPath)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2187 *pPath = name;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2188
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2189 info = GetCachedVolumeInformation (rootname);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2190 if (info != NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2191 {
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2192 /* Set global referenced by other functions. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2193 volume_info = *info;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2194 return TRUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2195 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2196 return FALSE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2197 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2198
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2199 /* Determine if volume is FAT format (ie. only supports short 8.3
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2200 names); also set path pointer to start of pathname in name. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2201 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2202 is_fat_volume (const char * name, const char ** pPath)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2203 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2204 if (get_volume_info (name, pPath))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2205 return (volume_info.maxcomp == 12);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2206 return FALSE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2207 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2208
80030
6b3001cc9ca9 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79759
diff changeset
2209 /* Map filename to a valid 8.3 name if necessary. */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2210 const char *
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2211 map_w32_filename (const char * name, const char ** pPath)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2212 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2213 static char shortname[MAX_PATH];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2214 char * str = shortname;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2215 char c;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2216 char * path;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2217 const char * save_name = name;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2218
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
2219 if (strlen (name) >= MAX_PATH)
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
2220 {
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
2221 /* Return a filename which will cause callers to fail. */
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
2222 strcpy (shortname, "?");
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
2223 return shortname;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
2224 }
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
2225
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
2226 if (is_fat_volume (name, (const char **)&path)) /* truncate to 8.3 */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2227 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2228 register int left = 8; /* maximum number of chars in part */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2229 register int extn = 0; /* extension added? */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2230 register int dots = 2; /* maximum number of dots allowed */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2231
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2232 while (name < path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2233 *str++ = *name++; /* skip past UNC header */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2234
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2235 while ((c = *name++))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2236 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2237 switch ( c )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2238 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2239 case '\\':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2240 case '/':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2241 *str++ = '\\';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2242 extn = 0; /* reset extension flags */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2243 dots = 2; /* max 2 dots */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2244 left = 8; /* max length 8 for main part */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2245 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2246 case ':':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2247 *str++ = ':';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2248 extn = 0; /* reset extension flags */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2249 dots = 2; /* max 2 dots */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2250 left = 8; /* max length 8 for main part */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2251 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2252 case '.':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2253 if ( dots )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2254 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2255 /* Convert path components of the form .xxx to _xxx,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2256 but leave . and .. as they are. This allows .emacs
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2257 to be read as _emacs, for example. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2258
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2259 if (! *name ||
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2260 *name == '.' ||
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2261 IS_DIRECTORY_SEP (*name))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2262 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2263 *str++ = '.';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2264 dots--;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2265 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2266 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2267 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2268 *str++ = '_';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2269 left--;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2270 dots = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2271 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2272 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2273 else if ( !extn )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2274 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2275 *str++ = '.';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2276 extn = 1; /* we've got an extension */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2277 left = 3; /* 3 chars in extension */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2278 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2279 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2280 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2281 /* any embedded dots after the first are converted to _ */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2282 *str++ = '_';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2283 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2284 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2285 case '~':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2286 case '#': /* don't lose these, they're important */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2287 if ( ! left )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2288 str[-1] = c; /* replace last character of part */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2289 /* FALLTHRU */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2290 default:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2291 if ( left )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2292 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2293 *str++ = tolower (c); /* map to lower case (looks nicer) */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2294 left--;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2295 dots = 0; /* started a path component */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2296 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2297 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2298 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2299 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2300 *str = '\0';
15213
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
2301 }
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
2302 else
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
2303 {
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
2304 strcpy (shortname, name);
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
2305 unixtodos_filename (shortname);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2306 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2307
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2308 if (pPath)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2309 *pPath = shortname + (path - save_name);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2310
15213
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
2311 return shortname;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2312 }
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
2313
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2314 static int
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2315 is_exec (const char * name)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2316 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2317 char * p = strrchr (name, '.');
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2318 return
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2319 (p != NULL
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
2320 && (xstrcasecmp (p, ".exe") == 0 ||
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
2321 xstrcasecmp (p, ".com") == 0 ||
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
2322 xstrcasecmp (p, ".bat") == 0 ||
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
2323 xstrcasecmp (p, ".cmd") == 0));
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2324 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2325
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2326 /* Emulate the Unix directory procedures opendir, closedir,
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2327 and readdir. We can't use the procedures supplied in sysdep.c,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2328 so we provide them here. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2329
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2330 struct direct dir_static; /* simulated directory contents */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2331 static HANDLE dir_find_handle = INVALID_HANDLE_VALUE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2332 static int dir_is_fat;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2333 static char dir_pathname[MAXPATHLEN+1];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2334 static WIN32_FIND_DATA dir_find_data;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2335
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2336 /* Support shares on a network resource as subdirectories of a read-only
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2337 root directory. */
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2338 static HANDLE wnet_enum_handle = INVALID_HANDLE_VALUE;
55645
5b3f2477d17b Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents: 55643
diff changeset
2339 HANDLE open_unc_volume (const char *);
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2340 char *read_unc_volume (HANDLE, char *, int);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2341 void close_unc_volume (HANDLE);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2342
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2343 DIR *
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2344 opendir (char *filename)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2345 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2346 DIR *dirp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2347
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2348 /* Opening is done by FindFirstFile. However, a read is inherent to
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2349 this operation, so we defer the open until read time. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2350
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2351 if (dir_find_handle != INVALID_HANDLE_VALUE)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2352 return NULL;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2353 if (wnet_enum_handle != INVALID_HANDLE_VALUE)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2354 return NULL;
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2355
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2356 if (is_unc_volume (filename))
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2357 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2358 wnet_enum_handle = open_unc_volume (filename);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2359 if (wnet_enum_handle == INVALID_HANDLE_VALUE)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2360 return NULL;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2361 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2362
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2363 if (!(dirp = (DIR *) malloc (sizeof (DIR))))
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2364 return NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2365
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2366 dirp->dd_fd = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2367 dirp->dd_loc = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2368 dirp->dd_size = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2369
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2370 strncpy (dir_pathname, map_w32_filename (filename, NULL), MAXPATHLEN);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2371 dir_pathname[MAXPATHLEN] = '\0';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2372 dir_is_fat = is_fat_volume (filename, NULL);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2373
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2374 return dirp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2375 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2376
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2377 void
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2378 closedir (DIR *dirp)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2379 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2380 /* If we have a find-handle open, close it. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2381 if (dir_find_handle != INVALID_HANDLE_VALUE)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2382 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2383 FindClose (dir_find_handle);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2384 dir_find_handle = INVALID_HANDLE_VALUE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2385 }
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2386 else if (wnet_enum_handle != INVALID_HANDLE_VALUE)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2387 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2388 close_unc_volume (wnet_enum_handle);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2389 wnet_enum_handle = INVALID_HANDLE_VALUE;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2390 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2391 xfree ((char *) dirp);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2392 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2393
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2394 struct direct *
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2395 readdir (DIR *dirp)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2396 {
80376
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2397 int downcase = !NILP (Vw32_downcase_file_names);
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2398
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2399 if (wnet_enum_handle != INVALID_HANDLE_VALUE)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2400 {
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2401 if (!read_unc_volume (wnet_enum_handle,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2402 dir_find_data.cFileName,
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2403 MAX_PATH))
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2404 return NULL;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2405 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2406 /* If we aren't dir_finding, do a find-first, otherwise do a find-next. */
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2407 else if (dir_find_handle == INVALID_HANDLE_VALUE)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2408 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2409 char filename[MAXNAMLEN + 3];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2410 int ln;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2411
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2412 strcpy (filename, dir_pathname);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2413 ln = strlen (filename) - 1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2414 if (!IS_DIRECTORY_SEP (filename[ln]))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2415 strcat (filename, "\\");
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2416 strcat (filename, "*");
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2417
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2418 dir_find_handle = FindFirstFile (filename, &dir_find_data);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2419
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2420 if (dir_find_handle == INVALID_HANDLE_VALUE)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2421 return NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2422 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2423 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2424 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2425 if (!FindNextFile (dir_find_handle, &dir_find_data))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2426 return NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2427 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2428
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2429 /* Emacs never uses this value, so don't bother making it match
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2430 value returned by stat(). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2431 dir_static.d_ino = 1;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2432
93142
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
2433 strcpy (dir_static.d_name, dir_find_data.cFileName);
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
2434
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
2435 /* If the file name in cFileName[] includes `?' characters, it means
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
2436 the original file name used characters that cannot be represented
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
2437 by the current ANSI codepage. To avoid total lossage, retrieve
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
2438 the short 8+3 alias of the long file name. */
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
2439 if (_mbspbrk (dir_static.d_name, "?"))
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
2440 {
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
2441 strcpy (dir_static.d_name, dir_find_data.cAlternateFileName);
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
2442 downcase = 1; /* 8+3 aliases are returned in all caps */
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
2443 }
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
2444 dir_static.d_namlen = strlen (dir_static.d_name);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2445 dir_static.d_reclen = sizeof (struct direct) - MAXNAMLEN + 3 +
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2446 dir_static.d_namlen - dir_static.d_namlen % 4;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2447
80376
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2448 /* If the file name in cFileName[] includes `?' characters, it means
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2449 the original file name used characters that cannot be represented
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2450 by the current ANSI codepage. To avoid total lossage, retrieve
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2451 the short 8+3 alias of the long file name. */
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2452 if (_mbspbrk (dir_find_data.cFileName, "?"))
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2453 {
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2454 strcpy (dir_static.d_name, dir_find_data.cAlternateFileName);
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2455 /* 8+3 aliases are returned in all caps, which could break
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2456 various alists that look at filenames' extensions. */
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2457 downcase = 1;
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2458 }
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2459 else
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2460 strcpy (dir_static.d_name, dir_find_data.cFileName);
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2461 dir_static.d_namlen = strlen (dir_static.d_name);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2462 if (dir_is_fat)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2463 _strlwr (dir_static.d_name);
80376
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2464 else if (downcase)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2465 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2466 register char *p;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2467 for (p = dir_static.d_name; *p; p++)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2468 if (*p >= 'a' && *p <= 'z')
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2469 break;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2470 if (!*p)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2471 _strlwr (dir_static.d_name);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2472 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2473
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2474 return &dir_static;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2475 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2476
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2477 HANDLE
55645
5b3f2477d17b Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents: 55643
diff changeset
2478 open_unc_volume (const char *path)
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2479 {
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2480 NETRESOURCE nr;
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2481 HANDLE henum;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2482 int result;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2483
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2484 nr.dwScope = RESOURCE_GLOBALNET;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2485 nr.dwType = RESOURCETYPE_DISK;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2486 nr.dwDisplayType = RESOURCEDISPLAYTYPE_SERVER;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2487 nr.dwUsage = RESOURCEUSAGE_CONTAINER;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2488 nr.lpLocalName = NULL;
63020
92ecd695d7c1 (gettimeofday): Use struct _timeb, not struct timeb.
Eli Zaretskii <eliz@gnu.org>
parents: 60092
diff changeset
2489 nr.lpRemoteName = (LPSTR)map_w32_filename (path, NULL);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2490 nr.lpComment = NULL;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2491 nr.lpProvider = NULL;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2492
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2493 result = WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2494 RESOURCEUSAGE_CONNECTABLE, &nr, &henum);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2495
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2496 if (result == NO_ERROR)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2497 return henum;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2498 else
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2499 return INVALID_HANDLE_VALUE;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2500 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2501
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2502 char *
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2503 read_unc_volume (HANDLE henum, char *readbuf, int size)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2504 {
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
2505 DWORD count;
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2506 int result;
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
2507 DWORD bufsize = 512;
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2508 char *buffer;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2509 char *ptr;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2510
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2511 count = 1;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2512 buffer = alloca (bufsize);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2513 result = WNetEnumResource (wnet_enum_handle, &count, buffer, &bufsize);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2514 if (result != NO_ERROR)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2515 return NULL;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2516
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2517 /* WNetEnumResource returns \\resource\share...skip forward to "share". */
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2518 ptr = ((LPNETRESOURCE) buffer)->lpRemoteName;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2519 ptr += 2;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2520 while (*ptr && !IS_DIRECTORY_SEP (*ptr)) ptr++;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2521 ptr++;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2522
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2523 strncpy (readbuf, ptr, size);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2524 return readbuf;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2525 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2526
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2527 void
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2528 close_unc_volume (HANDLE henum)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2529 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2530 if (henum != INVALID_HANDLE_VALUE)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2531 WNetCloseEnum (henum);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2532 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2533
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2534 DWORD
55645
5b3f2477d17b Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents: 55643
diff changeset
2535 unc_volume_file_attributes (const char *path)
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2536 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2537 HANDLE henum;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2538 DWORD attrs;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2539
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2540 henum = open_unc_volume (path);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2541 if (henum == INVALID_HANDLE_VALUE)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2542 return -1;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2543
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2544 attrs = FILE_ATTRIBUTE_READONLY | FILE_ATTRIBUTE_DIRECTORY;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2545
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2546 close_unc_volume (henum);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2547
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2548 return attrs;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2549 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2550
87985
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2551 /* Ensure a network connection is authenticated. */
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2552 static void
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2553 logon_network_drive (const char *path)
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2554 {
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2555 NETRESOURCE resource;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2556 char share[MAX_PATH];
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2557 int i, n_slashes;
93973
40f40216ff24 (logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents: 93759
diff changeset
2558 char drive[4];
103859
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2559 UINT drvtype;
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2560
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2561 if (IS_DIRECTORY_SEP (path[0]) && IS_DIRECTORY_SEP (path[1]))
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2562 drvtype = DRIVE_REMOTE;
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2563 else if (path[0] == '\0' || path[1] != ':')
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2564 drvtype = GetDriveType (NULL);
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2565 else
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2566 {
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2567 drive[0] = path[0];
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2568 drive[1] = ':';
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2569 drive[2] = '\\';
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2570 drive[3] = '\0';
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2571 drvtype = GetDriveType (drive);
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2572 }
87985
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2573
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2574 /* Only logon to networked drives. */
103859
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2575 if (drvtype != DRIVE_REMOTE)
87985
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2576 return;
93973
40f40216ff24 (logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents: 93759
diff changeset
2577
87985
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2578 n_slashes = 2;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2579 strncpy (share, path, MAX_PATH);
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2580 /* Truncate to just server and share name. */
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2581 for (i = 2; i < MAX_PATH; i++)
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2582 {
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2583 if (IS_DIRECTORY_SEP (share[i]) && ++n_slashes > 3)
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2584 {
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2585 share[i] = '\0';
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2586 break;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2587 }
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2588 }
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2589
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2590 resource.dwType = RESOURCETYPE_DISK;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2591 resource.lpLocalName = NULL;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2592 resource.lpRemoteName = share;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2593 resource.lpProvider = NULL;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2594
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2595 WNetAddConnection2 (&resource, NULL, NULL, CONNECT_INTERACTIVE);
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2596 }
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2597
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2598 /* Shadow some MSVC runtime functions to map requests for long filenames
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2599 to reasonable short names if necessary. This was originally added to
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2600 permit running Emacs on NT 3.1 on a FAT partition, which doesn't support
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2601 long file names. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2602
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2603 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2604 sys_access (const char * path, int mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2605 {
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2606 DWORD attributes;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2607
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2608 /* MSVC implementation doesn't recognize D_OK. */
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2609 path = map_w32_filename (path, NULL);
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2610 if (is_unc_volume (path))
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2611 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2612 attributes = unc_volume_file_attributes (path);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2613 if (attributes == -1) {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2614 errno = EACCES;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2615 return -1;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2616 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2617 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2618 else if ((attributes = GetFileAttributes (path)) == -1)
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2619 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2620 /* Should try mapping GetLastError to errno; for now just indicate
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2621 that path doesn't exist. */
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2622 errno = EACCES;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2623 return -1;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2624 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2625 if ((mode & X_OK) != 0 && !is_exec (path))
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2626 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2627 errno = EACCES;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2628 return -1;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2629 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2630 if ((mode & W_OK) != 0 && (attributes & FILE_ATTRIBUTE_READONLY) != 0)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2631 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2632 errno = EACCES;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2633 return -1;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2634 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2635 if ((mode & D_OK) != 0 && (attributes & FILE_ATTRIBUTE_DIRECTORY) == 0)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2636 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2637 errno = EACCES;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2638 return -1;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2639 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2640 return 0;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2641 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2642
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2643 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2644 sys_chdir (const char * path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2645 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2646 return _chdir (map_w32_filename (path, NULL));
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2647 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2648
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2649 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2650 sys_chmod (const char * path, int mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2651 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2652 return _chmod (map_w32_filename (path, NULL), mode);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2653 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2654
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2655 int
63744
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2656 sys_chown (const char *path, uid_t owner, gid_t group)
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2657 {
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
2658 if (sys_chmod (path, S_IREAD) == -1) /* check if file exists */
63744
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2659 return -1;
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2660 return 0;
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2661 }
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2662
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2663 int
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2664 sys_creat (const char * path, int mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2665 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2666 return _creat (map_w32_filename (path, NULL), mode);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2667 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2668
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2669 FILE *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2670 sys_fopen(const char * path, const char * mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2671 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2672 int fd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2673 int oflag;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2674 const char * mode_save = mode;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2675
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2676 /* Force all file handles to be non-inheritable. This is necessary to
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2677 ensure child processes don't unwittingly inherit handles that might
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2678 prevent future file access. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2679
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2680 if (mode[0] == 'r')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2681 oflag = O_RDONLY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2682 else if (mode[0] == 'w' || mode[0] == 'a')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2683 oflag = O_WRONLY | O_CREAT | O_TRUNC;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2684 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2685 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2686
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2687 /* Only do simplistic option parsing. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2688 while (*++mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2689 if (mode[0] == '+')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2690 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2691 oflag &= ~(O_RDONLY | O_WRONLY);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2692 oflag |= O_RDWR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2693 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2694 else if (mode[0] == 'b')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2695 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2696 oflag &= ~O_TEXT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2697 oflag |= O_BINARY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2698 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2699 else if (mode[0] == 't')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2700 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2701 oflag &= ~O_BINARY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2702 oflag |= O_TEXT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2703 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2704 else break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2705
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2706 fd = _open (map_w32_filename (path, NULL), oflag | _O_NOINHERIT, 0644);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2707 if (fd < 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2708 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2709
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2710 return _fdopen (fd, mode_save);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2711 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2712
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2713 /* This only works on NTFS volumes, but is useful to have. */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2714 int
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2715 sys_link (const char * old, const char * new)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2716 {
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2717 HANDLE fileh;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2718 int result = -1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2719 char oldname[MAX_PATH], newname[MAX_PATH];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2720
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2721 if (old == NULL || new == NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2722 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2723 errno = ENOENT;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2724 return -1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2725 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2726
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2727 strcpy (oldname, map_w32_filename (old, NULL));
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2728 strcpy (newname, map_w32_filename (new, NULL));
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2729
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2730 fileh = CreateFile (oldname, 0, 0, NULL, OPEN_EXISTING,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2731 FILE_FLAG_BACKUP_SEMANTICS, NULL);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2732 if (fileh != INVALID_HANDLE_VALUE)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2733 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2734 int wlen;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2735
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2736 /* Confusingly, the "alternate" stream name field does not apply
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2737 when restoring a hard link, and instead contains the actual
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2738 stream data for the link (ie. the name of the link to create).
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2739 The WIN32_STREAM_ID structure before the cStreamName field is
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2740 the stream header, which is then immediately followed by the
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2741 stream data. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2742
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2743 struct {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2744 WIN32_STREAM_ID wid;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2745 WCHAR wbuffer[MAX_PATH]; /* extra space for link name */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2746 } data;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2747
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2748 wlen = MultiByteToWideChar (CP_ACP, MB_PRECOMPOSED, newname, -1,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2749 data.wid.cStreamName, MAX_PATH);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2750 if (wlen > 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2751 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2752 LPVOID context = NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2753 DWORD wbytes = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2754
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2755 data.wid.dwStreamId = BACKUP_LINK;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2756 data.wid.dwStreamAttributes = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2757 data.wid.Size.LowPart = wlen * sizeof(WCHAR);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2758 data.wid.Size.HighPart = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2759 data.wid.dwStreamNameSize = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2760
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2761 if (BackupWrite (fileh, (LPBYTE)&data,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2762 offsetof (WIN32_STREAM_ID, cStreamName)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2763 + data.wid.Size.LowPart,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2764 &wbytes, FALSE, FALSE, &context)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2765 && BackupWrite (fileh, NULL, 0, &wbytes, TRUE, FALSE, &context))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2766 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2767 /* succeeded */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2768 result = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2769 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2770 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2771 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2772 /* Should try mapping GetLastError to errno; for now just
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2773 indicate a general error (eg. links not supported). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2774 errno = EINVAL; // perhaps EMLINK?
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2775 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2776 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2777
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2778 CloseHandle (fileh);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2779 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2780 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2781 errno = ENOENT;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2782
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2783 return result;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2784 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2785
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2786 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2787 sys_mkdir (const char * path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2788 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2789 return _mkdir (map_w32_filename (path, NULL));
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2790 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2791
15354
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2792 /* Because of long name mapping issues, we need to implement this
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2793 ourselves. Also, MSVC's _mktemp returns NULL when it can't generate
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2794 a unique name, instead of setting the input template to an empty
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2795 string.
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2796
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2797 Standard algorithm seems to be use pid or tid with a letter on the
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2798 front (in place of the 6 X's) and cycle through the letters to find a
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2799 unique name. We extend that to allow any reasonable character as the
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2800 first of the 6 X's. */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2801 char *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2802 sys_mktemp (char * template)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2803 {
15354
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2804 char * p;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2805 int i;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2806 unsigned uid = GetCurrentThreadId ();
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2807 static char first_char[] = "abcdefghijklmnopqrstuvwyz0123456789!%-_@#";
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2808
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2809 if (template == NULL)
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2810 return NULL;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2811 p = template + strlen (template);
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2812 i = 5;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2813 /* replace up to the last 5 X's with uid in decimal */
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2814 while (--p >= template && p[0] == 'X' && --i >= 0)
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2815 {
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2816 p[0] = '0' + uid % 10;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2817 uid /= 10;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2818 }
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2819
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2820 if (i < 0 && p[0] == 'X')
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2821 {
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2822 i = 0;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2823 do
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2824 {
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2825 int save_errno = errno;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2826 p[0] = first_char[i];
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2827 if (sys_access (template, 0) < 0)
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2828 {
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2829 errno = save_errno;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2830 return template;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2831 }
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2832 }
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2833 while (++i < sizeof (first_char));
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2834 }
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2835
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2836 /* Template is badly formed or else we can't generate a unique name,
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2837 so return empty string */
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2838 template[0] = 0;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2839 return template;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2840 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2841
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2842 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2843 sys_open (const char * path, int oflag, int mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2844 {
37291
83dd2eb5365f (sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents: 36001
diff changeset
2845 const char* mpath = map_w32_filename (path, NULL);
83dd2eb5365f (sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents: 36001
diff changeset
2846 /* Try to open file without _O_CREAT, to be able to write to hidden
83dd2eb5365f (sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents: 36001
diff changeset
2847 and system files. Force all file handles to be
83dd2eb5365f (sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents: 36001
diff changeset
2848 non-inheritable. */
83dd2eb5365f (sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents: 36001
diff changeset
2849 int res = _open (mpath, (oflag & ~_O_CREAT) | _O_NOINHERIT, mode);
83dd2eb5365f (sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents: 36001
diff changeset
2850 if (res >= 0)
83dd2eb5365f (sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents: 36001
diff changeset
2851 return res;
83dd2eb5365f (sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents: 36001
diff changeset
2852 return _open (mpath, oflag | _O_NOINHERIT, mode);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2853 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2854
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2855 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2856 sys_rename (const char * oldname, const char * newname)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2857 {
34644
69143373d98d (sys_rename): Only check errno against EEXIST, and not
Andrew Innes <andrewi@gnu.org>
parents: 33869
diff changeset
2858 BOOL result;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2859 char temp[MAX_PATH];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2860
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16867
diff changeset
2861 /* MoveFile on Windows 95 doesn't correctly change the short file name
15615
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
2862 alias in a number of circumstances (it is not easy to predict when
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
2863 just by looking at oldname and newname, unfortunately). In these
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
2864 cases, renaming through a temporary name avoids the problem.
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
2865
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16867
diff changeset
2866 A second problem on Windows 95 is that renaming through a temp name when
15615
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
2867 newname is uppercase fails (the final long name ends up in
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
2868 lowercase, although the short alias might be uppercase) UNLESS the
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
2869 long temp name is not 8.3.
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
2870
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16867
diff changeset
2871 So, on Windows 95 we always rename through a temp name, and we make sure
15615
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
2872 the temp name has a long extension to ensure correct renaming. */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2873
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2874 strcpy (temp, map_w32_filename (oldname, NULL));
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2875
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2876 if (os_subtype == OS_WIN95)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2877 {
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2878 char * o;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2879 char * p;
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2880 int i = 0;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2881
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2882 oldname = map_w32_filename (oldname, NULL);
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2883 if (o = strrchr (oldname, '\\'))
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2884 o++;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2885 else
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2886 o = (char *) oldname;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2887
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2888 if (p = strrchr (temp, '\\'))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2889 p++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2890 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2891 p = temp;
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2892
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2893 do
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2894 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2895 /* Force temp name to require a manufactured 8.3 alias - this
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2896 seems to make the second rename work properly. */
22501
d2edb98d0fa5 (sys_rename): On some network drives, rename fails with
Richard M. Stallman <rms@gnu.org>
parents: 22430
diff changeset
2897 sprintf (p, "_.%s.%u", o, i);
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2898 i++;
22430
921311b43bf4 (sys_rename): Don't examine errno if rename didn't fail.
Richard M. Stallman <rms@gnu.org>
parents: 22363
diff changeset
2899 result = rename (oldname, temp);
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2900 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2901 /* This loop must surely terminate! */
34644
69143373d98d (sys_rename): Only check errno against EEXIST, and not
Andrew Innes <andrewi@gnu.org>
parents: 33869
diff changeset
2902 while (result < 0 && errno == EEXIST);
22430
921311b43bf4 (sys_rename): Don't examine errno if rename didn't fail.
Richard M. Stallman <rms@gnu.org>
parents: 22363
diff changeset
2903 if (result < 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2904 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2905 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2906
96376
c3309dba6542 American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 95917
diff changeset
2907 /* Emulate Unix behavior - newname is deleted if it already exists
15615
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
2908 (at least if it is a file; don't do this for directories).
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2909
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2910 Since we mustn't do this if we are just changing the case of the
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2911 file name (we would end up deleting the file we are trying to
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2912 rename!), we let rename detect if the destination file already
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2913 exists - that way we avoid the possible pitfalls of trying to
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2914 determine ourselves whether two names really refer to the same
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2915 file, which is not always possible in the general case. (Consider
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2916 all the permutations of shared or subst'd drives, etc.) */
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2917
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2918 newname = map_w32_filename (newname, NULL);
22299
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
2919 result = rename (temp, newname);
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2920
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2921 if (result < 0
34644
69143373d98d (sys_rename): Only check errno against EEXIST, and not
Andrew Innes <andrewi@gnu.org>
parents: 33869
diff changeset
2922 && errno == EEXIST
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2923 && _chmod (newname, 0666) == 0
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2924 && _unlink (newname) == 0)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2925 result = rename (temp, newname);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2926
22299
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
2927 return result;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2928 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2929
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2930 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2931 sys_rmdir (const char * path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2932 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2933 return _rmdir (map_w32_filename (path, NULL));
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2934 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2935
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2936 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2937 sys_unlink (const char * path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2938 {
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2939 path = map_w32_filename (path, NULL);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2940
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2941 /* On Unix, unlink works without write permission. */
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2942 _chmod (path, 0666);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2943 return _unlink (path);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2944 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2945
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2946 static FILETIME utc_base_ft;
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2947 static ULONGLONG utc_base; /* In 100ns units */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2948 static int init = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2949
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2950 #define FILETIME_TO_U64(result, ft) \
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2951 do { \
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2952 ULARGE_INTEGER uiTemp; \
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2953 uiTemp.LowPart = (ft).dwLowDateTime; \
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2954 uiTemp.HighPart = (ft).dwHighDateTime; \
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2955 result = uiTemp.QuadPart; \
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2956 } while (0)
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2957
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2958 static void
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2959 initialize_utc_base ()
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
2960 {
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2961 /* Determine the delta between 1-Jan-1601 and 1-Jan-1970. */
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2962 SYSTEMTIME st;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2963
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2964 st.wYear = 1970;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2965 st.wMonth = 1;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2966 st.wDay = 1;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2967 st.wHour = 0;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2968 st.wMinute = 0;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2969 st.wSecond = 0;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2970 st.wMilliseconds = 0;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2971
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2972 SystemTimeToFileTime (&st, &utc_base_ft);
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2973 FILETIME_TO_U64 (utc_base, utc_base_ft);
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
2974 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
2975
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2976 static time_t
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2977 convert_time (FILETIME ft)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2978 {
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2979 ULONGLONG tmp;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2980
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2981 if (!init)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2982 {
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2983 initialize_utc_base();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2984 init = 1;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2985 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2986
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2987 if (CompareFileTime (&ft, &utc_base_ft) < 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2988 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2989
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2990 FILETIME_TO_U64 (tmp, ft);
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2991 return (time_t) ((tmp - utc_base) / 10000000L);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2992 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2993
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
2994
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2995 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2996 convert_from_time_t (time_t time, FILETIME * pft)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2997 {
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2998 ULARGE_INTEGER tmp;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2999
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3000 if (!init)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3001 {
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
3002 initialize_utc_base ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3003 init = 1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3004 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3005
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3006 /* time in 100ns units since 1-Jan-1601 */
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
3007 tmp.QuadPart = (ULONGLONG) time * 10000000L + utc_base;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
3008 pft->dwHighDateTime = tmp.HighPart;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
3009 pft->dwLowDateTime = tmp.LowPart;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3010 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3011
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3012 #if 0
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3013 /* No reason to keep this; faking inode values either by hashing or even
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3014 using the file index from GetInformationByHandle, is not perfect and
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3015 so by default Emacs doesn't use the inode values on Windows.
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3016 Instead, we now determine file-truename correctly (except for
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3017 possible drive aliasing etc). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3018
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3019 /* Modified version of "PJW" algorithm (see the "Dragon" compiler book). */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3020 static unsigned
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3021 hashval (const unsigned char * str)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3022 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3023 unsigned h = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3024 while (*str)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3025 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3026 h = (h << 4) + *str++;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3027 h ^= (h >> 28);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3028 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3029 return h;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3030 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3031
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3032 /* Return the hash value of the canonical pathname, excluding the
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3033 drive/UNC header, to get a hopefully unique inode number. */
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3034 static DWORD
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3035 generate_inode_val (const char * name)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3036 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3037 char fullname[ MAX_PATH ];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3038 char * p;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3039 unsigned hash;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3040
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3041 /* Get the truly canonical filename, if it exists. (Note: this
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3042 doesn't resolve aliasing due to subst commands, or recognise hard
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3043 links. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3044 if (!w32_get_long_filename ((char *)name, fullname, MAX_PATH))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3045 abort ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3046
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3047 parse_root (fullname, &p);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
3048 /* Normal W32 filesystems are still case insensitive. */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3049 _strlwr (p);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3050 return hashval (p);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3051 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3052
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3053 #endif
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3054
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3055 static PSECURITY_DESCRIPTOR
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3056 get_file_security_desc (const char *fname)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3057 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3058 PSECURITY_DESCRIPTOR psd = NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3059 DWORD sd_len, err;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3060 SECURITY_INFORMATION si = OWNER_SECURITY_INFORMATION
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3061 | GROUP_SECURITY_INFORMATION /* | DACL_SECURITY_INFORMATION */ ;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3062
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3063 if (!get_file_security (fname, si, psd, 0, &sd_len))
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3064 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3065 err = GetLastError ();
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3066 if (err != ERROR_INSUFFICIENT_BUFFER)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3067 return NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3068 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3069
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3070 psd = xmalloc (sd_len);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3071 if (!get_file_security (fname, si, psd, sd_len, &sd_len))
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3072 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3073 xfree (psd);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3074 return NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3075 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3076
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3077 return psd;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3078 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3079
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3080 static DWORD
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3081 get_rid (PSID sid)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3082 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3083 unsigned n_subauthorities;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3084
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3085 /* Use the last sub-authority value of the RID, the relative
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3086 portion of the SID, as user/group ID. */
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3087 n_subauthorities = *get_sid_sub_authority_count (sid);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3088 if (n_subauthorities < 1)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3089 return 0; /* the "World" RID */
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3090 return *get_sid_sub_authority (sid, n_subauthorities - 1);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3091 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3092
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3093 /* Caching SID and account values for faster lokup. */
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3094
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3095 #ifdef __GNUC__
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3096 # define FLEXIBLE_ARRAY_MEMBER
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3097 #else
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3098 # define FLEXIBLE_ARRAY_MEMBER 1
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3099 #endif
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3100
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3101 struct w32_id {
102670
06ca3efb355b inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents: 100951
diff changeset
3102 unsigned rid;
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3103 struct w32_id *next;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3104 char name[GNLEN+1];
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3105 unsigned char sid[FLEXIBLE_ARRAY_MEMBER];
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3106 };
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3107
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3108 static struct w32_id *w32_idlist;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3109
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3110 static int
102670
06ca3efb355b inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents: 100951
diff changeset
3111 w32_cached_id (PSID sid, unsigned *id, char *name)
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3112 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3113 struct w32_id *tail, *found;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3114
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3115 for (found = NULL, tail = w32_idlist; tail; tail = tail->next)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3116 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3117 if (equal_sid ((PSID)tail->sid, sid))
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3118 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3119 found = tail;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3120 break;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3121 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3122 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3123 if (found)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3124 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3125 *id = found->rid;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3126 strcpy (name, found->name);
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3127 return 1;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3128 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3129 else
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3130 return 0;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3131 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3132
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3133 static void
102670
06ca3efb355b inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents: 100951
diff changeset
3134 w32_add_to_cache (PSID sid, unsigned id, char *name)
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3135 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3136 DWORD sid_len;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3137 struct w32_id *new_entry;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3138
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3139 /* We don't want to leave behind stale cache from when Emacs was
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3140 dumped. */
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3141 if (initialized)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3142 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3143 sid_len = get_length_sid (sid);
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3144 new_entry = xmalloc (offsetof (struct w32_id, sid) + sid_len);
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3145 if (new_entry)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3146 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3147 new_entry->rid = id;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3148 strcpy (new_entry->name, name);
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3149 copy_sid (sid_len, (PSID)new_entry->sid, sid);
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3150 new_entry->next = w32_idlist;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3151 w32_idlist = new_entry;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3152 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3153 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3154 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3155
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3156 #define UID 1
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3157 #define GID 2
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3158
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3159 static int
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3160 get_name_and_id (PSECURITY_DESCRIPTOR psd, const char *fname,
102670
06ca3efb355b inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents: 100951
diff changeset
3161 unsigned *id, char *nm, int what)
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3162 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3163 PSID sid = NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3164 char machine[MAX_COMPUTERNAME_LENGTH+1];
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3165 BOOL dflt;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3166 SID_NAME_USE ignore;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3167 char name[UNLEN+1];
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3168 DWORD name_len = sizeof (name);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3169 char domain[1024];
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3170 DWORD domain_len = sizeof(domain);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3171 char *mp = NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3172 int use_dflt = 0;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3173 int result;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3174
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3175 if (what == UID)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3176 result = get_security_descriptor_owner (psd, &sid, &dflt);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3177 else if (what == GID)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3178 result = get_security_descriptor_group (psd, &sid, &dflt);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3179 else
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3180 result = 0;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3181
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3182 if (!result || !is_valid_sid (sid))
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3183 use_dflt = 1;
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3184 else if (!w32_cached_id (sid, id, nm))
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3185 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3186 /* If FNAME is a UNC, we need to lookup account on the
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3187 specified machine. */
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3188 if (IS_DIRECTORY_SEP (fname[0]) && IS_DIRECTORY_SEP (fname[1])
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3189 && fname[2] != '\0')
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3190 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3191 const char *s;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3192 char *p;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3193
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3194 for (s = fname + 2, p = machine;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3195 *s && !IS_DIRECTORY_SEP (*s); s++, p++)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3196 *p = *s;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3197 *p = '\0';
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3198 mp = machine;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3199 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3200
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3201 if (!lookup_account_sid (mp, sid, name, &name_len,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3202 domain, &domain_len, &ignore)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3203 || name_len > UNLEN+1)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3204 use_dflt = 1;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3205 else
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3206 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3207 *id = get_rid (sid);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3208 strcpy (nm, name);
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3209 w32_add_to_cache (sid, *id, name);
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3210 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3211 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3212 return use_dflt;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3213 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3214
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3215 static void
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3216 get_file_owner_and_group (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3217 PSECURITY_DESCRIPTOR psd,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3218 const char *fname,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3219 struct stat *st)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3220 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3221 int dflt_usr = 0, dflt_grp = 0;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3222
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3223 if (!psd)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3224 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3225 dflt_usr = 1;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3226 dflt_grp = 1;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3227 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3228 else
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3229 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3230 if (get_name_and_id (psd, fname, &st->st_uid, st->st_uname, UID))
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3231 dflt_usr = 1;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3232 if (get_name_and_id (psd, fname, &st->st_gid, st->st_gname, GID))
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3233 dflt_grp = 1;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3234 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3235 /* Consider files to belong to current user/group, if we cannot get
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3236 more accurate information. */
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3237 if (dflt_usr)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3238 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3239 st->st_uid = dflt_passwd.pw_uid;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3240 strcpy (st->st_uname, dflt_passwd.pw_name);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3241 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3242 if (dflt_grp)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3243 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3244 st->st_gid = dflt_passwd.pw_gid;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3245 strcpy (st->st_gname, dflt_group.gr_name);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3246 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3247 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3248
103859
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3249 /* Return non-zero if NAME is a potentially slow filesystem. */
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3250 int
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3251 is_slow_fs (const char *name)
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3252 {
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3253 char drive_root[4];
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3254 UINT devtype;
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3255
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3256 if (IS_DIRECTORY_SEP (name[0]) && IS_DIRECTORY_SEP (name[1]))
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3257 devtype = DRIVE_REMOTE; /* assume UNC name is remote */
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3258 else if (!(strlen (name) >= 2 && IS_DEVICE_SEP (name[1])))
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3259 devtype = GetDriveType (NULL); /* use root of current drive */
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3260 else
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3261 {
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3262 /* GetDriveType needs the root directory of the drive. */
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3263 strncpy (drive_root, name, 2);
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3264 drive_root[2] = '\\';
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3265 drive_root[3] = '\0';
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3266 devtype = GetDriveType (drive_root);
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3267 }
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3268 return !(devtype == DRIVE_FIXED || devtype == DRIVE_RAMDISK);
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3269 }
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3270
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3271 /* MSVC stat function can't cope with UNC names and has other bugs, so
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3272 replace it with our own. This also allows us to calculate consistent
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3273 inode values without hacks in the main Emacs code. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3274 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3275 stat (const char * path, struct stat * buf)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3276 {
22299
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
3277 char *name, *r;
97488
caf9103a3856 (stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents: 97486
diff changeset
3278 char drive_root[4];
caf9103a3856 (stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents: 97486
diff changeset
3279 UINT devtype;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3280 WIN32_FIND_DATA wfd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3281 HANDLE fh;
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3282 unsigned __int64 fake_inode;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3283 int permission;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3284 int len;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3285 int rootdir = FALSE;
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3286 PSECURITY_DESCRIPTOR psd = NULL;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3287
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3288 if (path == NULL || buf == NULL)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3289 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3290 errno = EFAULT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3291 return -1;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3292 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3293
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
3294 name = (char *) map_w32_filename (path, &path);
76098
9ad6c99cdc71 (stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents: 75348
diff changeset
3295 /* Must be valid filename, no wild cards or other invalid
9ad6c99cdc71 (stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents: 75348
diff changeset
3296 characters. We use _mbspbrk to support multibyte strings that
9ad6c99cdc71 (stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents: 75348
diff changeset
3297 might look to strpbrk as if they included literal *, ?, and other
9ad6c99cdc71 (stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents: 75348
diff changeset
3298 characters mentioned below that are disallowed by Windows
9ad6c99cdc71 (stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents: 75348
diff changeset
3299 filesystems. */
9ad6c99cdc71 (stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents: 75348
diff changeset
3300 if (_mbspbrk (name, "*?|<>\""))
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3301 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3302 errno = ENOENT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3303 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3304 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3305
22299
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
3306 /* If name is "c:/.." or "/.." then stat "c:/" or "/". */
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
3307 r = IS_DEVICE_SEP (name[1]) ? &name[2] : name;
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
3308 if (IS_DIRECTORY_SEP (r[0]) && r[1] == '.' && r[2] == '.' && r[3] == '\0')
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
3309 {
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
3310 r[1] = r[2] = '\0';
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
3311 }
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
3312
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3313 /* Remove trailing directory separator, unless name is the root
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3314 directory of a drive or UNC volume in which case ensure there
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3315 is a trailing separator. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3316 len = strlen (name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3317 rootdir = (path >= name + len - 1
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3318 && (IS_DIRECTORY_SEP (*path) || *path == 0));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3319 name = strcpy (alloca (len + 2), name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3320
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3321 if (is_unc_volume (name))
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3322 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3323 DWORD attrs = unc_volume_file_attributes (name);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3324
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3325 if (attrs == -1)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3326 return -1;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3327
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3328 memset (&wfd, 0, sizeof (wfd));
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3329 wfd.dwFileAttributes = attrs;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3330 wfd.ftCreationTime = utc_base_ft;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3331 wfd.ftLastAccessTime = utc_base_ft;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3332 wfd.ftLastWriteTime = utc_base_ft;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3333 strcpy (wfd.cFileName, name);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3334 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3335 else if (rootdir)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3336 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3337 if (!IS_DIRECTORY_SEP (name[len-1]))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3338 strcat (name, "\\");
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3339 if (GetDriveType (name) < 2)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3340 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3341 errno = ENOENT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3342 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3343 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3344 memset (&wfd, 0, sizeof (wfd));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3345 wfd.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3346 wfd.ftCreationTime = utc_base_ft;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3347 wfd.ftLastAccessTime = utc_base_ft;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3348 wfd.ftLastWriteTime = utc_base_ft;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3349 strcpy (wfd.cFileName, name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3350 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3351 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3352 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3353 if (IS_DIRECTORY_SEP (name[len-1]))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3354 name[len - 1] = 0;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3355
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3356 /* (This is hacky, but helps when doing file completions on
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3357 network drives.) Optimize by using information available from
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3358 active readdir if possible. */
25193
953155ee541a (stat): Check for directory ending in separator when
Geoff Voelker <voelker@cs.washington.edu>
parents: 24885
diff changeset
3359 len = strlen (dir_pathname);
953155ee541a (stat): Check for directory ending in separator when
Geoff Voelker <voelker@cs.washington.edu>
parents: 24885
diff changeset
3360 if (IS_DIRECTORY_SEP (dir_pathname[len-1]))
953155ee541a (stat): Check for directory ending in separator when
Geoff Voelker <voelker@cs.washington.edu>
parents: 24885
diff changeset
3361 len--;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3362 if (dir_find_handle != INVALID_HANDLE_VALUE
25193
953155ee541a (stat): Check for directory ending in separator when
Geoff Voelker <voelker@cs.washington.edu>
parents: 24885
diff changeset
3363 && strnicmp (name, dir_pathname, len) == 0
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3364 && IS_DIRECTORY_SEP (name[len])
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
3365 && xstrcasecmp (name + len + 1, dir_static.d_name) == 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3366 {
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3367 /* This was the last entry returned by readdir. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3368 wfd = dir_find_data;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3369 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3370 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3371 {
88048
7c4da276fe17 (stat): Don't do a double check for networked drive.
Jason Rumney <jasonr@gnu.org>
parents: 87999
diff changeset
3372 logon_network_drive (name);
87985
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
3373
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3374 fh = FindFirstFile (name, &wfd);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3375 if (fh == INVALID_HANDLE_VALUE)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3376 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3377 errno = ENOENT;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3378 return -1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3379 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3380 FindClose (fh);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3381 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3382 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3383
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3384 if (!(NILP (Vw32_get_true_file_attributes)
103868
b2b6dc6a2417 (stat): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 103859
diff changeset
3385 || (EQ (Vw32_get_true_file_attributes, Qlocal) && is_slow_fs (name)))
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3386 /* No access rights required to get info. */
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3387 && (fh = CreateFile (name, 0, 0, NULL, OPEN_EXISTING,
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3388 FILE_FLAG_BACKUP_SEMANTICS, NULL))
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3389 != INVALID_HANDLE_VALUE)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3390 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3391 /* This is more accurate in terms of gettting the correct number
78028
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
3392 of links, but is quite slow (it is noticeable when Emacs is
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3393 making a list of file name completions). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3394 BY_HANDLE_FILE_INFORMATION info;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3395
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3396 if (GetFileInformationByHandle (fh, &info))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3397 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3398 buf->st_nlink = info.nNumberOfLinks;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3399 /* Might as well use file index to fake inode values, but this
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3400 is not guaranteed to be unique unless we keep a handle open
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3401 all the time (even then there are situations where it is
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3402 not unique). Reputedly, there are at most 48 bits of info
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3403 (on NTFS, presumably less on FAT). */
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3404 fake_inode = info.nFileIndexHigh;
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3405 fake_inode <<= 32;
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3406 fake_inode += info.nFileIndexLow;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3407 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3408 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3409 {
23622
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
3410 buf->st_nlink = 1;
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
3411 fake_inode = 0;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3412 }
23622
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
3413
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3414 if (wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3415 {
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3416 buf->st_mode = S_IFDIR;
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3417 }
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3418 else
23622
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
3419 {
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3420 switch (GetFileType (fh))
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3421 {
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3422 case FILE_TYPE_DISK:
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3423 buf->st_mode = S_IFREG;
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3424 break;
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3425 case FILE_TYPE_PIPE:
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3426 buf->st_mode = S_IFIFO;
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3427 break;
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3428 case FILE_TYPE_CHAR:
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3429 case FILE_TYPE_UNKNOWN:
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3430 default:
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3431 buf->st_mode = S_IFCHR;
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3432 }
23622
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
3433 }
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
3434 CloseHandle (fh);
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3435 psd = get_file_security_desc (name);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3436 get_file_owner_and_group (psd, name, buf);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3437 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3438 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3439 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3440 /* Don't bother to make this information more accurate. */
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3441 buf->st_mode = (wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) ?
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3442 S_IFDIR : S_IFREG;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3443 buf->st_nlink = 1;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3444 fake_inode = 0;
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3445
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3446 get_file_owner_and_group (NULL, name, buf);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3447 }
95481
4390d64d3328 Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents: 95277
diff changeset
3448 xfree (psd);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3449
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3450 #if 0
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3451 /* Not sure if there is any point in this. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3452 if (!NILP (Vw32_generate_fake_inodes))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3453 fake_inode = generate_inode_val (name);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3454 else if (fake_inode == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3455 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3456 /* For want of something better, try to make everything unique. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3457 static DWORD gen_num = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3458 fake_inode = ++gen_num;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3459 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3460 #endif
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3461
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3462 /* MSVC defines _ino_t to be short; other libc's might not. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3463 if (sizeof (buf->st_ino) == 2)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3464 buf->st_ino = fake_inode ^ (fake_inode >> 16);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3465 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3466 buf->st_ino = fake_inode;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3467
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
3468 /* volume_info is set indirectly by map_w32_filename */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3469 buf->st_dev = volume_info.serialnum;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3470 buf->st_rdev = volume_info.serialnum;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3471
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3472
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3473 buf->st_size = wfd.nFileSizeHigh;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3474 buf->st_size <<= 32;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3475 buf->st_size += wfd.nFileSizeLow;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3476
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3477 /* Convert timestamps to Unix format. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3478 buf->st_mtime = convert_time (wfd.ftLastWriteTime);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3479 buf->st_atime = convert_time (wfd.ftLastAccessTime);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3480 if (buf->st_atime == 0) buf->st_atime = buf->st_mtime;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3481 buf->st_ctime = convert_time (wfd.ftCreationTime);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3482 if (buf->st_ctime == 0) buf->st_ctime = buf->st_mtime;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3483
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3484 /* determine rwx permissions */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3485 if (wfd.dwFileAttributes & FILE_ATTRIBUTE_READONLY)
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3486 permission = S_IREAD;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3487 else
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3488 permission = S_IREAD | S_IWRITE;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
3489
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3490 if (wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3491 permission |= S_IEXEC;
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
3492 else if (is_exec (name))
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3493 permission |= S_IEXEC;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3494
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3495 buf->st_mode |= permission | (permission >> 3) | (permission >> 6);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3496
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3497 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3498 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3499
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3500 /* Provide fstat and utime as well as stat for consistent handling of
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3501 file timestamps. */
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3502 int
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3503 fstat (int desc, struct stat * buf)
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3504 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3505 HANDLE fh = (HANDLE) _get_osfhandle (desc);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3506 BY_HANDLE_FILE_INFORMATION info;
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3507 unsigned __int64 fake_inode;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3508 int permission;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3509
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3510 switch (GetFileType (fh) & ~FILE_TYPE_REMOTE)
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3511 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3512 case FILE_TYPE_DISK:
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3513 buf->st_mode = S_IFREG;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3514 if (!GetFileInformationByHandle (fh, &info))
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3515 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3516 errno = EACCES;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3517 return -1;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3518 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3519 break;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3520 case FILE_TYPE_PIPE:
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3521 buf->st_mode = S_IFIFO;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3522 goto non_disk;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3523 case FILE_TYPE_CHAR:
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3524 case FILE_TYPE_UNKNOWN:
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3525 default:
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3526 buf->st_mode = S_IFCHR;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3527 non_disk:
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3528 memset (&info, 0, sizeof (info));
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3529 info.dwFileAttributes = 0;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3530 info.ftCreationTime = utc_base_ft;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3531 info.ftLastAccessTime = utc_base_ft;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3532 info.ftLastWriteTime = utc_base_ft;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3533 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3534
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3535 if (info.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3536 buf->st_mode = S_IFDIR;
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3537
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3538 buf->st_nlink = info.nNumberOfLinks;
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3539 /* Might as well use file index to fake inode values, but this
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3540 is not guaranteed to be unique unless we keep a handle open
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3541 all the time (even then there are situations where it is
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3542 not unique). Reputedly, there are at most 48 bits of info
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3543 (on NTFS, presumably less on FAT). */
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3544 fake_inode = info.nFileIndexHigh;
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3545 fake_inode <<= 32;
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3546 fake_inode += info.nFileIndexLow;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3547
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3548 /* MSVC defines _ino_t to be short; other libc's might not. */
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3549 if (sizeof (buf->st_ino) == 2)
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3550 buf->st_ino = fake_inode ^ (fake_inode >> 16);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3551 else
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3552 buf->st_ino = fake_inode;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3553
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3554 /* Consider files to belong to current user.
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3555 FIXME: this should use GetSecurityInfo API, but it is only
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3556 available for _WIN32_WINNT >= 0x501. */
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
3557 buf->st_uid = dflt_passwd.pw_uid;
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
3558 buf->st_gid = dflt_passwd.pw_gid;
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3559 strcpy (buf->st_uname, dflt_passwd.pw_name);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3560 strcpy (buf->st_gname, dflt_group.gr_name);
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3561
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3562 buf->st_dev = info.dwVolumeSerialNumber;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3563 buf->st_rdev = info.dwVolumeSerialNumber;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3564
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3565 buf->st_size = info.nFileSizeHigh;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3566 buf->st_size <<= 32;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3567 buf->st_size += info.nFileSizeLow;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3568
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3569 /* Convert timestamps to Unix format. */
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3570 buf->st_mtime = convert_time (info.ftLastWriteTime);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3571 buf->st_atime = convert_time (info.ftLastAccessTime);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3572 if (buf->st_atime == 0) buf->st_atime = buf->st_mtime;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3573 buf->st_ctime = convert_time (info.ftCreationTime);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3574 if (buf->st_ctime == 0) buf->st_ctime = buf->st_mtime;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3575
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3576 /* determine rwx permissions */
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3577 if (info.dwFileAttributes & FILE_ATTRIBUTE_READONLY)
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3578 permission = S_IREAD;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3579 else
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3580 permission = S_IREAD | S_IWRITE;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
3581
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3582 if (info.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3583 permission |= S_IEXEC;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3584 else
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3585 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3586 #if 0 /* no way of knowing the filename */
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3587 char * p = strrchr (name, '.');
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3588 if (p != NULL &&
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
3589 (xstrcasecmp (p, ".exe") == 0 ||
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
3590 xstrcasecmp (p, ".com") == 0 ||
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
3591 xstrcasecmp (p, ".bat") == 0 ||
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
3592 xstrcasecmp (p, ".cmd") == 0))
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3593 permission |= S_IEXEC;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3594 #endif
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3595 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3596
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3597 buf->st_mode |= permission | (permission >> 3) | (permission >> 6);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3598
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3599 return 0;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3600 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3601
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3602 int
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3603 utime (const char *name, struct utimbuf *times)
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3604 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3605 struct utimbuf deftime;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3606 HANDLE fh;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3607 FILETIME mtime;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3608 FILETIME atime;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3609
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3610 if (times == NULL)
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3611 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3612 deftime.modtime = deftime.actime = time (NULL);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3613 times = &deftime;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3614 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3615
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3616 /* Need write access to set times. */
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3617 fh = CreateFile (name, GENERIC_WRITE, FILE_SHARE_READ | FILE_SHARE_WRITE,
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3618 0, OPEN_EXISTING, 0, NULL);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3619 if (fh)
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3620 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3621 convert_from_time_t (times->actime, &atime);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3622 convert_from_time_t (times->modtime, &mtime);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3623 if (!SetFileTime (fh, NULL, &atime, &mtime))
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3624 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3625 CloseHandle (fh);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3626 errno = EACCES;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3627 return -1;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3628 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3629 CloseHandle (fh);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3630 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3631 else
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3632 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3633 errno = EINVAL;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3634 return -1;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3635 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3636 return 0;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3637 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3638
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3639
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3640 /* Support for browsing other processes and their attributes. See
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3641 process.c for the Lisp bindings. */
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3642
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3643 /* Helper wrapper functions. */
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3644
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3645 HANDLE WINAPI create_toolhelp32_snapshot(
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3646 DWORD Flags,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3647 DWORD Ignored)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3648 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3649 static CreateToolhelp32Snapshot_Proc s_pfn_Create_Toolhelp32_Snapshot = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3650
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3651 if (g_b_init_create_toolhelp32_snapshot == 0)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3652 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3653 g_b_init_create_toolhelp32_snapshot = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3654 s_pfn_Create_Toolhelp32_Snapshot = (CreateToolhelp32Snapshot_Proc)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3655 GetProcAddress (GetModuleHandle ("kernel32.dll"),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3656 "CreateToolhelp32Snapshot");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3657 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3658 if (s_pfn_Create_Toolhelp32_Snapshot == NULL)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3659 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3660 return INVALID_HANDLE_VALUE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3661 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3662 return (s_pfn_Create_Toolhelp32_Snapshot (Flags, Ignored));
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3663 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3664
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3665 BOOL WINAPI process32_first(
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3666 HANDLE hSnapshot,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3667 LPPROCESSENTRY32 lppe)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3668 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3669 static Process32First_Proc s_pfn_Process32_First = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3670
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3671 if (g_b_init_process32_first == 0)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3672 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3673 g_b_init_process32_first = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3674 s_pfn_Process32_First = (Process32First_Proc)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3675 GetProcAddress (GetModuleHandle ("kernel32.dll"),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3676 "Process32First");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3677 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3678 if (s_pfn_Process32_First == NULL)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3679 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3680 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3681 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3682 return (s_pfn_Process32_First (hSnapshot, lppe));
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3683 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3684
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3685 BOOL WINAPI process32_next(
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3686 HANDLE hSnapshot,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3687 LPPROCESSENTRY32 lppe)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3688 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3689 static Process32Next_Proc s_pfn_Process32_Next = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3690
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3691 if (g_b_init_process32_next == 0)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3692 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3693 g_b_init_process32_next = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3694 s_pfn_Process32_Next = (Process32Next_Proc)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3695 GetProcAddress (GetModuleHandle ("kernel32.dll"),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3696 "Process32Next");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3697 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3698 if (s_pfn_Process32_Next == NULL)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3699 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3700 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3701 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3702 return (s_pfn_Process32_Next (hSnapshot, lppe));
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3703 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3704
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3705 BOOL WINAPI open_thread_token (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3706 HANDLE ThreadHandle,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3707 DWORD DesiredAccess,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3708 BOOL OpenAsSelf,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3709 PHANDLE TokenHandle)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3710 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3711 static OpenThreadToken_Proc s_pfn_Open_Thread_Token = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3712 HMODULE hm_advapi32 = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3713 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3714 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3715 SetLastError (ERROR_NOT_SUPPORTED);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3716 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3717 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3718 if (g_b_init_open_thread_token == 0)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3719 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3720 g_b_init_open_thread_token = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3721 hm_advapi32 = LoadLibrary ("Advapi32.dll");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3722 s_pfn_Open_Thread_Token =
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3723 (OpenThreadToken_Proc) GetProcAddress (hm_advapi32, "OpenThreadToken");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3724 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3725 if (s_pfn_Open_Thread_Token == NULL)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3726 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3727 SetLastError (ERROR_NOT_SUPPORTED);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3728 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3729 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3730 return (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3731 s_pfn_Open_Thread_Token (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3732 ThreadHandle,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3733 DesiredAccess,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3734 OpenAsSelf,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3735 TokenHandle)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3736 );
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3737 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3738
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3739 BOOL WINAPI impersonate_self (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3740 SECURITY_IMPERSONATION_LEVEL ImpersonationLevel)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3741 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3742 static ImpersonateSelf_Proc s_pfn_Impersonate_Self = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3743 HMODULE hm_advapi32 = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3744 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3745 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3746 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3747 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3748 if (g_b_init_impersonate_self == 0)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3749 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3750 g_b_init_impersonate_self = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3751 hm_advapi32 = LoadLibrary ("Advapi32.dll");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3752 s_pfn_Impersonate_Self =
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3753 (ImpersonateSelf_Proc) GetProcAddress (hm_advapi32, "ImpersonateSelf");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3754 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3755 if (s_pfn_Impersonate_Self == NULL)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3756 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3757 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3758 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3759 return s_pfn_Impersonate_Self (ImpersonationLevel);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3760 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3761
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3762 BOOL WINAPI revert_to_self (void)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3763 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3764 static RevertToSelf_Proc s_pfn_Revert_To_Self = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3765 HMODULE hm_advapi32 = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3766 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3767 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3768 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3769 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3770 if (g_b_init_revert_to_self == 0)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3771 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3772 g_b_init_revert_to_self = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3773 hm_advapi32 = LoadLibrary ("Advapi32.dll");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3774 s_pfn_Revert_To_Self =
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3775 (RevertToSelf_Proc) GetProcAddress (hm_advapi32, "RevertToSelf");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3776 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3777 if (s_pfn_Revert_To_Self == NULL)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3778 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3779 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3780 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3781 return s_pfn_Revert_To_Self ();
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3782 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3783
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3784 BOOL WINAPI get_process_memory_info (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3785 HANDLE h_proc,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3786 PPROCESS_MEMORY_COUNTERS mem_counters,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3787 DWORD bufsize)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3788 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3789 static GetProcessMemoryInfo_Proc s_pfn_Get_Process_Memory_Info = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3790 HMODULE hm_psapi = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3791 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3792 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3793 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3794 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3795 if (g_b_init_get_process_memory_info == 0)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3796 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3797 g_b_init_get_process_memory_info = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3798 hm_psapi = LoadLibrary ("Psapi.dll");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3799 if (hm_psapi)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3800 s_pfn_Get_Process_Memory_Info = (GetProcessMemoryInfo_Proc)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3801 GetProcAddress (hm_psapi, "GetProcessMemoryInfo");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3802 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3803 if (s_pfn_Get_Process_Memory_Info == NULL)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3804 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3805 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3806 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3807 return s_pfn_Get_Process_Memory_Info (h_proc, mem_counters, bufsize);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3808 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3809
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3810 BOOL WINAPI get_process_working_set_size (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3811 HANDLE h_proc,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3812 DWORD *minrss,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3813 DWORD *maxrss)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3814 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3815 static GetProcessWorkingSetSize_Proc
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3816 s_pfn_Get_Process_Working_Set_Size = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3817
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3818 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3819 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3820 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3821 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3822 if (g_b_init_get_process_working_set_size == 0)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3823 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3824 g_b_init_get_process_working_set_size = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3825 s_pfn_Get_Process_Working_Set_Size = (GetProcessWorkingSetSize_Proc)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3826 GetProcAddress (GetModuleHandle ("kernel32.dll"),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3827 "GetProcessWorkingSetSize");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3828 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3829 if (s_pfn_Get_Process_Working_Set_Size == NULL)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3830 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3831 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3832 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3833 return s_pfn_Get_Process_Working_Set_Size (h_proc, minrss, maxrss);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3834 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3835
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3836 BOOL WINAPI global_memory_status (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3837 MEMORYSTATUS *buf)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3838 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3839 static GlobalMemoryStatus_Proc s_pfn_Global_Memory_Status = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3840
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3841 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3842 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3843 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3844 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3845 if (g_b_init_global_memory_status == 0)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3846 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3847 g_b_init_global_memory_status = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3848 s_pfn_Global_Memory_Status = (GlobalMemoryStatus_Proc)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3849 GetProcAddress (GetModuleHandle ("kernel32.dll"),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3850 "GlobalMemoryStatus");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3851 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3852 if (s_pfn_Global_Memory_Status == NULL)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3853 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3854 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3855 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3856 return s_pfn_Global_Memory_Status (buf);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3857 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3858
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3859 BOOL WINAPI global_memory_status_ex (
97486
2c195017488c (_MEMORY_STATUS_EX, MEMORY_STATUS_EX, LPMEMORY_STATUS_EX): Rename from
Eli Zaretskii <eliz@gnu.org>
parents: 97372
diff changeset
3860 MEMORY_STATUS_EX *buf)
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3861 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3862 static GlobalMemoryStatusEx_Proc s_pfn_Global_Memory_Status_Ex = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3863
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3864 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3865 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3866 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3867 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3868 if (g_b_init_global_memory_status_ex == 0)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3869 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3870 g_b_init_global_memory_status_ex = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3871 s_pfn_Global_Memory_Status_Ex = (GlobalMemoryStatusEx_Proc)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3872 GetProcAddress (GetModuleHandle ("kernel32.dll"),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3873 "GlobalMemoryStatusEx");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3874 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3875 if (s_pfn_Global_Memory_Status_Ex == NULL)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3876 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3877 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3878 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3879 return s_pfn_Global_Memory_Status_Ex (buf);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3880 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3881
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3882 Lisp_Object
100565
dcc7f5970d5c Reorganize implementation of Flist_system_processes and
Dan Nicolaescu <dann@ics.uci.edu>
parents: 100192
diff changeset
3883 list_system_processes ()
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3884 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3885 struct gcpro gcpro1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3886 Lisp_Object proclist = Qnil;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3887 HANDLE h_snapshot;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3888
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3889 h_snapshot = create_toolhelp32_snapshot (TH32CS_SNAPPROCESS, 0);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3890
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3891 if (h_snapshot != INVALID_HANDLE_VALUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3892 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3893 PROCESSENTRY32 proc_entry;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3894 DWORD proc_id;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3895 BOOL res;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3896
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3897 GCPRO1 (proclist);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3898
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3899 proc_entry.dwSize = sizeof (PROCESSENTRY32);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3900 for (res = process32_first (h_snapshot, &proc_entry); res;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3901 res = process32_next (h_snapshot, &proc_entry))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3902 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3903 proc_id = proc_entry.th32ProcessID;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3904 proclist = Fcons (make_fixnum_or_float (proc_id), proclist);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3905 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3906
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3907 CloseHandle (h_snapshot);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3908 UNGCPRO;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3909 proclist = Fnreverse (proclist);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3910 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3911
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3912 return proclist;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3913 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3914
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3915 static int
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3916 enable_privilege (LPCTSTR priv_name, BOOL enable_p, TOKEN_PRIVILEGES *old_priv)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3917 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3918 TOKEN_PRIVILEGES priv;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3919 DWORD priv_size = sizeof (priv);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3920 DWORD opriv_size = sizeof (*old_priv);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3921 HANDLE h_token = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3922 HANDLE h_thread = GetCurrentThread ();
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3923 int ret_val = 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3924 BOOL res;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3925
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3926 res = open_thread_token (h_thread,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3927 TOKEN_QUERY | TOKEN_ADJUST_PRIVILEGES,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3928 FALSE, &h_token);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3929 if (!res && GetLastError () == ERROR_NO_TOKEN)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3930 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3931 if (impersonate_self (SecurityImpersonation))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3932 res = open_thread_token (h_thread,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3933 TOKEN_QUERY | TOKEN_ADJUST_PRIVILEGES,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3934 FALSE, &h_token);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3935 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3936 if (res)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3937 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3938 priv.PrivilegeCount = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3939 priv.Privileges[0].Attributes = enable_p ? SE_PRIVILEGE_ENABLED : 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3940 LookupPrivilegeValue (NULL, priv_name, &priv.Privileges[0].Luid);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3941 if (AdjustTokenPrivileges (h_token, FALSE, &priv, priv_size,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3942 old_priv, &opriv_size)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3943 && GetLastError () != ERROR_NOT_ALL_ASSIGNED)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3944 ret_val = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3945 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3946 if (h_token)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3947 CloseHandle (h_token);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3948
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3949 return ret_val;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3950 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3951
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3952 static int
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3953 restore_privilege (TOKEN_PRIVILEGES *priv)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3954 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3955 DWORD priv_size = sizeof (*priv);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3956 HANDLE h_token = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3957 int ret_val = 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3958
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3959 if (open_thread_token (GetCurrentThread (),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3960 TOKEN_QUERY | TOKEN_ADJUST_PRIVILEGES,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3961 FALSE, &h_token))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3962 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3963 if (AdjustTokenPrivileges (h_token, FALSE, priv, priv_size, NULL, NULL)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3964 && GetLastError () != ERROR_NOT_ALL_ASSIGNED)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3965 ret_val = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3966 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3967 if (h_token)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3968 CloseHandle (h_token);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3969
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3970 return ret_val;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3971 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3972
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3973 static Lisp_Object
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3974 ltime (time_sec, time_usec)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3975 long time_sec, time_usec;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3976 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3977 return list3 (make_number ((time_sec >> 16) & 0xffff),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3978 make_number (time_sec & 0xffff),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3979 make_number (time_usec));
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3980 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3981
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
3982 #define U64_TO_LISP_TIME(time) ltime ((time) / 1000000L, (time) % 1000000L)
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
3983
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3984 static int
100831
e43e429a11bb (process_times): Compute sum of utime and stime.
Eli Zaretskii <eliz@gnu.org>
parents: 100565
diff changeset
3985 process_times (h_proc, ctime, etime, stime, utime, ttime, pcpu)
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3986 HANDLE h_proc;
100831
e43e429a11bb (process_times): Compute sum of utime and stime.
Eli Zaretskii <eliz@gnu.org>
parents: 100565
diff changeset
3987 Lisp_Object *ctime, *etime, *stime, *utime, *ttime;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3988 double *pcpu;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3989 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3990 FILETIME ft_creation, ft_exit, ft_kernel, ft_user, ft_current;
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
3991 ULONGLONG tem1, tem2, tem3, tem;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3992
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3993 if (!h_proc
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3994 || !get_process_times_fn
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3995 || !(*get_process_times_fn)(h_proc, &ft_creation, &ft_exit,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3996 &ft_kernel, &ft_user))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3997 return 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3998
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3999 GetSystemTimeAsFileTime (&ft_current);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4000
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4001 FILETIME_TO_U64 (tem1, ft_kernel);
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4002 tem1 /= 10L;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4003 *stime = U64_TO_LISP_TIME (tem1);
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4004
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4005 FILETIME_TO_U64 (tem2, ft_user);
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4006 tem2 /= 10L;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4007 *utime = U64_TO_LISP_TIME (tem2);
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4008
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4009 tem3 = tem1 + tem2;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4010 *ttime = U64_TO_LISP_TIME (tem3);
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4011
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4012 FILETIME_TO_U64 (tem, ft_creation);
97371
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4013 /* Process no 4 (System) returns zero creation time. */
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4014 if (tem)
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4015 tem = (tem - utc_base) / 10L;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4016 *ctime = U64_TO_LISP_TIME (tem);
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4017
97371
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4018 if (tem)
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4019 {
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4020 FILETIME_TO_U64 (tem3, ft_current);
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4021 tem = (tem3 - utc_base) / 10L - tem;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4022 }
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4023 *etime = U64_TO_LISP_TIME (tem);
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4024
97371
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4025 if (tem)
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4026 {
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4027 *pcpu = 100.0 * (tem1 + tem2) / tem;
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4028 if (*pcpu > 100)
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4029 *pcpu = 100.0;
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4030 }
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4031 else
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4032 *pcpu = 0;
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4033
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4034 return 1;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4035 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4036
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4037 Lisp_Object
100565
dcc7f5970d5c Reorganize implementation of Flist_system_processes and
Dan Nicolaescu <dann@ics.uci.edu>
parents: 100192
diff changeset
4038 system_process_attributes (pid)
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4039 Lisp_Object pid;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4040 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4041 struct gcpro gcpro1, gcpro2, gcpro3;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4042 Lisp_Object attrs = Qnil;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4043 Lisp_Object cmd_str, decoded_cmd, tem;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4044 HANDLE h_snapshot, h_proc;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4045 DWORD proc_id;
97372
aeb822613377 (w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents: 97371
diff changeset
4046 int found_proc = 0;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4047 char uname[UNLEN+1], gname[GNLEN+1], domain[1025];
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4048 DWORD ulength = sizeof (uname), dlength = sizeof (domain), needed;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4049 DWORD glength = sizeof (gname);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4050 HANDLE token = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4051 SID_NAME_USE user_type;
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4052 unsigned char *buf = NULL;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4053 DWORD blen = 0;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4054 TOKEN_USER user_token;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4055 TOKEN_PRIMARY_GROUP group_token;
102670
06ca3efb355b inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents: 100951
diff changeset
4056 unsigned euid;
06ca3efb355b inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents: 100951
diff changeset
4057 unsigned egid;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4058 DWORD sess;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4059 PROCESS_MEMORY_COUNTERS mem;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4060 PROCESS_MEMORY_COUNTERS_EX mem_ex;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4061 DWORD minrss, maxrss;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4062 MEMORYSTATUS memst;
97486
2c195017488c (_MEMORY_STATUS_EX, MEMORY_STATUS_EX, LPMEMORY_STATUS_EX): Rename from
Eli Zaretskii <eliz@gnu.org>
parents: 97372
diff changeset
4063 MEMORY_STATUS_EX memstex;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4064 double totphys = 0.0;
100831
e43e429a11bb (process_times): Compute sum of utime and stime.
Eli Zaretskii <eliz@gnu.org>
parents: 100565
diff changeset
4065 Lisp_Object ctime, stime, utime, etime, ttime;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4066 double pcpu;
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4067 BOOL result = FALSE;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4068
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4069 CHECK_NUMBER_OR_FLOAT (pid);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4070 proc_id = FLOATP (pid) ? XFLOAT_DATA (pid) : XINT (pid);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4071
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4072 h_snapshot = create_toolhelp32_snapshot (TH32CS_SNAPPROCESS, 0);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4073
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4074 GCPRO3 (attrs, decoded_cmd, tem);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4075
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4076 if (h_snapshot != INVALID_HANDLE_VALUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4077 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4078 PROCESSENTRY32 pe;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4079 BOOL res;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4080
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4081 pe.dwSize = sizeof (PROCESSENTRY32);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4082 for (res = process32_first (h_snapshot, &pe); res;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4083 res = process32_next (h_snapshot, &pe))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4084 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4085 if (proc_id == pe.th32ProcessID)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4086 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4087 if (proc_id == 0)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4088 decoded_cmd = build_string ("Idle");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4089 else
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4090 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4091 /* Decode the command name from locale-specific
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4092 encoding. */
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4093 cmd_str = make_unibyte_string (pe.szExeFile,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4094 strlen (pe.szExeFile));
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4095 decoded_cmd =
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4096 code_convert_string_norecord (cmd_str,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4097 Vlocale_coding_system, 0);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4098 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4099 attrs = Fcons (Fcons (Qcomm, decoded_cmd), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4100 attrs = Fcons (Fcons (Qppid,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4101 make_fixnum_or_float (pe.th32ParentProcessID)),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4102 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4103 attrs = Fcons (Fcons (Qpri, make_number (pe.pcPriClassBase)),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4104 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4105 attrs = Fcons (Fcons (Qthcount,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4106 make_fixnum_or_float (pe.cntThreads)),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4107 attrs);
97372
aeb822613377 (w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents: 97371
diff changeset
4108 found_proc = 1;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4109 break;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4110 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4111 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4112
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4113 CloseHandle (h_snapshot);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4114 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4115
97372
aeb822613377 (w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents: 97371
diff changeset
4116 if (!found_proc)
aeb822613377 (w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents: 97371
diff changeset
4117 {
aeb822613377 (w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents: 97371
diff changeset
4118 UNGCPRO;
aeb822613377 (w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents: 97371
diff changeset
4119 return Qnil;
aeb822613377 (w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents: 97371
diff changeset
4120 }
aeb822613377 (w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents: 97371
diff changeset
4121
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4122 h_proc = OpenProcess (PROCESS_QUERY_INFORMATION | PROCESS_VM_READ,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4123 FALSE, proc_id);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4124 /* If we were denied a handle to the process, try again after
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4125 enabling the SeDebugPrivilege in our process. */
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4126 if (!h_proc)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4127 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4128 TOKEN_PRIVILEGES priv_current;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4129
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4130 if (enable_privilege (SE_DEBUG_NAME, TRUE, &priv_current))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4131 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4132 h_proc = OpenProcess (PROCESS_QUERY_INFORMATION | PROCESS_VM_READ,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4133 FALSE, proc_id);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4134 restore_privilege (&priv_current);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4135 revert_to_self ();
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4136 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4137 }
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4138 if (h_proc)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4139 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4140 result = open_process_token (h_proc, TOKEN_QUERY, &token);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4141 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4142 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4143 result = get_token_information (token, TokenUser, NULL, 0, &blen);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4144 if (!result && GetLastError () == ERROR_INSUFFICIENT_BUFFER)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4145 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4146 buf = xmalloc (blen);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4147 result = get_token_information (token, TokenUser,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4148 (LPVOID)buf, blen, &needed);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4149 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4150 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4151 memcpy (&user_token, buf, sizeof (user_token));
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4152 if (!w32_cached_id (user_token.User.Sid, &euid, uname))
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4153 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4154 euid = get_rid (user_token.User.Sid);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4155 result = lookup_account_sid (NULL, user_token.User.Sid,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4156 uname, &ulength,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4157 domain, &dlength,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4158 &user_type);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4159 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4160 w32_add_to_cache (user_token.User.Sid, euid, uname);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4161 else
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4162 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4163 strcpy (uname, "unknown");
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4164 result = TRUE;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4165 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4166 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4167 ulength = strlen (uname);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4168 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4169 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4170 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4171 if (result)
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
4172 {
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4173 /* Determine a reasonable euid and gid values. */
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4174 if (xstrcasecmp ("administrator", uname) == 0)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4175 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4176 euid = 500; /* well-known Administrator uid */
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4177 egid = 513; /* well-known None gid */
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4178 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4179 else
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4180 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4181 /* Get group id and name. */
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4182 result = get_token_information (token, TokenPrimaryGroup,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4183 (LPVOID)buf, blen, &needed);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4184 if (!result && GetLastError () == ERROR_INSUFFICIENT_BUFFER)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4185 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4186 buf = xrealloc (buf, blen = needed);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4187 result = get_token_information (token, TokenPrimaryGroup,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4188 (LPVOID)buf, blen, &needed);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4189 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4190 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4191 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4192 memcpy (&group_token, buf, sizeof (group_token));
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4193 if (!w32_cached_id (group_token.PrimaryGroup, &egid, gname))
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4194 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4195 egid = get_rid (group_token.PrimaryGroup);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4196 dlength = sizeof (domain);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4197 result =
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4198 lookup_account_sid (NULL, group_token.PrimaryGroup,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4199 gname, &glength, NULL, &dlength,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4200 &user_type);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4201 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4202 w32_add_to_cache (group_token.PrimaryGroup,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4203 egid, gname);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4204 else
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4205 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4206 strcpy (gname, "None");
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4207 result = TRUE;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4208 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4209 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4210 glength = strlen (gname);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4211 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4212 }
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
4213 }
103624
3e06f0e66062 Remove useless if-before-xfree tests.
Jim Meyering <jim@meyering.net>
parents: 102670
diff changeset
4214 xfree (buf);
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4215 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4216 if (!result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4217 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4218 if (!is_windows_9x ())
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4219 {
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4220 /* We couldn't open the process token, presumably because of
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4221 insufficient access rights. Assume this process is run
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4222 by the system. */
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4223 strcpy (uname, "SYSTEM");
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4224 strcpy (gname, "None");
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4225 euid = 18; /* SYSTEM */
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4226 egid = 513; /* None */
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4227 glength = strlen (gname);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4228 ulength = strlen (uname);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4229 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4230 /* If we are running under Windows 9X, where security calls are
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4231 not supported, we assume all processes are run by the current
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4232 user. */
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4233 else if (GetUserName (uname, &ulength))
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4234 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4235 if (xstrcasecmp ("administrator", uname) == 0)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4236 euid = 0;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4237 else
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4238 euid = 123;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4239 egid = euid;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4240 strcpy (gname, "None");
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4241 glength = strlen (gname);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4242 ulength = strlen (uname);
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4243 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4244 else
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4245 {
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4246 euid = 123;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4247 egid = 123;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4248 strcpy (uname, "administrator");
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4249 ulength = strlen (uname);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4250 strcpy (gname, "None");
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4251 glength = strlen (gname);
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4252 }
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4253 if (token)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4254 CloseHandle (token);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4255 }
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4256
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4257 attrs = Fcons (Fcons (Qeuid, make_fixnum_or_float (euid)), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4258 tem = make_unibyte_string (uname, ulength);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4259 attrs = Fcons (Fcons (Quser,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4260 code_convert_string_norecord (tem, Vlocale_coding_system, 0)),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4261 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4262 attrs = Fcons (Fcons (Qegid, make_fixnum_or_float (egid)), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4263 tem = make_unibyte_string (gname, glength);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4264 attrs = Fcons (Fcons (Qgroup,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4265 code_convert_string_norecord (tem, Vlocale_coding_system, 0)),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4266 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4267
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4268 if (global_memory_status_ex (&memstex))
97495
1f8e4a26957e (w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents: 97491
diff changeset
4269 #if __GNUC__ || (defined (_MSC_VER) && _MSC_VER >= 1300)
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4270 totphys = memstex.ullTotalPhys / 1024.0;
97495
1f8e4a26957e (w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents: 97491
diff changeset
4271 #else
1f8e4a26957e (w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents: 97491
diff changeset
4272 /* Visual Studio 6 cannot convert an unsigned __int64 type to
1f8e4a26957e (w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents: 97491
diff changeset
4273 double, so we need to do this for it... */
1f8e4a26957e (w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents: 97491
diff changeset
4274 {
1f8e4a26957e (w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents: 97491
diff changeset
4275 DWORD tot_hi = memstex.ullTotalPhys >> 32;
1f8e4a26957e (w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents: 97491
diff changeset
4276 DWORD tot_md = (memstex.ullTotalPhys & 0x00000000ffffffff) >> 10;
1f8e4a26957e (w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents: 97491
diff changeset
4277 DWORD tot_lo = memstex.ullTotalPhys % 1024;
1f8e4a26957e (w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents: 97491
diff changeset
4278
1f8e4a26957e (w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents: 97491
diff changeset
4279 totphys = tot_hi * 4194304.0 + tot_md + tot_lo / 1024.0;
1f8e4a26957e (w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents: 97491
diff changeset
4280 }
1f8e4a26957e (w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents: 97491
diff changeset
4281 #endif /* __GNUC__ || _MSC_VER >= 1300 */
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4282 else if (global_memory_status (&memst))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4283 totphys = memst.dwTotalPhys / 1024.0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4284
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4285 if (h_proc
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4286 && get_process_memory_info (h_proc, (PROCESS_MEMORY_COUNTERS *)&mem_ex,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4287 sizeof (mem_ex)))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4288 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4289 DWORD rss = mem_ex.WorkingSetSize / 1024;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4290
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4291 attrs = Fcons (Fcons (Qmajflt,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4292 make_fixnum_or_float (mem_ex.PageFaultCount)),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4293 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4294 attrs = Fcons (Fcons (Qvsize,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4295 make_fixnum_or_float (mem_ex.PrivateUsage / 1024)),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4296 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4297 attrs = Fcons (Fcons (Qrss, make_fixnum_or_float (rss)), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4298 if (totphys)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4299 attrs = Fcons (Fcons (Qpmem, make_float (100. * rss / totphys)), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4300 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4301 else if (h_proc
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4302 && get_process_memory_info (h_proc, &mem, sizeof (mem)))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4303 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4304 DWORD rss = mem_ex.WorkingSetSize / 1024;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4305
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4306 attrs = Fcons (Fcons (Qmajflt,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4307 make_fixnum_or_float (mem.PageFaultCount)),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4308 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4309 attrs = Fcons (Fcons (Qrss, make_fixnum_or_float (rss)), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4310 if (totphys)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4311 attrs = Fcons (Fcons (Qpmem, make_float (100. * rss / totphys)), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4312 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4313 else if (h_proc
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4314 && get_process_working_set_size (h_proc, &minrss, &maxrss))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4315 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4316 DWORD rss = maxrss / 1024;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4317
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4318 attrs = Fcons (Fcons (Qrss, make_fixnum_or_float (maxrss / 1024)), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4319 if (totphys)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4320 attrs = Fcons (Fcons (Qpmem, make_float (100. * rss / totphys)), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4321 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4322
100831
e43e429a11bb (process_times): Compute sum of utime and stime.
Eli Zaretskii <eliz@gnu.org>
parents: 100565
diff changeset
4323 if (process_times (h_proc, &ctime, &etime, &stime, &utime, &ttime, &pcpu))
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4324 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4325 attrs = Fcons (Fcons (Qutime, utime), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4326 attrs = Fcons (Fcons (Qstime, stime), attrs);
100831
e43e429a11bb (process_times): Compute sum of utime and stime.
Eli Zaretskii <eliz@gnu.org>
parents: 100565
diff changeset
4327 attrs = Fcons (Fcons (Qtime, ttime), attrs);
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4328 attrs = Fcons (Fcons (Qstart, ctime), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4329 attrs = Fcons (Fcons (Qetime, etime), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4330 attrs = Fcons (Fcons (Qpcpu, make_float (pcpu)), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4331 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4332
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4333 /* FIXME: Retrieve command line by walking the PEB of the process. */
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4334
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4335 if (h_proc)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4336 CloseHandle (h_proc);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4337 UNGCPRO;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4338 return attrs;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4339 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4340
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4341
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4342 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4343
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4344 /* Wrappers for winsock functions to map between our file descriptors
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4345 and winsock's handles; also set h_errno for convenience.
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4346
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4347 To allow Emacs to run on systems which don't have winsock support
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4348 installed, we dynamically link to winsock on startup if present, and
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4349 otherwise provide the minimum necessary functionality
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4350 (eg. gethostname). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4351
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4352 /* function pointers for relevant socket functions */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4353 int (PASCAL *pfn_WSAStartup) (WORD wVersionRequired, LPWSADATA lpWSAData);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4354 void (PASCAL *pfn_WSASetLastError) (int iError);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4355 int (PASCAL *pfn_WSAGetLastError) (void);
71889
2385a5c8186c Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents: 70740
diff changeset
4356 int (PASCAL *pfn_WSAEventSelect) (SOCKET s, HANDLE hEventObject, long lNetworkEvents);
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4357 HANDLE (PASCAL *pfn_WSACreateEvent) (void);
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4358 int (PASCAL *pfn_WSACloseEvent) (HANDLE hEvent);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4359 int (PASCAL *pfn_socket) (int af, int type, int protocol);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4360 int (PASCAL *pfn_bind) (SOCKET s, const struct sockaddr *addr, int namelen);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4361 int (PASCAL *pfn_connect) (SOCKET s, const struct sockaddr *addr, int namelen);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4362 int (PASCAL *pfn_ioctlsocket) (SOCKET s, long cmd, u_long *argp);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4363 int (PASCAL *pfn_recv) (SOCKET s, char * buf, int len, int flags);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4364 int (PASCAL *pfn_send) (SOCKET s, const char * buf, int len, int flags);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4365 int (PASCAL *pfn_closesocket) (SOCKET s);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4366 int (PASCAL *pfn_shutdown) (SOCKET s, int how);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4367 int (PASCAL *pfn_WSACleanup) (void);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4368
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4369 u_short (PASCAL *pfn_htons) (u_short hostshort);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4370 u_short (PASCAL *pfn_ntohs) (u_short netshort);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4371 unsigned long (PASCAL *pfn_inet_addr) (const char * cp);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4372 int (PASCAL *pfn_gethostname) (char * name, int namelen);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4373 struct hostent * (PASCAL *pfn_gethostbyname) (const char * name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4374 struct servent * (PASCAL *pfn_getservbyname) (const char * name, const char * proto);
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4375 int (PASCAL *pfn_getpeername) (SOCKET s, struct sockaddr *addr, int * namelen);
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4376 int (PASCAL *pfn_setsockopt) (SOCKET s, int level, int optname,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4377 const char * optval, int optlen);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4378 int (PASCAL *pfn_listen) (SOCKET s, int backlog);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4379 int (PASCAL *pfn_getsockname) (SOCKET s, struct sockaddr * name,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4380 int * namelen);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4381 SOCKET (PASCAL *pfn_accept) (SOCKET s, struct sockaddr * addr, int * addrlen);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4382 int (PASCAL *pfn_recvfrom) (SOCKET s, char * buf, int len, int flags,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4383 struct sockaddr * from, int * fromlen);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4384 int (PASCAL *pfn_sendto) (SOCKET s, const char * buf, int len, int flags,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4385 const struct sockaddr * to, int tolen);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4386
15342
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4387 /* SetHandleInformation is only needed to make sockets non-inheritable. */
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4388 BOOL (WINAPI *pfn_SetHandleInformation) (HANDLE object, DWORD mask, DWORD flags);
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4389 #ifndef HANDLE_FLAG_INHERIT
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4390 #define HANDLE_FLAG_INHERIT 1
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4391 #endif
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4392
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4393 HANDLE winsock_lib;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4394 static int winsock_inuse;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4395
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4396 BOOL
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4397 term_winsock (void)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4398 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4399 if (winsock_lib != NULL && winsock_inuse == 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4400 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4401 /* Not sure what would cause WSAENETDOWN, or even if it can happen
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4402 after WSAStartup returns successfully, but it seems reasonable
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4403 to allow unloading winsock anyway in that case. */
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4404 if (pfn_WSACleanup () == 0 ||
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4405 pfn_WSAGetLastError () == WSAENETDOWN)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4406 {
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4407 if (FreeLibrary (winsock_lib))
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4408 winsock_lib = NULL;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4409 return TRUE;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4410 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4411 }
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4412 return FALSE;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4413 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4414
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4415 BOOL
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4416 init_winsock (int load_now)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4417 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4418 WSADATA winsockData;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4419
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4420 if (winsock_lib != NULL)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4421 return TRUE;
15342
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4422
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4423 pfn_SetHandleInformation = NULL;
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4424 pfn_SetHandleInformation
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4425 = (void *) GetProcAddress (GetModuleHandle ("kernel32.dll"),
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4426 "SetHandleInformation");
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4427
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4428 winsock_lib = LoadLibrary ("Ws2_32.dll");
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4429
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4430 if (winsock_lib != NULL)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4431 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4432 /* dynamically link to socket functions */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4433
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4434 #define LOAD_PROC(fn) \
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4435 if ((pfn_##fn = (void *) GetProcAddress (winsock_lib, #fn)) == NULL) \
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4436 goto fail;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4437
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4438 LOAD_PROC( WSAStartup );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4439 LOAD_PROC( WSASetLastError );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4440 LOAD_PROC( WSAGetLastError );
71889
2385a5c8186c Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents: 70740
diff changeset
4441 LOAD_PROC( WSAEventSelect );
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4442 LOAD_PROC( WSACreateEvent );
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4443 LOAD_PROC( WSACloseEvent );
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4444 LOAD_PROC( socket );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4445 LOAD_PROC( bind );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4446 LOAD_PROC( connect );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4447 LOAD_PROC( ioctlsocket );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4448 LOAD_PROC( recv );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4449 LOAD_PROC( send );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4450 LOAD_PROC( closesocket );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4451 LOAD_PROC( shutdown );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4452 LOAD_PROC( htons );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4453 LOAD_PROC( ntohs );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4454 LOAD_PROC( inet_addr );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4455 LOAD_PROC( gethostname );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4456 LOAD_PROC( gethostbyname );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4457 LOAD_PROC( getservbyname );
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4458 LOAD_PROC( getpeername );
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4459 LOAD_PROC( WSACleanup );
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4460 LOAD_PROC( setsockopt );
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4461 LOAD_PROC( listen );
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4462 LOAD_PROC( getsockname );
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4463 LOAD_PROC( accept );
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4464 LOAD_PROC( recvfrom );
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4465 LOAD_PROC( sendto );
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4466 #undef LOAD_PROC
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4467
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4468 /* specify version 1.1 of winsock */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4469 if (pfn_WSAStartup (0x101, &winsockData) == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4470 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4471 if (winsockData.wVersion != 0x101)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4472 goto fail;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4473
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4474 if (!load_now)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4475 {
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4476 /* Report that winsock exists and is usable, but leave
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4477 socket functions disabled. I am assuming that calling
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4478 WSAStartup does not require any network interaction,
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4479 and in particular does not cause or require a dial-up
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4480 connection to be established. */
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4481
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4482 pfn_WSACleanup ();
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4483 FreeLibrary (winsock_lib);
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4484 winsock_lib = NULL;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4485 }
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4486 winsock_inuse = 0;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4487 return TRUE;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4488 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4489
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4490 fail:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4491 FreeLibrary (winsock_lib);
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4492 winsock_lib = NULL;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4493 }
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4494
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4495 return FALSE;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4496 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4497
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4498
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4499 int h_errno = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4500
96462
c74d39c72729 Spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 96376
diff changeset
4501 /* function to set h_errno for compatibility; map winsock error codes to
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4502 normal system codes where they overlap (non-overlapping definitions
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4503 are already in <sys/socket.h> */
74947
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
4504 static void
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
4505 set_errno ()
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4506 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4507 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4508 h_errno = EINVAL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4509 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4510 h_errno = pfn_WSAGetLastError ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4511
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4512 switch (h_errno)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4513 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4514 case WSAEACCES: h_errno = EACCES; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4515 case WSAEBADF: h_errno = EBADF; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4516 case WSAEFAULT: h_errno = EFAULT; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4517 case WSAEINTR: h_errno = EINTR; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4518 case WSAEINVAL: h_errno = EINVAL; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4519 case WSAEMFILE: h_errno = EMFILE; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4520 case WSAENAMETOOLONG: h_errno = ENAMETOOLONG; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4521 case WSAENOTEMPTY: h_errno = ENOTEMPTY; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4522 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4523 errno = h_errno;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4524 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4525
74947
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
4526 static void
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
4527 check_errno ()
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4528 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4529 if (h_errno == 0 && winsock_lib != NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4530 pfn_WSASetLastError (0);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4531 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4532
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4533 /* Extend strerror to handle the winsock-specific error codes. */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4534 struct {
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4535 int errnum;
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4536 char * msg;
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4537 } _wsa_errlist[] = {
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4538 WSAEINTR , "Interrupted function call",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4539 WSAEBADF , "Bad file descriptor",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4540 WSAEACCES , "Permission denied",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4541 WSAEFAULT , "Bad address",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4542 WSAEINVAL , "Invalid argument",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4543 WSAEMFILE , "Too many open files",
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4544
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4545 WSAEWOULDBLOCK , "Resource temporarily unavailable",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4546 WSAEINPROGRESS , "Operation now in progress",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4547 WSAEALREADY , "Operation already in progress",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4548 WSAENOTSOCK , "Socket operation on non-socket",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4549 WSAEDESTADDRREQ , "Destination address required",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4550 WSAEMSGSIZE , "Message too long",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4551 WSAEPROTOTYPE , "Protocol wrong type for socket",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4552 WSAENOPROTOOPT , "Bad protocol option",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4553 WSAEPROTONOSUPPORT , "Protocol not supported",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4554 WSAESOCKTNOSUPPORT , "Socket type not supported",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4555 WSAEOPNOTSUPP , "Operation not supported",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4556 WSAEPFNOSUPPORT , "Protocol family not supported",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4557 WSAEAFNOSUPPORT , "Address family not supported by protocol family",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4558 WSAEADDRINUSE , "Address already in use",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4559 WSAEADDRNOTAVAIL , "Cannot assign requested address",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4560 WSAENETDOWN , "Network is down",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4561 WSAENETUNREACH , "Network is unreachable",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4562 WSAENETRESET , "Network dropped connection on reset",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4563 WSAECONNABORTED , "Software caused connection abort",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4564 WSAECONNRESET , "Connection reset by peer",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4565 WSAENOBUFS , "No buffer space available",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4566 WSAEISCONN , "Socket is already connected",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4567 WSAENOTCONN , "Socket is not connected",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4568 WSAESHUTDOWN , "Cannot send after socket shutdown",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4569 WSAETOOMANYREFS , "Too many references", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4570 WSAETIMEDOUT , "Connection timed out",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4571 WSAECONNREFUSED , "Connection refused",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4572 WSAELOOP , "Network loop", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4573 WSAENAMETOOLONG , "Name is too long",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4574 WSAEHOSTDOWN , "Host is down",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4575 WSAEHOSTUNREACH , "No route to host",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4576 WSAENOTEMPTY , "Buffer not empty", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4577 WSAEPROCLIM , "Too many processes",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4578 WSAEUSERS , "Too many users", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4579 WSAEDQUOT , "Double quote in host name", /* really not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4580 WSAESTALE , "Data is stale", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4581 WSAEREMOTE , "Remote error", /* not sure */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4582
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4583 WSASYSNOTREADY , "Network subsystem is unavailable",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4584 WSAVERNOTSUPPORTED , "WINSOCK.DLL version out of range",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4585 WSANOTINITIALISED , "Winsock not initialized successfully",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4586 WSAEDISCON , "Graceful shutdown in progress",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4587 #ifdef WSAENOMORE
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4588 WSAENOMORE , "No more operations allowed", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4589 WSAECANCELLED , "Operation cancelled", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4590 WSAEINVALIDPROCTABLE , "Invalid procedure table from service provider",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4591 WSAEINVALIDPROVIDER , "Invalid service provider version number",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4592 WSAEPROVIDERFAILEDINIT , "Unable to initialize a service provider",
78028
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
4593 WSASYSCALLFAILURE , "System call failure",
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4594 WSASERVICE_NOT_FOUND , "Service not found", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4595 WSATYPE_NOT_FOUND , "Class type not found",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4596 WSA_E_NO_MORE , "No more resources available", /* really not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4597 WSA_E_CANCELLED , "Operation already cancelled", /* really not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4598 WSAEREFUSED , "Operation refused", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4599 #endif
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4600
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4601 WSAHOST_NOT_FOUND , "Host not found",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4602 WSATRY_AGAIN , "Authoritative host not found during name lookup",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4603 WSANO_RECOVERY , "Non-recoverable error during name lookup",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4604 WSANO_DATA , "Valid name, no data record of requested type",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4605
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4606 -1, NULL
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4607 };
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4608
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4609 char *
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4610 sys_strerror(int error_no)
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4611 {
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4612 int i;
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4613 static char unknown_msg[40];
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4614
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
4615 if (error_no >= 0 && error_no < sys_nerr)
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
4616 return sys_errlist[error_no];
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4617
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4618 for (i = 0; _wsa_errlist[i].errnum >= 0; i++)
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4619 if (_wsa_errlist[i].errnum == error_no)
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4620 return _wsa_errlist[i].msg;
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4621
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4622 sprintf(unknown_msg, "Unidentified error: %d", error_no);
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4623 return unknown_msg;
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4624 }
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4625
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4626 /* [andrewi 3-May-96] I've had conflicting results using both methods,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4627 but I believe the method of keeping the socket handle separate (and
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4628 insuring it is not inheritable) is the correct one. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4629
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4630 //#define SOCK_REPLACE_HANDLE
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4631
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4632 #ifdef SOCK_REPLACE_HANDLE
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4633 #define SOCK_HANDLE(fd) ((SOCKET) _get_osfhandle (fd))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4634 #else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4635 #define SOCK_HANDLE(fd) ((SOCKET) fd_info[fd].hnd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4636 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4637
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4638 int socket_to_fd (SOCKET s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4639
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4640 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4641 sys_socket(int af, int type, int protocol)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4642 {
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4643 SOCKET s;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4644
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4645 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4646 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4647 h_errno = ENETDOWN;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4648 return INVALID_SOCKET;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4649 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4650
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4651 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4652
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4653 /* call the real socket function */
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4654 s = pfn_socket (af, type, protocol);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4655
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4656 if (s != INVALID_SOCKET)
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4657 return socket_to_fd (s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4658
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4659 set_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4660 return -1;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4661 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4662
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4663 /* Convert a SOCKET to a file descriptor. */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4664 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4665 socket_to_fd (SOCKET s)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4666 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4667 int fd;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4668 child_process * cp;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4669
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4670 /* Although under NT 3.5 _open_osfhandle will accept a socket
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4671 handle, if opened with SO_OPENTYPE == SO_SYNCHRONOUS_NONALERT,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4672 that does not work under NT 3.1. However, we can get the same
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4673 effect by using a backdoor function to replace an existing
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4674 descriptor handle with the one we want. */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4675
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4676 /* allocate a file descriptor (with appropriate flags) */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4677 fd = _open ("NUL:", _O_RDWR);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4678 if (fd >= 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4679 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4680 #ifdef SOCK_REPLACE_HANDLE
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4681 /* now replace handle to NUL with our socket handle */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4682 CloseHandle ((HANDLE) _get_osfhandle (fd));
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4683 _free_osfhnd (fd);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4684 _set_osfhnd (fd, s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4685 /* setmode (fd, _O_BINARY); */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4686 #else
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4687 /* Make a non-inheritable copy of the socket handle. Note
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4688 that it is possible that sockets aren't actually kernel
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4689 handles, which appears to be the case on Windows 9x when
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4690 the MS Proxy winsock client is installed. */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4691 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4692 /* Apparently there is a bug in NT 3.51 with some service
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4693 packs, which prevents using DuplicateHandle to make a
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4694 socket handle non-inheritable (causes WSACleanup to
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4695 hang). The work-around is to use SetHandleInformation
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4696 instead if it is available and implemented. */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4697 if (pfn_SetHandleInformation)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4698 {
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4699 pfn_SetHandleInformation ((HANDLE) s, HANDLE_FLAG_INHERIT, 0);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4700 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4701 else
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4702 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4703 HANDLE parent = GetCurrentProcess ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4704 HANDLE new_s = INVALID_HANDLE_VALUE;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4705
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4706 if (DuplicateHandle (parent,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4707 (HANDLE) s,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4708 parent,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4709 &new_s,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4710 0,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4711 FALSE,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4712 DUPLICATE_SAME_ACCESS))
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
4713 {
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4714 /* It is possible that DuplicateHandle succeeds even
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4715 though the socket wasn't really a kernel handle,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4716 because a real handle has the same value. So
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4717 test whether the new handle really is a socket. */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4718 long nonblocking = 0;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4719 if (pfn_ioctlsocket ((SOCKET) new_s, FIONBIO, &nonblocking) == 0)
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
4720 {
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4721 pfn_closesocket (s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4722 s = (SOCKET) new_s;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4723 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4724 else
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4725 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4726 CloseHandle (new_s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4727 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4728 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4729 }
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4730 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4731 fd_info[fd].hnd = (HANDLE) s;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4732 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4733
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4734 /* set our own internal flags */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4735 fd_info[fd].flags = FILE_SOCKET | FILE_BINARY | FILE_READ | FILE_WRITE;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4736
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4737 cp = new_child ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4738 if (cp)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4739 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4740 cp->fd = fd;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4741 cp->status = STATUS_READ_ACKNOWLEDGED;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4742
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4743 /* attach child_process to fd_info */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4744 if (fd_info[ fd ].cp != NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4745 {
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4746 DebPrint (("sys_socket: fd_info[%d] apparently in use!\n", fd));
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4747 abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4748 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4749
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4750 fd_info[ fd ].cp = cp;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4751
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4752 /* success! */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4753 winsock_inuse++; /* count open sockets */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4754 return fd;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4755 }
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4756
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4757 /* clean up */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4758 _close (fd);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4759 }
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4760 pfn_closesocket (s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4761 h_errno = EMFILE;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4762 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4763 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4764
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4765
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4766 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4767 sys_bind (int s, const struct sockaddr * addr, int namelen)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4768 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4769 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4770 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4771 h_errno = ENOTSOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4772 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4773 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4774
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4775 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4776 if (fd_info[s].flags & FILE_SOCKET)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4777 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4778 int rc = pfn_bind (SOCK_HANDLE (s), addr, namelen);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4779 if (rc == SOCKET_ERROR)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4780 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4781 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4782 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4783 h_errno = ENOTSOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4784 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4785 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4786
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4787
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4788 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4789 sys_connect (int s, const struct sockaddr * name, int namelen)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4790 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4791 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4792 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4793 h_errno = ENOTSOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4794 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4795 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4796
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4797 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4798 if (fd_info[s].flags & FILE_SOCKET)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4799 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4800 int rc = pfn_connect (SOCK_HANDLE (s), name, namelen);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4801 if (rc == SOCKET_ERROR)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4802 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4803 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4804 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4805 h_errno = ENOTSOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4806 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4807 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4808
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4809 u_short
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4810 sys_htons (u_short hostshort)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4811 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4812 return (winsock_lib != NULL) ?
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4813 pfn_htons (hostshort) : hostshort;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4814 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4815
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4816 u_short
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4817 sys_ntohs (u_short netshort)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4818 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4819 return (winsock_lib != NULL) ?
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4820 pfn_ntohs (netshort) : netshort;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4821 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4822
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4823 unsigned long
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4824 sys_inet_addr (const char * cp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4825 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4826 return (winsock_lib != NULL) ?
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4827 pfn_inet_addr (cp) : INADDR_NONE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4828 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4829
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4830 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4831 sys_gethostname (char * name, int namelen)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4832 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4833 if (winsock_lib != NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4834 return pfn_gethostname (name, namelen);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4835
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4836 if (namelen > MAX_COMPUTERNAME_LENGTH)
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
4837 return !GetComputerName (name, (DWORD *)&namelen);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4838
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4839 h_errno = EFAULT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4840 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4841 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4842
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4843 struct hostent *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4844 sys_gethostbyname(const char * name)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4845 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4846 struct hostent * host;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4847
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4848 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4849 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4850 h_errno = ENETDOWN;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4851 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4852 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4853
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4854 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4855 host = pfn_gethostbyname (name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4856 if (!host)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4857 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4858 return host;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4859 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4860
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4861 struct servent *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4862 sys_getservbyname(const char * name, const char * proto)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4863 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4864 struct servent * serv;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4865
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4866 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4867 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4868 h_errno = ENETDOWN;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4869 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4870 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4871
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4872 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4873 serv = pfn_getservbyname (name, proto);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4874 if (!serv)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4875 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4876 return serv;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4877 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4878
18725
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4879 int
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4880 sys_getpeername (int s, struct sockaddr *addr, int * namelen)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4881 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4882 if (winsock_lib == NULL)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4883 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4884 h_errno = ENETDOWN;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4885 return SOCKET_ERROR;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4886 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4887
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4888 check_errno ();
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4889 if (fd_info[s].flags & FILE_SOCKET)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4890 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4891 int rc = pfn_getpeername (SOCK_HANDLE (s), addr, namelen);
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4892 if (rc == SOCKET_ERROR)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4893 set_errno ();
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4894 return rc;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4895 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4896 h_errno = ENOTSOCK;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4897 return SOCKET_ERROR;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4898 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4899
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4900
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4901 int
18725
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4902 sys_shutdown (int s, int how)
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4903 {
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4904 if (winsock_lib == NULL)
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4905 {
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4906 h_errno = ENETDOWN;
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4907 return SOCKET_ERROR;
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4908 }
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4909
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4910 check_errno ();
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4911 if (fd_info[s].flags & FILE_SOCKET)
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4912 {
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4913 int rc = pfn_shutdown (SOCK_HANDLE (s), how);
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4914 if (rc == SOCKET_ERROR)
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4915 set_errno ();
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4916 return rc;
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4917 }
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4918 h_errno = ENOTSOCK;
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4919 return SOCKET_ERROR;
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4920 }
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4921
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4922 int
63038
ac1cd1222417 (sys_setsockopt): Change arg 4 to `const void *'. In the
Eli Zaretskii <eliz@gnu.org>
parents: 63020
diff changeset
4923 sys_setsockopt (int s, int level, int optname, const void * optval, int optlen)
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4924 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4925 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4926 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4927 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4928 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4929 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4930
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4931 check_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4932 if (fd_info[s].flags & FILE_SOCKET)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4933 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4934 int rc = pfn_setsockopt (SOCK_HANDLE (s), level, optname,
63038
ac1cd1222417 (sys_setsockopt): Change arg 4 to `const void *'. In the
Eli Zaretskii <eliz@gnu.org>
parents: 63020
diff changeset
4935 (const char *)optval, optlen);
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4936 if (rc == SOCKET_ERROR)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4937 set_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4938 return rc;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4939 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4940 h_errno = ENOTSOCK;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4941 return SOCKET_ERROR;
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4942 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4943
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4944 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4945 sys_listen (int s, int backlog)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4946 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4947 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4948 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4949 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4950 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4951 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4952
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4953 check_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4954 if (fd_info[s].flags & FILE_SOCKET)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4955 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4956 int rc = pfn_listen (SOCK_HANDLE (s), backlog);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4957 if (rc == SOCKET_ERROR)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4958 set_errno ();
71889
2385a5c8186c Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents: 70740
diff changeset
4959 else
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4960 fd_info[s].flags |= FILE_LISTEN;
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4961 return rc;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4962 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4963 h_errno = ENOTSOCK;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4964 return SOCKET_ERROR;
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4965 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4966
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4967 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4968 sys_getsockname (int s, struct sockaddr * name, int * namelen)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4969 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4970 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4971 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4972 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4973 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4974 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4975
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4976 check_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4977 if (fd_info[s].flags & FILE_SOCKET)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4978 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4979 int rc = pfn_getsockname (SOCK_HANDLE (s), name, namelen);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4980 if (rc == SOCKET_ERROR)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4981 set_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4982 return rc;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4983 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4984 h_errno = ENOTSOCK;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4985 return SOCKET_ERROR;
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4986 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4987
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4988 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4989 sys_accept (int s, struct sockaddr * addr, int * addrlen)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4990 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4991 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4992 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4993 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4994 return -1;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4995 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4996
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4997 check_errno ();
71889
2385a5c8186c Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents: 70740
diff changeset
4998 if (fd_info[s].flags & FILE_LISTEN)
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4999 {
44437
81e8a128e49f (sys_accept): Don't hide variable `s'.
Juanma Barranquero <lekktu@gmail.com>
parents: 44042
diff changeset
5000 SOCKET t = pfn_accept (SOCK_HANDLE (s), addr, addrlen);
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5001 int fd = -1;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5002 if (t == INVALID_SOCKET)
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5003 set_errno ();
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5004 else
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5005 fd = socket_to_fd (t);
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5006
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5007 fd_info[s].cp->status = STATUS_READ_ACKNOWLEDGED;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5008 ResetEvent (fd_info[s].cp->char_avail);
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5009 return fd;
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5010 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5011 h_errno = ENOTSOCK;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5012 return -1;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5013 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5014
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5015 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5016 sys_recvfrom (int s, char * buf, int len, int flags,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5017 struct sockaddr * from, int * fromlen)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5018 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5019 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5020 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5021 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5022 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5023 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5024
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5025 check_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5026 if (fd_info[s].flags & FILE_SOCKET)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5027 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5028 int rc = pfn_recvfrom (SOCK_HANDLE (s), buf, len, flags, from, fromlen);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5029 if (rc == SOCKET_ERROR)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5030 set_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5031 return rc;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5032 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5033 h_errno = ENOTSOCK;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5034 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5035 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5036
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5037 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5038 sys_sendto (int s, const char * buf, int len, int flags,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5039 const struct sockaddr * to, int tolen)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5040 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5041 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5042 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5043 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5044 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5045 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5046
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5047 check_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5048 if (fd_info[s].flags & FILE_SOCKET)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5049 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5050 int rc = pfn_sendto (SOCK_HANDLE (s), buf, len, flags, to, tolen);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5051 if (rc == SOCKET_ERROR)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5052 set_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5053 return rc;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5054 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5055 h_errno = ENOTSOCK;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5056 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5057 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5058
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5059 /* Windows does not have an fcntl function. Provide an implementation
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5060 solely for making sockets non-blocking. */
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5061 int
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5062 fcntl (int s, int cmd, int options)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5063 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5064 if (winsock_lib == NULL)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5065 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5066 h_errno = ENETDOWN;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5067 return -1;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5068 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5069
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5070 check_errno ();
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5071 if (fd_info[s].flags & FILE_SOCKET)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5072 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5073 if (cmd == F_SETFL && options == O_NDELAY)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5074 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5075 unsigned long nblock = 1;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5076 int rc = pfn_ioctlsocket (SOCK_HANDLE (s), FIONBIO, &nblock);
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5077 if (rc == SOCKET_ERROR)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5078 set_errno();
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5079 /* Keep track of the fact that we set this to non-blocking. */
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5080 fd_info[s].flags |= FILE_NDELAY;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5081 return rc;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5082 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5083 else
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5084 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5085 h_errno = EINVAL;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5086 return SOCKET_ERROR;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5087 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5088 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5089 h_errno = ENOTSOCK;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5090 return SOCKET_ERROR;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5091 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5092
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5093 #endif /* HAVE_SOCKETS */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5094
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5095
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5096 /* Shadow main io functions: we need to handle pipes and sockets more
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5097 intelligently, and implement non-blocking mode as well. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5098
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5099 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5100 sys_close (int fd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5101 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5102 int rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5103
68299
8d40a7886950 (sys_close): If FD is outside [0..MAXDESC) limits, pass it directly to _close.
Eli Zaretskii <eliz@gnu.org>
parents: 65458
diff changeset
5104 if (fd < 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5105 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5106 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5107 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5108 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5109
68299
8d40a7886950 (sys_close): If FD is outside [0..MAXDESC) limits, pass it directly to _close.
Eli Zaretskii <eliz@gnu.org>
parents: 65458
diff changeset
5110 if (fd < MAXDESC && fd_info[fd].cp)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5111 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5112 child_process * cp = fd_info[fd].cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5113
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5114 fd_info[fd].cp = NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5115
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5116 if (CHILD_ACTIVE (cp))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5117 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5118 /* if last descriptor to active child_process then cleanup */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5119 int i;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5120 for (i = 0; i < MAXDESC; i++)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5121 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5122 if (i == fd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5123 continue;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5124 if (fd_info[i].cp == cp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5125 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5126 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5127 if (i == MAXDESC)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5128 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5129 #ifdef HAVE_SOCKETS
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5130 if (fd_info[fd].flags & FILE_SOCKET)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5131 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5132 #ifndef SOCK_REPLACE_HANDLE
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5133 if (winsock_lib == NULL) abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5134
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5135 pfn_shutdown (SOCK_HANDLE (fd), 2);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5136 rc = pfn_closesocket (SOCK_HANDLE (fd));
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5137 #endif
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5138 winsock_inuse--; /* count open sockets */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5139 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5140 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5141 delete_child (cp);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5142 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5143 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5144 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5145
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5146 /* Note that sockets do not need special treatment here (at least on
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16867
diff changeset
5147 NT and Windows 95 using the standard tcp/ip stacks) - it appears that
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5148 closesocket is equivalent to CloseHandle, which is to be expected
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5149 because socket handles are fully fledged kernel handles. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5150 rc = _close (fd);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5151
68299
8d40a7886950 (sys_close): If FD is outside [0..MAXDESC) limits, pass it directly to _close.
Eli Zaretskii <eliz@gnu.org>
parents: 65458
diff changeset
5152 if (rc == 0 && fd < MAXDESC)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5153 fd_info[fd].flags = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5154
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5155 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5156 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5157
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5158 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5159 sys_dup (int fd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5160 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5161 int new_fd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5162
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5163 new_fd = _dup (fd);
68299
8d40a7886950 (sys_close): If FD is outside [0..MAXDESC) limits, pass it directly to _close.
Eli Zaretskii <eliz@gnu.org>
parents: 65458
diff changeset
5164 if (new_fd >= 0 && new_fd < MAXDESC)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5165 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5166 /* duplicate our internal info as well */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5167 fd_info[new_fd] = fd_info[fd];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5168 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5169 return new_fd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5170 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5171
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5172
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5173 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5174 sys_dup2 (int src, int dst)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5175 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5176 int rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5177
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5178 if (dst < 0 || dst >= MAXDESC)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5179 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5180 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5181 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5182 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5183
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5184 /* make sure we close the destination first if it's a pipe or socket */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5185 if (src != dst && fd_info[dst].flags != 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5186 sys_close (dst);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5187
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5188 rc = _dup2 (src, dst);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5189 if (rc == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5190 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5191 /* duplicate our internal info as well */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5192 fd_info[dst] = fd_info[src];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5193 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5194 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5195 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5196
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5197 /* Unix pipe() has only one arg */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5198 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5199 sys_pipe (int * phandles)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5200 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5201 int rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5202 unsigned flags;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5203
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5204 /* make pipe handles non-inheritable; when we spawn a child, we
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5205 replace the relevant handle with an inheritable one. Also put
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5206 pipes into binary mode; we will do text mode translation ourselves
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5207 if required. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5208 rc = _pipe (phandles, 0, _O_NOINHERIT | _O_BINARY);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5209
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5210 if (rc == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5211 {
52353
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5212 /* Protect against overflow, since Windows can open more handles than
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5213 our fd_info array has room for. */
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5214 if (phandles[0] >= MAXDESC || phandles[1] >= MAXDESC)
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5215 {
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5216 _close (phandles[0]);
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5217 _close (phandles[1]);
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5218 rc = -1;
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5219 }
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5220 else
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5221 {
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5222 flags = FILE_PIPE | FILE_READ | FILE_BINARY;
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5223 fd_info[phandles[0]].flags = flags;
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5224
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5225 flags = FILE_PIPE | FILE_WRITE | FILE_BINARY;
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5226 fd_info[phandles[1]].flags = flags;
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5227 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5228 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5229
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5230 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5231 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5232
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5233 /* From ntproc.c */
55643
ed93b07d7123 (_sys_read_ahead): Use w32_pipe_read_delay.
Jason Rumney <jasonr@gnu.org>
parents: 53123
diff changeset
5234 extern int w32_pipe_read_delay;
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5235
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5236 /* Function to do blocking read of one byte, needed to implement
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5237 select. It is only allowed on sockets and pipes. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5238 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5239 _sys_read_ahead (int fd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5240 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5241 child_process * cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5242 int rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5243
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5244 if (fd < 0 || fd >= MAXDESC)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5245 return STATUS_READ_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5246
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5247 cp = fd_info[fd].cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5248
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5249 if (cp == NULL || cp->fd != fd || cp->status != STATUS_READ_READY)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5250 return STATUS_READ_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5251
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5252 if ((fd_info[fd].flags & (FILE_PIPE | FILE_SERIAL | FILE_SOCKET)) == 0
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5253 || (fd_info[fd].flags & FILE_READ) == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5254 {
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5255 DebPrint (("_sys_read_ahead: internal error: fd %d is not a pipe, serial port, or socket!\n", fd));
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5256 abort ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5257 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5258
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5259 cp->status = STATUS_READ_IN_PROGRESS;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5260
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5261 if (fd_info[fd].flags & FILE_PIPE)
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5262 {
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5263 rc = _read (fd, &cp->chr, sizeof (char));
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5264
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5265 /* Give subprocess time to buffer some more output for us before
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16867
diff changeset
5266 reporting that input is available; we need this because Windows 95
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5267 connects DOS programs to pipes by making the pipe appear to be
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5268 the normal console stdout - as a result most DOS programs will
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5269 write to stdout without buffering, ie. one character at a
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
5270 time. Even some W32 programs do this - "dir" in a command
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5271 shell on NT is very slow if we don't do this. */
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5272 if (rc > 0)
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5273 {
55643
ed93b07d7123 (_sys_read_ahead): Use w32_pipe_read_delay.
Jason Rumney <jasonr@gnu.org>
parents: 53123
diff changeset
5274 int wait = w32_pipe_read_delay;
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5275
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5276 if (wait > 0)
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5277 Sleep (wait);
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5278 else if (wait < 0)
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5279 while (++wait <= 0)
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5280 /* Yield remainder of our time slice, effectively giving a
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5281 temporary priority boost to the child process. */
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5282 Sleep (0);
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5283 }
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5284 }
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5285 else if (fd_info[fd].flags & FILE_SERIAL)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5286 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5287 HANDLE hnd = fd_info[fd].hnd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5288 OVERLAPPED *ovl = &fd_info[fd].cp->ovl_read;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5289 COMMTIMEOUTS ct;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5290
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5291 /* Configure timeouts for blocking read. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5292 if (!GetCommTimeouts (hnd, &ct))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5293 return STATUS_READ_ERROR;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5294 ct.ReadIntervalTimeout = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5295 ct.ReadTotalTimeoutMultiplier = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5296 ct.ReadTotalTimeoutConstant = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5297 if (!SetCommTimeouts (hnd, &ct))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5298 return STATUS_READ_ERROR;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5299
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5300 if (!ReadFile (hnd, &cp->chr, sizeof (char), (DWORD*) &rc, ovl))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5301 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5302 if (GetLastError () != ERROR_IO_PENDING)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5303 return STATUS_READ_ERROR;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5304 if (!GetOverlappedResult (hnd, ovl, (DWORD*) &rc, TRUE))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5305 return STATUS_READ_ERROR;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5306 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5307 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5308 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5309 else if (fd_info[fd].flags & FILE_SOCKET)
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5310 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5311 unsigned long nblock = 0;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5312 /* We always want this to block, so temporarily disable NDELAY. */
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5313 if (fd_info[fd].flags & FILE_NDELAY)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5314 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONBIO, &nblock);
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5315
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5316 rc = pfn_recv (SOCK_HANDLE (fd), &cp->chr, sizeof (char), 0);
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5317
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5318 if (fd_info[fd].flags & FILE_NDELAY)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5319 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5320 nblock = 1;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5321 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONBIO, &nblock);
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5322 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5323 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5324 #endif
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5325
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5326 if (rc == sizeof (char))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5327 cp->status = STATUS_READ_SUCCEEDED;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5328 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5329 cp->status = STATUS_READ_FAILED;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5330
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5331 return cp->status;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5332 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5333
74947
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
5334 int
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
5335 _sys_wait_accept (int fd)
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5336 {
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5337 HANDLE hEv;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5338 child_process * cp;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5339 int rc;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5340
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5341 if (fd < 0 || fd >= MAXDESC)
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5342 return STATUS_READ_ERROR;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5343
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5344 cp = fd_info[fd].cp;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5345
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5346 if (cp == NULL || cp->fd != fd || cp->status != STATUS_READ_READY)
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5347 return STATUS_READ_ERROR;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5348
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5349 cp->status = STATUS_READ_FAILED;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5350
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5351 hEv = pfn_WSACreateEvent ();
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5352 rc = pfn_WSAEventSelect (SOCK_HANDLE (fd), hEv, FD_ACCEPT);
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5353 if (rc != SOCKET_ERROR)
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5354 {
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5355 rc = WaitForSingleObject (hEv, INFINITE);
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5356 pfn_WSAEventSelect (SOCK_HANDLE (fd), NULL, 0);
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5357 if (rc == WAIT_OBJECT_0)
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5358 cp->status = STATUS_READ_SUCCEEDED;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5359 }
74786
4f26e07fd85d (_sys_wait_accept): Fix handle leak.
Kim F. Storm <storm@cua.dk>
parents: 72631
diff changeset
5360 pfn_WSACloseEvent (hEv);
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5361
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5362 return cp->status;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5363 }
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5364
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5365 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5366 sys_read (int fd, char * buffer, unsigned int count)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5367 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5368 int nchars;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5369 int to_read;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5370 DWORD waiting;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5371 char * orig_buffer = buffer;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5372
68299
8d40a7886950 (sys_close): If FD is outside [0..MAXDESC) limits, pass it directly to _close.
Eli Zaretskii <eliz@gnu.org>
parents: 65458
diff changeset
5373 if (fd < 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5374 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5375 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5376 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5377 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5378
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5379 if (fd < MAXDESC && fd_info[fd].flags & (FILE_PIPE | FILE_SOCKET | FILE_SERIAL))
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5380 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5381 child_process *cp = fd_info[fd].cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5382
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5383 if ((fd_info[fd].flags & FILE_READ) == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5384 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5385 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5386 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5387 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5388
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5389 nchars = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5390
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5391 /* re-read CR carried over from last read */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5392 if (fd_info[fd].flags & FILE_LAST_CR)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5393 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5394 if (fd_info[fd].flags & FILE_BINARY) abort ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5395 *buffer++ = 0x0d;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5396 count--;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5397 nchars++;
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5398 fd_info[fd].flags &= ~FILE_LAST_CR;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5399 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5400
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5401 /* presence of a child_process structure means we are operating in
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5402 non-blocking mode - otherwise we just call _read directly.
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5403 Note that the child_process structure might be missing because
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5404 reap_subprocess has been called; in this case the pipe is
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5405 already broken, so calling _read on it is okay. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5406 if (cp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5407 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5408 int current_status = cp->status;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5409
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5410 switch (current_status)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5411 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5412 case STATUS_READ_FAILED:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5413 case STATUS_READ_ERROR:
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5414 /* report normal EOF if nothing in buffer */
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5415 if (nchars <= 0)
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5416 fd_info[fd].flags |= FILE_AT_EOF;
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5417 return nchars;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5418
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5419 case STATUS_READ_READY:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5420 case STATUS_READ_IN_PROGRESS:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5421 DebPrint (("sys_read called when read is in progress\n"));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5422 errno = EWOULDBLOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5423 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5424
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5425 case STATUS_READ_SUCCEEDED:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5426 /* consume read-ahead char */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5427 *buffer++ = cp->chr;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5428 count--;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5429 nchars++;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5430 cp->status = STATUS_READ_ACKNOWLEDGED;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5431 ResetEvent (cp->char_avail);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5432
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5433 case STATUS_READ_ACKNOWLEDGED:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5434 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5435
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5436 default:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5437 DebPrint (("sys_read: bad status %d\n", current_status));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5438 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5439 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5440 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5441
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5442 if (fd_info[fd].flags & FILE_PIPE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5443 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5444 PeekNamedPipe ((HANDLE) _get_osfhandle (fd), NULL, 0, NULL, &waiting, NULL);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5445 to_read = min (waiting, (DWORD) count);
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5446
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5447 if (to_read > 0)
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5448 nchars += _read (fd, buffer, to_read);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5449 }
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5450 else if (fd_info[fd].flags & FILE_SERIAL)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5451 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5452 HANDLE hnd = fd_info[fd].hnd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5453 OVERLAPPED *ovl = &fd_info[fd].cp->ovl_read;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5454 DWORD err = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5455 int rc = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5456 COMMTIMEOUTS ct;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5457
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5458 if (count > 0)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5459 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5460 /* Configure timeouts for non-blocking read. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5461 if (!GetCommTimeouts (hnd, &ct))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5462 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5463 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5464 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5465 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5466 ct.ReadIntervalTimeout = MAXDWORD;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5467 ct.ReadTotalTimeoutMultiplier = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5468 ct.ReadTotalTimeoutConstant = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5469 if (!SetCommTimeouts (hnd, &ct))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5470 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5471 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5472 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5473 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5474
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5475 if (!ResetEvent (ovl->hEvent))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5476 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5477 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5478 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5479 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5480 if (!ReadFile (hnd, buffer, count, (DWORD*) &rc, ovl))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5481 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5482 if (GetLastError () != ERROR_IO_PENDING)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5483 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5484 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5485 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5486 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5487 if (!GetOverlappedResult (hnd, ovl, (DWORD*) &rc, TRUE))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5488 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5489 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5490 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5491 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5492 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5493 nchars += rc;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5494 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5495 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5496 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5497 else /* FILE_SOCKET */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5498 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5499 if (winsock_lib == NULL) abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5500
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5501 /* do the equivalent of a non-blocking read */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5502 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONREAD, &waiting);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5503 if (waiting == 0 && nchars == 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5504 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5505 h_errno = errno = EWOULDBLOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5506 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5507 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5508
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5509 if (waiting)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5510 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5511 /* always use binary mode for sockets */
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5512 int res = pfn_recv (SOCK_HANDLE (fd), buffer, count, 0);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5513 if (res == SOCKET_ERROR)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5514 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5515 DebPrint(("sys_read.recv failed with error %d on socket %ld\n",
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5516 pfn_WSAGetLastError (), SOCK_HANDLE (fd)));
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5517 set_errno ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5518 return -1;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5519 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5520 nchars += res;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5521 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5522 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5523 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5524 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5525 else
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5526 {
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5527 int nread = _read (fd, buffer, count);
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5528 if (nread >= 0)
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5529 nchars += nread;
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5530 else if (nchars == 0)
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5531 nchars = nread;
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5532 }
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5533
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5534 if (nchars <= 0)
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5535 fd_info[fd].flags |= FILE_AT_EOF;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5536 /* Perform text mode translation if required. */
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5537 else if ((fd_info[fd].flags & FILE_BINARY) == 0)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5538 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5539 nchars = crlf_to_lf (nchars, orig_buffer);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5540 /* If buffer contains only CR, return that. To be absolutely
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5541 sure we should attempt to read the next char, but in
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5542 practice a CR to be followed by LF would not appear by
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5543 itself in the buffer. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5544 if (nchars > 1 && orig_buffer[nchars - 1] == 0x0d)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5545 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5546 fd_info[fd].flags |= FILE_LAST_CR;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5547 nchars--;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5548 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5549 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5550 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5551 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5552 nchars = _read (fd, buffer, count);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5553
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5554 return nchars;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5555 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5556
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5557 /* From w32xfns.c */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5558 extern HANDLE interrupt_handle;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5559
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5560 /* For now, don't bother with a non-blocking mode */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5561 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5562 sys_write (int fd, const void * buffer, unsigned int count)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5563 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5564 int nchars;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5565
68299
8d40a7886950 (sys_close): If FD is outside [0..MAXDESC) limits, pass it directly to _close.
Eli Zaretskii <eliz@gnu.org>
parents: 65458
diff changeset
5566 if (fd < 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5567 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5568 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5569 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5570 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5571
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5572 if (fd < MAXDESC && fd_info[fd].flags & (FILE_PIPE | FILE_SOCKET | FILE_SERIAL))
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5573 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5574 if ((fd_info[fd].flags & FILE_WRITE) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5575 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5576 errno = EBADF;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5577 return -1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5578 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5579
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5580 /* Perform text mode translation if required. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5581 if ((fd_info[fd].flags & FILE_BINARY) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5582 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5583 char * tmpbuf = alloca (count * 2);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5584 unsigned char * src = (void *)buffer;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5585 unsigned char * dst = tmpbuf;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5586 int nbytes = count;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5587
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5588 while (1)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5589 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5590 unsigned char *next;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5591 /* copy next line or remaining bytes */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5592 next = _memccpy (dst, src, '\n', nbytes);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5593 if (next)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5594 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5595 /* copied one line ending with '\n' */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5596 int copied = next - dst;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5597 nbytes -= copied;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5598 src += copied;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5599 /* insert '\r' before '\n' */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5600 next[-1] = '\r';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5601 next[0] = '\n';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5602 dst = next + 1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5603 count++;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5604 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5605 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5606 /* copied remaining partial line -> now finished */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5607 break;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5608 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5609 buffer = tmpbuf;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5610 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5611 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5612
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5613 if (fd < MAXDESC && fd_info[fd].flags & FILE_SERIAL)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5614 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5615 HANDLE hnd = (HANDLE) _get_osfhandle (fd);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5616 OVERLAPPED *ovl = &fd_info[fd].cp->ovl_write;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5617 HANDLE wait_hnd[2] = { interrupt_handle, ovl->hEvent };
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5618 DWORD active = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5619
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5620 if (!WriteFile (hnd, buffer, count, (DWORD*) &nchars, ovl))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5621 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5622 if (GetLastError () != ERROR_IO_PENDING)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5623 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5624 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5625 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5626 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5627 if (detect_input_pending ())
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5628 active = MsgWaitForMultipleObjects (2, wait_hnd, FALSE, INFINITE,
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5629 QS_ALLINPUT);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5630 else
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5631 active = WaitForMultipleObjects (2, wait_hnd, FALSE, INFINITE);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5632 if (active == WAIT_OBJECT_0)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5633 { /* User pressed C-g, cancel write, then leave. Don't bother
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5634 cleaning up as we may only get stuck in buggy drivers. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5635 PurgeComm (hnd, PURGE_TXABORT | PURGE_TXCLEAR);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5636 CancelIo (hnd);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5637 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5638 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5639 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5640 if (active == WAIT_OBJECT_0 + 1
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5641 && !GetOverlappedResult (hnd, ovl, (DWORD*) &nchars, TRUE))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5642 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5643 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5644 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5645 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5646 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5647 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5648 else
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5649 #ifdef HAVE_SOCKETS
68299
8d40a7886950 (sys_close): If FD is outside [0..MAXDESC) limits, pass it directly to _close.
Eli Zaretskii <eliz@gnu.org>
parents: 65458
diff changeset
5650 if (fd < MAXDESC && fd_info[fd].flags & FILE_SOCKET)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5651 {
48545
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5652 unsigned long nblock = 0;
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5653 if (winsock_lib == NULL) abort ();
48545
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5654
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5655 /* TODO: implement select() properly so non-blocking I/O works. */
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5656 /* For now, make sure the write blocks. */
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5657 if (fd_info[fd].flags & FILE_NDELAY)
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5658 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONBIO, &nblock);
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5659
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5660 nchars = pfn_send (SOCK_HANDLE (fd), buffer, count, 0);
48545
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5661
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5662 /* Set the socket back to non-blocking if it was before,
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5663 for other operations that support it. */
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5664 if (fd_info[fd].flags & FILE_NDELAY)
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5665 {
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5666 nblock = 1;
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5667 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONBIO, &nblock);
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5668 }
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5669
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5670 if (nchars == SOCKET_ERROR)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5671 {
48561
b4fb06f61bfd Doc fix
Jason Rumney <jasonr@gnu.org>
parents: 48545
diff changeset
5672 DebPrint(("sys_write.send failed with error %d on socket %ld\n",
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5673 pfn_WSAGetLastError (), SOCK_HANDLE (fd)));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5674 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5675 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5676 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5677 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5678 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5679 nchars = _write (fd, buffer, count);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5680
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5681 return nchars;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5682 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5683
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5684 static void
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5685 check_windows_init_file ()
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5686 {
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5687 extern int noninteractive, inhibit_window_system;
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5688
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5689 /* A common indication that Emacs is not installed properly is when
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5690 it cannot find the Windows installation file. If this file does
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5691 not exist in the expected place, tell the user. */
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5692
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5693 if (!noninteractive && !inhibit_window_system)
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5694 {
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5695 extern Lisp_Object Vwindow_system, Vload_path, Qfile_exists_p;
23809
2a6ad78388b3 (check_windows_init_file): Use decode_env_path when
Geoff Voelker <voelker@cs.washington.edu>
parents: 23622
diff changeset
5696 Lisp_Object objs[2];
23559
989c9cb875e3 (check_windows_init_file): Also look in load path specified
Geoff Voelker <voelker@cs.washington.edu>
parents: 23395
diff changeset
5697 Lisp_Object full_load_path;
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5698 Lisp_Object init_file;
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5699 int fd;
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5700
23809
2a6ad78388b3 (check_windows_init_file): Use decode_env_path when
Geoff Voelker <voelker@cs.washington.edu>
parents: 23622
diff changeset
5701 objs[0] = Vload_path;
2a6ad78388b3 (check_windows_init_file): Use decode_env_path when
Geoff Voelker <voelker@cs.washington.edu>
parents: 23622
diff changeset
5702 objs[1] = decode_env_path (0, (getenv ("EMACSLOADPATH")));
2a6ad78388b3 (check_windows_init_file): Use decode_env_path when
Geoff Voelker <voelker@cs.washington.edu>
parents: 23622
diff changeset
5703 full_load_path = Fappend (2, objs);
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5704 init_file = build_string ("term/w32-win");
69172
e22243af3267 (check_windows_init_file): Use Fget_load_suffixes instead of Vload_suffixes.
Luc Teirlinck <teirllm@auburn.edu>
parents: 68651
diff changeset
5705 fd = openp (full_load_path, init_file, Fget_load_suffixes (), NULL, Qnil);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5706 if (fd < 0)
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5707 {
23559
989c9cb875e3 (check_windows_init_file): Also look in load path specified
Geoff Voelker <voelker@cs.washington.edu>
parents: 23395
diff changeset
5708 Lisp_Object load_path_print = Fprin1_to_string (full_load_path, Qnil);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45815
diff changeset
5709 char *init_file_name = SDATA (init_file);
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45815
diff changeset
5710 char *load_path = SDATA (load_path_print);
65458
02e47d7a9bca (check_windows_init_file): Fix allocation of error buffer.
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
5711 char *buffer = alloca (1024
02e47d7a9bca (check_windows_init_file): Fix allocation of error buffer.
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
5712 + strlen (init_file_name)
02e47d7a9bca (check_windows_init_file): Fix allocation of error buffer.
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
5713 + strlen (load_path));
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5714
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5715 sprintf (buffer,
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5716 "The Emacs Windows initialization file \"%s.el\" "
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5717 "could not be found in your Emacs installation. "
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5718 "Emacs checked the following directories for this file:\n"
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5719 "\n%s\n\n"
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5720 "When Emacs cannot find this file, it usually means that it "
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5721 "was not installed properly, or its distribution file was "
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5722 "not unpacked properly.\nSee the README.W32 file in the "
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5723 "top-level Emacs directory for more information.",
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5724 init_file_name, load_path);
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5725 MessageBox (NULL,
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5726 buffer,
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5727 "Emacs Abort Dialog",
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5728 MB_OK | MB_ICONEXCLAMATION | MB_TASKMODAL);
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5729 /* Use the low-level Emacs abort. */
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5730 #undef abort
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5731 abort ();
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5732 }
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5733 else
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5734 {
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
5735 _close (fd);
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5736 }
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5737 }
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5738 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5739
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5740 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5741 term_ntproc ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5742 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5743 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5744 /* shutdown the socket interface if necessary */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5745 term_winsock ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5746 #endif
60092
04686828d0da 2004-11-08 Benjamin Riefenstahl <Benjamin.Riefenstahl@epost.de>
Jason Rumney <jasonr@gnu.org>
parents: 57609
diff changeset
5747
04686828d0da 2004-11-08 Benjamin Riefenstahl <Benjamin.Riefenstahl@epost.de>
Jason Rumney <jasonr@gnu.org>
parents: 57609
diff changeset
5748 term_w32select ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5749 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5750
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5751 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5752 init_ntproc ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5753 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5754 #ifdef HAVE_SOCKETS
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5755 /* Initialise the socket interface now if available and requested by
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5756 the user by defining PRELOAD_WINSOCK; otherwise loading will be
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
5757 delayed until open-network-stream is called (w32-has-winsock can
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5758 also be used to dynamically load or reload winsock).
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5759
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5760 Conveniently, init_environment is called before us, so
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5761 PRELOAD_WINSOCK can be set in the registry. */
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5762
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5763 /* Always initialize this correctly. */
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5764 winsock_lib = NULL;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5765
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5766 if (getenv ("PRELOAD_WINSOCK") != NULL)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5767 init_winsock (TRUE);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5768 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5769
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5770 /* Initial preparation for subprocess support: replace our standard
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5771 handles with non-inheritable versions. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5772 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5773 HANDLE parent;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5774 HANDLE stdin_save = INVALID_HANDLE_VALUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5775 HANDLE stdout_save = INVALID_HANDLE_VALUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5776 HANDLE stderr_save = INVALID_HANDLE_VALUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5777
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5778 parent = GetCurrentProcess ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5779
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5780 /* ignore errors when duplicating and closing; typically the
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5781 handles will be invalid when running as a gui program. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5782 DuplicateHandle (parent,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5783 GetStdHandle (STD_INPUT_HANDLE),
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5784 parent,
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5785 &stdin_save,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5786 0,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5787 FALSE,
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5788 DUPLICATE_SAME_ACCESS);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5789
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5790 DuplicateHandle (parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5791 GetStdHandle (STD_OUTPUT_HANDLE),
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5792 parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5793 &stdout_save,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5794 0,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5795 FALSE,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5796 DUPLICATE_SAME_ACCESS);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5797
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5798 DuplicateHandle (parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5799 GetStdHandle (STD_ERROR_HANDLE),
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5800 parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5801 &stderr_save,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5802 0,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5803 FALSE,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5804 DUPLICATE_SAME_ACCESS);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5805
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5806 fclose (stdin);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5807 fclose (stdout);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5808 fclose (stderr);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5809
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5810 if (stdin_save != INVALID_HANDLE_VALUE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5811 _open_osfhandle ((long) stdin_save, O_TEXT);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5812 else
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5813 _open ("nul", O_TEXT | O_NOINHERIT | O_RDONLY);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5814 _fdopen (0, "r");
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5815
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5816 if (stdout_save != INVALID_HANDLE_VALUE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5817 _open_osfhandle ((long) stdout_save, O_TEXT);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5818 else
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5819 _open ("nul", O_TEXT | O_NOINHERIT | O_WRONLY);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5820 _fdopen (1, "w");
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5821
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5822 if (stderr_save != INVALID_HANDLE_VALUE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5823 _open_osfhandle ((long) stderr_save, O_TEXT);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5824 else
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5825 _open ("nul", O_TEXT | O_NOINHERIT | O_WRONLY);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5826 _fdopen (2, "w");
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5827 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5828
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5829 /* unfortunately, atexit depends on implementation of malloc */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5830 /* atexit (term_ntproc); */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5831 signal (SIGABRT, term_ntproc);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5832
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5833 /* determine which drives are fixed, for GetCachedVolumeInformation */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5834 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5835 /* GetDriveType must have trailing backslash. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5836 char drive[] = "A:\\";
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5837
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5838 /* Loop over all possible drive letters */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5839 while (*drive <= 'Z')
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5840 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5841 /* Record if this drive letter refers to a fixed drive. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5842 fixed_drives[DRIVE_INDEX (*drive)] =
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5843 (GetDriveType (drive) == DRIVE_FIXED);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5844
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5845 (*drive)++;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5846 }
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
5847
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
5848 /* Reset the volume info cache. */
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
5849 volume_cache = NULL;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5850 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5851
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5852 /* Check to see if Emacs has been installed correctly. */
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5853 check_windows_init_file ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5854 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5855
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
5856 /*
72631
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5857 shutdown_handler ensures that buffers' autosave files are
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5858 up to date when the user logs off, or the system shuts down.
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5859 */
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5860 BOOL WINAPI shutdown_handler(DWORD type)
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5861 {
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5862 /* Ctrl-C and Ctrl-Break are already suppressed, so don't handle them. */
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5863 if (type == CTRL_CLOSE_EVENT /* User closes console window. */
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5864 || type == CTRL_LOGOFF_EVENT /* User logs off. */
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5865 || type == CTRL_SHUTDOWN_EVENT) /* User shutsdown. */
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5866 {
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5867 /* Shut down cleanly, making sure autosave files are up to date. */
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5868 shut_down_emacs (0, 0, Qnil);
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5869 }
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5870
74786
4f26e07fd85d (_sys_wait_accept): Fix handle leak.
Kim F. Storm <storm@cua.dk>
parents: 72631
diff changeset
5871 /* Allow other handlers to handle this signal. */
72631
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5872 return FALSE;
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5873 }
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5874
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5875 /*
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
5876 globals_of_w32 is used to initialize those global variables that
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
5877 must always be initialized on startup even when the global variable
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
5878 initialized is non zero (see the function main in emacs.c).
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
5879 */
74947
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
5880 void
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
5881 globals_of_w32 ()
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
5882 {
81421
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
5883 HMODULE kernel32 = GetModuleHandle ("kernel32.dll");
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
5884
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
5885 get_process_times_fn = (GetProcessTimes_Proc)
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
5886 GetProcAddress (kernel32, "GetProcessTimes");
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
5887
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
5888 g_b_init_is_windows_9x = 0;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
5889 g_b_init_open_process_token = 0;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
5890 g_b_init_get_token_information = 0;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
5891 g_b_init_lookup_account_sid = 0;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
5892 g_b_init_get_sid_identifier_authority = 0;
92124
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
5893 g_b_init_get_sid_sub_authority = 0;
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
5894 g_b_init_get_sid_sub_authority_count = 0;
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
5895 g_b_init_get_file_security = 0;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
5896 g_b_init_get_security_descriptor_owner = 0;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
5897 g_b_init_get_security_descriptor_group = 0;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
5898 g_b_init_is_valid_sid = 0;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
5899 g_b_init_create_toolhelp32_snapshot = 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
5900 g_b_init_process32_first = 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
5901 g_b_init_process32_next = 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
5902 g_b_init_open_thread_token = 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
5903 g_b_init_impersonate_self = 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
5904 g_b_init_revert_to_self = 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
5905 g_b_init_get_process_memory_info = 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
5906 g_b_init_get_process_working_set_size = 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
5907 g_b_init_global_memory_status = 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
5908 g_b_init_global_memory_status_ex = 0;
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
5909 g_b_init_equal_sid = 0;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
5910 g_b_init_copy_sid = 0;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
5911 g_b_init_get_length_sid = 0;
103718
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
5912 g_b_init_get_native_system_info = 0;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
5913 g_b_init_get_system_times = 0;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
5914 num_of_processors = 0;
72631
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5915 /* The following sets a handler for shutdown notifications for
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5916 console apps. This actually applies to Emacs in both console and
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5917 GUI modes, since we had to fool windows into thinking emacs is a
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5918 console application to get console mode to work. */
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5919 SetConsoleCtrlHandler(shutdown_handler, TRUE);
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
5920
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
5921 /* "None" is the default group name on standalone workstations. */
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
5922 strcpy (dflt_group_name, "None");
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
5923 }
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
5924
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5925 /* For make-serial-process */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5926 int serial_open (char *port)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5927 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5928 HANDLE hnd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5929 child_process *cp;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5930 int fd = -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5931
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5932 hnd = CreateFile (port, GENERIC_READ | GENERIC_WRITE, 0, 0,
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5933 OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5934 if (hnd == INVALID_HANDLE_VALUE)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5935 error ("Could not open %s", port);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5936 fd = (int) _open_osfhandle ((int) hnd, 0);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5937 if (fd == -1)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5938 error ("Could not open %s", port);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5939
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5940 cp = new_child ();
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5941 if (!cp)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5942 error ("Could not create child process");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5943 cp->fd = fd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5944 cp->status = STATUS_READ_ACKNOWLEDGED;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5945 fd_info[ fd ].hnd = hnd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5946 fd_info[ fd ].flags |=
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5947 FILE_READ | FILE_WRITE | FILE_BINARY | FILE_SERIAL;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5948 if (fd_info[ fd ].cp != NULL)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5949 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5950 error ("fd_info[fd = %d] is already in use", fd);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5951 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5952 fd_info[ fd ].cp = cp;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5953 cp->ovl_read.hEvent = CreateEvent (NULL, TRUE, FALSE, NULL);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5954 if (cp->ovl_read.hEvent == NULL)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5955 error ("Could not create read event");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5956 cp->ovl_write.hEvent = CreateEvent (NULL, TRUE, FALSE, NULL);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5957 if (cp->ovl_write.hEvent == NULL)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5958 error ("Could not create write event");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5959
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5960 return fd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5961 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5962
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5963 /* For serial-process-configure */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5964 void
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5965 serial_configure (struct Lisp_Process *p,
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5966 Lisp_Object contact)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5967 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5968 Lisp_Object childp2 = Qnil;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5969 Lisp_Object tem = Qnil;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5970 HANDLE hnd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5971 DCB dcb;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5972 COMMTIMEOUTS ct;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5973 char summary[4] = "???"; /* This usually becomes "8N1". */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5974
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5975 if ((fd_info[ p->outfd ].flags & FILE_SERIAL) == 0)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5976 error ("Not a serial process");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5977 hnd = fd_info[ p->outfd ].hnd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5978
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5979 childp2 = Fcopy_sequence (p->childp);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5980
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5981 /* Initialize timeouts for blocking read and blocking write. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5982 if (!GetCommTimeouts (hnd, &ct))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5983 error ("GetCommTimeouts() failed");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5984 ct.ReadIntervalTimeout = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5985 ct.ReadTotalTimeoutMultiplier = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5986 ct.ReadTotalTimeoutConstant = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5987 ct.WriteTotalTimeoutMultiplier = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5988 ct.WriteTotalTimeoutConstant = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5989 if (!SetCommTimeouts (hnd, &ct))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5990 error ("SetCommTimeouts() failed");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5991 /* Read port attributes and prepare default configuration. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5992 memset (&dcb, 0, sizeof (dcb));
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5993 dcb.DCBlength = sizeof (DCB);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5994 if (!GetCommState (hnd, &dcb))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5995 error ("GetCommState() failed");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5996 dcb.fBinary = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5997 dcb.fNull = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5998 dcb.fAbortOnError = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5999 /* dcb.XonLim and dcb.XoffLim are set by GetCommState() */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6000 dcb.ErrorChar = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6001 dcb.EofChar = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6002 dcb.EvtChar = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6003
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6004 /* Configure speed. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6005 if (!NILP (Fplist_member (contact, QCspeed)))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6006 tem = Fplist_get (contact, QCspeed);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6007 else
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6008 tem = Fplist_get (p->childp, QCspeed);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6009 CHECK_NUMBER (tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6010 dcb.BaudRate = XINT (tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6011 childp2 = Fplist_put (childp2, QCspeed, tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6012
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6013 /* Configure bytesize. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6014 if (!NILP (Fplist_member (contact, QCbytesize)))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6015 tem = Fplist_get (contact, QCbytesize);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6016 else
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6017 tem = Fplist_get (p->childp, QCbytesize);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6018 if (NILP (tem))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6019 tem = make_number (8);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6020 CHECK_NUMBER (tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6021 if (XINT (tem) != 7 && XINT (tem) != 8)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6022 error (":bytesize must be nil (8), 7, or 8");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6023 dcb.ByteSize = XINT (tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6024 summary[0] = XINT (tem) + '0';
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6025 childp2 = Fplist_put (childp2, QCbytesize, tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6026
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6027 /* Configure parity. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6028 if (!NILP (Fplist_member (contact, QCparity)))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6029 tem = Fplist_get (contact, QCparity);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6030 else
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6031 tem = Fplist_get (p->childp, QCparity);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6032 if (!NILP (tem) && !EQ (tem, Qeven) && !EQ (tem, Qodd))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6033 error (":parity must be nil (no parity), `even', or `odd'");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6034 dcb.fParity = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6035 dcb.Parity = NOPARITY;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6036 dcb.fErrorChar = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6037 if (NILP (tem))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6038 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6039 summary[1] = 'N';
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6040 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6041 else if (EQ (tem, Qeven))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6042 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6043 summary[1] = 'E';
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6044 dcb.fParity = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6045 dcb.Parity = EVENPARITY;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6046 dcb.fErrorChar = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6047 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6048 else if (EQ (tem, Qodd))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6049 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6050 summary[1] = 'O';
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6051 dcb.fParity = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6052 dcb.Parity = ODDPARITY;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6053 dcb.fErrorChar = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6054 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6055 childp2 = Fplist_put (childp2, QCparity, tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6056
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6057 /* Configure stopbits. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6058 if (!NILP (Fplist_member (contact, QCstopbits)))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6059 tem = Fplist_get (contact, QCstopbits);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6060 else
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6061 tem = Fplist_get (p->childp, QCstopbits);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6062 if (NILP (tem))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6063 tem = make_number (1);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6064 CHECK_NUMBER (tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6065 if (XINT (tem) != 1 && XINT (tem) != 2)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6066 error (":stopbits must be nil (1 stopbit), 1, or 2");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6067 summary[2] = XINT (tem) + '0';
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6068 if (XINT (tem) == 1)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6069 dcb.StopBits = ONESTOPBIT;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6070 else if (XINT (tem) == 2)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6071 dcb.StopBits = TWOSTOPBITS;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6072 childp2 = Fplist_put (childp2, QCstopbits, tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6073
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6074 /* Configure flowcontrol. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6075 if (!NILP (Fplist_member (contact, QCflowcontrol)))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6076 tem = Fplist_get (contact, QCflowcontrol);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6077 else
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6078 tem = Fplist_get (p->childp, QCflowcontrol);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6079 if (!NILP (tem) && !EQ (tem, Qhw) && !EQ (tem, Qsw))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6080 error (":flowcontrol must be nil (no flowcontrol), `hw', or `sw'");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6081 dcb.fOutxCtsFlow = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6082 dcb.fOutxDsrFlow = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6083 dcb.fDtrControl = DTR_CONTROL_DISABLE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6084 dcb.fDsrSensitivity = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6085 dcb.fTXContinueOnXoff = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6086 dcb.fOutX = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6087 dcb.fInX = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6088 dcb.fRtsControl = RTS_CONTROL_DISABLE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6089 dcb.XonChar = 17; /* Control-Q */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6090 dcb.XoffChar = 19; /* Control-S */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6091 if (NILP (tem))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6092 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6093 /* Already configured. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6094 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6095 else if (EQ (tem, Qhw))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6096 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6097 dcb.fRtsControl = RTS_CONTROL_HANDSHAKE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6098 dcb.fOutxCtsFlow = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6099 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6100 else if (EQ (tem, Qsw))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6101 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6102 dcb.fOutX = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6103 dcb.fInX = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6104 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6105 childp2 = Fplist_put (childp2, QCflowcontrol, tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6106
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6107 /* Activate configuration. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6108 if (!SetCommState (hnd, &dcb))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6109 error ("SetCommState() failed");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6110
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6111 childp2 = Fplist_put (childp2, QCsummary, build_string (summary));
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6112 p->childp = childp2;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6113 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6114
78028
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
6115 /* end of w32.c */
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52353
diff changeset
6116
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52353
diff changeset
6117 /* arch-tag: 90442dd3-37be-482b-b272-ac752e3049f1
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52353
diff changeset
6118 (do not change this comment) */