annotate src/w32.c @ 105519:ea98608909b8

* cedet/ede/source.el (ede-want-any-source-files-p) (ede-want-any-auxiliary-files-p, ede-want-any-files-p): Return search result. This error was introduced while merging.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 08 Oct 2009 01:49:05 +0000
parents b2b6dc6a2417
children 68dd71358159
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,
100951
e038c1a8307c Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100885
diff changeset
3 2007, 2008, 2009 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>
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
37
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
38 /* must include CRT headers *before* config.h */
42469
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 42192
diff changeset
39
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 42192
diff changeset
40 #ifdef HAVE_CONFIG_H
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 42192
diff changeset
41 #include <config.h>
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 42192
diff changeset
42 #endif
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 42192
diff changeset
43
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
44 #undef access
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
45 #undef chdir
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
46 #undef chmod
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
47 #undef creat
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
48 #undef ctime
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
49 #undef fopen
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
50 #undef link
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
51 #undef mkdir
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
52 #undef mktemp
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
53 #undef open
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
54 #undef rename
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
55 #undef rmdir
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
56 #undef unlink
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
57
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
58 #undef close
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
59 #undef dup
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
60 #undef dup2
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
61 #undef pipe
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
62 #undef read
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
63 #undef write
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
65 #undef strerror
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
66
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 #include "lisp.h"
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 #include <pwd.h>
53123
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
70 #include <grp.h>
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71
31350
f5c37cece73f (_ANONYMOUS_UNION) [__GNUC__]: New define
Andrew Innes <andrewi@gnu.org>
parents: 31106
diff changeset
72 #ifdef __GNUC__
f5c37cece73f (_ANONYMOUS_UNION) [__GNUC__]: New define
Andrew Innes <andrewi@gnu.org>
parents: 31106
diff changeset
73 #define _ANONYMOUS_UNION
f5c37cece73f (_ANONYMOUS_UNION) [__GNUC__]: New define
Andrew Innes <andrewi@gnu.org>
parents: 31106
diff changeset
74 #define _ANONYMOUS_STRUCT
f5c37cece73f (_ANONYMOUS_UNION) [__GNUC__]: New define
Andrew Innes <andrewi@gnu.org>
parents: 31106
diff changeset
75 #endif
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
76 #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
77 /* 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
78 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
79 typedef struct _MEMORY_STATUS_EX {
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
80 DWORD dwLength;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
81 DWORD dwMemoryLoad;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
82 DWORDLONG ullTotalPhys;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
83 DWORDLONG ullAvailPhys;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
84 DWORDLONG ullTotalPageFile;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
85 DWORDLONG ullAvailPageFile;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
86 DWORDLONG ullTotalVirtual;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
87 DWORDLONG ullAvailVirtual;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
88 DWORDLONG ullAvailExtendedVirtual;
97486
2c195017488c (_MEMORY_STATUS_EX, MEMORY_STATUS_EX, LPMEMORY_STATUS_EX): Rename from
Eli Zaretskii <eliz@gnu.org>
parents: 97372
diff changeset
89 } 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
90
91878
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
91 #include <lmcons.h>
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
92 #include <shlobj.h>
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
93
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
94 #include <tlhelp32.h>
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
95 #include <psapi.h>
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
96 /* 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
97 _WIN32_WINNT than what we use. */
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
98 typedef struct _PROCESS_MEMORY_COUNTERS_EX {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
99 DWORD cb;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
100 DWORD PageFaultCount;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
101 DWORD PeakWorkingSetSize;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
102 DWORD WorkingSetSize;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
103 DWORD QuotaPeakPagedPoolUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
104 DWORD QuotaPagedPoolUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
105 DWORD QuotaPeakNonPagedPoolUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
106 DWORD QuotaNonPagedPoolUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
107 DWORD PagefileUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
108 DWORD PeakPagefileUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
109 DWORD PrivateUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
110 } 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
111
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
112 #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
113 #include <sys/socket.h>
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
114 #undef socket
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
115 #undef bind
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
116 #undef connect
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
117 #undef htons
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
118 #undef ntohs
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
119 #undef inet_addr
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
120 #undef gethostname
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
121 #undef gethostbyname
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
122 #undef getservbyname
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
123 #undef getpeername
18725
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
124 #undef shutdown
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
125 #undef setsockopt
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
126 #undef listen
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
127 #undef getsockname
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
128 #undef accept
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
129 #undef recvfrom
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
130 #undef sendto
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
131 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
132
16593
4ed80eda6fac Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
133 #include "w32.h"
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134 #include "ndir.h"
16593
4ed80eda6fac Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
135 #include "w32heap.h"
35286
fcd8120b294a (init_environment, sys_shutdown, sys_pipe): Remove unused
Jason Rumney <jasonr@gnu.org>
parents: 34696
diff changeset
136 #include "systime.h"
95277
3df8e58fdc7f Include dispextern.h.
Eli Zaretskii <eliz@gnu.org>
parents: 95217
diff changeset
137 #include "dispextern.h" /* for xstrcasecmp */
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
138 #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
139
95917
c46e112bded0 Comment fix for rms.
Glenn Morris <rgm@gnu.org>
parents: 95884
diff changeset
140 /* For serial_configure and serial_open. */
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
141 #include "process.h"
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
142 /* From process.c */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
143 extern Lisp_Object QCport, QCspeed, QCprocess;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
144 extern Lisp_Object QCbytesize, QCstopbits, QCparity, Qodd, Qeven;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
145 extern Lisp_Object QCflowcontrol, Qhw, Qsw, QCsummary;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
146
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
147 typedef HRESULT (WINAPI * ShGetFolderPath_fn)
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
148 (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
149
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
150 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
151 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
152
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
153 extern Lisp_Object Vw32_downcase_file_names;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
154 extern Lisp_Object Vw32_generate_fake_inodes;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
155 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
156 /* 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
157 extern Lisp_Object Qlocal;
796bbedc63b1 (stat): When Vw32_get_true_file_attributes is Qlocal, get
Jason Rumney <jasonr@gnu.org>
parents: 80376
diff changeset
158
55645
5b3f2477d17b Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents: 55643
diff changeset
159 extern int w32_num_mouse_buttons;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
160
34696
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
161
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
162 /* 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
163
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 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
165 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
166 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
167 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
168 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
169 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
170 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
171 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
172 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
173 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
174 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
175 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
176 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
177 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
178 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
179 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
180 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
181 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
182 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
183 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
184 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
185 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
186 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
187 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
188 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
189 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
190 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
191 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
192 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
193 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
194 static BOOL g_b_init_copy_sid;
103718
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
195 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
196 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
197
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 /*
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
199 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
200 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
201 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
202 */
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 /* ** 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
204 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
205 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
206 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
207 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
208 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
209 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
210 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
211 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
212 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
213 PDWORD ReturnLength);
81421
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
214 typedef BOOL (WINAPI * GetProcessTimes_Proc) (
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
215 HANDLE process_handle,
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
216 LPFILETIME creation_time,
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
217 LPFILETIME exit_time,
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
218 LPFILETIME kernel_time,
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
219 LPFILETIME user_time);
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
220
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
221 GetProcessTimes_Proc get_process_times_fn = NULL;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
222
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
223 #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
224 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
225 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
226 #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
227 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
228 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
229 #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
230 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
231 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
232 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
233 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
234 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
235 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
236 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
237 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
238 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
239 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
240 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
241 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
242 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
243 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
244 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
245 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
246 LPCTSTR lpFileName,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
247 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
248 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
249 DWORD nLength,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
250 LPDWORD lpnLengthNeeded);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
251 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
252 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
253 PSID *pOwner,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
254 LPBOOL lpbOwnerDefaulted);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
255 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
256 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
257 PSID *pGroup,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
258 LPBOOL lpbGroupDefaulted);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
259 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
260 PSID sid);
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
261 typedef HANDLE (WINAPI * CreateToolhelp32Snapshot_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
262 DWORD dwFlags,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
263 DWORD th32ProcessID);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
264 typedef BOOL (WINAPI * Process32First_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
265 HANDLE hSnapshot,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
266 LPPROCESSENTRY32 lppe);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
267 typedef BOOL (WINAPI * Process32Next_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
268 HANDLE hSnapshot,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
269 LPPROCESSENTRY32 lppe);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
270 typedef BOOL (WINAPI * OpenThreadToken_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
271 HANDLE ThreadHandle,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
272 DWORD DesiredAccess,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
273 BOOL OpenAsSelf,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
274 PHANDLE TokenHandle);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
275 typedef BOOL (WINAPI * ImpersonateSelf_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
276 SECURITY_IMPERSONATION_LEVEL ImpersonationLevel);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
277 typedef BOOL (WINAPI * RevertToSelf_Proc) (void);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
278 typedef BOOL (WINAPI * GetProcessMemoryInfo_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
279 HANDLE Process,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
280 PPROCESS_MEMORY_COUNTERS ppsmemCounters,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
281 DWORD cb);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
282 typedef BOOL (WINAPI * GetProcessWorkingSetSize_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
283 HANDLE hProcess,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
284 DWORD * lpMinimumWorkingSetSize,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
285 DWORD * lpMaximumWorkingSetSize);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
286 typedef BOOL (WINAPI * GlobalMemoryStatus_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
287 LPMEMORYSTATUS lpBuffer);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
288 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
289 LPMEMORY_STATUS_EX lpBuffer);
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
290 typedef BOOL (WINAPI * CopySid_Proc) (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
291 DWORD nDestinationSidLength,
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
292 PSID pDestinationSid,
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
293 PSID pSourceSid);
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
294 typedef BOOL (WINAPI * EqualSid_Proc) (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
295 PSID pSid1,
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
296 PSID pSid2);
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
297 typedef DWORD (WINAPI * GetLengthSid_Proc) (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
298 PSID pSid);
103718
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
299 typedef void (WINAPI * GetNativeSystemInfo_Proc) (
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
300 LPSYSTEM_INFO lpSystemInfo);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
301 typedef BOOL (WINAPI * GetSystemTimes_Proc) (
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
302 LPFILETIME lpIdleTime,
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
303 LPFILETIME lpKernelTime,
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
304 LPFILETIME lpUserTime);
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
305
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
306
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
307
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 /* ** A utility function ** */
74947
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
309 static BOOL
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
310 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
311 {
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
312 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
313 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
314 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
315 {
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
316 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
317 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
318 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
319 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
320 {
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 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
322 }
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
323 }
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
324 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
325 }
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
81421
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
327 /* 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
328 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
329 (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
330 Lisp_Object
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
331 w32_get_internal_run_time ()
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
332 {
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
333 if (get_process_times_fn)
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
334 {
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
335 FILETIME create, exit, kernel, user;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
336 HANDLE proc = GetCurrentProcess();
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
337 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
338 {
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
339 LARGE_INTEGER user_int, kernel_int, total;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
340 int microseconds;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
341 user_int.LowPart = user.dwLowDateTime;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
342 user_int.HighPart = user.dwHighDateTime;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
343 kernel_int.LowPart = kernel.dwLowDateTime;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
344 kernel_int.HighPart = kernel.dwHighDateTime;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
345 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
346 /* 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
347 microsecond resolution. */
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
348 total.QuadPart /= 10;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
349 microseconds = total.QuadPart % 1000000;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
350 total.QuadPart /= 1000000;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
351
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
352 /* 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
353 if (total.HighPart == 0)
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
354 {
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
355 int secs = total.LowPart;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
356
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
357 return list3 (make_number ((secs >> 16) & 0xffff),
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
358 make_number (secs & 0xffff),
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
359 make_number (microseconds));
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
360 }
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 return Fcurrent_time ();
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
365 }
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
366
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
367 /* ** 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
368
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 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
370 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
371 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
372 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
373 {
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
374 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
375 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
376 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
377 {
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 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
379 }
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
380 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
381 {
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 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
383 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
384 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
385 (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
386 }
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 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
388 {
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 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
390 }
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 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
392 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
393 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
394 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
395 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
396 );
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 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
400 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
401 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
402 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
403 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
404 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
405 {
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
406 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
407 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
408 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
409 {
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 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
411 }
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
412 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
413 {
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 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
415 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
416 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
417 (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
418 }
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 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
420 {
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 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
422 }
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 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
424 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
425 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
426 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
427 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
428 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
429 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
430 );
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 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
434 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
435 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
436 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
437 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
438 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
439 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
440 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
441 {
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
442 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
443 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
444 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
445 {
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 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
447 }
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
448 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
449 {
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 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
451 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
452 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
453 (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
454 }
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 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
456 {
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 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
458 }
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 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
460 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
461 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
462 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
463 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
464 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
465 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
466 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
467 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
468 );
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 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
472 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
473 {
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
474 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
475 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
476 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
477 {
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 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
479 }
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
480 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
481 {
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 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
483 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
484 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
485 (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
486 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
487 }
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 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
489 {
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 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
491 }
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
492 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
493 }
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
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
495 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
496 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
497 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
498 {
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 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
500 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
501 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
502 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
503 {
87998
3ef9b6e3d2fa (get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents: 87995
diff changeset
504 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
505 }
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 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
507 {
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 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
509 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
510 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
511 (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
512 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
513 }
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 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
515 {
87998
3ef9b6e3d2fa (get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents: 87995
diff changeset
516 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
517 }
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 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
519 }
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 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
522 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
523 {
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 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
525 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
526 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
527 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
528 {
87998
3ef9b6e3d2fa (get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents: 87995
diff changeset
529 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
530 }
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 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
532 {
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 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
534 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
535 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
536 (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
537 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
538 }
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 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
540 {
87998
3ef9b6e3d2fa (get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents: 87995
diff changeset
541 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
542 }
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 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
544 }
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
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
546 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
547 LPCTSTR lpFileName,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
548 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
549 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
550 DWORD nLength,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
551 LPDWORD lpnLengthNeeded)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
552 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
553 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
554 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
555 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
556 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
557 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
558 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
559 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
560 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
561 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
562 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
563 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
564 (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
565 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
566 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
567 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
568 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
569 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
570 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
571 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
572 pSecurityDescriptor, nLength,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
573 lpnLengthNeeded));
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
574 }
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 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
577 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
578 PSID *pOwner,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
579 LPBOOL lpbOwnerDefaulted)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
580 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
581 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
582 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
583 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
584 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
585 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
586 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
587 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
588 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
589 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
590 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
591 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
592 (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
593 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
594 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
595 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
596 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
597 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
598 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
599 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
600 lpbOwnerDefaulted));
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
601 }
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 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
604 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
605 PSID *pGroup,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
606 LPBOOL lpbGroupDefaulted)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
607 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
608 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
609 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
610 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
611 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
612 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
613 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
614 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
615 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
616 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
617 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
618 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
619 (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
620 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
621 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
622 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
623 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
624 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
625 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
626 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
627 lpbGroupDefaulted));
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
628 }
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 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
631 PSID sid)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
632 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
633 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
634 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
635 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
636 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
637 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
638 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
639 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
640 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
641 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
642 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
643 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
644 (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
645 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
646 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
647 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
648 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
649 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
650 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
651 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
652 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
653
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
654 BOOL WINAPI equal_sid (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
655 PSID sid1,
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
656 PSID sid2)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
657 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
658 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
659 HMODULE hm_advapi32 = NULL;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
660 if (is_windows_9x () == TRUE)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
661 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
662 return FALSE;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
663 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
664 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
665 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
666 g_b_init_equal_sid = 1;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
667 hm_advapi32 = LoadLibrary ("Advapi32.dll");
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
668 s_pfn_Equal_Sid =
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
669 (EqualSid_Proc) GetProcAddress (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
670 hm_advapi32, "EqualSid");
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
671 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
672 if (s_pfn_Equal_Sid == NULL)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
673 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
674 return FALSE;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
675 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
676 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
677 }
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 DWORD WINAPI get_length_sid (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
680 PSID sid)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
681 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
682 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
683 HMODULE hm_advapi32 = NULL;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
684 if (is_windows_9x () == TRUE)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
685 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
686 return 0;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
687 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
688 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
689 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
690 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
691 hm_advapi32 = LoadLibrary ("Advapi32.dll");
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
692 s_pfn_Get_Length_Sid =
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
693 (GetLengthSid_Proc) GetProcAddress (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
694 hm_advapi32, "GetLengthSid");
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
695 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
696 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
697 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
698 return 0;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
699 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
700 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
701 }
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 BOOL WINAPI copy_sid (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
704 DWORD destlen,
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
705 PSID dest,
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
706 PSID src)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
707 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
708 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
709 HMODULE hm_advapi32 = NULL;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
710 if (is_windows_9x () == TRUE)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
711 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
712 return FALSE;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
713 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
714 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
715 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
716 g_b_init_copy_sid = 1;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
717 hm_advapi32 = LoadLibrary ("Advapi32.dll");
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
718 s_pfn_Copy_Sid =
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
719 (CopySid_Proc) GetProcAddress (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
720 hm_advapi32, "CopySid");
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
721 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
722 if (s_pfn_Copy_Sid == NULL)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
723 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
724 return FALSE;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
725 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
726 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
727 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
728
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
729 /*
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 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
731 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
732 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
733 */
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
103718
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
735 void WINAPI get_native_system_info (
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
736 LPSYSTEM_INFO lpSystemInfo)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
737 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
738 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
739 if (is_windows_9x () != TRUE)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
740 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
741 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
742 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
743 g_b_init_get_native_system_info = 1;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
744 s_pfn_Get_Native_System_Info =
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
745 (GetNativeSystemInfo_Proc)GetProcAddress (GetModuleHandle ("kernel32.dll"),
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
746 "GetNativeSystemInfo");
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
747 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
748 if (s_pfn_Get_Native_System_Info != NULL)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
749 s_pfn_Get_Native_System_Info (lpSystemInfo);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
750 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
751 else
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
752 lpSystemInfo->dwNumberOfProcessors = -1;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
753 }
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 BOOL WINAPI get_system_times(
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
756 LPFILETIME lpIdleTime,
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
757 LPFILETIME lpKernelTime,
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
758 LPFILETIME lpUserTime)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
759 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
760 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
761 if (is_windows_9x () == TRUE)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
762 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
763 return FALSE;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
764 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
765 if (g_b_init_get_system_times == 0)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
766 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
767 g_b_init_get_system_times = 1;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
768 s_pfn_Get_System_times =
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
769 (GetSystemTimes_Proc)GetProcAddress (GetModuleHandle ("kernel32.dll"),
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
770 "GetSystemTimes");
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
771 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
772 if (s_pfn_Get_System_times == NULL)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
773 return FALSE;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
774 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
775 }
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
776
34696
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
777 /* Equivalent of strerror for W32 error codes. */
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
778 char *
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
779 w32_strerror (int error_no)
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
780 {
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
781 static char buf[500];
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
782
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
783 if (error_no == 0)
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
784 error_no = GetLastError ();
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
785
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
786 buf[0] = '\0';
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
787 if (!FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM, NULL,
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
788 error_no,
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
789 0, /* choose most suitable language */
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
790 buf, sizeof (buf), NULL))
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
791 sprintf (buf, "w32 error %u", error_no);
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
792 return buf;
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
793 }
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
794
72286
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
795 /* 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
796 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
797
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
798 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
799 int
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
800 w32_valid_pointer_p (void *p, int size)
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
801 {
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
802 SIZE_T done;
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
803 HANDLE h = OpenProcess (PROCESS_VM_READ, FALSE, GetCurrentProcessId ());
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
804
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
805 if (h)
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
806 {
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
807 unsigned char *buf = alloca (size);
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
808 int retval = ReadProcessMemory (h, p, buf, size, &done);
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
809
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
810 CloseHandle (h);
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
811 return retval;
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
812 }
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
813 else
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
814 return -1;
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
815 }
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
816
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
817 static char startup_dir[MAXPATHLEN];
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
818
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
819 /* Get the current working directory. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
820 char *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
821 getwd (char *dir)
14246
ebdd1b50daba (nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
822 {
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
823 #if 0
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
824 if (GetCurrentDirectory (MAXPATHLEN, dir) > 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
825 return dir;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
826 return NULL;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
827 #else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
828 /* 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
829 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
830 conflicts when trying to rename or delete directories. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
831 strcpy (dir, startup_dir);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
832 return dir;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
833 #endif
14246
ebdd1b50daba (nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
834 }
ebdd1b50daba (nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
835
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
836 #ifndef HAVE_SOCKETS
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
837 /* Emulate gethostname. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
838 int
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
839 gethostname (char *buffer, int size)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
840 {
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
841 /* NT only allows small host names, so the buffer is
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
842 certainly large enough. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
843 return !GetComputerName (buffer, &size);
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
844 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
845 #endif /* HAVE_SOCKETS */
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
846
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
847 /* Emulate getloadavg. */
103718
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
848
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
849 struct load_sample {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
850 time_t sample_time;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
851 ULONGLONG idle;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
852 ULONGLONG kernel;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
853 ULONGLONG user;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
854 };
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 /* Number of processors on this machine. */
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
857 static unsigned num_of_processors;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
858
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
859 /* 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
860 static struct load_sample samples[16*60];
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
861 static int first_idx = -1, last_idx = -1;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
862 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
863
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
864 static int
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
865 buf_next (int from)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
866 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
867 int next_idx = from + 1;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
868
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
869 if (next_idx >= max_idx)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
870 next_idx = 0;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
871
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
872 return next_idx;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
873 }
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 static int
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
876 buf_prev (int from)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
877 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
878 int prev_idx = from - 1;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
879
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
880 if (prev_idx < 0)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
881 prev_idx = max_idx - 1;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
882
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
883 return prev_idx;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
884 }
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 static void
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
887 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
888 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
889 SYSTEM_INFO sysinfo;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
890 FILETIME ft_idle, ft_user, ft_kernel;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
891
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
892 /* Initialize the number of processors on this machine. */
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
893 if (num_of_processors <= 0)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
894 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
895 get_native_system_info (&sysinfo);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
896 num_of_processors = sysinfo.dwNumberOfProcessors;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
897 if (num_of_processors <= 0)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
898 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
899 GetSystemInfo (&sysinfo);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
900 num_of_processors = sysinfo.dwNumberOfProcessors;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
901 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
902 if (num_of_processors <= 0)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
903 num_of_processors = 1;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
904 }
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 /* 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
907 sampling the "\System\Processor Queue Length" performance
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
908 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
909 actually running. */
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
910
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
911 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
912 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
913 ULARGE_INTEGER uidle, ukernel, uuser;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
914
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
915 memcpy (&uidle, &ft_idle, sizeof (ft_idle));
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
916 memcpy (&ukernel, &ft_kernel, sizeof (ft_kernel));
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
917 memcpy (&uuser, &ft_user, sizeof (ft_user));
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
918 *idle = uidle.QuadPart;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
919 *kernel = ukernel.QuadPart;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
920 *user = uuser.QuadPart;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
921 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
922 else
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
923 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
924 *idle = 0;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
925 *kernel = 0;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
926 *user = 0;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
927 }
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 /* 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
931 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
932 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
933 static double
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
934 getavg (int which)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
935 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
936 double retval = -1.0;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
937 double tdiff;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
938 int idx;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
939 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
940 time_t now = samples[last_idx].sample_time;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
941
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
942 if (first_idx != last_idx)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
943 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
944 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
945 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
946 tdiff = difftime (now, samples[idx].sample_time);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
947 if (tdiff >= span - 2*DBL_EPSILON*now)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
948 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
949 long double sys =
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
950 samples[last_idx].kernel + samples[last_idx].user
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
951 - (samples[idx].kernel + samples[idx].user);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
952 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
953
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
954 retval = (1.0 - idl / sys) * num_of_processors;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
955 break;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
956 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
957 if (idx == first_idx)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
958 break;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
959 }
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 return retval;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
963 }
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
964
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
965 int
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
966 getloadavg (double loadavg[], int nelem)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
967 {
103718
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
968 int elem;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
969 ULONGLONG idle, kernel, user;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
970 time_t now = time (NULL);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
971
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
972 /* 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
973 apart. */
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
974 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
975 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
976 sample_system_load (&idle, &kernel, &user);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
977 last_idx = buf_next (last_idx);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
978 samples[last_idx].sample_time = now;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
979 samples[last_idx].idle = idle;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
980 samples[last_idx].kernel = kernel;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
981 samples[last_idx].user = user;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
982 /* 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
983 the old ones. */
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
984 if (first_idx == -1)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
985 first_idx = last_idx;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
986 while (first_idx != last_idx
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
987 && (difftime (now, samples[first_idx].sample_time)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
988 >= 15.0*60 + 2*DBL_EPSILON*now))
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
989 first_idx = buf_next (first_idx);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
990 }
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 for (elem = 0; elem < nelem; elem++)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
993 {
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
994 double avg = getavg (elem);
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
995
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
996 if (avg < 0)
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
997 break;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
998 loadavg[elem] = avg;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
999 }
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 return elem;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1002 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1003
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1004 /* Emulate getpwuid, getpwnam and others. */
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1005
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1006 #define PASSWD_FIELD_SIZE 256
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1007
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1008 static char dflt_passwd_name[PASSWD_FIELD_SIZE];
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1009 static char dflt_passwd_passwd[PASSWD_FIELD_SIZE];
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1010 static char dflt_passwd_gecos[PASSWD_FIELD_SIZE];
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1011 static char dflt_passwd_dir[PASSWD_FIELD_SIZE];
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1012 static char dflt_passwd_shell[PASSWD_FIELD_SIZE];
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1013
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1014 static struct passwd dflt_passwd =
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1015 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1016 dflt_passwd_name,
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1017 dflt_passwd_passwd,
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1018 0,
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,
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1021 dflt_passwd_gecos,
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1022 dflt_passwd_dir,
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1023 dflt_passwd_shell,
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1024 };
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1025
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1026 static char dflt_group_name[GNLEN+1];
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1027
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1028 static struct group dflt_group =
53123
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
1029 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1030 /* 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
1031 group for all files. */
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1032 dflt_group_name,
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1033 0,
53123
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
1034 };
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
1035
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
1036 unsigned
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1037 getuid ()
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1038 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1039 return dflt_passwd.pw_uid;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1040 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1041
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
1042 unsigned
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1043 geteuid ()
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1044 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1045 /* 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
1046 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
1047 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
1048 return getuid ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1049 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1050
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
1051 unsigned
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1052 getgid ()
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1053 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1054 return dflt_passwd.pw_gid;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1055 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1056
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
1057 unsigned
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1058 getegid ()
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1059 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1060 return getgid ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1061 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1062
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1063 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
1064 getpwuid (unsigned uid)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1065 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1066 if (uid == dflt_passwd.pw_uid)
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1067 return &dflt_passwd;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1068 return NULL;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1069 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1070
53123
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
1071 struct group *
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
1072 getgrgid (gid_t gid)
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
1073 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1074 return &dflt_group;
53123
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
1075 }
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
1076
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1077 struct passwd *
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1078 getpwnam (char *name)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1079 {
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1080 struct passwd *pw;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1081
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1082 pw = getpwuid (getuid ());
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1083 if (!pw)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1084 return pw;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1085
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
1086 if (xstrcasecmp (name, pw->pw_name))
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1087 return NULL;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1088
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1089 return pw;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1090 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1091
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1092 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1093 init_user_info ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1094 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1095 /* 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
1096 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
1097
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1098 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
1099 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
1100 primary group sid from the process token). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1101
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1102 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
1103 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
1104 DWORD glength = sizeof (gname);
78028
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
1105 HANDLE token = NULL;
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
1106 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
1107 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
1108 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
1109 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
1110 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
1111 BOOL result;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1112
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1113 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
1114 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1115 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1116 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
1117 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
1118 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1119 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
1120 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
1121 (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
1122 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1123 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1124 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
1125 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
1126 uname, &ulength,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1127 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
1128 }
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 else
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1131 result = FALSE;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1132 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1133 if (result)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1134 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1135 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
1136 /* Determine a reasonable uid value. */
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
1137 if (xstrcasecmp ("administrator", uname) == 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1138 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1139 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
1140 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
1141 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1142 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1143 {
87995
e576feac5b90 (init_user_info): Fix commentary for RID usage.
Eli Zaretskii <eliz@gnu.org>
parents: 87990
diff changeset
1144 /* 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
1145 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
1146 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
1147
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
1148 /* 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
1149 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
1150 (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
1151 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
1152 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1153 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
1154 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
1155 (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
1156 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1157 if (result)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1158 {
91878
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
1159 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
1160 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
1161 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
1162 /* 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
1163 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
1164 "None" in globals_of_w32. */
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1165 if (lookup_account_sid (NULL, group_token.PrimaryGroup,
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1166 gname, &glength, NULL, &dlength,
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1167 &user_type))
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1168 strcpy (dflt_group_name, gname);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1169 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1170 else
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1171 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
1172 }
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 /* 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
1175 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
1176 else if (GetUserName (uname, &ulength))
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1177 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1178 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
1179 if (xstrcasecmp ("administrator", uname) == 0)
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1180 dflt_passwd.pw_uid = 0;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1181 else
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1182 dflt_passwd.pw_uid = 123;
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1183 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
1184 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1185 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1186 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1187 strcpy (dflt_passwd.pw_name, "unknown");
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1188 dflt_passwd.pw_uid = 123;
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1189 dflt_passwd.pw_gid = 123;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1190 }
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1191 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
1192
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1193 /* Ensure HOME and SHELL are defined. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1194 if (getenv ("HOME") == NULL)
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1195 abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1196 if (getenv ("SHELL") == NULL)
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1197 abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1198
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1199 /* Set dir and shell from environment variables. */
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1200 strcpy (dflt_passwd.pw_dir, getenv ("HOME"));
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1201 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
1202
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1203 xfree (buf);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1204 if (token)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1205 CloseHandle (token);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1206 }
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 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1209 random ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1210 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1211 /* 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
1212 return ((rand () << 15) | rand ());
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1213 }
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 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1216 srandom (int seed)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1217 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1218 srand (seed);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1219 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1220
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1221
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1222 /* Normalize filename by converting all path separators to
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1223 the specified separator. Also conditionally convert upper
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1224 case path name components to lower case. */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1225
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1226 static void
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1227 normalize_filename (fp, path_sep)
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1228 register char *fp;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1229 char path_sep;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1230 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1231 char sep;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1232 char *elem;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1233
15615
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1234 /* 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
1235 preserves case in filenames.
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1236 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
1237 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
1238 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
1239 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
1240 {
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1241 *fp += 'a' - 'A';
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1242 fp += 2;
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1243 }
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1244
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
1245 if (NILP (Vw32_downcase_file_names))
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1246 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1247 while (*fp)
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1248 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1249 if (*fp == '/' || *fp == '\\')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1250 *fp = path_sep;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1251 fp++;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1252 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1253 return;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1254 }
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 sep = path_sep; /* convert to this path separator */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1257 elem = fp; /* start of current path element */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1258
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1259 do {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1260 if (*fp >= 'a' && *fp <= 'z')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1261 elem = 0; /* don't convert this element */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1262
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1263 if (*fp == 0 || *fp == ':')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1264 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1265 sep = *fp; /* restore current separator (or 0) */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1266 *fp = '/'; /* after conversion of this element */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1267 }
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 if (*fp == '/' || *fp == '\\')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1270 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1271 if (elem && elem != fp)
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1272 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1273 *fp = 0; /* temporary end of string */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1274 _strlwr (elem); /* while we convert to lower case */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1275 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1276 *fp = sep; /* convert (or restore) path separator */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1277 elem = fp + 1; /* next element starts after separator */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1278 sep = path_sep;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1279 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1280 } while (*fp++);
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1281 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1282
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1283 /* Destructively turn backslashes into slashes. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1284 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1285 dostounix_filename (p)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1286 register char *p;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1287 {
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1288 normalize_filename (p, '/');
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1289 }
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 /* Destructively turn slashes into backslashes. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1292 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1293 unixtodos_filename (p)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1294 register char *p;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1295 {
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1296 normalize_filename (p, '\\');
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1297 }
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 /* 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
1300 (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
1301 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
1302 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1303 crlf_to_lf (n, buf)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1304 register int n;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1305 register unsigned char *buf;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1306 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1307 unsigned char *np = buf;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1308 unsigned char *startp = buf;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1309 unsigned char *endp = buf + n;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1310
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1311 if (n == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1312 return n;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1313 while (buf < endp - 1)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1314 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1315 if (*buf == 0x0d)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1316 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1317 if (*(++buf) != 0x0a)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1318 *np++ = 0x0d;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1319 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1320 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1321 *np++ = *buf++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1322 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1323 if (buf < endp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1324 *np++ = *buf++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1325 return np - startp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1326 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1327
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1328 /* 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
1329 optionally store pointer to char after root. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1330 static int
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1331 parse_root (char * name, char ** pPath)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1332 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1333 char * start = name;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1334
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1335 if (name == NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1336 return 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1337
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1338 /* find the root name of the volume if given */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1339 if (isalpha (name[0]) && name[1] == ':')
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1340 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1341 /* skip past drive specifier */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1342 name += 2;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1343 if (IS_DIRECTORY_SEP (name[0]))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1344 name++;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1345 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1346 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
1347 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1348 int slashes = 2;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1349 name += 2;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1350 do
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1351 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1352 if (IS_DIRECTORY_SEP (*name) && --slashes == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1353 break;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1354 name++;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1355 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1356 while ( *name );
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1357 if (IS_DIRECTORY_SEP (name[0]))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1358 name++;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1359 }
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 if (pPath)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1362 *pPath = name;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1363
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1364 return name - start;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1365 }
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 /* 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
1368 static int
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1369 get_long_basename (char * name, char * buf, int size)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1370 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1371 WIN32_FIND_DATA find_data;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1372 HANDLE dir_handle;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1373 int len = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1374
28932
f8b0ac62f238 Use the term `invalid' instead of `illegal'.
Gerd Moellmann <gerd@gnu.org>
parents: 27890
diff changeset
1375 /* 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
1376 if (_mbspbrk (name, "*?|<>\""))
22039
c33bec4d9e67 (stat, get_long_basename): Fail if filename contains any
Richard M. Stallman <rms@gnu.org>
parents: 21747
diff changeset
1377 return 0;
c33bec4d9e67 (stat, get_long_basename): Fail if filename contains any
Richard M. Stallman <rms@gnu.org>
parents: 21747
diff changeset
1378
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1379 dir_handle = FindFirstFile (name, &find_data);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1380 if (dir_handle != INVALID_HANDLE_VALUE)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1381 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1382 if ((len = strlen (find_data.cFileName)) < size)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1383 memcpy (buf, find_data.cFileName, len + 1);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1384 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1385 len = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1386 FindClose (dir_handle);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1387 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1388 return len;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1389 }
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 /* 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
1392 BOOL
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1393 w32_get_long_filename (char * name, char * buf, int size)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1394 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1395 char * o = buf;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1396 char * p;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1397 char * q;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1398 char full[ MAX_PATH ];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1399 int len;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1400
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1401 len = strlen (name);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1402 if (len >= MAX_PATH)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1403 return FALSE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1404
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1405 /* Use local copy for destructive modification. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1406 memcpy (full, name, len+1);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1407 unixtodos_filename (full);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1408
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1409 /* Copy root part verbatim. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1410 len = parse_root (full, &p);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1411 memcpy (o, full, len);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1412 o += len;
23858
6bb3dc7f1b48 (w32_get_long_filename): Handle root dirs correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23809
diff changeset
1413 *o = '\0';
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1414 size -= len;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1415
23858
6bb3dc7f1b48 (w32_get_long_filename): Handle root dirs correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23809
diff changeset
1416 while (p != NULL && *p)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1417 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1418 q = p;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1419 p = strchr (q, '\\');
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1420 if (p) *p = '\0';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1421 len = get_long_basename (full, o, size);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1422 if (len > 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1423 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1424 o += len;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1425 size -= len;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1426 if (p != NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1427 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1428 *p++ = '\\';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1429 if (size < 2)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1430 return FALSE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1431 *o++ = '\\';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1432 size--;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1433 *o = '\0';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1434 }
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 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1437 return FALSE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1438 }
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 return TRUE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1441 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1442
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1443 int
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1444 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
1445 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1446 const char *ptr = filename;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1447
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1448 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
1449 return 0;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1450
76098
9ad6c99cdc71 (stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents: 75348
diff changeset
1451 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
1452 return 0;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1453
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1454 return 1;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1455 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1456
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1457 /* 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
1458
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1459 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1460 sigsetmask (int signal_mask)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1461 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1462 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1463 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1464
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1465 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1466 sigmask (int sig)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1467 {
27630
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
1468 return 0;
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
1469 }
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
1470
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1471 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1472 sigblock (int sig)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1473 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1474 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1475 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1476
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1477 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1478 sigunblock (int sig)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1479 {
27630
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
1480 return 0;
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
1481 }
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
1482
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1483 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1484 setpgrp (int pid, int gid)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1485 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1486 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1487 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1488
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1489 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1490 alarm (int seconds)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1491 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1492 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1493 }
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 #define REG_ROOT "SOFTWARE\\GNU\\Emacs"
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1496
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1497 LPBYTE
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
1498 w32_get_resource (key, lpdwtype)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1499 char *key;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1500 LPDWORD lpdwtype;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1501 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1502 LPBYTE lpvalue;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1503 HKEY hrootkey = NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1504 DWORD cbData;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1505
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1506 /* 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
1507 we have any resources. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1508
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1509 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
1510 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1511 lpvalue = NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1512
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1513 if (RegQueryValueEx (hrootkey, key, NULL, NULL, NULL, &cbData) == ERROR_SUCCESS
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1514 && (lpvalue = (LPBYTE) xmalloc (cbData)) != NULL
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1515 && 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
1516 {
78919
87875c00eb06 (w32_get_resource): Always close registry keys.
Jason Rumney <jasonr@gnu.org>
parents: 78260
diff changeset
1517 RegCloseKey (hrootkey);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1518 return (lpvalue);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1519 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1520
95481
4390d64d3328 Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents: 95277
diff changeset
1521 xfree (lpvalue);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1522
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1523 RegCloseKey (hrootkey);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1524 }
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1525
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1526 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
1527 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1528 lpvalue = NULL;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1529
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1530 if (RegQueryValueEx (hrootkey, key, NULL, NULL, NULL, &cbData) == ERROR_SUCCESS
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1531 && (lpvalue = (LPBYTE) xmalloc (cbData)) != NULL
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1532 && 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
1533 {
78919
87875c00eb06 (w32_get_resource): Always close registry keys.
Jason Rumney <jasonr@gnu.org>
parents: 78260
diff changeset
1534 RegCloseKey (hrootkey);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1535 return (lpvalue);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1536 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1537
95481
4390d64d3328 Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents: 95277
diff changeset
1538 xfree (lpvalue);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1539
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1540 RegCloseKey (hrootkey);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1541 }
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1542
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1543 return (NULL);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1544 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1545
16892
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1546 char *get_emacs_configuration (void);
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1547 extern Lisp_Object Vsystem_configuration;
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1548
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1549 void
24229
fc89585ce76f (init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents: 23858
diff changeset
1550 init_environment (char ** argv)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1551 {
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1552 static const char * const tempdirs[] = {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1553 "$TMPDIR", "$TEMP", "$TMP", "c:/"
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1554 };
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1555
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1556 int i;
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1557
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1558 const int imax = sizeof (tempdirs) / sizeof (tempdirs[0]);
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1559
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1560 /* 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
1561 temporary files and assume "/tmp" if $TMPDIR is unset, which
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1562 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
1563 a directory, not even "c:/", usable for that purpose. */
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1564 for (i = 0; i < imax ; i++)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1565 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1566 const char *tmp = tempdirs[i];
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1567
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1568 if (*tmp == '$')
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1569 tmp = getenv (tmp + 1);
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1570 /* 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
1571 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
1572 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
1573 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
1574 if (tmp && _access (tmp, D_OK) == 0)
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1575 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1576 char * var = alloca (strlen (tmp) + 8);
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1577 sprintf (var, "TMPDIR=%s", tmp);
36001
1d402a57bb21 (init-environment): Duplicate local string before putenv.
Jason Rumney <jasonr@gnu.org>
parents: 35425
diff changeset
1578 _putenv (strdup (var));
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1579 break;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1580 }
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 if (i >= imax)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1583 cmd_error_internal
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1584 (Fcons (Qerror,
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1585 Fcons (build_string ("no usable temporary directories found!!"),
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1586 Qnil)),
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1587 "While setting TMPDIR: ");
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1588
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1589 /* 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
1590 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
1591 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1592 int i;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1593 LPBYTE lpval;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1594 DWORD dwType;
33869
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1595 char locale_name[32];
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1596 struct stat ignored;
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1597 char default_home[MAX_PATH];
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1598
70738
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1599 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
1600 {
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1601 char * name;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1602 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
1603 } dflt_envvars[] =
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1604 {
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1605 {"HOME", "C:/"},
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1606 {"PRELOAD_WINSOCK", NULL},
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1607 {"emacs_dir", "C:/emacs"},
35425
c26271ca6ad0 (init_environment): Add a version-independent site-lisp
Andrew Innes <andrewi@gnu.org>
parents: 35286
diff changeset
1608 {"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
1609 {"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
1610 {"EMACSDATA", "%emacs_dir%/etc"},
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1611 {"EMACSPATH", "%emacs_dir%/bin"},
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1612 /* 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
1613 is then ignored. */
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1614 /* {"INFOPATH", "%emacs_dir%/info"}, */
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1615 {"EMACSDOC", "%emacs_dir%/etc"},
33869
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1616 {"TERM", "cmd"},
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1617 {"LANG", NULL},
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1618 };
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1619
70738
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1620 #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
1621
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1622 /* 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
1623 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
1624 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
1625 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
1626 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
1627
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1628 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
1629 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
1630
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1631 /* 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
1632 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
1633 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
1634 if (stat ("C:/.emacs", &ignored) < 0)
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1635 {
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1636 HRESULT profile_result;
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1637 /* 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
1638 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
1639 MSIE 5. */
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1640 ShGetFolderPath_fn get_folder_path;
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1641 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
1642 GetProcAddress (GetModuleHandle ("shell32.dll"), "SHGetFolderPathA");
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1643
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1644 if (get_folder_path != NULL)
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1645 {
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1646 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
1647 0, default_home);
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1648
96376
c3309dba6542 American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 95917
diff changeset
1649 /* 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
1650 if (profile_result == S_OK)
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1651 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
1652 }
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
33869
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1655 /* 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
1656 if (GetLocaleInfo (LOCALE_USER_DEFAULT,
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1657 LOCALE_SABBREVLANGNAME | LOCALE_USE_CP_ACP,
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1658 locale_name, sizeof (locale_name)))
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1659 {
70738
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1660 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
1661 {
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1662 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
1663 {
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1664 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
1665 break;
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1666 }
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
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1670 #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
1671
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1672 /* 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
1673 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
1674 of a standard installation. */
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1675 {
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1676 char *p;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1677 char modname[MAX_PATH];
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1678
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1679 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
1680 abort ();
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1681 if ((p = strrchr (modname, '\\')) == NULL)
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1682 abort ();
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1683 *p = 0;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1684
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
1685 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
1686 {
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1687 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
1688
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1689 *p = 0;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1690 for (p = modname; *p; p++)
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1691 if (*p == '\\') *p = '/';
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1692
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1693 _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
1694 _putenv (strdup (buf));
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1695 }
57609
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1696 /* 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
1697
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1698 /* 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
1699 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
1700 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
1701 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
1702 {
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1703 *p = 0;
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1704 p = strrchr (modname, '\\');
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1705 if (p != NULL)
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1706 {
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1707 *p = 0;
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1708 p = strrchr (modname, '\\');
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
1709 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
1710 {
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1711 char buf[SET_ENV_BUF_SIZE];
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1712
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1713 *p = 0;
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1714 for (p = modname; *p; p++)
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1715 if (*p == '\\') *p = '/';
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1716
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1717 _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
1718 _putenv (strdup (buf));
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1719 }
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 }
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1722 }
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1723
70738
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1724 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
1725 {
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1726 if (!getenv (env_vars[i].name))
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1727 {
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1728 int dont_free = 0;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1729
78028
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
1730 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
1731 /* Also ignore empty environment variables. */
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
1732 || *lpval == 0)
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1733 {
95481
4390d64d3328 Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents: 95277
diff changeset
1734 xfree (lpval);
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1735 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
1736 dwType = REG_EXPAND_SZ;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1737 dont_free = 1;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1738 }
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 if (lpval)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1741 {
70740
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1742 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
1743
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1744 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
1745 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
1746 else if (dwType == REG_SZ)
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1747 strcpy (buf1, lpval);
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1748 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
1749 {
70740
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1750 _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
1751 buf1);
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1752 _putenv (strdup (buf2));
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1753 }
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 if (!dont_free)
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1756 xfree (lpval);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1757 }
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
16892
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1762 /* Rebuild system configuration to reflect invoking system. */
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1763 Vsystem_configuration = build_string (EMACS_CONFIGURATION);
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1764
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1765 /* 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
1766 "Path" although cmd.exe (perhaps NT itself) arranges for
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1767 environment variable lookup and setting to be case insensitive.
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1768 However, Emacs assumes a fully case sensitive environment, so we
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1769 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
1770 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
1771 modifying the string in the C runtime environ entry.
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1772
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1773 The same applies to COMSPEC. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1774 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1775 char ** envp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1776
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1777 for (envp = environ; *envp; envp++)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1778 if (_strnicmp (*envp, "PATH=", 5) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1779 memcpy (*envp, "PATH=", 5);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1780 else if (_strnicmp (*envp, "COMSPEC=", 8) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1781 memcpy (*envp, "COMSPEC=", 8);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1782 }
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 /* Remember the initial working directory for getwd, then make the
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1785 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
1786 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
1787 running subprocesses for the same reason.) */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1788 if (!GetCurrentDirectory (MAXPATHLEN, startup_dir))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1789 abort ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1790
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 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
1793 static char modname[MAX_PATH];
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1794
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1795 if (!GetModuleFileName (NULL, modname, MAX_PATH))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1796 abort ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1797 if ((p = strrchr (modname, '\\')) == NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1798 abort ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1799 *p = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1800
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1801 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
1802
fc89585ce76f (init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents: 23858
diff changeset
1803 /* 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
1804 *p = '\\';
fc89585ce76f (init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents: 23858
diff changeset
1805 argv[0] = modname;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1806 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1807
27890
91be3fa84ccb (init_environment): Set Vw32_num_mouse_buttons here.
Jason Rumney <jasonr@gnu.org>
parents: 27630
diff changeset
1808 /* 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
1809 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
1810 mouse-3. */
55645
5b3f2477d17b Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents: 55643
diff changeset
1811 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
1812
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1813 init_user_info ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1814 }
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1815
42192
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1816 char *
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1817 emacs_root_dir (void)
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1818 {
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1819 static char root_dir[FILENAME_MAX];
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1820 const char *p;
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1821
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1822 p = getenv ("emacs_dir");
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1823 if (p == NULL)
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1824 abort ();
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1825 strcpy (root_dir, p);
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1826 root_dir[parse_root (root_dir, NULL)] = '\0';
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1827 dostounix_filename (root_dir);
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1828 return root_dir;
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1829 }
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1830
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1831 /* We don't have scripts to automatically determine the system configuration
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1832 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
1833 user enter it, so we define EMACS_CONFIGURATION to invoke this runtime
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1834 routine. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1835
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1836 char *
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1837 get_emacs_configuration (void)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1838 {
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1839 char *arch, *oem, *os;
24885
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1840 int build_num;
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1841 static char configuration_buffer[32];
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1842
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1843 /* Determine the processor type. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1844 switch (get_processor_type ())
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1845 {
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1846
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1847 #ifdef PROCESSOR_INTEL_386
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1848 case PROCESSOR_INTEL_386:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1849 case PROCESSOR_INTEL_486:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1850 case PROCESSOR_INTEL_PENTIUM:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1851 arch = "i386";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1852 break;
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1853 #endif
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1854
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1855 #ifdef PROCESSOR_MIPS_R2000
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1856 case PROCESSOR_MIPS_R2000:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1857 case PROCESSOR_MIPS_R3000:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1858 case PROCESSOR_MIPS_R4000:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1859 arch = "mips";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1860 break;
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1861 #endif
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1862
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1863 #ifdef PROCESSOR_ALPHA_21064
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1864 case PROCESSOR_ALPHA_21064:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1865 arch = "alpha";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1866 break;
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1867 #endif
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1868
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1869 default:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1870 arch = "unknown";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1871 break;
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1872 }
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1873
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1874 /* 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
1875 #ifdef _MSC_VER
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1876 #define COMPILER_NAME "msvc"
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1877 #else
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1878 #ifdef __GNUC__
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1879 #define COMPILER_NAME "mingw"
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1880 #else
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1881 #define COMPILER_NAME "unknown"
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1882 #endif
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 oem = COMPILER_NAME;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1885
24885
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1886 switch (osinfo_cache.dwPlatformId) {
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1887 case VER_PLATFORM_WIN32_NT:
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1888 os = "nt";
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1889 build_num = osinfo_cache.dwBuildNumber;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1890 break;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1891 case VER_PLATFORM_WIN32_WINDOWS:
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1892 if (osinfo_cache.dwMinorVersion == 0) {
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1893 os = "windows95";
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1894 } else {
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1895 os = "windows98";
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1896 }
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1897 build_num = LOWORD (osinfo_cache.dwBuildNumber);
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1898 break;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1899 case VER_PLATFORM_WIN32s:
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1900 /* Not supported, should not happen. */
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1901 os = "windows32s";
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1902 build_num = LOWORD (osinfo_cache.dwBuildNumber);
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1903 break;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1904 default:
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1905 os = "unknown";
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1906 build_num = 0;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1907 break;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1908 }
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 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
1911 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
1912 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
1913 } else {
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1914 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
1915 }
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1916
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1917 return configuration_buffer;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1918 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1919
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1920 char *
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1921 get_emacs_configuration_options (void)
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1922 {
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1923 static char options_buffer[256];
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1924
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1925 /* 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
1926 #ifdef _MSC_VER
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1927 #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
1928 #else
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1929 #ifdef __GNUC__
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1930 #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
1931 #else
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1932 #define COMPILER_VERSION ""
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1933 #endif
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
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1936 sprintf (options_buffer, COMPILER_VERSION);
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1937 #ifdef EMACSDEBUG
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1938 strcat (options_buffer, " --no-opt");
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1939 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1940 #ifdef USER_CFLAGS
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1941 strcat (options_buffer, " --cflags");
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1942 strcat (options_buffer, USER_CFLAGS);
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1943 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1944 #ifdef USER_LDFLAGS
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1945 strcat (options_buffer, " --ldflags");
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1946 strcat (options_buffer, USER_LDFLAGS);
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1947 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1948 return options_buffer;
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1949 }
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
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1952 #include <sys/timeb.h>
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1953
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1954 /* Emulate gettimeofday (Ulrich Leodolter, 1/11/95). */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1955 void
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1956 gettimeofday (struct timeval *tv, struct timezone *tz)
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1957 {
63020
92ecd695d7c1 (gettimeofday): Use struct _timeb, not struct timeb.
Eli Zaretskii <eliz@gnu.org>
parents: 60092
diff changeset
1958 struct _timeb tb;
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1959 _ftime (&tb);
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1960
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1961 tv->tv_sec = tb.time;
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1962 tv->tv_usec = tb.millitm * 1000L;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1963 if (tz)
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1964 {
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1965 tz->tz_minuteswest = tb.timezone; /* minutes west of Greenwich */
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1966 tz->tz_dsttime = tb.dstflag; /* type of dst correction */
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1967 }
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1968 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1969
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1970 /* ------------------------------------------------------------------------- */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
1971 /* 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
1972 /* ------------------------------------------------------------------------- */
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 /* 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
1975 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
1976 (Ulrich Leodolter, 1/11/95). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1977 char *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1978 sys_ctime (const time_t *t)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1979 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1980 char *str = (char *) ctime (t);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1981 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
1982 }
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 /* 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
1985 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
1986 This is much easier. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1987 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1988 sys_sleep (int seconds)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1989 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1990 Sleep (seconds * 1000);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1991 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1992
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1993 /* 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
1994 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
1995 extern int __cdecl _free_osfhnd (int fd);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1996
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1997 /* 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
1998 filedesc fd_info [ MAXDESC ];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1999
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2000 typedef struct volume_info_data {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2001 struct volume_info_data * next;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2002
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2003 /* time when info was obtained */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2004 DWORD timestamp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2005
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2006 /* actual volume info */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2007 char * root_dir;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2008 DWORD serialnum;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2009 DWORD maxcomp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2010 DWORD flags;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2011 char * name;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2012 char * type;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2013 } volume_info_data;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2014
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2015 /* Global referenced by various functions. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2016 static volume_info_data volume_info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2017
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2018 /* 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
2019 data never expires). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2020 static BOOL fixed_drives[26];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2021
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2022 /* 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
2023 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
2024 #define DRIVE_INDEX( c ) ( (c) <= 'Z' ? (c) - 'A' : (c) - 'a' )
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2025 #define VOLINFO_STILL_VALID( root_dir, info ) \
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2026 ( ( isalpha (root_dir[0]) && \
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2027 fixed_drives[ DRIVE_INDEX (root_dir[0]) ] ) \
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2028 || GetTickCount () - info->timestamp < 10000 )
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2029
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2030 /* Cache support functions. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2031
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2032 /* Simple linked list with linear search is sufficient. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2033 static volume_info_data *volume_cache = NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2034
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2035 static volume_info_data *
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2036 lookup_volume_info (char * root_dir)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2037 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2038 volume_info_data * info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2039
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2040 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
2041 if (xstrcasecmp (info->root_dir, root_dir) == 0)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2042 break;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2043 return info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2044 }
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 static void
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2047 add_volume_info (char * root_dir, volume_info_data * info)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2048 {
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
2049 info->root_dir = xstrdup (root_dir);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2050 info->next = volume_cache;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2051 volume_cache = info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2052 }
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 /* Wrapper for GetVolumeInformation, which uses caching to avoid
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2056 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
2057 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
2058 volume_info_data *
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2059 GetCachedVolumeInformation (char * root_dir)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2060 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2061 volume_info_data * info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2062 char default_root[ MAX_PATH ];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2063
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2064 /* NULL for root_dir means use root from current directory. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2065 if (root_dir == NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2066 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2067 if (GetCurrentDirectory (MAX_PATH, default_root) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2068 return NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2069 parse_root (default_root, &root_dir);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2070 *root_dir = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2071 root_dir = default_root;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2072 }
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 /* Local fixed drives can be cached permanently. Removable drives
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2075 cannot be cached permanently, since the volume name and serial
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2076 number (if nothing else) can change. Remote drives should be
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2077 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
2078 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
2079 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
2080 by other processes) without notice.
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2081
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2082 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
2083 volumes, we use a simple expiry mechanism to invalidate cache
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2084 entries that are more than ten seconds old. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2085
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2086 #if 0
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2087 /* No point doing this, because WNetGetConnection is even slower than
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2088 GetVolumeInformation, consistently taking ~50ms on a 486 (FWIW,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2089 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
2090 involve network access, and so is extremely quick). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2091
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2092 /* Map drive letter to UNC if remote. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2093 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
2094 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2095 char remote_name[ 256 ];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2096 char drive[3] = { root_dir[0], ':' };
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2097
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2098 if (WNetGetConnection (drive, remote_name, sizeof (remote_name))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2099 == NO_ERROR)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2100 /* do something */ ;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2101 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2102 #endif
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2103
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2104 info = lookup_volume_info (root_dir);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2105
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2106 if (info == NULL || ! VOLINFO_STILL_VALID (root_dir, info))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2107 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2108 char name[ 256 ];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2109 DWORD serialnum;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2110 DWORD maxcomp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2111 DWORD flags;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2112 char type[ 256 ];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2113
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2114 /* Info is not cached, or is stale. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2115 if (!GetVolumeInformation (root_dir,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2116 name, sizeof (name),
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2117 &serialnum,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2118 &maxcomp,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2119 &flags,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2120 type, sizeof (type)))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2121 return NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2122
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2123 /* Cache the volume information for future use, overwriting existing
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2124 entry if present. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2125 if (info == NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2126 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2127 info = (volume_info_data *) xmalloc (sizeof (volume_info_data));
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2128 add_volume_info (root_dir, info);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2129 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2130 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2131 {
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
2132 xfree (info->name);
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
2133 xfree (info->type);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2134 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2135
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
2136 info->name = xstrdup (name);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2137 info->serialnum = serialnum;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2138 info->maxcomp = maxcomp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2139 info->flags = flags;
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
2140 info->type = xstrdup (type);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2141 info->timestamp = GetTickCount ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2142 }
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 return info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2145 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2146
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2147 /* 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
2148 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
2149 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2150 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
2151 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2152 char temp[MAX_PATH];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2153 char *rootname = NULL; /* default to current volume */
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2154 volume_info_data * info;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2155
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2156 if (name == NULL)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2157 return FALSE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2158
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2159 /* 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
2160 if (isalpha (name[0]) && name[1] == ':')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2161 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2162 rootname = temp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2163 temp[0] = *name++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2164 temp[1] = *name++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2165 temp[2] = '\\';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2166 temp[3] = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2167 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2168 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
2169 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2170 char *str = temp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2171 int slashes = 4;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2172 rootname = temp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2173 do
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2174 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2175 if (IS_DIRECTORY_SEP (*name) && --slashes == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2176 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2177 *str++ = *name++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2178 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2179 while ( *name );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2180
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2181 *str++ = '\\';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2182 *str = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2183 }
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 if (pPath)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2186 *pPath = name;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2187
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2188 info = GetCachedVolumeInformation (rootname);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2189 if (info != NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2190 {
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2191 /* Set global referenced by other functions. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2192 volume_info = *info;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2193 return TRUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2194 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2195 return FALSE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2196 }
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 /* 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
2199 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
2200 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2201 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
2202 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2203 if (get_volume_info (name, pPath))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2204 return (volume_info.maxcomp == 12);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2205 return FALSE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2206 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2207
80030
6b3001cc9ca9 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79759
diff changeset
2208 /* 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
2209 const char *
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2210 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
2211 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2212 static char shortname[MAX_PATH];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2213 char * str = shortname;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2214 char c;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2215 char * path;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2216 const char * save_name = name;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2217
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
2218 if (strlen (name) >= MAX_PATH)
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
2219 {
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
2220 /* 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
2221 strcpy (shortname, "?");
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
2222 return shortname;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
2223 }
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
2224
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
2225 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
2226 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2227 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
2228 register int extn = 0; /* extension added? */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2229 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
2230
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2231 while (name < path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2232 *str++ = *name++; /* skip past UNC header */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2233
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2234 while ((c = *name++))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2235 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2236 switch ( c )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2237 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2238 case '\\':
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 *str++ = '\\';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2241 extn = 0; /* reset extension flags */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2242 dots = 2; /* max 2 dots */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2243 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
2244 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2245 case ':':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2246 *str++ = ':';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2247 extn = 0; /* reset extension flags */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2248 dots = 2; /* max 2 dots */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2249 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
2250 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2251 case '.':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2252 if ( dots )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2253 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2254 /* 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
2255 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
2256 to be read as _emacs, for example. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2257
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2258 if (! *name ||
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2259 *name == '.' ||
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2260 IS_DIRECTORY_SEP (*name))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2261 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2262 *str++ = '.';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2263 dots--;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2264 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2265 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2266 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2267 *str++ = '_';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2268 left--;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2269 dots = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2270 }
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 else if ( !extn )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2273 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2274 *str++ = '.';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2275 extn = 1; /* we've got an extension */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2276 left = 3; /* 3 chars in extension */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2277 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2278 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2279 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2280 /* 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
2281 *str++ = '_';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2282 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2283 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2284 case '~':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2285 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
2286 if ( ! left )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2287 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
2288 /* FALLTHRU */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2289 default:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2290 if ( left )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2291 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2292 *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
2293 left--;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2294 dots = 0; /* started a path component */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2295 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2296 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2297 }
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 *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
2300 }
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
2301 else
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
2302 {
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
2303 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
2304 unixtodos_filename (shortname);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2305 }
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 if (pPath)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2308 *pPath = shortname + (path - save_name);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2309
15213
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
2310 return shortname;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2311 }
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
2312
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2313 static int
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2314 is_exec (const char * name)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2315 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2316 char * p = strrchr (name, '.');
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2317 return
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2318 (p != NULL
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
2319 && (xstrcasecmp (p, ".exe") == 0 ||
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
2320 xstrcasecmp (p, ".com") == 0 ||
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
2321 xstrcasecmp (p, ".bat") == 0 ||
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
2322 xstrcasecmp (p, ".cmd") == 0));
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2323 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2324
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2325 /* Emulate the Unix directory procedures opendir, closedir,
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2326 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
2327 so we provide them here. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2328
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2329 struct direct dir_static; /* simulated directory contents */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2330 static HANDLE dir_find_handle = INVALID_HANDLE_VALUE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2331 static int dir_is_fat;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2332 static char dir_pathname[MAXPATHLEN+1];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2333 static WIN32_FIND_DATA dir_find_data;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2334
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2335 /* 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
2336 root directory. */
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2337 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
2338 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
2339 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
2340 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
2341
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2342 DIR *
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2343 opendir (char *filename)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2344 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2345 DIR *dirp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2346
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2347 /* 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
2348 this operation, so we defer the open until read time. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2349
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2350 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
2351 return NULL;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2352 if (wnet_enum_handle != INVALID_HANDLE_VALUE)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2353 return NULL;
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2354
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2355 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
2356 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2357 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
2358 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
2359 return NULL;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2360 }
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 if (!(dirp = (DIR *) malloc (sizeof (DIR))))
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2363 return NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2364
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2365 dirp->dd_fd = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2366 dirp->dd_loc = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2367 dirp->dd_size = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2368
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2369 strncpy (dir_pathname, map_w32_filename (filename, NULL), MAXPATHLEN);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2370 dir_pathname[MAXPATHLEN] = '\0';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2371 dir_is_fat = is_fat_volume (filename, NULL);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2372
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2373 return dirp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2374 }
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 void
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2377 closedir (DIR *dirp)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2378 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2379 /* If we have a find-handle open, close it. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2380 if (dir_find_handle != INVALID_HANDLE_VALUE)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2381 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2382 FindClose (dir_find_handle);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2383 dir_find_handle = INVALID_HANDLE_VALUE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2384 }
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2385 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
2386 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2387 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
2388 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
2389 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2390 xfree ((char *) dirp);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2391 }
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 struct direct *
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2394 readdir (DIR *dirp)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2395 {
80376
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2396 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
2397
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2398 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
2399 {
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2400 if (!read_unc_volume (wnet_enum_handle,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2401 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
2402 MAX_PATH))
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2403 return NULL;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2404 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2405 /* 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
2406 else if (dir_find_handle == INVALID_HANDLE_VALUE)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2407 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2408 char filename[MAXNAMLEN + 3];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2409 int ln;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2410
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2411 strcpy (filename, dir_pathname);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2412 ln = strlen (filename) - 1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2413 if (!IS_DIRECTORY_SEP (filename[ln]))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2414 strcat (filename, "\\");
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
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2417 dir_find_handle = FindFirstFile (filename, &dir_find_data);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2418
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2419 if (dir_find_handle == INVALID_HANDLE_VALUE)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2420 return NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2421 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2422 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2423 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2424 if (!FindNextFile (dir_find_handle, &dir_find_data))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2425 return NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2426 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2427
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2428 /* 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
2429 value returned by stat(). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2430 dir_static.d_ino = 1;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2431
93142
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
2432 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
2433
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
2434 /* 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
2435 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
2436 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
2437 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
2438 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
2439 {
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
2440 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
2441 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
2442 }
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
2443 dir_static.d_namlen = strlen (dir_static.d_name);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2444 dir_static.d_reclen = sizeof (struct direct) - MAXNAMLEN + 3 +
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2445 dir_static.d_namlen - dir_static.d_namlen % 4;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2446
80376
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2447 /* 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
2448 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
2449 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
2450 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
2451 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
2452 {
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2453 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
2454 /* 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
2455 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
2456 downcase = 1;
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2457 }
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2458 else
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2459 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
2460 dir_static.d_namlen = strlen (dir_static.d_name);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2461 if (dir_is_fat)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2462 _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
2463 else if (downcase)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2464 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2465 register char *p;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2466 for (p = dir_static.d_name; *p; p++)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2467 if (*p >= 'a' && *p <= 'z')
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2468 break;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2469 if (!*p)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2470 _strlwr (dir_static.d_name);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2471 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2472
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2473 return &dir_static;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2474 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2475
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2476 HANDLE
55645
5b3f2477d17b Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents: 55643
diff changeset
2477 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
2478 {
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2479 NETRESOURCE nr;
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2480 HANDLE henum;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2481 int result;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2482
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2483 nr.dwScope = RESOURCE_GLOBALNET;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2484 nr.dwType = RESOURCETYPE_DISK;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2485 nr.dwDisplayType = RESOURCEDISPLAYTYPE_SERVER;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2486 nr.dwUsage = RESOURCEUSAGE_CONTAINER;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2487 nr.lpLocalName = NULL;
63020
92ecd695d7c1 (gettimeofday): Use struct _timeb, not struct timeb.
Eli Zaretskii <eliz@gnu.org>
parents: 60092
diff changeset
2488 nr.lpRemoteName = (LPSTR)map_w32_filename (path, NULL);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2489 nr.lpComment = NULL;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2490 nr.lpProvider = NULL;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2491
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2492 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
2493 RESOURCEUSAGE_CONNECTABLE, &nr, &henum);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2494
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2495 if (result == NO_ERROR)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2496 return henum;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2497 else
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2498 return INVALID_HANDLE_VALUE;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2499 }
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 char *
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2502 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
2503 {
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
2504 DWORD count;
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2505 int result;
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
2506 DWORD bufsize = 512;
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2507 char *buffer;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2508 char *ptr;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2509
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2510 count = 1;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2511 buffer = alloca (bufsize);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2512 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
2513 if (result != NO_ERROR)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2514 return NULL;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2515
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2516 /* 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
2517 ptr = ((LPNETRESOURCE) buffer)->lpRemoteName;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2518 ptr += 2;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2519 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
2520 ptr++;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2521
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2522 strncpy (readbuf, ptr, size);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2523 return readbuf;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2524 }
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 void
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2527 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
2528 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2529 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
2530 WNetCloseEnum (henum);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2531 }
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 DWORD
55645
5b3f2477d17b Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents: 55643
diff changeset
2534 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
2535 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2536 HANDLE henum;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2537 DWORD attrs;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2538
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2539 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
2540 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
2541 return -1;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2542
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2543 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
2544
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2545 close_unc_volume (henum);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2546
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2547 return attrs;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2548 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2549
87985
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2550 /* Ensure a network connection is authenticated. */
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2551 static void
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2552 logon_network_drive (const char *path)
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2553 {
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2554 NETRESOURCE resource;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2555 char share[MAX_PATH];
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2556 int i, n_slashes;
93973
40f40216ff24 (logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents: 93759
diff changeset
2557 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
2558 UINT drvtype;
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2559
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2560 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
2561 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
2562 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
2563 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
2564 else
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2565 {
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2566 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
2567 drive[1] = ':';
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2568 drive[2] = '\\';
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
2569 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
2570 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
2571 }
87985
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2572
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2573 /* 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
2574 if (drvtype != DRIVE_REMOTE)
87985
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2575 return;
93973
40f40216ff24 (logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents: 93759
diff changeset
2576
87985
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2577 n_slashes = 2;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2578 strncpy (share, path, MAX_PATH);
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2579 /* Truncate to just server and share name. */
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2580 for (i = 2; i < MAX_PATH; i++)
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2581 {
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2582 if (IS_DIRECTORY_SEP (share[i]) && ++n_slashes > 3)
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2583 {
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2584 share[i] = '\0';
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2585 break;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2586 }
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 resource.dwType = RESOURCETYPE_DISK;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2590 resource.lpLocalName = NULL;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2591 resource.lpRemoteName = share;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2592 resource.lpProvider = NULL;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2593
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2594 WNetAddConnection2 (&resource, NULL, NULL, CONNECT_INTERACTIVE);
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2595 }
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2596
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2597 /* 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
2598 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
2599 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
2600 long file names. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2601
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2602 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2603 sys_access (const char * path, int mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2604 {
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2605 DWORD attributes;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2606
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2607 /* MSVC implementation doesn't recognize D_OK. */
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2608 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
2609 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
2610 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2611 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
2612 if (attributes == -1) {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2613 errno = EACCES;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2614 return -1;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2615 }
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 else if ((attributes = GetFileAttributes (path)) == -1)
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2618 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2619 /* Should try mapping GetLastError to errno; for now just indicate
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2620 that path doesn't exist. */
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2621 errno = EACCES;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2622 return -1;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2623 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2624 if ((mode & X_OK) != 0 && !is_exec (path))
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2625 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2626 errno = EACCES;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2627 return -1;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2628 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2629 if ((mode & W_OK) != 0 && (attributes & FILE_ATTRIBUTE_READONLY) != 0)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2630 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2631 errno = EACCES;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2632 return -1;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2633 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2634 if ((mode & D_OK) != 0 && (attributes & FILE_ATTRIBUTE_DIRECTORY) == 0)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2635 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2636 errno = EACCES;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2637 return -1;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2638 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2639 return 0;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2640 }
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 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2643 sys_chdir (const char * path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2644 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2645 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
2646 }
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 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2649 sys_chmod (const char * path, int mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2650 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2651 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
2652 }
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 int
63744
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2655 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
2656 {
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
2657 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
2658 return -1;
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2659 return 0;
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2660 }
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 int
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2663 sys_creat (const char * path, int mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2664 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2665 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
2666 }
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 FILE *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2669 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
2670 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2671 int fd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2672 int oflag;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2673 const char * mode_save = mode;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2674
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2675 /* 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
2676 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
2677 prevent future file access. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2678
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2679 if (mode[0] == 'r')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2680 oflag = O_RDONLY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2681 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
2682 oflag = O_WRONLY | O_CREAT | O_TRUNC;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2683 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2684 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2685
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2686 /* Only do simplistic option parsing. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2687 while (*++mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2688 if (mode[0] == '+')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2689 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2690 oflag &= ~(O_RDONLY | O_WRONLY);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2691 oflag |= O_RDWR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2692 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2693 else if (mode[0] == 'b')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2694 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2695 oflag &= ~O_TEXT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2696 oflag |= O_BINARY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2697 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2698 else if (mode[0] == 't')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2699 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2700 oflag &= ~O_BINARY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2701 oflag |= O_TEXT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2702 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2703 else break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2704
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2705 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
2706 if (fd < 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2707 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2708
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2709 return _fdopen (fd, mode_save);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2710 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2711
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2712 /* 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
2713 int
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2714 sys_link (const char * old, const char * new)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2715 {
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2716 HANDLE fileh;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2717 int result = -1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2718 char oldname[MAX_PATH], newname[MAX_PATH];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2719
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2720 if (old == NULL || new == NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2721 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2722 errno = ENOENT;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2723 return -1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2724 }
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 strcpy (oldname, map_w32_filename (old, NULL));
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2727 strcpy (newname, map_w32_filename (new, NULL));
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2728
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2729 fileh = CreateFile (oldname, 0, 0, NULL, OPEN_EXISTING,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2730 FILE_FLAG_BACKUP_SEMANTICS, NULL);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2731 if (fileh != INVALID_HANDLE_VALUE)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2732 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2733 int wlen;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2734
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2735 /* Confusingly, the "alternate" stream name field does not apply
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2736 when restoring a hard link, and instead contains the actual
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2737 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
2738 The WIN32_STREAM_ID structure before the cStreamName field is
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2739 the stream header, which is then immediately followed by the
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2740 stream data. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2741
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2742 struct {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2743 WIN32_STREAM_ID wid;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2744 WCHAR wbuffer[MAX_PATH]; /* extra space for link name */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2745 } data;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2746
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2747 wlen = MultiByteToWideChar (CP_ACP, MB_PRECOMPOSED, newname, -1,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2748 data.wid.cStreamName, MAX_PATH);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2749 if (wlen > 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2750 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2751 LPVOID context = NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2752 DWORD wbytes = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2753
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2754 data.wid.dwStreamId = BACKUP_LINK;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2755 data.wid.dwStreamAttributes = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2756 data.wid.Size.LowPart = wlen * sizeof(WCHAR);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2757 data.wid.Size.HighPart = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2758 data.wid.dwStreamNameSize = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2759
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2760 if (BackupWrite (fileh, (LPBYTE)&data,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2761 offsetof (WIN32_STREAM_ID, cStreamName)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2762 + data.wid.Size.LowPart,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2763 &wbytes, FALSE, FALSE, &context)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2764 && BackupWrite (fileh, NULL, 0, &wbytes, TRUE, FALSE, &context))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2765 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2766 /* succeeded */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2767 result = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2768 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2769 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2770 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2771 /* Should try mapping GetLastError to errno; for now just
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2772 indicate a general error (eg. links not supported). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2773 errno = EINVAL; // perhaps EMLINK?
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2774 }
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 CloseHandle (fileh);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2778 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2779 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2780 errno = ENOENT;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2781
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2782 return result;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2783 }
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 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2786 sys_mkdir (const char * path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2787 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2788 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
2789 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2790
15354
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2791 /* 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
2792 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
2793 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
2794 string.
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2795
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2796 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
2797 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
2798 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
2799 first of the 6 X's. */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2800 char *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2801 sys_mktemp (char * template)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2802 {
15354
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2803 char * p;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2804 int i;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2805 unsigned uid = GetCurrentThreadId ();
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2806 static char first_char[] = "abcdefghijklmnopqrstuvwyz0123456789!%-_@#";
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2807
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2808 if (template == NULL)
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2809 return NULL;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2810 p = template + strlen (template);
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2811 i = 5;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2812 /* 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
2813 while (--p >= template && p[0] == 'X' && --i >= 0)
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2814 {
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2815 p[0] = '0' + uid % 10;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2816 uid /= 10;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2817 }
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 if (i < 0 && p[0] == 'X')
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2820 {
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2821 i = 0;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2822 do
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2823 {
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2824 int save_errno = errno;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2825 p[0] = first_char[i];
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2826 if (sys_access (template, 0) < 0)
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2827 {
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2828 errno = save_errno;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2829 return template;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2830 }
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 while (++i < sizeof (first_char));
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2833 }
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 /* 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
2836 so return empty string */
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2837 template[0] = 0;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2838 return template;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2839 }
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 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2842 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
2843 {
37291
83dd2eb5365f (sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents: 36001
diff changeset
2844 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
2845 /* 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
2846 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
2847 non-inheritable. */
83dd2eb5365f (sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents: 36001
diff changeset
2848 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
2849 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
2850 return res;
83dd2eb5365f (sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents: 36001
diff changeset
2851 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
2852 }
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 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2855 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
2856 {
34644
69143373d98d (sys_rename): Only check errno against EEXIST, and not
Andrew Innes <andrewi@gnu.org>
parents: 33869
diff changeset
2857 BOOL result;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2858 char temp[MAX_PATH];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2859
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16867
diff changeset
2860 /* 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
2861 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
2862 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
2863 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
2864
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16867
diff changeset
2865 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
2866 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
2867 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
2868 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
2869
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16867
diff changeset
2870 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
2871 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
2872
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2873 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
2874
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2875 if (os_subtype == OS_WIN95)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2876 {
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2877 char * o;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2878 char * p;
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2879 int i = 0;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2880
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2881 oldname = map_w32_filename (oldname, NULL);
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2882 if (o = strrchr (oldname, '\\'))
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2883 o++;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2884 else
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2885 o = (char *) oldname;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2886
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2887 if (p = strrchr (temp, '\\'))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2888 p++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2889 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2890 p = temp;
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2891
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2892 do
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2893 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2894 /* 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
2895 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
2896 sprintf (p, "_.%s.%u", o, i);
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2897 i++;
22430
921311b43bf4 (sys_rename): Don't examine errno if rename didn't fail.
Richard M. Stallman <rms@gnu.org>
parents: 22363
diff changeset
2898 result = rename (oldname, temp);
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2899 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2900 /* 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
2901 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
2902 if (result < 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2903 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2904 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2905
96376
c3309dba6542 American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 95917
diff changeset
2906 /* 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
2907 (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
2908
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2909 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
2910 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
2911 rename!), we let rename detect if the destination file already
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2912 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
2913 determine ourselves whether two names really refer to the same
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2914 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
2915 all the permutations of shared or subst'd drives, etc.) */
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2916
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2917 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
2918 result = rename (temp, newname);
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2919
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2920 if (result < 0
34644
69143373d98d (sys_rename): Only check errno against EEXIST, and not
Andrew Innes <andrewi@gnu.org>
parents: 33869
diff changeset
2921 && errno == EEXIST
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2922 && _chmod (newname, 0666) == 0
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2923 && _unlink (newname) == 0)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2924 result = rename (temp, newname);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2925
22299
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
2926 return result;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2927 }
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 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2930 sys_rmdir (const char * path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2931 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2932 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
2933 }
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 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2936 sys_unlink (const char * path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2937 {
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2938 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
2939
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2940 /* 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
2941 _chmod (path, 0666);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2942 return _unlink (path);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2943 }
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 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
2946 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
2947 static int init = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2948
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2949 #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
2950 do { \
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2951 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
2952 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
2953 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
2954 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
2955 } while (0)
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2956
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2957 static void
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2958 initialize_utc_base ()
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
2959 {
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2960 /* 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
2961 SYSTEMTIME st;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2962
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2963 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
2964 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
2965 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
2966 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
2967 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
2968 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
2969 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
2970
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2971 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
2972 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
2973 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
2974
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2975 static time_t
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2976 convert_time (FILETIME ft)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2977 {
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2978 ULONGLONG tmp;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2979
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2980 if (!init)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2981 {
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2982 initialize_utc_base();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2983 init = 1;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2984 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2985
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2986 if (CompareFileTime (&ft, &utc_base_ft) < 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2987 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2988
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2989 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
2990 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
2991 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2992
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
2993
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2994 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2995 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
2996 {
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2997 ULARGE_INTEGER tmp;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2998
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2999 if (!init)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3000 {
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
3001 initialize_utc_base ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3002 init = 1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3003 }
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 /* 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
3006 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
3007 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
3008 pft->dwLowDateTime = tmp.LowPart;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3009 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3010
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3011 #if 0
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3012 /* 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
3013 using the file index from GetInformationByHandle, is not perfect and
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3014 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
3015 Instead, we now determine file-truename correctly (except for
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3016 possible drive aliasing etc). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3017
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3018 /* 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
3019 static unsigned
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3020 hashval (const unsigned char * str)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3021 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3022 unsigned h = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3023 while (*str)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3024 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3025 h = (h << 4) + *str++;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3026 h ^= (h >> 28);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3027 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3028 return h;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3029 }
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 /* 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
3032 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
3033 static DWORD
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3034 generate_inode_val (const char * name)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3035 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3036 char fullname[ MAX_PATH ];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3037 char * p;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3038 unsigned hash;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3039
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3040 /* Get the truly canonical filename, if it exists. (Note: this
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3041 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
3042 links. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3043 if (!w32_get_long_filename ((char *)name, fullname, MAX_PATH))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3044 abort ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3045
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3046 parse_root (fullname, &p);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
3047 /* 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
3048 _strlwr (p);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3049 return hashval (p);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3050 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3051
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3052 #endif
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3053
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3054 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
3055 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
3056 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3057 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
3058 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
3059 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
3060 | 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
3061
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3062 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
3063 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3064 err = GetLastError ();
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3065 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
3066 return NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3067 }
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 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
3070 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
3071 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3072 xfree (psd);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3073 return NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3074 }
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 return psd;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3077 }
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 static DWORD
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3080 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
3081 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3082 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
3083
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3084 /* 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
3085 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
3086 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
3087 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
3088 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
3089 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
3090 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3091
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3092 /* 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
3093
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3094 #ifdef __GNUC__
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3095 # define FLEXIBLE_ARRAY_MEMBER
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3096 #else
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3097 # define FLEXIBLE_ARRAY_MEMBER 1
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3098 #endif
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3099
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3100 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
3101 unsigned rid;
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3102 struct w32_id *next;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3103 char name[GNLEN+1];
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3104 unsigned char sid[FLEXIBLE_ARRAY_MEMBER];
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3105 };
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 static struct w32_id *w32_idlist;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3108
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3109 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
3110 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
3111 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3112 struct w32_id *tail, *found;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3113
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3114 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
3115 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3116 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
3117 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3118 found = tail;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3119 break;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3120 }
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 if (found)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3123 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3124 *id = found->rid;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3125 strcpy (name, found->name);
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3126 return 1;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3127 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3128 else
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3129 return 0;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3130 }
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 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
3133 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
3134 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3135 DWORD sid_len;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3136 struct w32_id *new_entry;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3137
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3138 /* 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
3139 dumped. */
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3140 if (initialized)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3141 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3142 sid_len = get_length_sid (sid);
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3143 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
3144 if (new_entry)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3145 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3146 new_entry->rid = id;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3147 strcpy (new_entry->name, name);
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3148 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
3149 new_entry->next = w32_idlist;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3150 w32_idlist = new_entry;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3151 }
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
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3155 #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
3156 #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
3157
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3158 static int
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3159 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
3160 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
3161 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3162 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
3163 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
3164 BOOL dflt;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3165 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
3166 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
3167 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
3168 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
3169 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
3170 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
3171 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
3172 int result;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3173
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3174 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
3175 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
3176 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
3177 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
3178 else
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3179 result = 0;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3180
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3181 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
3182 use_dflt = 1;
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3183 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
3184 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3185 /* 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
3186 specified machine. */
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3187 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
3188 && 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
3189 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3190 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
3191 char *p;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3192
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3193 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
3194 *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
3195 *p = *s;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3196 *p = '\0';
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3197 mp = machine;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3198 }
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 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
3201 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
3202 || 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
3203 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
3204 else
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3205 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3206 *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
3207 strcpy (nm, name);
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3208 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
3209 }
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 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
3212 }
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 static void
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3215 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
3216 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
3217 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
3218 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
3219 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3220 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
3221
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3222 if (!psd)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3223 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3224 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
3225 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
3226 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3227 else
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3228 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3229 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
3230 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
3231 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
3232 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
3233 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3234 /* 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
3235 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
3236 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
3237 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3238 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
3239 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
3240 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3241 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
3242 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3243 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
3244 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
3245 }
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
103859
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3248 /* 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
3249 int
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3250 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
3251 {
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3252 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
3253 UINT devtype;
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3254
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3255 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
3256 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
3257 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
3258 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
3259 else
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3260 {
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3261 /* 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
3262 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
3263 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
3264 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
3265 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
3266 }
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3267 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
3268 }
fe78cff95301 (logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents: 103811
diff changeset
3269
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3270 /* 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
3271 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
3272 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
3273 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3274 stat (const char * path, struct stat * buf)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3275 {
22299
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
3276 char *name, *r;
97488
caf9103a3856 (stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents: 97486
diff changeset
3277 char drive_root[4];
caf9103a3856 (stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents: 97486
diff changeset
3278 UINT devtype;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3279 WIN32_FIND_DATA wfd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3280 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
3281 unsigned __int64 fake_inode;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3282 int permission;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3283 int len;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3284 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
3285 PSECURITY_DESCRIPTOR psd = NULL;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3286
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3287 if (path == NULL || buf == NULL)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3288 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3289 errno = EFAULT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3290 return -1;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3291 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3292
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
3293 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
3294 /* 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
3295 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
3296 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
3297 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
3298 filesystems. */
9ad6c99cdc71 (stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents: 75348
diff changeset
3299 if (_mbspbrk (name, "*?|<>\""))
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3300 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3301 errno = ENOENT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3302 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3303 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3304
22299
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
3305 /* 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
3306 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
3307 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
3308 {
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
3309 r[1] = r[2] = '\0';
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
3310 }
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
3311
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3312 /* 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
3313 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
3314 is a trailing separator. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3315 len = strlen (name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3316 rootdir = (path >= name + len - 1
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3317 && (IS_DIRECTORY_SEP (*path) || *path == 0));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3318 name = strcpy (alloca (len + 2), name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3319
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3320 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
3321 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3322 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
3323
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3324 if (attrs == -1)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3325 return -1;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3326
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3327 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
3328 wfd.dwFileAttributes = attrs;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3329 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
3330 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
3331 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
3332 strcpy (wfd.cFileName, name);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3333 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3334 else if (rootdir)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3335 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3336 if (!IS_DIRECTORY_SEP (name[len-1]))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3337 strcat (name, "\\");
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3338 if (GetDriveType (name) < 2)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3339 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3340 errno = ENOENT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3341 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3342 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3343 memset (&wfd, 0, sizeof (wfd));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3344 wfd.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3345 wfd.ftCreationTime = utc_base_ft;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3346 wfd.ftLastAccessTime = utc_base_ft;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3347 wfd.ftLastWriteTime = utc_base_ft;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3348 strcpy (wfd.cFileName, name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3349 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3350 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3351 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3352 if (IS_DIRECTORY_SEP (name[len-1]))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3353 name[len - 1] = 0;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3354
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3355 /* (This is hacky, but helps when doing file completions on
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3356 network drives.) Optimize by using information available from
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3357 active readdir if possible. */
25193
953155ee541a (stat): Check for directory ending in separator when
Geoff Voelker <voelker@cs.washington.edu>
parents: 24885
diff changeset
3358 len = strlen (dir_pathname);
953155ee541a (stat): Check for directory ending in separator when
Geoff Voelker <voelker@cs.washington.edu>
parents: 24885
diff changeset
3359 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
3360 len--;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3361 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
3362 && strnicmp (name, dir_pathname, len) == 0
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3363 && IS_DIRECTORY_SEP (name[len])
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
3364 && 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
3365 {
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3366 /* This was the last entry returned by readdir. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3367 wfd = dir_find_data;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3368 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3369 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3370 {
88048
7c4da276fe17 (stat): Don't do a double check for networked drive.
Jason Rumney <jasonr@gnu.org>
parents: 87999
diff changeset
3371 logon_network_drive (name);
87985
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
3372
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3373 fh = FindFirstFile (name, &wfd);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3374 if (fh == INVALID_HANDLE_VALUE)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3375 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3376 errno = ENOENT;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3377 return -1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3378 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3379 FindClose (fh);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3380 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3381 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3382
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3383 if (!(NILP (Vw32_get_true_file_attributes)
103868
b2b6dc6a2417 (stat): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 103859
diff changeset
3384 || (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
3385 /* 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
3386 && (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
3387 FILE_FLAG_BACKUP_SEMANTICS, NULL))
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3388 != INVALID_HANDLE_VALUE)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3389 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3390 /* 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
3391 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
3392 making a list of file name completions). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3393 BY_HANDLE_FILE_INFORMATION info;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3394
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3395 if (GetFileInformationByHandle (fh, &info))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3396 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3397 buf->st_nlink = info.nNumberOfLinks;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3398 /* 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
3399 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
3400 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
3401 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
3402 (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
3403 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
3404 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
3405 fake_inode += info.nFileIndexLow;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3406 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3407 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3408 {
23622
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
3409 buf->st_nlink = 1;
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
3410 fake_inode = 0;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3411 }
23622
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
3412
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3413 if (wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3414 {
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3415 buf->st_mode = S_IFDIR;
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3416 }
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3417 else
23622
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
3418 {
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3419 switch (GetFileType (fh))
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3420 {
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3421 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
3422 buf->st_mode = S_IFREG;
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3423 break;
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3424 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
3425 buf->st_mode = S_IFIFO;
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3426 break;
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3427 case FILE_TYPE_CHAR:
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3428 case FILE_TYPE_UNKNOWN:
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3429 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
3430 buf->st_mode = S_IFCHR;
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3431 }
23622
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
3432 }
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
3433 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
3434 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
3435 get_file_owner_and_group (psd, name, buf);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3436 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3437 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3438 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3439 /* 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
3440 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
3441 S_IFDIR : S_IFREG;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3442 buf->st_nlink = 1;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3443 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
3444
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3445 get_file_owner_and_group (NULL, name, buf);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3446 }
95481
4390d64d3328 Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents: 95277
diff changeset
3447 xfree (psd);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3448
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3449 #if 0
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3450 /* Not sure if there is any point in this. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3451 if (!NILP (Vw32_generate_fake_inodes))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3452 fake_inode = generate_inode_val (name);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3453 else if (fake_inode == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3454 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3455 /* For want of something better, try to make everything unique. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3456 static DWORD gen_num = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3457 fake_inode = ++gen_num;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3458 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3459 #endif
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3460
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3461 /* 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
3462 if (sizeof (buf->st_ino) == 2)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3463 buf->st_ino = fake_inode ^ (fake_inode >> 16);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3464 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3465 buf->st_ino = fake_inode;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3466
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
3467 /* 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
3468 buf->st_dev = volume_info.serialnum;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3469 buf->st_rdev = volume_info.serialnum;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3470
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3471
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3472 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
3473 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
3474 buf->st_size += wfd.nFileSizeLow;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3475
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3476 /* Convert timestamps to Unix format. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3477 buf->st_mtime = convert_time (wfd.ftLastWriteTime);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3478 buf->st_atime = convert_time (wfd.ftLastAccessTime);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3479 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
3480 buf->st_ctime = convert_time (wfd.ftCreationTime);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3481 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
3482
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3483 /* determine rwx permissions */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3484 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
3485 permission = S_IREAD;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3486 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
3487 permission = S_IREAD | S_IWRITE;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
3488
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3489 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
3490 permission |= S_IEXEC;
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
3491 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
3492 permission |= S_IEXEC;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3493
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3494 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
3495
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3496 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3497 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3498
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3499 /* 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
3500 file timestamps. */
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3501 int
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3502 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
3503 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3504 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
3505 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
3506 unsigned __int64 fake_inode;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3507 int permission;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3508
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3509 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
3510 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3511 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
3512 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
3513 if (!GetFileInformationByHandle (fh, &info))
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3514 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3515 errno = EACCES;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3516 return -1;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3517 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3518 break;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3519 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
3520 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
3521 goto non_disk;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3522 case FILE_TYPE_CHAR:
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3523 case FILE_TYPE_UNKNOWN:
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3524 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
3525 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
3526 non_disk:
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3527 memset (&info, 0, sizeof (info));
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3528 info.dwFileAttributes = 0;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3529 info.ftCreationTime = utc_base_ft;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3530 info.ftLastAccessTime = utc_base_ft;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3531 info.ftLastWriteTime = utc_base_ft;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3532 }
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 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
3535 buf->st_mode = S_IFDIR;
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3536
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3537 buf->st_nlink = info.nNumberOfLinks;
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3538 /* 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
3539 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
3540 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
3541 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
3542 (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
3543 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
3544 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
3545 fake_inode += info.nFileIndexLow;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3546
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3547 /* 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
3548 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
3549 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
3550 else
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3551 buf->st_ino = fake_inode;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3552
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3553 /* 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
3554 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
3555 available for _WIN32_WINNT >= 0x501. */
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
3556 buf->st_uid = dflt_passwd.pw_uid;
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
3557 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
3558 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
3559 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
3560
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3561 buf->st_dev = info.dwVolumeSerialNumber;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3562 buf->st_rdev = info.dwVolumeSerialNumber;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3563
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3564 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
3565 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
3566 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
3567
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3568 /* Convert timestamps to Unix format. */
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3569 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
3570 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
3571 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
3572 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
3573 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
3574
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3575 /* determine rwx permissions */
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3576 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
3577 permission = S_IREAD;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3578 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
3579 permission = S_IREAD | S_IWRITE;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
3580
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3581 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
3582 permission |= S_IEXEC;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3583 else
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3584 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3585 #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
3586 char * p = strrchr (name, '.');
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3587 if (p != NULL &&
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
3588 (xstrcasecmp (p, ".exe") == 0 ||
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
3589 xstrcasecmp (p, ".com") == 0 ||
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
3590 xstrcasecmp (p, ".bat") == 0 ||
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
3591 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
3592 permission |= S_IEXEC;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3593 #endif
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3594 }
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 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
3597
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3598 return 0;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3599 }
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 int
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3602 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
3603 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3604 struct utimbuf deftime;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3605 HANDLE fh;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3606 FILETIME mtime;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3607 FILETIME atime;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3608
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3609 if (times == NULL)
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3610 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3611 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
3612 times = &deftime;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3613 }
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 /* 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
3616 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
3617 0, OPEN_EXISTING, 0, NULL);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3618 if (fh)
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3619 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3620 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
3621 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
3622 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
3623 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3624 CloseHandle (fh);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3625 errno = EACCES;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3626 return -1;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3627 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3628 CloseHandle (fh);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3629 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3630 else
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3631 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3632 errno = EINVAL;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3633 return -1;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3634 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3635 return 0;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3636 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3637
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3638
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3639 /* 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
3640 process.c for the Lisp bindings. */
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3641
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3642 /* Helper wrapper functions. */
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3643
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3644 HANDLE WINAPI create_toolhelp32_snapshot(
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3645 DWORD Flags,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3646 DWORD Ignored)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3647 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3648 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
3649
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3650 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
3651 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3652 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
3653 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
3654 GetProcAddress (GetModuleHandle ("kernel32.dll"),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3655 "CreateToolhelp32Snapshot");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3656 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3657 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
3658 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3659 return INVALID_HANDLE_VALUE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3660 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3661 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
3662 }
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 BOOL WINAPI process32_first(
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3665 HANDLE hSnapshot,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3666 LPPROCESSENTRY32 lppe)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3667 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3668 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
3669
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3670 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
3671 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3672 g_b_init_process32_first = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3673 s_pfn_Process32_First = (Process32First_Proc)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3674 GetProcAddress (GetModuleHandle ("kernel32.dll"),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3675 "Process32First");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3676 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3677 if (s_pfn_Process32_First == NULL)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3678 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3679 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3680 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3681 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
3682 }
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 BOOL WINAPI process32_next(
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3685 HANDLE hSnapshot,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3686 LPPROCESSENTRY32 lppe)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3687 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3688 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
3689
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3690 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
3691 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3692 g_b_init_process32_next = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3693 s_pfn_Process32_Next = (Process32Next_Proc)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3694 GetProcAddress (GetModuleHandle ("kernel32.dll"),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3695 "Process32Next");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3696 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3697 if (s_pfn_Process32_Next == NULL)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3698 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3699 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3700 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3701 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
3702 }
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 BOOL WINAPI open_thread_token (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3705 HANDLE ThreadHandle,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3706 DWORD DesiredAccess,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3707 BOOL OpenAsSelf,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3708 PHANDLE TokenHandle)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3709 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3710 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
3711 HMODULE hm_advapi32 = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3712 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3713 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3714 SetLastError (ERROR_NOT_SUPPORTED);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3715 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3716 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3717 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
3718 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3719 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
3720 hm_advapi32 = LoadLibrary ("Advapi32.dll");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3721 s_pfn_Open_Thread_Token =
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3722 (OpenThreadToken_Proc) GetProcAddress (hm_advapi32, "OpenThreadToken");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3723 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3724 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
3725 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3726 SetLastError (ERROR_NOT_SUPPORTED);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3727 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3728 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3729 return (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3730 s_pfn_Open_Thread_Token (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3731 ThreadHandle,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3732 DesiredAccess,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3733 OpenAsSelf,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3734 TokenHandle)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3735 );
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 BOOL WINAPI impersonate_self (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3739 SECURITY_IMPERSONATION_LEVEL ImpersonationLevel)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3740 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3741 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
3742 HMODULE hm_advapi32 = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3743 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3744 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3745 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3746 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3747 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
3748 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3749 g_b_init_impersonate_self = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3750 hm_advapi32 = LoadLibrary ("Advapi32.dll");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3751 s_pfn_Impersonate_Self =
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3752 (ImpersonateSelf_Proc) GetProcAddress (hm_advapi32, "ImpersonateSelf");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3753 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3754 if (s_pfn_Impersonate_Self == NULL)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3755 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3756 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3757 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3758 return s_pfn_Impersonate_Self (ImpersonationLevel);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3759 }
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 BOOL WINAPI revert_to_self (void)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3762 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3763 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
3764 HMODULE hm_advapi32 = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3765 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3766 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3767 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3768 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3769 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
3770 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3771 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
3772 hm_advapi32 = LoadLibrary ("Advapi32.dll");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3773 s_pfn_Revert_To_Self =
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3774 (RevertToSelf_Proc) GetProcAddress (hm_advapi32, "RevertToSelf");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3775 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3776 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
3777 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3778 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3779 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3780 return s_pfn_Revert_To_Self ();
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3781 }
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 BOOL WINAPI get_process_memory_info (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3784 HANDLE h_proc,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3785 PPROCESS_MEMORY_COUNTERS mem_counters,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3786 DWORD bufsize)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3787 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3788 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
3789 HMODULE hm_psapi = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3790 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3791 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3792 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3793 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3794 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
3795 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3796 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
3797 hm_psapi = LoadLibrary ("Psapi.dll");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3798 if (hm_psapi)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3799 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
3800 GetProcAddress (hm_psapi, "GetProcessMemoryInfo");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3801 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3802 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
3803 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3804 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3805 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3806 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
3807 }
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 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
3810 HANDLE h_proc,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3811 DWORD *minrss,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3812 DWORD *maxrss)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3813 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3814 static GetProcessWorkingSetSize_Proc
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3815 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
3816
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3817 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3818 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3819 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3820 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3821 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
3822 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3823 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
3824 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
3825 GetProcAddress (GetModuleHandle ("kernel32.dll"),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3826 "GetProcessWorkingSetSize");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3827 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3828 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
3829 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3830 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3831 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3832 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
3833 }
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 BOOL WINAPI global_memory_status (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3836 MEMORYSTATUS *buf)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3837 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3838 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
3839
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3840 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3841 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3842 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3843 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3844 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
3845 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3846 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
3847 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
3848 GetProcAddress (GetModuleHandle ("kernel32.dll"),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3849 "GlobalMemoryStatus");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3850 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3851 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
3852 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3853 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3854 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3855 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
3856 }
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 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
3859 MEMORY_STATUS_EX *buf)
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3860 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3861 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
3862
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3863 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3864 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3865 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3866 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3867 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
3868 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3869 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
3870 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
3871 GetProcAddress (GetModuleHandle ("kernel32.dll"),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3872 "GlobalMemoryStatusEx");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3873 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3874 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
3875 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3876 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3877 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3878 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
3879 }
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 Lisp_Object
100565
dcc7f5970d5c Reorganize implementation of Flist_system_processes and
Dan Nicolaescu <dann@ics.uci.edu>
parents: 100192
diff changeset
3882 list_system_processes ()
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3883 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3884 struct gcpro gcpro1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3885 Lisp_Object proclist = Qnil;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3886 HANDLE h_snapshot;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3887
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3888 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
3889
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3890 if (h_snapshot != INVALID_HANDLE_VALUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3891 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3892 PROCESSENTRY32 proc_entry;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3893 DWORD proc_id;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3894 BOOL res;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3895
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3896 GCPRO1 (proclist);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3897
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3898 proc_entry.dwSize = sizeof (PROCESSENTRY32);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3899 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
3900 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
3901 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3902 proc_id = proc_entry.th32ProcessID;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3903 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
3904 }
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 CloseHandle (h_snapshot);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3907 UNGCPRO;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3908 proclist = Fnreverse (proclist);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3909 }
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 return proclist;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3912 }
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 static int
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3915 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
3916 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3917 TOKEN_PRIVILEGES priv;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3918 DWORD priv_size = sizeof (priv);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3919 DWORD opriv_size = sizeof (*old_priv);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3920 HANDLE h_token = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3921 HANDLE h_thread = GetCurrentThread ();
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3922 int ret_val = 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3923 BOOL res;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3924
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3925 res = open_thread_token (h_thread,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3926 TOKEN_QUERY | TOKEN_ADJUST_PRIVILEGES,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3927 FALSE, &h_token);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3928 if (!res && GetLastError () == ERROR_NO_TOKEN)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3929 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3930 if (impersonate_self (SecurityImpersonation))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3931 res = open_thread_token (h_thread,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3932 TOKEN_QUERY | TOKEN_ADJUST_PRIVILEGES,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3933 FALSE, &h_token);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3934 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3935 if (res)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3936 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3937 priv.PrivilegeCount = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3938 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
3939 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
3940 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
3941 old_priv, &opriv_size)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3942 && GetLastError () != ERROR_NOT_ALL_ASSIGNED)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3943 ret_val = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3944 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3945 if (h_token)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3946 CloseHandle (h_token);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3947
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3948 return ret_val;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3949 }
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 static int
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3952 restore_privilege (TOKEN_PRIVILEGES *priv)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3953 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3954 DWORD priv_size = sizeof (*priv);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3955 HANDLE h_token = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3956 int ret_val = 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3957
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3958 if (open_thread_token (GetCurrentThread (),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3959 TOKEN_QUERY | TOKEN_ADJUST_PRIVILEGES,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3960 FALSE, &h_token))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3961 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3962 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
3963 && GetLastError () != ERROR_NOT_ALL_ASSIGNED)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3964 ret_val = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3965 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3966 if (h_token)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3967 CloseHandle (h_token);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3968
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3969 return ret_val;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3970 }
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 static Lisp_Object
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3973 ltime (time_sec, time_usec)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3974 long time_sec, time_usec;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3975 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3976 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
3977 make_number (time_sec & 0xffff),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3978 make_number (time_usec));
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3979 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3980
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
3981 #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
3982
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3983 static int
100831
e43e429a11bb (process_times): Compute sum of utime and stime.
Eli Zaretskii <eliz@gnu.org>
parents: 100565
diff changeset
3984 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
3985 HANDLE h_proc;
100831
e43e429a11bb (process_times): Compute sum of utime and stime.
Eli Zaretskii <eliz@gnu.org>
parents: 100565
diff changeset
3986 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
3987 double *pcpu;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3988 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3989 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
3990 ULONGLONG tem1, tem2, tem3, tem;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3991
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3992 if (!h_proc
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3993 || !get_process_times_fn
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3994 || !(*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
3995 &ft_kernel, &ft_user))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3996 return 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3997
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3998 GetSystemTimeAsFileTime (&ft_current);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3999
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4000 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
4001 tem1 /= 10L;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4002 *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
4003
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4004 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
4005 tem2 /= 10L;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4006 *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
4007
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4008 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
4009 *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
4010
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4011 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
4012 /* 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
4013 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
4014 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
4015 *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
4016
97371
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4017 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
4018 {
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4019 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
4020 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
4021 }
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
4022 *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
4023
97371
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4024 if (tem)
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4025 {
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4026 *pcpu = 100.0 * (tem1 + tem2) / tem;
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4027 if (*pcpu > 100)
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4028 *pcpu = 100.0;
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4029 }
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4030 else
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4031 *pcpu = 0;
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4032
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
4033 return 1;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4034 }
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 Lisp_Object
100565
dcc7f5970d5c Reorganize implementation of Flist_system_processes and
Dan Nicolaescu <dann@ics.uci.edu>
parents: 100192
diff changeset
4037 system_process_attributes (pid)
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4038 Lisp_Object pid;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4039 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4040 struct gcpro gcpro1, gcpro2, gcpro3;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4041 Lisp_Object attrs = Qnil;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4042 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
4043 HANDLE h_snapshot, h_proc;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4044 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
4045 int found_proc = 0;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4046 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
4047 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
4048 DWORD glength = sizeof (gname);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4049 HANDLE token = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4050 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
4051 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
4052 DWORD blen = 0;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4053 TOKEN_USER user_token;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4054 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
4055 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
4056 unsigned egid;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4057 DWORD sess;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4058 PROCESS_MEMORY_COUNTERS mem;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4059 PROCESS_MEMORY_COUNTERS_EX mem_ex;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4060 DWORD minrss, maxrss;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4061 MEMORYSTATUS memst;
97486
2c195017488c (_MEMORY_STATUS_EX, MEMORY_STATUS_EX, LPMEMORY_STATUS_EX): Rename from
Eli Zaretskii <eliz@gnu.org>
parents: 97372
diff changeset
4062 MEMORY_STATUS_EX memstex;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4063 double totphys = 0.0;
100831
e43e429a11bb (process_times): Compute sum of utime and stime.
Eli Zaretskii <eliz@gnu.org>
parents: 100565
diff changeset
4064 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
4065 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
4066 BOOL result = FALSE;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4067
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4068 CHECK_NUMBER_OR_FLOAT (pid);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4069 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
4070
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4071 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
4072
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4073 GCPRO3 (attrs, decoded_cmd, tem);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4074
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4075 if (h_snapshot != INVALID_HANDLE_VALUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4076 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4077 PROCESSENTRY32 pe;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4078 BOOL res;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4079
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4080 pe.dwSize = sizeof (PROCESSENTRY32);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4081 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
4082 res = process32_next (h_snapshot, &pe))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4083 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4084 if (proc_id == pe.th32ProcessID)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4085 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4086 if (proc_id == 0)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4087 decoded_cmd = build_string ("Idle");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4088 else
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4089 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4090 /* 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
4091 encoding. */
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4092 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
4093 strlen (pe.szExeFile));
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4094 decoded_cmd =
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4095 code_convert_string_norecord (cmd_str,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4096 Vlocale_coding_system, 0);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4097 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4098 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
4099 attrs = Fcons (Fcons (Qppid,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4100 make_fixnum_or_float (pe.th32ParentProcessID)),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4101 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4102 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
4103 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4104 attrs = Fcons (Fcons (Qthcount,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4105 make_fixnum_or_float (pe.cntThreads)),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4106 attrs);
97372
aeb822613377 (w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents: 97371
diff changeset
4107 found_proc = 1;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4108 break;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4109 }
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 CloseHandle (h_snapshot);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4113 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4114
97372
aeb822613377 (w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents: 97371
diff changeset
4115 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
4116 {
aeb822613377 (w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents: 97371
diff changeset
4117 UNGCPRO;
aeb822613377 (w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents: 97371
diff changeset
4118 return Qnil;
aeb822613377 (w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents: 97371
diff changeset
4119 }
aeb822613377 (w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents: 97371
diff changeset
4120
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4121 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
4122 FALSE, proc_id);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4123 /* 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
4124 enabling the SeDebugPrivilege in our process. */
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4125 if (!h_proc)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4126 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4127 TOKEN_PRIVILEGES priv_current;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4128
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4129 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
4130 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4131 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
4132 FALSE, proc_id);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4133 restore_privilege (&priv_current);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4134 revert_to_self ();
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4135 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4136 }
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4137 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
4138 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4139 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
4140 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4141 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4142 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
4143 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
4144 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4145 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
4146 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
4147 (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
4148 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4149 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4150 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
4151 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
4152 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4153 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
4154 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
4155 uname, &ulength,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4156 domain, &dlength,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4157 &user_type);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4158 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4159 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
4160 else
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4161 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4162 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
4163 result = TRUE;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4164 }
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 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
4167 }
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 if (result)
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
4171 {
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4172 /* 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
4173 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
4174 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4175 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
4176 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
4177 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4178 else
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4179 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4180 /* 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
4181 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
4182 (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
4183 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
4184 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4185 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
4186 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
4187 (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
4188 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4189 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4190 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4191 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
4192 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
4193 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4194 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
4195 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
4196 result =
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4197 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
4198 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
4199 &user_type);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4200 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4201 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
4202 egid, gname);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4203 else
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4204 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4205 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
4206 result = TRUE;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4207 }
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 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
4210 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4211 }
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
4212 }
103624
3e06f0e66062 Remove useless if-before-xfree tests.
Jim Meyering <jim@meyering.net>
parents: 102670
diff changeset
4213 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
4214 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4215 if (!result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4216 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4217 if (!is_windows_9x ())
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4218 {
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4219 /* 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
4220 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
4221 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
4222 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
4223 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
4224 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
4225 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
4226 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
4227 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
4228 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4229 /* 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
4230 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
4231 user. */
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4232 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
4233 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4234 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
4235 euid = 0;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4236 else
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4237 euid = 123;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4238 egid = euid;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4239 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
4240 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
4241 ulength = strlen (uname);
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4242 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4243 else
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4244 {
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4245 euid = 123;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4246 egid = 123;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4247 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
4248 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
4249 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
4250 glength = strlen (gname);
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4251 }
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4252 if (token)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4253 CloseHandle (token);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4254 }
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4255
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4256 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
4257 tem = make_unibyte_string (uname, ulength);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4258 attrs = Fcons (Fcons (Quser,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4259 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
4260 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4261 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
4262 tem = make_unibyte_string (gname, glength);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4263 attrs = Fcons (Fcons (Qgroup,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4264 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
4265 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4266
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4267 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
4268 #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
4269 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
4270 #else
1f8e4a26957e (w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents: 97491
diff changeset
4271 /* 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
4272 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
4273 {
1f8e4a26957e (w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents: 97491
diff changeset
4274 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
4275 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
4276 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
4277
1f8e4a26957e (w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents: 97491
diff changeset
4278 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
4279 }
1f8e4a26957e (w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents: 97491
diff changeset
4280 #endif /* __GNUC__ || _MSC_VER >= 1300 */
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4281 else if (global_memory_status (&memst))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4282 totphys = memst.dwTotalPhys / 1024.0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4283
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4284 if (h_proc
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4285 && 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
4286 sizeof (mem_ex)))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4287 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4288 DWORD rss = mem_ex.WorkingSetSize / 1024;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4289
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4290 attrs = Fcons (Fcons (Qmajflt,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4291 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
4292 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4293 attrs = Fcons (Fcons (Qvsize,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4294 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
4295 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4296 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
4297 if (totphys)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4298 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
4299 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4300 else if (h_proc
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4301 && 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
4302 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4303 DWORD rss = mem_ex.WorkingSetSize / 1024;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4304
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4305 attrs = Fcons (Fcons (Qmajflt,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4306 make_fixnum_or_float (mem.PageFaultCount)),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4307 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4308 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
4309 if (totphys)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4310 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
4311 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4312 else if (h_proc
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4313 && 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
4314 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4315 DWORD rss = maxrss / 1024;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4316
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4317 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
4318 if (totphys)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4319 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
4320 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4321
100831
e43e429a11bb (process_times): Compute sum of utime and stime.
Eli Zaretskii <eliz@gnu.org>
parents: 100565
diff changeset
4322 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
4323 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4324 attrs = Fcons (Fcons (Qutime, utime), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4325 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
4326 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
4327 attrs = Fcons (Fcons (Qstart, ctime), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4328 attrs = Fcons (Fcons (Qetime, etime), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4329 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
4330 }
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 /* 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
4333
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4334 if (h_proc)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4335 CloseHandle (h_proc);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4336 UNGCPRO;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4337 return attrs;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4338 }
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
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4341 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4342
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4343 /* 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
4344 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
4345
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4346 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
4347 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
4348 otherwise provide the minimum necessary functionality
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4349 (eg. gethostname). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4350
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4351 /* function pointers for relevant socket functions */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4352 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
4353 void (PASCAL *pfn_WSASetLastError) (int iError);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4354 int (PASCAL *pfn_WSAGetLastError) (void);
71889
2385a5c8186c Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents: 70740
diff changeset
4355 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
4356 HANDLE (PASCAL *pfn_WSACreateEvent) (void);
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4357 int (PASCAL *pfn_WSACloseEvent) (HANDLE hEvent);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4358 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
4359 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
4360 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
4361 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
4362 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
4363 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
4364 int (PASCAL *pfn_closesocket) (SOCKET s);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4365 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
4366 int (PASCAL *pfn_WSACleanup) (void);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4367
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4368 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
4369 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
4370 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
4371 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
4372 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
4373 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
4374 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
4375 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
4376 const char * optval, int optlen);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4377 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
4378 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
4379 int * namelen);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4380 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
4381 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
4382 struct sockaddr * from, int * fromlen);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4383 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
4384 const struct sockaddr * to, int tolen);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4385
15342
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4386 /* 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
4387 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
4388 #ifndef HANDLE_FLAG_INHERIT
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4389 #define HANDLE_FLAG_INHERIT 1
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4390 #endif
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4391
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4392 HANDLE winsock_lib;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4393 static int winsock_inuse;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4394
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4395 BOOL
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4396 term_winsock (void)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4397 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4398 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
4399 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4400 /* 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
4401 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
4402 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
4403 if (pfn_WSACleanup () == 0 ||
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4404 pfn_WSAGetLastError () == WSAENETDOWN)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4405 {
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4406 if (FreeLibrary (winsock_lib))
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4407 winsock_lib = NULL;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4408 return TRUE;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4409 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4410 }
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4411 return FALSE;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4412 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4413
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4414 BOOL
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4415 init_winsock (int load_now)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4416 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4417 WSADATA winsockData;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4418
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4419 if (winsock_lib != NULL)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4420 return TRUE;
15342
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4421
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4422 pfn_SetHandleInformation = NULL;
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4423 pfn_SetHandleInformation
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4424 = (void *) GetProcAddress (GetModuleHandle ("kernel32.dll"),
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4425 "SetHandleInformation");
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4426
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4427 winsock_lib = LoadLibrary ("Ws2_32.dll");
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4428
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4429 if (winsock_lib != NULL)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4430 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4431 /* dynamically link to socket functions */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4432
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4433 #define LOAD_PROC(fn) \
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4434 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
4435 goto fail;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4436
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4437 LOAD_PROC( WSAStartup );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4438 LOAD_PROC( WSASetLastError );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4439 LOAD_PROC( WSAGetLastError );
71889
2385a5c8186c Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents: 70740
diff changeset
4440 LOAD_PROC( WSAEventSelect );
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4441 LOAD_PROC( WSACreateEvent );
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4442 LOAD_PROC( WSACloseEvent );
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4443 LOAD_PROC( socket );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4444 LOAD_PROC( bind );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4445 LOAD_PROC( connect );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4446 LOAD_PROC( ioctlsocket );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4447 LOAD_PROC( recv );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4448 LOAD_PROC( send );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4449 LOAD_PROC( closesocket );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4450 LOAD_PROC( shutdown );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4451 LOAD_PROC( htons );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4452 LOAD_PROC( ntohs );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4453 LOAD_PROC( inet_addr );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4454 LOAD_PROC( gethostname );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4455 LOAD_PROC( gethostbyname );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4456 LOAD_PROC( getservbyname );
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4457 LOAD_PROC( getpeername );
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4458 LOAD_PROC( WSACleanup );
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4459 LOAD_PROC( setsockopt );
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4460 LOAD_PROC( listen );
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4461 LOAD_PROC( getsockname );
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4462 LOAD_PROC( accept );
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4463 LOAD_PROC( recvfrom );
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4464 LOAD_PROC( sendto );
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4465 #undef LOAD_PROC
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4466
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4467 /* specify version 1.1 of winsock */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4468 if (pfn_WSAStartup (0x101, &winsockData) == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4469 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4470 if (winsockData.wVersion != 0x101)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4471 goto fail;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4472
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4473 if (!load_now)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4474 {
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4475 /* 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
4476 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
4477 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
4478 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
4479 connection to be established. */
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4480
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4481 pfn_WSACleanup ();
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4482 FreeLibrary (winsock_lib);
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4483 winsock_lib = NULL;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4484 }
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4485 winsock_inuse = 0;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4486 return TRUE;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4487 }
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 fail:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4490 FreeLibrary (winsock_lib);
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4491 winsock_lib = NULL;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4492 }
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4493
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4494 return FALSE;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4495 }
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 int h_errno = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4499
96462
c74d39c72729 Spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 96376
diff changeset
4500 /* 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
4501 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
4502 are already in <sys/socket.h> */
74947
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
4503 static void
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
4504 set_errno ()
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4505 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4506 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4507 h_errno = EINVAL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4508 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4509 h_errno = pfn_WSAGetLastError ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4510
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4511 switch (h_errno)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4512 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4513 case WSAEACCES: h_errno = EACCES; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4514 case WSAEBADF: h_errno = EBADF; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4515 case WSAEFAULT: h_errno = EFAULT; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4516 case WSAEINTR: h_errno = EINTR; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4517 case WSAEINVAL: h_errno = EINVAL; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4518 case WSAEMFILE: h_errno = EMFILE; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4519 case WSAENAMETOOLONG: h_errno = ENAMETOOLONG; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4520 case WSAENOTEMPTY: h_errno = ENOTEMPTY; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4521 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4522 errno = h_errno;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4523 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4524
74947
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
4525 static void
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
4526 check_errno ()
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4527 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4528 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
4529 pfn_WSASetLastError (0);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4530 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4531
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4532 /* Extend strerror to handle the winsock-specific error codes. */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4533 struct {
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4534 int errnum;
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4535 char * msg;
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4536 } _wsa_errlist[] = {
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4537 WSAEINTR , "Interrupted function call",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4538 WSAEBADF , "Bad file descriptor",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4539 WSAEACCES , "Permission denied",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4540 WSAEFAULT , "Bad address",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4541 WSAEINVAL , "Invalid argument",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4542 WSAEMFILE , "Too many open files",
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4543
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4544 WSAEWOULDBLOCK , "Resource temporarily unavailable",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4545 WSAEINPROGRESS , "Operation now in progress",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4546 WSAEALREADY , "Operation already in progress",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4547 WSAENOTSOCK , "Socket operation on non-socket",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4548 WSAEDESTADDRREQ , "Destination address required",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4549 WSAEMSGSIZE , "Message too long",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4550 WSAEPROTOTYPE , "Protocol wrong type for socket",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4551 WSAENOPROTOOPT , "Bad protocol option",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4552 WSAEPROTONOSUPPORT , "Protocol not supported",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4553 WSAESOCKTNOSUPPORT , "Socket type not supported",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4554 WSAEOPNOTSUPP , "Operation not supported",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4555 WSAEPFNOSUPPORT , "Protocol family not supported",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4556 WSAEAFNOSUPPORT , "Address family not supported by protocol family",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4557 WSAEADDRINUSE , "Address already in use",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4558 WSAEADDRNOTAVAIL , "Cannot assign requested address",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4559 WSAENETDOWN , "Network is down",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4560 WSAENETUNREACH , "Network is unreachable",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4561 WSAENETRESET , "Network dropped connection on reset",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4562 WSAECONNABORTED , "Software caused connection abort",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4563 WSAECONNRESET , "Connection reset by peer",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4564 WSAENOBUFS , "No buffer space available",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4565 WSAEISCONN , "Socket is already connected",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4566 WSAENOTCONN , "Socket is not connected",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4567 WSAESHUTDOWN , "Cannot send after socket shutdown",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4568 WSAETOOMANYREFS , "Too many references", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4569 WSAETIMEDOUT , "Connection timed out",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4570 WSAECONNREFUSED , "Connection refused",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4571 WSAELOOP , "Network loop", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4572 WSAENAMETOOLONG , "Name is too long",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4573 WSAEHOSTDOWN , "Host is down",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4574 WSAEHOSTUNREACH , "No route to host",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4575 WSAENOTEMPTY , "Buffer not empty", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4576 WSAEPROCLIM , "Too many processes",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4577 WSAEUSERS , "Too many users", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4578 WSAEDQUOT , "Double quote in host name", /* really not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4579 WSAESTALE , "Data is stale", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4580 WSAEREMOTE , "Remote error", /* not sure */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4581
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4582 WSASYSNOTREADY , "Network subsystem is unavailable",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4583 WSAVERNOTSUPPORTED , "WINSOCK.DLL version out of range",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4584 WSANOTINITIALISED , "Winsock not initialized successfully",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4585 WSAEDISCON , "Graceful shutdown in progress",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4586 #ifdef WSAENOMORE
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4587 WSAENOMORE , "No more operations allowed", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4588 WSAECANCELLED , "Operation cancelled", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4589 WSAEINVALIDPROCTABLE , "Invalid procedure table from service provider",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4590 WSAEINVALIDPROVIDER , "Invalid service provider version number",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4591 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
4592 WSASYSCALLFAILURE , "System call failure",
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4593 WSASERVICE_NOT_FOUND , "Service not found", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4594 WSATYPE_NOT_FOUND , "Class type not found",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4595 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
4596 WSA_E_CANCELLED , "Operation already cancelled", /* really not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4597 WSAEREFUSED , "Operation refused", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4598 #endif
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4599
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4600 WSAHOST_NOT_FOUND , "Host not found",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4601 WSATRY_AGAIN , "Authoritative host not found during name lookup",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4602 WSANO_RECOVERY , "Non-recoverable error during name lookup",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4603 WSANO_DATA , "Valid name, no data record of requested type",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4604
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4605 -1, NULL
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4606 };
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 char *
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4609 sys_strerror(int error_no)
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4610 {
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4611 int i;
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4612 static char unknown_msg[40];
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4613
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
4614 if (error_no >= 0 && error_no < sys_nerr)
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
4615 return sys_errlist[error_no];
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4616
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4617 for (i = 0; _wsa_errlist[i].errnum >= 0; i++)
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4618 if (_wsa_errlist[i].errnum == error_no)
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4619 return _wsa_errlist[i].msg;
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4620
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4621 sprintf(unknown_msg, "Unidentified error: %d", error_no);
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4622 return unknown_msg;
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4623 }
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4624
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4625 /* [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
4626 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
4627 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
4628
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4629 //#define SOCK_REPLACE_HANDLE
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4630
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4631 #ifdef SOCK_REPLACE_HANDLE
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4632 #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
4633 #else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4634 #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
4635 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4636
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4637 int socket_to_fd (SOCKET s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4638
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4639 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4640 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
4641 {
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4642 SOCKET s;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4643
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4644 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4645 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4646 h_errno = ENETDOWN;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4647 return INVALID_SOCKET;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4648 }
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 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4651
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4652 /* call the real socket function */
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4653 s = pfn_socket (af, type, protocol);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4654
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4655 if (s != INVALID_SOCKET)
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4656 return socket_to_fd (s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4657
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4658 set_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4659 return -1;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4660 }
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 /* 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
4663 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4664 socket_to_fd (SOCKET s)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4665 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4666 int fd;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4667 child_process * cp;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4668
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4669 /* 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
4670 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
4671 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
4672 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
4673 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
4674
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4675 /* 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
4676 fd = _open ("NUL:", _O_RDWR);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4677 if (fd >= 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4678 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4679 #ifdef SOCK_REPLACE_HANDLE
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4680 /* 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
4681 CloseHandle ((HANDLE) _get_osfhandle (fd));
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4682 _free_osfhnd (fd);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4683 _set_osfhnd (fd, s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4684 /* setmode (fd, _O_BINARY); */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4685 #else
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4686 /* 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
4687 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
4688 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
4689 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
4690 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4691 /* 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
4692 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
4693 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
4694 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
4695 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
4696 if (pfn_SetHandleInformation)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4697 {
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4698 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
4699 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4700 else
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4701 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4702 HANDLE parent = GetCurrentProcess ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4703 HANDLE new_s = INVALID_HANDLE_VALUE;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4704
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4705 if (DuplicateHandle (parent,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4706 (HANDLE) s,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4707 parent,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4708 &new_s,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4709 0,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4710 FALSE,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4711 DUPLICATE_SAME_ACCESS))
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
4712 {
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4713 /* 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
4714 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
4715 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
4716 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
4717 long nonblocking = 0;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4718 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
4719 {
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4720 pfn_closesocket (s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4721 s = (SOCKET) new_s;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4722 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4723 else
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4724 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4725 CloseHandle (new_s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4726 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4727 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4728 }
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4729 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4730 fd_info[fd].hnd = (HANDLE) s;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4731 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4732
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4733 /* set our own internal flags */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4734 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
4735
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4736 cp = new_child ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4737 if (cp)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4738 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4739 cp->fd = fd;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4740 cp->status = STATUS_READ_ACKNOWLEDGED;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4741
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4742 /* attach child_process to fd_info */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4743 if (fd_info[ fd ].cp != NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4744 {
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4745 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
4746 abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4747 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4748
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4749 fd_info[ fd ].cp = cp;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4750
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4751 /* success! */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4752 winsock_inuse++; /* count open sockets */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4753 return fd;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4754 }
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4755
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4756 /* clean up */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4757 _close (fd);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4758 }
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4759 pfn_closesocket (s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4760 h_errno = EMFILE;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4761 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4762 }
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 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4766 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
4767 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4768 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4769 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4770 h_errno = ENOTSOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4771 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4772 }
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 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4775 if (fd_info[s].flags & FILE_SOCKET)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4776 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4777 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
4778 if (rc == SOCKET_ERROR)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4779 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4780 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4781 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4782 h_errno = ENOTSOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4783 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4784 }
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 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4788 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
4789 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4790 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4791 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4792 h_errno = ENOTSOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4793 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4794 }
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 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4797 if (fd_info[s].flags & FILE_SOCKET)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4798 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4799 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
4800 if (rc == SOCKET_ERROR)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4801 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4802 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4803 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4804 h_errno = ENOTSOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4805 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4806 }
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 u_short
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4809 sys_htons (u_short hostshort)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4810 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4811 return (winsock_lib != NULL) ?
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4812 pfn_htons (hostshort) : hostshort;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4813 }
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 u_short
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4816 sys_ntohs (u_short netshort)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4817 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4818 return (winsock_lib != NULL) ?
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4819 pfn_ntohs (netshort) : netshort;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4820 }
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 unsigned long
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4823 sys_inet_addr (const char * cp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4824 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4825 return (winsock_lib != NULL) ?
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4826 pfn_inet_addr (cp) : INADDR_NONE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4827 }
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 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4830 sys_gethostname (char * name, int namelen)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4831 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4832 if (winsock_lib != NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4833 return pfn_gethostname (name, namelen);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4834
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4835 if (namelen > MAX_COMPUTERNAME_LENGTH)
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
4836 return !GetComputerName (name, (DWORD *)&namelen);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4837
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4838 h_errno = EFAULT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4839 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4840 }
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 struct hostent *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4843 sys_gethostbyname(const char * name)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4844 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4845 struct hostent * host;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4846
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4847 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4848 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4849 h_errno = ENETDOWN;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4850 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4851 }
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 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4854 host = pfn_gethostbyname (name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4855 if (!host)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4856 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4857 return host;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4858 }
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 struct servent *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4861 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
4862 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4863 struct servent * serv;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4864
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4865 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4866 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4867 h_errno = ENETDOWN;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4868 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4869 }
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 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4872 serv = pfn_getservbyname (name, proto);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4873 if (!serv)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4874 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4875 return serv;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4876 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4877
18725
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4878 int
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4879 sys_getpeername (int s, struct sockaddr *addr, int * namelen)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4880 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4881 if (winsock_lib == NULL)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4882 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4883 h_errno = ENETDOWN;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4884 return SOCKET_ERROR;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4885 }
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 check_errno ();
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4888 if (fd_info[s].flags & FILE_SOCKET)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4889 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4890 int rc = pfn_getpeername (SOCK_HANDLE (s), addr, namelen);
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4891 if (rc == SOCKET_ERROR)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4892 set_errno ();
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4893 return rc;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4894 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4895 h_errno = ENOTSOCK;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4896 return SOCKET_ERROR;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4897 }
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 int
18725
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4901 sys_shutdown (int s, int how)
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4902 {
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4903 if (winsock_lib == NULL)
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4904 {
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4905 h_errno = ENETDOWN;
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4906 return SOCKET_ERROR;
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4907 }
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 check_errno ();
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4910 if (fd_info[s].flags & FILE_SOCKET)
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4911 {
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4912 int rc = pfn_shutdown (SOCK_HANDLE (s), how);
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4913 if (rc == SOCKET_ERROR)
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4914 set_errno ();
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4915 return rc;
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4916 }
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4917 h_errno = ENOTSOCK;
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4918 return SOCKET_ERROR;
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4919 }
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4920
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4921 int
63038
ac1cd1222417 (sys_setsockopt): Change arg 4 to `const void *'. In the
Eli Zaretskii <eliz@gnu.org>
parents: 63020
diff changeset
4922 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
4923 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4924 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4925 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4926 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4927 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4928 }
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 check_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4931 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
4932 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4933 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
4934 (const char *)optval, optlen);
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4935 if (rc == SOCKET_ERROR)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4936 set_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4937 return rc;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4938 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4939 h_errno = ENOTSOCK;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4940 return SOCKET_ERROR;
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4941 }
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 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4944 sys_listen (int s, int backlog)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4945 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4946 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4947 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4948 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4949 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4950 }
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 check_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4953 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
4954 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4955 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
4956 if (rc == SOCKET_ERROR)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4957 set_errno ();
71889
2385a5c8186c Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents: 70740
diff changeset
4958 else
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4959 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
4960 return rc;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4961 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4962 h_errno = ENOTSOCK;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4963 return SOCKET_ERROR;
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4964 }
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 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4967 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
4968 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4969 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4970 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4971 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4972 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4973 }
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 check_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4976 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
4977 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4978 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
4979 if (rc == SOCKET_ERROR)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4980 set_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4981 return rc;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4982 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4983 h_errno = ENOTSOCK;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4984 return SOCKET_ERROR;
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4985 }
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 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4988 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
4989 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4990 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4991 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4992 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4993 return -1;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4994 }
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 check_errno ();
71889
2385a5c8186c Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents: 70740
diff changeset
4997 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
4998 {
44437
81e8a128e49f (sys_accept): Don't hide variable `s'.
Juanma Barranquero <lekktu@gmail.com>
parents: 44042
diff changeset
4999 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
5000 int fd = -1;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5001 if (t == INVALID_SOCKET)
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5002 set_errno ();
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5003 else
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5004 fd = socket_to_fd (t);
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5005
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5006 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
5007 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
5008 return fd;
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5009 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5010 h_errno = ENOTSOCK;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5011 return -1;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5012 }
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 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5015 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
5016 struct sockaddr * from, int * fromlen)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5017 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5018 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5019 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5020 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5021 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5022 }
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 check_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5025 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
5026 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5027 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
5028 if (rc == SOCKET_ERROR)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5029 set_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5030 return rc;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5031 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5032 h_errno = ENOTSOCK;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5033 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5034 }
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 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5037 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
5038 const struct sockaddr * to, int tolen)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5039 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5040 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5041 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5042 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5043 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5044 }
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 check_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5047 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
5048 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5049 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
5050 if (rc == SOCKET_ERROR)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5051 set_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5052 return rc;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5053 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5054 h_errno = ENOTSOCK;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5055 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5056 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
5057
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5058 /* 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
5059 solely for making sockets non-blocking. */
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5060 int
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5061 fcntl (int s, int cmd, int options)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5062 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5063 if (winsock_lib == NULL)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5064 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5065 h_errno = ENETDOWN;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5066 return -1;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5067 }
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 check_errno ();
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5070 if (fd_info[s].flags & FILE_SOCKET)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5071 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5072 if (cmd == F_SETFL && options == O_NDELAY)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5073 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5074 unsigned long nblock = 1;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5075 int rc = pfn_ioctlsocket (SOCK_HANDLE (s), FIONBIO, &nblock);
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5076 if (rc == SOCKET_ERROR)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5077 set_errno();
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5078 /* 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
5079 fd_info[s].flags |= FILE_NDELAY;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5080 return rc;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5081 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5082 else
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5083 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5084 h_errno = EINVAL;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5085 return SOCKET_ERROR;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5086 }
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 h_errno = ENOTSOCK;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5089 return SOCKET_ERROR;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5090 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5091
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5092 #endif /* HAVE_SOCKETS */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5093
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 /* 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
5096 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
5097
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5098 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5099 sys_close (int fd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5100 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5101 int rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5102
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
5103 if (fd < 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5104 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5105 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5106 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5107 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5108
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
5109 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
5110 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5111 child_process * cp = fd_info[fd].cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5112
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5113 fd_info[fd].cp = NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5114
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5115 if (CHILD_ACTIVE (cp))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5116 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5117 /* 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
5118 int i;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5119 for (i = 0; i < MAXDESC; i++)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5120 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5121 if (i == fd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5122 continue;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5123 if (fd_info[i].cp == cp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5124 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5125 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5126 if (i == MAXDESC)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5127 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5128 #ifdef HAVE_SOCKETS
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5129 if (fd_info[fd].flags & FILE_SOCKET)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5130 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5131 #ifndef SOCK_REPLACE_HANDLE
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5132 if (winsock_lib == NULL) abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5133
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5134 pfn_shutdown (SOCK_HANDLE (fd), 2);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5135 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
5136 #endif
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5137 winsock_inuse--; /* count open sockets */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5138 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5139 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5140 delete_child (cp);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5141 }
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 /* 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
5146 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
5147 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
5148 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
5149 rc = _close (fd);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5150
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
5151 if (rc == 0 && fd < MAXDESC)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5152 fd_info[fd].flags = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5153
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5154 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5155 }
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 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5158 sys_dup (int fd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5159 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5160 int new_fd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5161
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5162 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
5163 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
5164 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5165 /* duplicate our internal info as well */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5166 fd_info[new_fd] = fd_info[fd];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5167 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5168 return new_fd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5169 }
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 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5173 sys_dup2 (int src, int dst)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5174 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5175 int rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5176
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5177 if (dst < 0 || dst >= MAXDESC)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5178 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5179 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5180 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5181 }
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 /* 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
5184 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
5185 sys_close (dst);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5186
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5187 rc = _dup2 (src, dst);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5188 if (rc == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5189 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5190 /* duplicate our internal info as well */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5191 fd_info[dst] = fd_info[src];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5192 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5193 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5194 }
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 /* Unix pipe() has only one arg */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5197 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5198 sys_pipe (int * phandles)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5199 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5200 int rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5201 unsigned flags;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5202
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5203 /* 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
5204 replace the relevant handle with an inheritable one. Also put
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5205 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
5206 if required. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5207 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
5208
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5209 if (rc == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5210 {
52353
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5211 /* 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
5212 our fd_info array has room for. */
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5213 if (phandles[0] >= MAXDESC || phandles[1] >= MAXDESC)
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5214 {
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5215 _close (phandles[0]);
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5216 _close (phandles[1]);
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5217 rc = -1;
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5218 }
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5219 else
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5220 {
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5221 flags = FILE_PIPE | FILE_READ | FILE_BINARY;
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5222 fd_info[phandles[0]].flags = flags;
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5223
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5224 flags = FILE_PIPE | FILE_WRITE | FILE_BINARY;
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5225 fd_info[phandles[1]].flags = flags;
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5226 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5227 }
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 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5230 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5231
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5232 /* From ntproc.c */
55643
ed93b07d7123 (_sys_read_ahead): Use w32_pipe_read_delay.
Jason Rumney <jasonr@gnu.org>
parents: 53123
diff changeset
5233 extern int w32_pipe_read_delay;
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5234
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5235 /* 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
5236 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
5237 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5238 _sys_read_ahead (int fd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5239 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5240 child_process * cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5241 int rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5242
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5243 if (fd < 0 || fd >= MAXDESC)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5244 return STATUS_READ_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5245
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5246 cp = fd_info[fd].cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5247
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5248 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
5249 return STATUS_READ_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5250
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5251 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
5252 || (fd_info[fd].flags & FILE_READ) == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5253 {
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5254 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
5255 abort ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5256 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5257
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5258 cp->status = STATUS_READ_IN_PROGRESS;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5259
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5260 if (fd_info[fd].flags & FILE_PIPE)
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5261 {
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5262 rc = _read (fd, &cp->chr, sizeof (char));
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5263
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5264 /* 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
5265 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
5266 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
5267 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
5268 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
5269 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
5270 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
5271 if (rc > 0)
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5272 {
55643
ed93b07d7123 (_sys_read_ahead): Use w32_pipe_read_delay.
Jason Rumney <jasonr@gnu.org>
parents: 53123
diff changeset
5273 int wait = w32_pipe_read_delay;
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5274
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5275 if (wait > 0)
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5276 Sleep (wait);
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5277 else if (wait < 0)
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5278 while (++wait <= 0)
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5279 /* 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
5280 temporary priority boost to the child process. */
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5281 Sleep (0);
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5282 }
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5283 }
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5284 else if (fd_info[fd].flags & FILE_SERIAL)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5285 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5286 HANDLE hnd = fd_info[fd].hnd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5287 OVERLAPPED *ovl = &fd_info[fd].cp->ovl_read;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5288 COMMTIMEOUTS ct;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5289
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5290 /* Configure timeouts for blocking read. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5291 if (!GetCommTimeouts (hnd, &ct))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5292 return STATUS_READ_ERROR;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5293 ct.ReadIntervalTimeout = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5294 ct.ReadTotalTimeoutMultiplier = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5295 ct.ReadTotalTimeoutConstant = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5296 if (!SetCommTimeouts (hnd, &ct))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5297 return STATUS_READ_ERROR;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5298
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5299 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
5300 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5301 if (GetLastError () != ERROR_IO_PENDING)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5302 return STATUS_READ_ERROR;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5303 if (!GetOverlappedResult (hnd, ovl, (DWORD*) &rc, TRUE))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5304 return STATUS_READ_ERROR;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5305 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5306 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5307 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5308 else if (fd_info[fd].flags & FILE_SOCKET)
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5309 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5310 unsigned long nblock = 0;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5311 /* 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
5312 if (fd_info[fd].flags & FILE_NDELAY)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5313 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONBIO, &nblock);
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5314
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5315 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
5316
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5317 if (fd_info[fd].flags & FILE_NDELAY)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5318 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5319 nblock = 1;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5320 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONBIO, &nblock);
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5321 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5322 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5323 #endif
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5324
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5325 if (rc == sizeof (char))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5326 cp->status = STATUS_READ_SUCCEEDED;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5327 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5328 cp->status = STATUS_READ_FAILED;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5329
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5330 return cp->status;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5331 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5332
74947
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
5333 int
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
5334 _sys_wait_accept (int fd)
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5335 {
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5336 HANDLE hEv;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5337 child_process * cp;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5338 int rc;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5339
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5340 if (fd < 0 || fd >= MAXDESC)
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5341 return STATUS_READ_ERROR;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5342
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5343 cp = fd_info[fd].cp;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5344
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5345 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
5346 return STATUS_READ_ERROR;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5347
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5348 cp->status = STATUS_READ_FAILED;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5349
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5350 hEv = pfn_WSACreateEvent ();
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5351 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
5352 if (rc != SOCKET_ERROR)
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5353 {
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5354 rc = WaitForSingleObject (hEv, INFINITE);
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5355 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
5356 if (rc == WAIT_OBJECT_0)
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5357 cp->status = STATUS_READ_SUCCEEDED;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5358 }
74786
4f26e07fd85d (_sys_wait_accept): Fix handle leak.
Kim F. Storm <storm@cua.dk>
parents: 72631
diff changeset
5359 pfn_WSACloseEvent (hEv);
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5360
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5361 return cp->status;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5362 }
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5363
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5364 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5365 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
5366 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5367 int nchars;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5368 int to_read;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5369 DWORD waiting;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5370 char * orig_buffer = buffer;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5371
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
5372 if (fd < 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5373 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5374 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5375 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5376 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5377
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5378 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
5379 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5380 child_process *cp = fd_info[fd].cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5381
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5382 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
5383 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5384 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5385 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5386 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5387
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5388 nchars = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5389
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5390 /* re-read CR carried over from last read */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5391 if (fd_info[fd].flags & FILE_LAST_CR)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5392 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5393 if (fd_info[fd].flags & FILE_BINARY) abort ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5394 *buffer++ = 0x0d;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5395 count--;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5396 nchars++;
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5397 fd_info[fd].flags &= ~FILE_LAST_CR;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5398 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5399
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5400 /* 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
5401 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
5402 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
5403 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
5404 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
5405 if (cp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5406 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5407 int current_status = cp->status;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5408
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5409 switch (current_status)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5410 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5411 case STATUS_READ_FAILED:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5412 case STATUS_READ_ERROR:
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5413 /* report normal EOF if nothing in buffer */
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5414 if (nchars <= 0)
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5415 fd_info[fd].flags |= FILE_AT_EOF;
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5416 return nchars;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5417
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5418 case STATUS_READ_READY:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5419 case STATUS_READ_IN_PROGRESS:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5420 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
5421 errno = EWOULDBLOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5422 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5423
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5424 case STATUS_READ_SUCCEEDED:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5425 /* consume read-ahead char */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5426 *buffer++ = cp->chr;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5427 count--;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5428 nchars++;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5429 cp->status = STATUS_READ_ACKNOWLEDGED;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5430 ResetEvent (cp->char_avail);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5431
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5432 case STATUS_READ_ACKNOWLEDGED:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5433 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5434
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5435 default:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5436 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
5437 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5438 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5439 }
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 if (fd_info[fd].flags & FILE_PIPE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5442 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5443 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
5444 to_read = min (waiting, (DWORD) count);
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5445
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5446 if (to_read > 0)
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5447 nchars += _read (fd, buffer, to_read);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5448 }
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5449 else if (fd_info[fd].flags & FILE_SERIAL)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5450 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5451 HANDLE hnd = fd_info[fd].hnd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5452 OVERLAPPED *ovl = &fd_info[fd].cp->ovl_read;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5453 DWORD err = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5454 int rc = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5455 COMMTIMEOUTS ct;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5456
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5457 if (count > 0)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5458 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5459 /* Configure timeouts for non-blocking read. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5460 if (!GetCommTimeouts (hnd, &ct))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5461 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5462 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5463 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5464 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5465 ct.ReadIntervalTimeout = MAXDWORD;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5466 ct.ReadTotalTimeoutMultiplier = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5467 ct.ReadTotalTimeoutConstant = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5468 if (!SetCommTimeouts (hnd, &ct))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5469 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5470 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5471 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5472 }
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 if (!ResetEvent (ovl->hEvent))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5475 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5476 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5477 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5478 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5479 if (!ReadFile (hnd, buffer, count, (DWORD*) &rc, ovl))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5480 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5481 if (GetLastError () != ERROR_IO_PENDING)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5482 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5483 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5484 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5485 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5486 if (!GetOverlappedResult (hnd, ovl, (DWORD*) &rc, TRUE))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5487 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5488 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5489 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5490 }
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 nchars += rc;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5493 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5494 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5495 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5496 else /* FILE_SOCKET */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5497 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5498 if (winsock_lib == NULL) abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5499
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5500 /* 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
5501 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONREAD, &waiting);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5502 if (waiting == 0 && nchars == 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5503 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5504 h_errno = errno = EWOULDBLOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5505 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5506 }
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 if (waiting)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5509 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5510 /* always use binary mode for sockets */
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5511 int res = pfn_recv (SOCK_HANDLE (fd), buffer, count, 0);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5512 if (res == SOCKET_ERROR)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5513 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5514 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
5515 pfn_WSAGetLastError (), SOCK_HANDLE (fd)));
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5516 set_errno ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5517 return -1;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5518 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5519 nchars += res;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5520 }
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 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5523 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5524 else
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5525 {
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5526 int nread = _read (fd, buffer, count);
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5527 if (nread >= 0)
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5528 nchars += nread;
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5529 else if (nchars == 0)
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5530 nchars = nread;
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5531 }
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 if (nchars <= 0)
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5534 fd_info[fd].flags |= FILE_AT_EOF;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5535 /* Perform text mode translation if required. */
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5536 else if ((fd_info[fd].flags & FILE_BINARY) == 0)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5537 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5538 nchars = crlf_to_lf (nchars, orig_buffer);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5539 /* If buffer contains only CR, return that. To be absolutely
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5540 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
5541 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
5542 itself in the buffer. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5543 if (nchars > 1 && orig_buffer[nchars - 1] == 0x0d)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5544 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5545 fd_info[fd].flags |= FILE_LAST_CR;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5546 nchars--;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5547 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5548 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5549 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5550 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5551 nchars = _read (fd, buffer, count);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5552
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5553 return nchars;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5554 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5555
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5556 /* From w32xfns.c */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5557 extern HANDLE interrupt_handle;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5558
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5559 /* 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
5560 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5561 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
5562 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5563 int nchars;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5564
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
5565 if (fd < 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5566 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5567 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5568 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5569 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5570
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5571 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
5572 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5573 if ((fd_info[fd].flags & FILE_WRITE) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5574 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5575 errno = EBADF;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5576 return -1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5577 }
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 /* Perform text mode translation if required. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5580 if ((fd_info[fd].flags & FILE_BINARY) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5581 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5582 char * tmpbuf = alloca (count * 2);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5583 unsigned char * src = (void *)buffer;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5584 unsigned char * dst = tmpbuf;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5585 int nbytes = count;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5586
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5587 while (1)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5588 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5589 unsigned char *next;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5590 /* copy next line or remaining bytes */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5591 next = _memccpy (dst, src, '\n', nbytes);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5592 if (next)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5593 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5594 /* copied one line ending with '\n' */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5595 int copied = next - dst;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5596 nbytes -= copied;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5597 src += copied;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5598 /* insert '\r' before '\n' */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5599 next[-1] = '\r';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5600 next[0] = '\n';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5601 dst = next + 1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5602 count++;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5603 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5604 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5605 /* copied remaining partial line -> now finished */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5606 break;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5607 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5608 buffer = tmpbuf;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5609 }
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
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5612 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
5613 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5614 HANDLE hnd = (HANDLE) _get_osfhandle (fd);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5615 OVERLAPPED *ovl = &fd_info[fd].cp->ovl_write;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5616 HANDLE wait_hnd[2] = { interrupt_handle, ovl->hEvent };
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5617 DWORD active = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5618
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5619 if (!WriteFile (hnd, buffer, count, (DWORD*) &nchars, ovl))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5620 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5621 if (GetLastError () != ERROR_IO_PENDING)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5622 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5623 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5624 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5625 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5626 if (detect_input_pending ())
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5627 active = MsgWaitForMultipleObjects (2, wait_hnd, FALSE, INFINITE,
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5628 QS_ALLINPUT);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5629 else
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5630 active = WaitForMultipleObjects (2, wait_hnd, FALSE, INFINITE);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5631 if (active == WAIT_OBJECT_0)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5632 { /* 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
5633 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
5634 PurgeComm (hnd, PURGE_TXABORT | PURGE_TXCLEAR);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5635 CancelIo (hnd);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5636 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5637 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5638 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5639 if (active == WAIT_OBJECT_0 + 1
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5640 && !GetOverlappedResult (hnd, ovl, (DWORD*) &nchars, TRUE))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5641 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5642 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5643 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5644 }
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 else
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5648 #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
5649 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
5650 {
48545
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5651 unsigned long nblock = 0;
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5652 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
5653
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5654 /* 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
5655 /* 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
5656 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
5657 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
5658
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5659 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
5660
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5661 /* 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
5662 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
5663 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
5664 {
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5665 nblock = 1;
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5666 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
5667 }
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5668
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5669 if (nchars == SOCKET_ERROR)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5670 {
48561
b4fb06f61bfd Doc fix
Jason Rumney <jasonr@gnu.org>
parents: 48545
diff changeset
5671 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
5672 pfn_WSAGetLastError (), SOCK_HANDLE (fd)));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5673 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5674 }
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 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5677 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5678 nchars = _write (fd, buffer, count);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5679
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5680 return nchars;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5681 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5682
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5683 static void
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5684 check_windows_init_file ()
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5685 {
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5686 extern int noninteractive, inhibit_window_system;
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5687
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5688 /* 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
5689 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
5690 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
5691
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5692 if (!noninteractive && !inhibit_window_system)
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5693 {
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5694 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
5695 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
5696 Lisp_Object full_load_path;
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5697 Lisp_Object init_file;
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5698 int fd;
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5699
23809
2a6ad78388b3 (check_windows_init_file): Use decode_env_path when
Geoff Voelker <voelker@cs.washington.edu>
parents: 23622
diff changeset
5700 objs[0] = Vload_path;
2a6ad78388b3 (check_windows_init_file): Use decode_env_path when
Geoff Voelker <voelker@cs.washington.edu>
parents: 23622
diff changeset
5701 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
5702 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
5703 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
5704 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
5705 if (fd < 0)
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5706 {
23559
989c9cb875e3 (check_windows_init_file): Also look in load path specified
Geoff Voelker <voelker@cs.washington.edu>
parents: 23395
diff changeset
5707 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
5708 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
5709 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
5710 char *buffer = alloca (1024
02e47d7a9bca (check_windows_init_file): Fix allocation of error buffer.
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
5711 + strlen (init_file_name)
02e47d7a9bca (check_windows_init_file): Fix allocation of error buffer.
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
5712 + strlen (load_path));
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5713
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5714 sprintf (buffer,
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5715 "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
5716 "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
5717 "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
5718 "\n%s\n\n"
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5719 "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
5720 "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
5721 "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
5722 "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
5723 init_file_name, load_path);
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5724 MessageBox (NULL,
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5725 buffer,
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5726 "Emacs Abort Dialog",
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5727 MB_OK | MB_ICONEXCLAMATION | MB_TASKMODAL);
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5728 /* Use the low-level Emacs abort. */
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5729 #undef abort
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5730 abort ();
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5731 }
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5732 else
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5733 {
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
5734 _close (fd);
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5735 }
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5736 }
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5737 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5738
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5739 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5740 term_ntproc ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5741 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5742 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5743 /* shutdown the socket interface if necessary */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5744 term_winsock ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5745 #endif
60092
04686828d0da 2004-11-08 Benjamin Riefenstahl <Benjamin.Riefenstahl@epost.de>
Jason Rumney <jasonr@gnu.org>
parents: 57609
diff changeset
5746
04686828d0da 2004-11-08 Benjamin Riefenstahl <Benjamin.Riefenstahl@epost.de>
Jason Rumney <jasonr@gnu.org>
parents: 57609
diff changeset
5747 term_w32select ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5748 }
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 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5751 init_ntproc ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5752 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5753 #ifdef HAVE_SOCKETS
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5754 /* 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
5755 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
5756 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
5757 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
5758
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5759 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
5760 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
5761
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5762 /* Always initialize this correctly. */
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5763 winsock_lib = NULL;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5764
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5765 if (getenv ("PRELOAD_WINSOCK") != NULL)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5766 init_winsock (TRUE);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5767 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5768
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5769 /* 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
5770 handles with non-inheritable versions. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5771 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5772 HANDLE parent;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5773 HANDLE stdin_save = INVALID_HANDLE_VALUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5774 HANDLE stdout_save = INVALID_HANDLE_VALUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5775 HANDLE stderr_save = INVALID_HANDLE_VALUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5776
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5777 parent = GetCurrentProcess ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5778
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5779 /* 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
5780 handles will be invalid when running as a gui program. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5781 DuplicateHandle (parent,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5782 GetStdHandle (STD_INPUT_HANDLE),
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5783 parent,
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5784 &stdin_save,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5785 0,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5786 FALSE,
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5787 DUPLICATE_SAME_ACCESS);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5788
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5789 DuplicateHandle (parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5790 GetStdHandle (STD_OUTPUT_HANDLE),
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5791 parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5792 &stdout_save,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5793 0,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5794 FALSE,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5795 DUPLICATE_SAME_ACCESS);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5796
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5797 DuplicateHandle (parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5798 GetStdHandle (STD_ERROR_HANDLE),
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5799 parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5800 &stderr_save,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5801 0,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5802 FALSE,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5803 DUPLICATE_SAME_ACCESS);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5804
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5805 fclose (stdin);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5806 fclose (stdout);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5807 fclose (stderr);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5808
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5809 if (stdin_save != INVALID_HANDLE_VALUE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5810 _open_osfhandle ((long) stdin_save, O_TEXT);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5811 else
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5812 _open ("nul", O_TEXT | O_NOINHERIT | O_RDONLY);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5813 _fdopen (0, "r");
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5814
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5815 if (stdout_save != INVALID_HANDLE_VALUE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5816 _open_osfhandle ((long) stdout_save, O_TEXT);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5817 else
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5818 _open ("nul", O_TEXT | O_NOINHERIT | O_WRONLY);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5819 _fdopen (1, "w");
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5820
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5821 if (stderr_save != INVALID_HANDLE_VALUE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5822 _open_osfhandle ((long) stderr_save, O_TEXT);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5823 else
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5824 _open ("nul", O_TEXT | O_NOINHERIT | O_WRONLY);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5825 _fdopen (2, "w");
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5826 }
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 /* unfortunately, atexit depends on implementation of malloc */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5829 /* atexit (term_ntproc); */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5830 signal (SIGABRT, term_ntproc);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5831
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5832 /* determine which drives are fixed, for GetCachedVolumeInformation */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5833 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5834 /* GetDriveType must have trailing backslash. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5835 char drive[] = "A:\\";
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5836
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5837 /* Loop over all possible drive letters */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5838 while (*drive <= 'Z')
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5839 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5840 /* Record if this drive letter refers to a fixed drive. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5841 fixed_drives[DRIVE_INDEX (*drive)] =
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5842 (GetDriveType (drive) == DRIVE_FIXED);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5843
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5844 (*drive)++;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5845 }
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
5846
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
5847 /* Reset the volume info cache. */
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
5848 volume_cache = NULL;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5849 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5850
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5851 /* 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
5852 check_windows_init_file ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5853 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5854
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
5855 /*
72631
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5856 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
5857 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
5858 */
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5859 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
5860 {
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5861 /* 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
5862 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
5863 || 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
5864 || 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
5865 {
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5866 /* 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
5867 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
5868 }
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5869
74786
4f26e07fd85d (_sys_wait_accept): Fix handle leak.
Kim F. Storm <storm@cua.dk>
parents: 72631
diff changeset
5870 /* 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
5871 return FALSE;
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5872 }
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 /*
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
5875 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
5876 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
5877 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
5878 */
74947
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
5879 void
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
5880 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
5881 {
81421
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
5882 HMODULE kernel32 = GetModuleHandle ("kernel32.dll");
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
5883
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
5884 get_process_times_fn = (GetProcessTimes_Proc)
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
5885 GetProcAddress (kernel32, "GetProcessTimes");
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
5886
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
5887 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
5888 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
5889 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
5890 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
5891 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
5892 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
5893 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
5894 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
5895 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
5896 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
5897 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
5898 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
5899 g_b_init_process32_first = 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
5900 g_b_init_process32_next = 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
5901 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
5902 g_b_init_impersonate_self = 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
5903 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
5904 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
5905 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
5906 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
5907 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
5908 g_b_init_equal_sid = 0;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
5909 g_b_init_copy_sid = 0;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
5910 g_b_init_get_length_sid = 0;
103718
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
5911 g_b_init_get_native_system_info = 0;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
5912 g_b_init_get_system_times = 0;
9a76dfa56921 Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 103624
diff changeset
5913 num_of_processors = 0;
72631
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5914 /* 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
5915 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
5916 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
5917 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
5918 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
5919
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
5920 /* "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
5921 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
5922 }
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
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5924 /* For make-serial-process */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5925 int serial_open (char *port)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5926 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5927 HANDLE hnd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5928 child_process *cp;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5929 int fd = -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5930
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5931 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
5932 OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5933 if (hnd == INVALID_HANDLE_VALUE)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5934 error ("Could not open %s", port);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5935 fd = (int) _open_osfhandle ((int) hnd, 0);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5936 if (fd == -1)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5937 error ("Could not open %s", port);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5938
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5939 cp = new_child ();
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5940 if (!cp)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5941 error ("Could not create child process");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5942 cp->fd = fd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5943 cp->status = STATUS_READ_ACKNOWLEDGED;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5944 fd_info[ fd ].hnd = hnd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5945 fd_info[ fd ].flags |=
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5946 FILE_READ | FILE_WRITE | FILE_BINARY | FILE_SERIAL;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5947 if (fd_info[ fd ].cp != NULL)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5948 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5949 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
5950 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5951 fd_info[ fd ].cp = cp;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5952 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
5953 if (cp->ovl_read.hEvent == NULL)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5954 error ("Could not create read event");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5955 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
5956 if (cp->ovl_write.hEvent == NULL)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5957 error ("Could not create write event");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5958
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5959 return fd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5960 }
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 /* For serial-process-configure */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5963 void
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5964 serial_configure (struct Lisp_Process *p,
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5965 Lisp_Object contact)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5966 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5967 Lisp_Object childp2 = Qnil;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5968 Lisp_Object tem = Qnil;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5969 HANDLE hnd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5970 DCB dcb;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5971 COMMTIMEOUTS ct;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5972 char summary[4] = "???"; /* This usually becomes "8N1". */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5973
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5974 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
5975 error ("Not a serial process");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5976 hnd = fd_info[ p->outfd ].hnd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5977
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5978 childp2 = Fcopy_sequence (p->childp);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5979
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5980 /* Initialize timeouts for blocking read and blocking write. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5981 if (!GetCommTimeouts (hnd, &ct))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5982 error ("GetCommTimeouts() failed");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5983 ct.ReadIntervalTimeout = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5984 ct.ReadTotalTimeoutMultiplier = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5985 ct.ReadTotalTimeoutConstant = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5986 ct.WriteTotalTimeoutMultiplier = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5987 ct.WriteTotalTimeoutConstant = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5988 if (!SetCommTimeouts (hnd, &ct))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5989 error ("SetCommTimeouts() failed");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5990 /* Read port attributes and prepare default configuration. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5991 memset (&dcb, 0, sizeof (dcb));
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5992 dcb.DCBlength = sizeof (DCB);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5993 if (!GetCommState (hnd, &dcb))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5994 error ("GetCommState() failed");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5995 dcb.fBinary = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5996 dcb.fNull = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5997 dcb.fAbortOnError = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5998 /* 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
5999 dcb.ErrorChar = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6000 dcb.EofChar = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6001 dcb.EvtChar = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6002
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6003 /* Configure speed. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6004 if (!NILP (Fplist_member (contact, QCspeed)))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6005 tem = Fplist_get (contact, QCspeed);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6006 else
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6007 tem = Fplist_get (p->childp, QCspeed);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6008 CHECK_NUMBER (tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6009 dcb.BaudRate = XINT (tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6010 childp2 = Fplist_put (childp2, QCspeed, tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6011
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6012 /* Configure bytesize. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6013 if (!NILP (Fplist_member (contact, QCbytesize)))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6014 tem = Fplist_get (contact, QCbytesize);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6015 else
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6016 tem = Fplist_get (p->childp, QCbytesize);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6017 if (NILP (tem))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6018 tem = make_number (8);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6019 CHECK_NUMBER (tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6020 if (XINT (tem) != 7 && XINT (tem) != 8)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6021 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
6022 dcb.ByteSize = XINT (tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6023 summary[0] = XINT (tem) + '0';
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6024 childp2 = Fplist_put (childp2, QCbytesize, tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6025
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6026 /* Configure parity. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6027 if (!NILP (Fplist_member (contact, QCparity)))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6028 tem = Fplist_get (contact, QCparity);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6029 else
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6030 tem = Fplist_get (p->childp, QCparity);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6031 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
6032 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
6033 dcb.fParity = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6034 dcb.Parity = NOPARITY;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6035 dcb.fErrorChar = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6036 if (NILP (tem))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6037 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6038 summary[1] = 'N';
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6039 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6040 else if (EQ (tem, Qeven))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6041 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6042 summary[1] = 'E';
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6043 dcb.fParity = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6044 dcb.Parity = EVENPARITY;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6045 dcb.fErrorChar = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6046 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6047 else if (EQ (tem, Qodd))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6048 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6049 summary[1] = 'O';
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6050 dcb.fParity = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6051 dcb.Parity = ODDPARITY;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6052 dcb.fErrorChar = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6053 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6054 childp2 = Fplist_put (childp2, QCparity, tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6055
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6056 /* Configure stopbits. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6057 if (!NILP (Fplist_member (contact, QCstopbits)))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6058 tem = Fplist_get (contact, QCstopbits);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6059 else
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6060 tem = Fplist_get (p->childp, QCstopbits);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6061 if (NILP (tem))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6062 tem = make_number (1);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6063 CHECK_NUMBER (tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6064 if (XINT (tem) != 1 && XINT (tem) != 2)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6065 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
6066 summary[2] = XINT (tem) + '0';
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6067 if (XINT (tem) == 1)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6068 dcb.StopBits = ONESTOPBIT;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6069 else if (XINT (tem) == 2)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6070 dcb.StopBits = TWOSTOPBITS;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6071 childp2 = Fplist_put (childp2, QCstopbits, tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6072
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6073 /* Configure flowcontrol. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6074 if (!NILP (Fplist_member (contact, QCflowcontrol)))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6075 tem = Fplist_get (contact, QCflowcontrol);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6076 else
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6077 tem = Fplist_get (p->childp, QCflowcontrol);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6078 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
6079 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
6080 dcb.fOutxCtsFlow = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6081 dcb.fOutxDsrFlow = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6082 dcb.fDtrControl = DTR_CONTROL_DISABLE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6083 dcb.fDsrSensitivity = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6084 dcb.fTXContinueOnXoff = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6085 dcb.fOutX = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6086 dcb.fInX = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6087 dcb.fRtsControl = RTS_CONTROL_DISABLE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6088 dcb.XonChar = 17; /* Control-Q */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6089 dcb.XoffChar = 19; /* Control-S */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6090 if (NILP (tem))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6091 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6092 /* Already configured. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6093 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6094 else if (EQ (tem, Qhw))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6095 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6096 dcb.fRtsControl = RTS_CONTROL_HANDSHAKE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6097 dcb.fOutxCtsFlow = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6098 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6099 else if (EQ (tem, Qsw))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6100 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6101 dcb.fOutX = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6102 dcb.fInX = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6103 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6104 childp2 = Fplist_put (childp2, QCflowcontrol, tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6105
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6106 /* Activate configuration. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6107 if (!SetCommState (hnd, &dcb))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6108 error ("SetCommState() failed");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6109
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6110 childp2 = Fplist_put (childp2, QCsummary, build_string (summary));
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6111 p->childp = childp2;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6112 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
6113
78028
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
6114 /* end of w32.c */
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52353
diff changeset
6115
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52353
diff changeset
6116 /* arch-tag: 90442dd3-37be-482b-b272-ac752e3049f1
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52353
diff changeset
6117 (do not change this comment) */