Mercurial > emacs
annotate src/w32.c @ 99492:ee792794d888
(isearch-search-fun): Compare the length of the
current search string with the length of the string from the
previous search state to detect the situation when the user
adds or removes characters in the search string.
Use word-search-forward-lax and word-search-backward-lax in this
case, and otherwise word-search-forward and word-search-backward.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Tue, 11 Nov 2008 19:43:09 +0000 |
parents | a77c2abc7237 |
children | 038d7d21b786 |
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 | 2 Copyright (C) 1994, 1995, 2000, 2001, 2002, 2003, 2004, 2005, 2006, |
3 2007, 2008 Free Software Foundation, Inc. | |
9803 | 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 | 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 | 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 | 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 | 21 Geoff Voelker (voelker@cs.washington.edu) 7-29-94 |
22 */ | |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
23 #include <stddef.h> /* for offsetof */ |
9803 | 24 #include <stdlib.h> |
25 #include <stdio.h> | |
26 #include <io.h> | |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
27 #include <errno.h> |
9803 | 28 #include <fcntl.h> |
29 #include <ctype.h> | |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
30 #include <signal.h> |
22363 | 31 #include <sys/file.h> |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
32 #include <sys/time.h> |
21737
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
33 #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
|
34 #include <mbstring.h> /* for _mbspbrk */ |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
35 #include <math.h> |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
36 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
37 /* must include CRT headers *before* config.h */ |
42469 | 38 |
39 #ifdef HAVE_CONFIG_H | |
40 #include <config.h> | |
41 #endif | |
42 | |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
43 #undef access |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
44 #undef chdir |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
45 #undef chmod |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
46 #undef creat |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
47 #undef ctime |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
48 #undef fopen |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
49 #undef link |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
50 #undef mkdir |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
51 #undef mktemp |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
52 #undef open |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
53 #undef rename |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
54 #undef rmdir |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
55 #undef unlink |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
56 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
57 #undef close |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
58 #undef dup |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
59 #undef dup2 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
60 #undef pipe |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
61 #undef read |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
62 #undef write |
9803 | 63 |
24857
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
64 #undef strerror |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
65 |
9803 | 66 #include "lisp.h" |
67 | |
68 #include <pwd.h> | |
53123 | 69 #include <grp.h> |
9803 | 70 |
31350
f5c37cece73f
(_ANONYMOUS_UNION) [__GNUC__]: New define
Andrew Innes <andrewi@gnu.org>
parents:
31106
diff
changeset
|
71 #ifdef __GNUC__ |
f5c37cece73f
(_ANONYMOUS_UNION) [__GNUC__]: New define
Andrew Innes <andrewi@gnu.org>
parents:
31106
diff
changeset
|
72 #define _ANONYMOUS_UNION |
f5c37cece73f
(_ANONYMOUS_UNION) [__GNUC__]: New define
Andrew Innes <andrewi@gnu.org>
parents:
31106
diff
changeset
|
73 #define _ANONYMOUS_STRUCT |
f5c37cece73f
(_ANONYMOUS_UNION) [__GNUC__]: New define
Andrew Innes <andrewi@gnu.org>
parents:
31106
diff
changeset
|
74 #endif |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
75 #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
|
76 /* 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
|
77 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
|
78 typedef struct _MEMORY_STATUS_EX { |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
79 DWORD dwLength; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
80 DWORD dwMemoryLoad; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
81 DWORDLONG ullTotalPhys; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
82 DWORDLONG ullAvailPhys; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
83 DWORDLONG ullTotalPageFile; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
84 DWORDLONG ullAvailPageFile; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
85 DWORDLONG ullTotalVirtual; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
86 DWORDLONG ullAvailVirtual; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
87 DWORDLONG ullAvailExtendedVirtual; |
97486
2c195017488c
(_MEMORY_STATUS_EX, MEMORY_STATUS_EX, LPMEMORY_STATUS_EX): Rename from
Eli Zaretskii <eliz@gnu.org>
parents:
97372
diff
changeset
|
88 } 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
|
89 |
91878
a5f49adf9035
(init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents:
88048
diff
changeset
|
90 #include <lmcons.h> |
64326
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
91 #include <shlobj.h> |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
92 |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
93 #include <tlhelp32.h> |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
94 #include <psapi.h> |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
95 /* 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
|
96 _WIN32_WINNT than what we use. */ |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
97 typedef struct _PROCESS_MEMORY_COUNTERS_EX { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
98 DWORD cb; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
99 DWORD PageFaultCount; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
100 DWORD PeakWorkingSetSize; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
101 DWORD WorkingSetSize; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
102 DWORD QuotaPeakPagedPoolUsage; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
103 DWORD QuotaPagedPoolUsage; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
104 DWORD QuotaPeakNonPagedPoolUsage; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
105 DWORD QuotaNonPagedPoolUsage; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
106 DWORD PagefileUsage; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
107 DWORD PeakPagefileUsage; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
108 DWORD PrivateUsage; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
109 } 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
|
110 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
111 #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
|
112 #include <sys/socket.h> |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
113 #undef socket |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
114 #undef bind |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
115 #undef connect |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
116 #undef htons |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
117 #undef ntohs |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
118 #undef inet_addr |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
119 #undef gethostname |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
120 #undef gethostbyname |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
121 #undef getservbyname |
45090
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
122 #undef getpeername |
18725
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
123 #undef shutdown |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
124 #undef setsockopt |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
125 #undef listen |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
126 #undef getsockname |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
127 #undef accept |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
128 #undef recvfrom |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
129 #undef sendto |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
130 #endif |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
131 |
16593
4ed80eda6fac
Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents:
16588
diff
changeset
|
132 #include "w32.h" |
9803 | 133 #include "ndir.h" |
16593
4ed80eda6fac
Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents:
16588
diff
changeset
|
134 #include "w32heap.h" |
35286
fcd8120b294a
(init_environment, sys_shutdown, sys_pipe): Remove unused
Jason Rumney <jasonr@gnu.org>
parents:
34696
diff
changeset
|
135 #include "systime.h" |
95277 | 136 #include "dispextern.h" /* for xstrcasecmp */ |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
137 #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
|
138 |
95917 | 139 /* For serial_configure and serial_open. */ |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
140 #include "process.h" |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
141 /* From process.c */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
142 extern Lisp_Object QCport, QCspeed, QCprocess; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
143 extern Lisp_Object QCbytesize, QCstopbits, QCparity, Qodd, Qeven; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
144 extern Lisp_Object QCflowcontrol, Qhw, Qsw, QCsummary; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
145 |
64326
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
146 typedef HRESULT (WINAPI * ShGetFolderPath_fn) |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
147 (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
|
148 |
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
|
149 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
|
150 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
|
151 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
152 extern Lisp_Object Vw32_downcase_file_names; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
153 extern Lisp_Object Vw32_generate_fake_inodes; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
154 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
|
155 /* 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
|
156 extern Lisp_Object Qlocal; |
796bbedc63b1
(stat): When Vw32_get_true_file_attributes is Qlocal, get
Jason Rumney <jasonr@gnu.org>
parents:
80376
diff
changeset
|
157 |
55645
5b3f2477d17b
Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents:
55643
diff
changeset
|
158 extern int w32_num_mouse_buttons; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
159 |
34696
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
160 |
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
|
161 /* 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
|
162 |
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 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
|
164 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
|
165 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
|
166 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
|
167 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
|
168 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
|
169 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
|
170 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
|
171 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
|
172 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
|
173 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
|
174 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
|
175 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
|
176 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
|
177 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
|
178 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
|
179 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
|
180 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
|
181 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
|
182 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
|
183 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
|
184 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
|
185 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
|
186 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
|
187 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
|
188 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
|
189 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
|
190 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
|
191 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
|
192 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
|
193 static BOOL g_b_init_copy_sid; |
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
|
194 |
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
|
195 /* |
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
|
196 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
|
197 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
|
198 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
|
199 */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on 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 /* ** 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
|
201 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
|
202 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
|
203 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
|
204 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
|
205 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
|
206 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
|
207 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
|
208 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
|
209 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
|
210 PDWORD ReturnLength); |
81421
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
211 typedef BOOL (WINAPI * GetProcessTimes_Proc) ( |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
212 HANDLE process_handle, |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
213 LPFILETIME creation_time, |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
214 LPFILETIME exit_time, |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
215 LPFILETIME kernel_time, |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
216 LPFILETIME user_time); |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
217 |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
218 GetProcessTimes_Proc get_process_times_fn = NULL; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
219 |
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
|
220 #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
|
221 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
|
222 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
|
223 #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
|
224 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
|
225 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
|
226 #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
|
227 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
|
228 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
|
229 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
|
230 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
|
231 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
|
232 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
|
233 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
|
234 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
|
235 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
|
236 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
|
237 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
|
238 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
|
239 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
|
240 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
|
241 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
|
242 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
|
243 LPCTSTR lpFileName, |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
244 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
|
245 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
|
246 DWORD nLength, |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
247 LPDWORD lpnLengthNeeded); |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
248 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
|
249 PSECURITY_DESCRIPTOR pSecurityDescriptor, |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
250 PSID *pOwner, |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
251 LPBOOL lpbOwnerDefaulted); |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
252 typedef BOOL (WINAPI * GetSecurityDescriptorGroup_Proc) ( |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
253 PSECURITY_DESCRIPTOR pSecurityDescriptor, |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
254 PSID *pGroup, |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
255 LPBOOL lpbGroupDefaulted); |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
256 typedef BOOL (WINAPI * IsValidSid_Proc) ( |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
257 PSID sid); |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
258 typedef HANDLE (WINAPI * CreateToolhelp32Snapshot_Proc) ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
259 DWORD dwFlags, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
260 DWORD th32ProcessID); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
261 typedef BOOL (WINAPI * Process32First_Proc) ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
262 HANDLE hSnapshot, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
263 LPPROCESSENTRY32 lppe); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
264 typedef BOOL (WINAPI * Process32Next_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 * OpenThreadToken_Proc) ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
268 HANDLE ThreadHandle, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
269 DWORD DesiredAccess, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
270 BOOL OpenAsSelf, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
271 PHANDLE TokenHandle); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
272 typedef BOOL (WINAPI * ImpersonateSelf_Proc) ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
273 SECURITY_IMPERSONATION_LEVEL ImpersonationLevel); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
274 typedef BOOL (WINAPI * RevertToSelf_Proc) (void); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
275 typedef BOOL (WINAPI * GetProcessMemoryInfo_Proc) ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
276 HANDLE Process, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
277 PPROCESS_MEMORY_COUNTERS ppsmemCounters, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
278 DWORD cb); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
279 typedef BOOL (WINAPI * GetProcessWorkingSetSize_Proc) ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
280 HANDLE hProcess, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
281 DWORD * lpMinimumWorkingSetSize, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
282 DWORD * lpMaximumWorkingSetSize); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
283 typedef BOOL (WINAPI * GlobalMemoryStatus_Proc) ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
284 LPMEMORYSTATUS lpBuffer); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
285 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
|
286 LPMEMORY_STATUS_EX lpBuffer); |
97491
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
287 typedef BOOL (WINAPI * CopySid_Proc) ( |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
288 DWORD nDestinationSidLength, |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
289 PSID pDestinationSid, |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
290 PSID pSourceSid); |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
291 typedef BOOL (WINAPI * EqualSid_Proc) ( |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
292 PSID pSid1, |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
293 PSID pSid2); |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
294 typedef DWORD (WINAPI * GetLengthSid_Proc) ( |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
295 PSID pSid); |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
296 |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
297 |
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
|
298 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
299 /* ** A utility function ** */ |
74947 | 300 static BOOL |
301 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
|
302 { |
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
|
303 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
|
304 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
|
305 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
|
306 { |
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
|
307 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
|
308 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
|
309 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
|
310 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
|
311 { |
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 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
|
313 } |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
314 } |
48888
f0df5f687c15
Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents:
48561
diff
changeset
|
315 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
|
316 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
317 |
81421
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
318 /* 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
|
319 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
|
320 (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
|
321 Lisp_Object |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
322 w32_get_internal_run_time () |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
323 { |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
324 if (get_process_times_fn) |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
325 { |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
326 FILETIME create, exit, kernel, user; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
327 HANDLE proc = GetCurrentProcess(); |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
328 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
|
329 { |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
330 LARGE_INTEGER user_int, kernel_int, total; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
331 int microseconds; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
332 user_int.LowPart = user.dwLowDateTime; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
333 user_int.HighPart = user.dwHighDateTime; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
334 kernel_int.LowPart = kernel.dwLowDateTime; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
335 kernel_int.HighPart = kernel.dwHighDateTime; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
336 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
|
337 /* 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
|
338 microsecond resolution. */ |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
339 total.QuadPart /= 10; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
340 microseconds = total.QuadPart % 1000000; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
341 total.QuadPart /= 1000000; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
342 |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
343 /* 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
|
344 if (total.HighPart == 0) |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
345 { |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
346 int secs = total.LowPart; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
347 |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
348 return list3 (make_number ((secs >> 16) & 0xffff), |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
349 make_number (secs & 0xffff), |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
350 make_number (microseconds)); |
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 } |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
353 } |
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 return Fcurrent_time (); |
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 |
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
|
358 /* ** 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
|
359 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
360 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
|
361 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
|
362 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
|
363 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
|
364 { |
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
|
365 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
|
366 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
|
367 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
|
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 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
|
370 } |
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
|
371 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
|
372 { |
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
|
373 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
|
374 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
|
375 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
|
376 (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
|
377 } |
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
|
378 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
|
379 { |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
380 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
|
381 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
382 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
|
383 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
|
384 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
|
385 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
|
386 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
|
387 ); |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on 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 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on 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 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
|
391 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
|
392 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
|
393 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
|
394 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
|
395 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
|
396 { |
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
|
397 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
|
398 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
|
399 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
|
400 { |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on 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 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
|
402 } |
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
|
403 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
|
404 { |
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
|
405 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
|
406 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
|
407 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
|
408 (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
|
409 } |
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
|
410 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
|
411 { |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
412 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
|
413 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
414 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
|
415 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
|
416 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
|
417 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
|
418 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
|
419 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
|
420 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
|
421 ); |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
422 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
423 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
424 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
|
425 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
|
426 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
|
427 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
|
428 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
|
429 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
|
430 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
|
431 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
|
432 { |
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
|
433 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
|
434 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
|
435 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
|
436 { |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on 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 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
|
438 } |
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
|
439 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
|
440 { |
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
|
441 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
|
442 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
|
443 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
|
444 (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
|
445 } |
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
|
446 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
|
447 { |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
448 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
|
449 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
450 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
|
451 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
|
452 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
|
453 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
|
454 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
|
455 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
|
456 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
|
457 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
|
458 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
|
459 ); |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
460 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on 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 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on 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 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
|
463 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
|
464 { |
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
|
465 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
|
466 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
|
467 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
|
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 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
|
470 } |
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
|
471 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
|
472 { |
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
|
473 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
|
474 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
|
475 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
|
476 (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
|
477 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
|
478 } |
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
|
479 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
|
480 { |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
481 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
|
482 } |
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
|
483 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
|
484 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
485 |
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
|
486 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
|
487 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
|
488 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
|
489 { |
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
|
490 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
|
491 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
|
492 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
|
493 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
|
494 { |
87998
3ef9b6e3d2fa
(get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents:
87995
diff
changeset
|
495 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
|
496 } |
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 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
|
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 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
|
500 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
|
501 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
|
502 (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
|
503 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
|
504 } |
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 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
|
506 { |
87998
3ef9b6e3d2fa
(get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents:
87995
diff
changeset
|
507 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
|
508 } |
78715eba45dd
(g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents:
87985
diff
changeset
|
509 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
|
510 } |
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 |
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 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
|
513 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
|
514 { |
78715eba45dd
(g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents:
87985
diff
changeset
|
515 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
|
516 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
|
517 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
|
518 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
|
519 { |
87998
3ef9b6e3d2fa
(get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents:
87995
diff
changeset
|
520 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
|
521 } |
78715eba45dd
(g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents:
87985
diff
changeset
|
522 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
|
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 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
|
525 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
|
526 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
|
527 (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
|
528 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
|
529 } |
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 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
|
531 { |
87998
3ef9b6e3d2fa
(get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents:
87995
diff
changeset
|
532 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
|
533 } |
78715eba45dd
(g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents:
87985
diff
changeset
|
534 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
|
535 } |
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 |
94814
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
537 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
|
538 LPCTSTR lpFileName, |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
539 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
|
540 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
|
541 DWORD nLength, |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
542 LPDWORD lpnLengthNeeded) |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
543 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
544 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
|
545 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
|
546 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
|
547 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
548 return FALSE; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
549 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
550 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
|
551 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
552 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
|
553 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
|
554 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
|
555 (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
|
556 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
|
557 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
558 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
|
559 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
560 return FALSE; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
561 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
562 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
|
563 pSecurityDescriptor, nLength, |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
564 lpnLengthNeeded)); |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
565 } |
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 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
|
568 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
|
569 PSID *pOwner, |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
570 LPBOOL lpbOwnerDefaulted) |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
571 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
572 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
|
573 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
|
574 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
|
575 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
576 return FALSE; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
577 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
578 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
|
579 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
580 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
|
581 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
|
582 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
|
583 (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
|
584 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
|
585 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
586 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
|
587 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
588 return FALSE; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
589 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
590 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
|
591 lpbOwnerDefaulted)); |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
592 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
593 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
594 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
|
595 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
|
596 PSID *pGroup, |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
597 LPBOOL lpbGroupDefaulted) |
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 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
|
600 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
|
601 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
|
602 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
603 return FALSE; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
604 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
605 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
|
606 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
607 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
|
608 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
|
609 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
|
610 (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
|
611 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
|
612 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
613 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
|
614 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
615 return FALSE; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
616 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
617 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
|
618 lpbGroupDefaulted)); |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
619 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
620 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
621 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
|
622 PSID sid) |
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 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
|
625 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
|
626 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
|
627 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
628 return FALSE; |
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 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
|
631 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
632 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
|
633 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
|
634 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
|
635 (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
|
636 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
|
637 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
638 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
|
639 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
640 return FALSE; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
641 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
642 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
|
643 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
644 |
97491
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
645 BOOL WINAPI equal_sid ( |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
646 PSID sid1, |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
647 PSID sid2) |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
648 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
649 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
|
650 HMODULE hm_advapi32 = NULL; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
651 if (is_windows_9x () == TRUE) |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
652 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
653 return FALSE; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
654 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
655 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
|
656 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
657 g_b_init_equal_sid = 1; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
658 hm_advapi32 = LoadLibrary ("Advapi32.dll"); |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
659 s_pfn_Equal_Sid = |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
660 (EqualSid_Proc) GetProcAddress ( |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
661 hm_advapi32, "EqualSid"); |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
662 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
663 if (s_pfn_Equal_Sid == NULL) |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
664 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
665 return FALSE; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
666 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
667 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
|
668 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
669 |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
670 DWORD WINAPI get_length_sid ( |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
671 PSID sid) |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
672 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
673 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
|
674 HMODULE hm_advapi32 = NULL; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
675 if (is_windows_9x () == TRUE) |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
676 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
677 return 0; |
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 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
|
680 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
681 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
|
682 hm_advapi32 = LoadLibrary ("Advapi32.dll"); |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
683 s_pfn_Get_Length_Sid = |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
684 (GetLengthSid_Proc) GetProcAddress ( |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
685 hm_advapi32, "GetLengthSid"); |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
686 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
687 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
|
688 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
689 return 0; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
690 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
691 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
|
692 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
693 |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
694 BOOL WINAPI copy_sid ( |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
695 DWORD destlen, |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
696 PSID dest, |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
697 PSID src) |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
698 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
699 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
|
700 HMODULE hm_advapi32 = NULL; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
701 if (is_windows_9x () == TRUE) |
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 return FALSE; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
704 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
705 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
|
706 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
707 g_b_init_copy_sid = 1; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
708 hm_advapi32 = LoadLibrary ("Advapi32.dll"); |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
709 s_pfn_Copy_Sid = |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
710 (CopySid_Proc) GetProcAddress ( |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
711 hm_advapi32, "CopySid"); |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
712 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
713 if (s_pfn_Copy_Sid == NULL) |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
714 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
715 return FALSE; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
716 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
717 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
|
718 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
719 |
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
|
720 /* |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
721 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
|
722 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
|
723 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
|
724 */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
725 |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
726 |
34696
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
727 /* Equivalent of strerror for W32 error codes. */ |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
728 char * |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
729 w32_strerror (int error_no) |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
730 { |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
731 static char buf[500]; |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
732 |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
733 if (error_no == 0) |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
734 error_no = GetLastError (); |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
735 |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
736 buf[0] = '\0'; |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
737 if (!FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM, NULL, |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
738 error_no, |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
739 0, /* choose most suitable language */ |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
740 buf, sizeof (buf), NULL)) |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
741 sprintf (buf, "w32 error %u", error_no); |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
742 return buf; |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
743 } |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
744 |
72286
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
745 /* 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
|
746 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
|
747 |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
748 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
|
749 int |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
750 w32_valid_pointer_p (void *p, int size) |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
751 { |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
752 SIZE_T done; |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
753 HANDLE h = OpenProcess (PROCESS_VM_READ, FALSE, GetCurrentProcessId ()); |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
754 |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
755 if (h) |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
756 { |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
757 unsigned char *buf = alloca (size); |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
758 int retval = ReadProcessMemory (h, p, buf, size, &done); |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
759 |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
760 CloseHandle (h); |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
761 return retval; |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
762 } |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
763 else |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
764 return -1; |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
765 } |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
766 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
767 static char startup_dir[MAXPATHLEN]; |
9803 | 768 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
769 /* Get the current working directory. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
770 char * |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
771 getwd (char *dir) |
14246
ebdd1b50daba
(nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
772 { |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
773 #if 0 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
774 if (GetCurrentDirectory (MAXPATHLEN, dir) > 0) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
775 return dir; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
776 return NULL; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
777 #else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
778 /* 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
|
779 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
|
780 conflicts when trying to rename or delete directories. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
781 strcpy (dir, startup_dir); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
782 return dir; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
783 #endif |
14246
ebdd1b50daba
(nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
784 } |
ebdd1b50daba
(nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
785 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
786 #ifndef HAVE_SOCKETS |
9803 | 787 /* Emulate gethostname. */ |
788 int | |
789 gethostname (char *buffer, int size) | |
790 { | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
791 /* NT only allows small host names, so the buffer is |
9803 | 792 certainly large enough. */ |
793 return !GetComputerName (buffer, &size); | |
794 } | |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
795 #endif /* HAVE_SOCKETS */ |
9803 | 796 |
797 /* Emulate getloadavg. */ | |
798 int | |
799 getloadavg (double loadavg[], int nelem) | |
800 { | |
801 int i; | |
802 | |
803 /* A faithful emulation is going to have to be saved for a rainy day. */ | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
804 for (i = 0; i < nelem; i++) |
9803 | 805 { |
806 loadavg[i] = 0.0; | |
807 } | |
808 return i; | |
809 } | |
810 | |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
811 /* Emulate getpwuid, getpwnam and others. */ |
9803 | 812 |
12451
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
813 #define PASSWD_FIELD_SIZE 256 |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
814 |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
815 static char dflt_passwd_name[PASSWD_FIELD_SIZE]; |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
816 static char dflt_passwd_passwd[PASSWD_FIELD_SIZE]; |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
817 static char dflt_passwd_gecos[PASSWD_FIELD_SIZE]; |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
818 static char dflt_passwd_dir[PASSWD_FIELD_SIZE]; |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
819 static char dflt_passwd_shell[PASSWD_FIELD_SIZE]; |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
820 |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
821 static struct passwd dflt_passwd = |
9803 | 822 { |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
823 dflt_passwd_name, |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
824 dflt_passwd_passwd, |
9803 | 825 0, |
826 0, | |
827 0, | |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
828 dflt_passwd_gecos, |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
829 dflt_passwd_dir, |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
830 dflt_passwd_shell, |
9803 | 831 }; |
832 | |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
833 static char dflt_group_name[GNLEN+1]; |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
834 |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
835 static struct group dflt_group = |
53123 | 836 { |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
837 /* 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
|
838 group for all files. */ |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
839 dflt_group_name, |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
840 0, |
53123 | 841 }; |
842 | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
843 int |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
844 getuid () |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
845 { |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
846 return dflt_passwd.pw_uid; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
847 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
848 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
849 int |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
850 geteuid () |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
851 { |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
852 /* 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
|
853 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
|
854 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
|
855 return getuid (); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
856 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
857 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
858 int |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
859 getgid () |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
860 { |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
861 return dflt_passwd.pw_gid; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
862 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
863 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
864 int |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
865 getegid () |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
866 { |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
867 return getgid (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
868 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
869 |
9803 | 870 struct passwd * |
871 getpwuid (int uid) | |
872 { | |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
873 if (uid == dflt_passwd.pw_uid) |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
874 return &dflt_passwd; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
875 return NULL; |
9803 | 876 } |
877 | |
53123 | 878 struct group * |
879 getgrgid (gid_t gid) | |
880 { | |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
881 return &dflt_group; |
53123 | 882 } |
883 | |
9803 | 884 struct passwd * |
885 getpwnam (char *name) | |
886 { | |
887 struct passwd *pw; | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
888 |
9803 | 889 pw = getpwuid (getuid ()); |
890 if (!pw) | |
891 return pw; | |
892 | |
95217
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
893 if (xstrcasecmp (name, pw->pw_name)) |
9803 | 894 return NULL; |
895 | |
896 return pw; | |
897 } | |
898 | |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
899 void |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
900 init_user_info () |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
901 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
902 /* 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
|
903 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
|
904 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
905 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
|
906 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
|
907 primary group sid from the process token). */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
908 |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
909 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
|
910 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
|
911 DWORD glength = sizeof (gname); |
78028
3a8b85706c0c
(_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents:
76098
diff
changeset
|
912 HANDLE token = NULL; |
3a8b85706c0c
(_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents:
76098
diff
changeset
|
913 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
|
914 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
|
915 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
|
916 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
|
917 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
|
918 BOOL result; |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
919 |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
920 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
|
921 if (result) |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
922 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
923 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
|
924 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
|
925 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
926 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
|
927 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
|
928 (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
|
929 if (result) |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
930 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
931 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
|
932 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
|
933 uname, &ulength, |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
934 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
|
935 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
936 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
937 else |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
938 result = FALSE; |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
939 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
940 if (result) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
941 { |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
942 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
|
943 /* Determine a reasonable uid value. */ |
95217
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
944 if (xstrcasecmp ("administrator", uname) == 0) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
945 { |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
946 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
|
947 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
|
948 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
949 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
950 { |
87995
e576feac5b90
(init_user_info): Fix commentary for RID usage.
Eli Zaretskii <eliz@gnu.org>
parents:
87990
diff
changeset
|
951 /* 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
|
952 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
|
953 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
|
954 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
955 /* 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
|
956 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
|
957 (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
|
958 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
|
959 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
960 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
|
961 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
|
962 (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
|
963 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
964 if (result) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
965 { |
91878
a5f49adf9035
(init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents:
88048
diff
changeset
|
966 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
|
967 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
|
968 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
|
969 /* 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
|
970 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
|
971 "None" in globals_of_w32. */ |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
972 if (lookup_account_sid (NULL, group_token.PrimaryGroup, |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
973 gname, &glength, NULL, &dlength, |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
974 &user_type)) |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
975 strcpy (dflt_group_name, gname); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
976 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
977 else |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
978 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
|
979 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
980 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
981 /* 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
|
982 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
|
983 else if (GetUserName (uname, &ulength)) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
984 { |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
985 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
|
986 if (xstrcasecmp ("administrator", uname) == 0) |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
987 dflt_passwd.pw_uid = 0; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
988 else |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
989 dflt_passwd.pw_uid = 123; |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
990 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
|
991 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
992 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
993 { |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
994 strcpy (dflt_passwd.pw_name, "unknown"); |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
995 dflt_passwd.pw_uid = 123; |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
996 dflt_passwd.pw_gid = 123; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
997 } |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
998 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
|
999 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1000 /* Ensure HOME and SHELL are defined. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1001 if (getenv ("HOME") == NULL) |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1002 abort (); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1003 if (getenv ("SHELL") == NULL) |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1004 abort (); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1005 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1006 /* Set dir and shell from environment variables. */ |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1007 strcpy (dflt_passwd.pw_dir, getenv ("HOME")); |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1008 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
|
1009 |
97875
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
1010 xfree (buf); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1011 if (token) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1012 CloseHandle (token); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1013 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1014 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1015 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1016 random () |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1017 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1018 /* 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
|
1019 return ((rand () << 15) | rand ()); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1020 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1021 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1022 void |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1023 srandom (int seed) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1024 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1025 srand (seed); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1026 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1027 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1028 |
15326
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1029 /* Normalize filename by converting all path separators to |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1030 the specified separator. Also conditionally convert upper |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1031 case path name components to lower case. */ |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1032 |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1033 static void |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1034 normalize_filename (fp, path_sep) |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1035 register char *fp; |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1036 char path_sep; |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1037 { |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1038 char sep; |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1039 char *elem; |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1040 |
15615
124e347ce827
(normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents:
15418
diff
changeset
|
1041 /* 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
|
1042 preserves case in filenames. |
124e347ce827
(normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents:
15418
diff
changeset
|
1043 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
|
1044 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
|
1045 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
|
1046 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
|
1047 { |
124e347ce827
(normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents:
15418
diff
changeset
|
1048 *fp += 'a' - 'A'; |
124e347ce827
(normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents:
15418
diff
changeset
|
1049 fp += 2; |
124e347ce827
(normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents:
15418
diff
changeset
|
1050 } |
124e347ce827
(normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents:
15418
diff
changeset
|
1051 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
1052 if (NILP (Vw32_downcase_file_names)) |
15326
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1053 { |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1054 while (*fp) |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1055 { |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1056 if (*fp == '/' || *fp == '\\') |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1057 *fp = path_sep; |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1058 fp++; |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1059 } |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1060 return; |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1061 } |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1062 |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1063 sep = path_sep; /* convert to this path separator */ |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1064 elem = fp; /* start of current path element */ |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1065 |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1066 do { |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1067 if (*fp >= 'a' && *fp <= 'z') |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1068 elem = 0; /* don't convert this element */ |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1069 |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1070 if (*fp == 0 || *fp == ':') |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1071 { |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1072 sep = *fp; /* restore current separator (or 0) */ |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1073 *fp = '/'; /* after conversion of this element */ |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1074 } |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1075 |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1076 if (*fp == '/' || *fp == '\\') |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1077 { |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1078 if (elem && elem != fp) |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1079 { |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1080 *fp = 0; /* temporary end of string */ |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1081 _strlwr (elem); /* while we convert to lower case */ |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1082 } |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1083 *fp = sep; /* convert (or restore) path separator */ |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1084 elem = fp + 1; /* next element starts after separator */ |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1085 sep = path_sep; |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1086 } |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1087 } while (*fp++); |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1088 } |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1089 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1090 /* Destructively turn backslashes into slashes. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1091 void |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1092 dostounix_filename (p) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1093 register char *p; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1094 { |
15326
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1095 normalize_filename (p, '/'); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1096 } |
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 /* Destructively turn slashes into backslashes. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1099 void |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1100 unixtodos_filename (p) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1101 register char *p; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1102 { |
15326
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1103 normalize_filename (p, '\\'); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1104 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1105 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1106 /* 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
|
1107 (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
|
1108 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
|
1109 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1110 crlf_to_lf (n, buf) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1111 register int n; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1112 register unsigned char *buf; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1113 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1114 unsigned char *np = buf; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1115 unsigned char *startp = buf; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1116 unsigned char *endp = buf + n; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1117 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1118 if (n == 0) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1119 return n; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1120 while (buf < endp - 1) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1121 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1122 if (*buf == 0x0d) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1123 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1124 if (*(++buf) != 0x0a) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1125 *np++ = 0x0d; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1126 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1127 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1128 *np++ = *buf++; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1129 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1130 if (buf < endp) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1131 *np++ = *buf++; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1132 return np - startp; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1133 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1134 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1135 /* 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
|
1136 optionally store pointer to char after root. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1137 static int |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1138 parse_root (char * name, char ** pPath) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1139 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1140 char * start = name; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1141 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1142 if (name == NULL) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1143 return 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1144 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1145 /* find the root name of the volume if given */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1146 if (isalpha (name[0]) && name[1] == ':') |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1147 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1148 /* skip past drive specifier */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1149 name += 2; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1150 if (IS_DIRECTORY_SEP (name[0])) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1151 name++; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1152 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1153 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
|
1154 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1155 int slashes = 2; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1156 name += 2; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1157 do |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1158 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1159 if (IS_DIRECTORY_SEP (*name) && --slashes == 0) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1160 break; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1161 name++; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1162 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1163 while ( *name ); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1164 if (IS_DIRECTORY_SEP (name[0])) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1165 name++; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1166 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1167 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1168 if (pPath) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1169 *pPath = name; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1170 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1171 return name - start; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1172 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1173 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1174 /* 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
|
1175 static int |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1176 get_long_basename (char * name, char * buf, int size) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1177 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1178 WIN32_FIND_DATA find_data; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1179 HANDLE dir_handle; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1180 int len = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1181 |
28932
f8b0ac62f238
Use the term `invalid' instead of `illegal'.
Gerd Moellmann <gerd@gnu.org>
parents:
27890
diff
changeset
|
1182 /* 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
|
1183 if (_mbspbrk (name, "*?|<>\"")) |
22039
c33bec4d9e67
(stat, get_long_basename): Fail if filename contains any
Richard M. Stallman <rms@gnu.org>
parents:
21747
diff
changeset
|
1184 return 0; |
c33bec4d9e67
(stat, get_long_basename): Fail if filename contains any
Richard M. Stallman <rms@gnu.org>
parents:
21747
diff
changeset
|
1185 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1186 dir_handle = FindFirstFile (name, &find_data); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1187 if (dir_handle != INVALID_HANDLE_VALUE) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1188 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1189 if ((len = strlen (find_data.cFileName)) < size) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1190 memcpy (buf, find_data.cFileName, len + 1); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1191 else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1192 len = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1193 FindClose (dir_handle); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1194 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1195 return len; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1196 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1197 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1198 /* 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
|
1199 BOOL |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1200 w32_get_long_filename (char * name, char * buf, int size) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1201 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1202 char * o = buf; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1203 char * p; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1204 char * q; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1205 char full[ MAX_PATH ]; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1206 int len; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1207 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1208 len = strlen (name); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1209 if (len >= MAX_PATH) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1210 return FALSE; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1211 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1212 /* Use local copy for destructive modification. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1213 memcpy (full, name, len+1); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1214 unixtodos_filename (full); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1215 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1216 /* Copy root part verbatim. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1217 len = parse_root (full, &p); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1218 memcpy (o, full, len); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1219 o += len; |
23858
6bb3dc7f1b48
(w32_get_long_filename): Handle root dirs correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23809
diff
changeset
|
1220 *o = '\0'; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1221 size -= len; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1222 |
23858
6bb3dc7f1b48
(w32_get_long_filename): Handle root dirs correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23809
diff
changeset
|
1223 while (p != NULL && *p) |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1224 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1225 q = p; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1226 p = strchr (q, '\\'); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1227 if (p) *p = '\0'; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1228 len = get_long_basename (full, o, size); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1229 if (len > 0) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1230 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1231 o += len; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1232 size -= len; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1233 if (p != NULL) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1234 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1235 *p++ = '\\'; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1236 if (size < 2) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1237 return FALSE; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1238 *o++ = '\\'; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1239 size--; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1240 *o = '\0'; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1241 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1242 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1243 else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1244 return FALSE; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1245 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1246 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1247 return TRUE; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1248 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1249 |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
1250 int |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
1251 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
|
1252 { |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
1253 const char *ptr = filename; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
1254 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
1255 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
|
1256 return 0; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
1257 |
76098
9ad6c99cdc71
(stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents:
75348
diff
changeset
|
1258 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
|
1259 return 0; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
1260 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
1261 return 1; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
1262 } |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1263 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1264 /* 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
|
1265 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1266 int |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1267 sigsetmask (int signal_mask) |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1268 { |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1269 return 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1270 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1271 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1272 int |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1273 sigmask (int sig) |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1274 { |
27630
95dde6f88b39
(sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents:
25193
diff
changeset
|
1275 return 0; |
95dde6f88b39
(sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents:
25193
diff
changeset
|
1276 } |
95dde6f88b39
(sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents:
25193
diff
changeset
|
1277 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1278 int |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1279 sigblock (int sig) |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1280 { |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1281 return 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1282 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1283 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1284 int |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1285 sigunblock (int sig) |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1286 { |
27630
95dde6f88b39
(sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents:
25193
diff
changeset
|
1287 return 0; |
95dde6f88b39
(sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents:
25193
diff
changeset
|
1288 } |
95dde6f88b39
(sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents:
25193
diff
changeset
|
1289 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1290 int |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1291 setpgrp (int pid, int gid) |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1292 { |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1293 return 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1294 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1295 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1296 int |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1297 alarm (int seconds) |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1298 { |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1299 return 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1300 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1301 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1302 #define REG_ROOT "SOFTWARE\\GNU\\Emacs" |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1303 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1304 LPBYTE |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
1305 w32_get_resource (key, lpdwtype) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1306 char *key; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1307 LPDWORD lpdwtype; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1308 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1309 LPBYTE lpvalue; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1310 HKEY hrootkey = NULL; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1311 DWORD cbData; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1312 |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1313 /* 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
|
1314 we have any resources. */ |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1315 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1316 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
|
1317 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1318 lpvalue = NULL; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1319 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1320 if (RegQueryValueEx (hrootkey, key, NULL, NULL, NULL, &cbData) == ERROR_SUCCESS |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1321 && (lpvalue = (LPBYTE) xmalloc (cbData)) != NULL |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1322 && 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
|
1323 { |
78919
87875c00eb06
(w32_get_resource): Always close registry keys.
Jason Rumney <jasonr@gnu.org>
parents:
78260
diff
changeset
|
1324 RegCloseKey (hrootkey); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1325 return (lpvalue); |
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 |
95481
4390d64d3328
Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents:
95277
diff
changeset
|
1328 xfree (lpvalue); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1329 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1330 RegCloseKey (hrootkey); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1331 } |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1332 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1333 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
|
1334 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1335 lpvalue = NULL; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1336 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1337 if (RegQueryValueEx (hrootkey, key, NULL, NULL, NULL, &cbData) == ERROR_SUCCESS |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1338 && (lpvalue = (LPBYTE) xmalloc (cbData)) != NULL |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1339 && 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
|
1340 { |
78919
87875c00eb06
(w32_get_resource): Always close registry keys.
Jason Rumney <jasonr@gnu.org>
parents:
78260
diff
changeset
|
1341 RegCloseKey (hrootkey); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1342 return (lpvalue); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1343 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1344 |
95481
4390d64d3328
Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents:
95277
diff
changeset
|
1345 xfree (lpvalue); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1346 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1347 RegCloseKey (hrootkey); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1348 } |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1349 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1350 return (NULL); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1351 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1352 |
16892
a8a539285d69
Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
1353 char *get_emacs_configuration (void); |
a8a539285d69
Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
1354 extern Lisp_Object Vsystem_configuration; |
a8a539285d69
Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
1355 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1356 void |
24229
fc89585ce76f
(init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents:
23858
diff
changeset
|
1357 init_environment (char ** argv) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1358 { |
22363 | 1359 static const char * const tempdirs[] = { |
1360 "$TMPDIR", "$TEMP", "$TMP", "c:/" | |
1361 }; | |
64326
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1362 |
22363 | 1363 int i; |
64326
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1364 |
22363 | 1365 const int imax = sizeof (tempdirs) / sizeof (tempdirs[0]); |
1366 | |
1367 /* Make sure they have a usable $TMPDIR. Many Emacs functions use | |
1368 temporary files and assume "/tmp" if $TMPDIR is unset, which | |
1369 will break on DOS/Windows. Refuse to work if we cannot find | |
1370 a directory, not even "c:/", usable for that purpose. */ | |
1371 for (i = 0; i < imax ; i++) | |
1372 { | |
1373 const char *tmp = tempdirs[i]; | |
1374 | |
1375 if (*tmp == '$') | |
1376 tmp = getenv (tmp + 1); | |
1377 /* Note that `access' can lie to us if the directory resides on a | |
1378 read-only filesystem, like CD-ROM or a write-protected floppy. | |
1379 The only way to be really sure is to actually create a file and | |
1380 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
|
1381 if (tmp && _access (tmp, D_OK) == 0) |
22363 | 1382 { |
1383 char * var = alloca (strlen (tmp) + 8); | |
1384 sprintf (var, "TMPDIR=%s", tmp); | |
36001
1d402a57bb21
(init-environment): Duplicate local string before putenv.
Jason Rumney <jasonr@gnu.org>
parents:
35425
diff
changeset
|
1385 _putenv (strdup (var)); |
22363 | 1386 break; |
1387 } | |
1388 } | |
1389 if (i >= imax) | |
1390 cmd_error_internal | |
1391 (Fcons (Qerror, | |
1392 Fcons (build_string ("no usable temporary directories found!!"), | |
1393 Qnil)), | |
1394 "While setting TMPDIR: "); | |
1395 | |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1396 /* 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
|
1397 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
|
1398 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1399 int i; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1400 LPBYTE lpval; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1401 DWORD dwType; |
33869
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1402 char locale_name[32]; |
64326
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1403 struct stat ignored; |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1404 char default_home[MAX_PATH]; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1405 |
70738
ec34443b2ba0
(init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents:
69172
diff
changeset
|
1406 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
|
1407 { |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1408 char * name; |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1409 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
|
1410 } dflt_envvars[] = |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1411 { |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1412 {"HOME", "C:/"}, |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1413 {"PRELOAD_WINSOCK", NULL}, |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1414 {"emacs_dir", "C:/emacs"}, |
35425
c26271ca6ad0
(init_environment): Add a version-independent site-lisp
Andrew Innes <andrewi@gnu.org>
parents:
35286
diff
changeset
|
1415 {"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
|
1416 {"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
|
1417 {"EMACSDATA", "%emacs_dir%/etc"}, |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1418 {"EMACSPATH", "%emacs_dir%/bin"}, |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1419 /* 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
|
1420 is then ignored. */ |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1421 /* {"INFOPATH", "%emacs_dir%/info"}, */ |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1422 {"EMACSDOC", "%emacs_dir%/etc"}, |
33869
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1423 {"TERM", "cmd"}, |
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1424 {"LANG", NULL}, |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1425 }; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1426 |
70738
ec34443b2ba0
(init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents:
69172
diff
changeset
|
1427 #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
|
1428 |
ec34443b2ba0
(init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents:
69172
diff
changeset
|
1429 /* 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
|
1430 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
|
1431 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
|
1432 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
|
1433 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
|
1434 |
ec34443b2ba0
(init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents:
69172
diff
changeset
|
1435 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
|
1436 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
|
1437 |
64326
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1438 /* 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
|
1439 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
|
1440 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
|
1441 if (stat ("C:/.emacs", &ignored) < 0) |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1442 { |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1443 HRESULT profile_result; |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1444 /* 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
|
1445 of Windows 95 and NT4 that have not been updated to include |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1446 MSIE 5. Also we don't link with shell32.dll by default. */ |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1447 HMODULE shell32_dll; |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1448 ShGetFolderPath_fn get_folder_path; |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1449 shell32_dll = GetModuleHandle ("shell32.dll"); |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1450 get_folder_path = (ShGetFolderPath_fn) |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1451 GetProcAddress (shell32_dll, "SHGetFolderPathA"); |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1452 |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1453 if (get_folder_path != NULL) |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1454 { |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1455 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
|
1456 0, default_home); |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1457 |
96376
c3309dba6542
American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents:
95917
diff
changeset
|
1458 /* 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
|
1459 if (profile_result == S_OK) |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1460 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
|
1461 } |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1462 |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1463 /* Unload shell32.dll, it is not needed anymore. */ |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1464 FreeLibrary (shell32_dll); |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1465 } |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1466 |
33869
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1467 /* 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
|
1468 if (GetLocaleInfo (LOCALE_USER_DEFAULT, |
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1469 LOCALE_SABBREVLANGNAME | LOCALE_USE_CP_ACP, |
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1470 locale_name, sizeof (locale_name))) |
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1471 { |
70738
ec34443b2ba0
(init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents:
69172
diff
changeset
|
1472 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
|
1473 { |
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1474 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
|
1475 { |
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1476 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
|
1477 break; |
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1478 } |
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1479 } |
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1480 } |
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1481 |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1482 #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
|
1483 |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1484 /* 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
|
1485 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
|
1486 of a standard installation. */ |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1487 { |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1488 char *p; |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1489 char modname[MAX_PATH]; |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1490 |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1491 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
|
1492 abort (); |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1493 if ((p = strrchr (modname, '\\')) == NULL) |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1494 abort (); |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1495 *p = 0; |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1496 |
95217
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
1497 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
|
1498 { |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1499 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
|
1500 |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1501 *p = 0; |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1502 for (p = modname; *p; p++) |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1503 if (*p == '\\') *p = '/'; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1504 |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1505 _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
|
1506 _putenv (strdup (buf)); |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1507 } |
57609
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1508 /* 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
|
1509 |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1510 /* 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
|
1511 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
|
1512 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
|
1513 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
|
1514 { |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1515 *p = 0; |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1516 p = strrchr (modname, '\\'); |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1517 if (p != NULL) |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1518 { |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1519 *p = 0; |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1520 p = strrchr (modname, '\\'); |
95217
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
1521 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
|
1522 { |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1523 char buf[SET_ENV_BUF_SIZE]; |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1524 |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1525 *p = 0; |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1526 for (p = modname; *p; p++) |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1527 if (*p == '\\') *p = '/'; |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1528 |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1529 _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
|
1530 _putenv (strdup (buf)); |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1531 } |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1532 } |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1533 } |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1534 } |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1535 |
70738
ec34443b2ba0
(init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents:
69172
diff
changeset
|
1536 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
|
1537 { |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1538 if (!getenv (env_vars[i].name)) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1539 { |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1540 int dont_free = 0; |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1541 |
78028
3a8b85706c0c
(_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents:
76098
diff
changeset
|
1542 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
|
1543 /* Also ignore empty environment variables. */ |
3a8b85706c0c
(_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents:
76098
diff
changeset
|
1544 || *lpval == 0) |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1545 { |
95481
4390d64d3328
Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents:
95277
diff
changeset
|
1546 xfree (lpval); |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1547 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
|
1548 dwType = REG_EXPAND_SZ; |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1549 dont_free = 1; |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1550 } |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1551 |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1552 if (lpval) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1553 { |
70740
f263eba56074
(init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents:
70738
diff
changeset
|
1554 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
|
1555 |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1556 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
|
1557 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
|
1558 else if (dwType == REG_SZ) |
f263eba56074
(init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents:
70738
diff
changeset
|
1559 strcpy (buf1, lpval); |
f263eba56074
(init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents:
70738
diff
changeset
|
1560 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
|
1561 { |
70740
f263eba56074
(init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents:
70738
diff
changeset
|
1562 _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
|
1563 buf1); |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1564 _putenv (strdup (buf2)); |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1565 } |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1566 |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1567 if (!dont_free) |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1568 xfree (lpval); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1569 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1570 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1571 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1572 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1573 |
16892
a8a539285d69
Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
1574 /* Rebuild system configuration to reflect invoking system. */ |
a8a539285d69
Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
1575 Vsystem_configuration = build_string (EMACS_CONFIGURATION); |
a8a539285d69
Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
1576 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1577 /* 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
|
1578 "Path" although cmd.exe (perhaps NT itself) arranges for |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1579 environment variable lookup and setting to be case insensitive. |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1580 However, Emacs assumes a fully case sensitive environment, so we |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1581 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
|
1582 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
|
1583 modifying the string in the C runtime environ entry. |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1584 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1585 The same applies to COMSPEC. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1586 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1587 char ** envp; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1588 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1589 for (envp = environ; *envp; envp++) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1590 if (_strnicmp (*envp, "PATH=", 5) == 0) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1591 memcpy (*envp, "PATH=", 5); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1592 else if (_strnicmp (*envp, "COMSPEC=", 8) == 0) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1593 memcpy (*envp, "COMSPEC=", 8); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1594 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1595 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1596 /* Remember the initial working directory for getwd, then make the |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1597 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
|
1598 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
|
1599 running subprocesses for the same reason.) */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1600 if (!GetCurrentDirectory (MAXPATHLEN, startup_dir)) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1601 abort (); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1602 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1603 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1604 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
|
1605 static char modname[MAX_PATH]; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1606 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1607 if (!GetModuleFileName (NULL, modname, MAX_PATH)) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1608 abort (); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1609 if ((p = strrchr (modname, '\\')) == NULL) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1610 abort (); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1611 *p = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1612 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1613 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
|
1614 |
fc89585ce76f
(init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents:
23858
diff
changeset
|
1615 /* 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
|
1616 *p = '\\'; |
fc89585ce76f
(init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents:
23858
diff
changeset
|
1617 argv[0] = modname; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1618 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1619 |
27890
91be3fa84ccb
(init_environment): Set Vw32_num_mouse_buttons here.
Jason Rumney <jasonr@gnu.org>
parents:
27630
diff
changeset
|
1620 /* 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
|
1621 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
|
1622 mouse-3. */ |
55645
5b3f2477d17b
Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents:
55643
diff
changeset
|
1623 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
|
1624 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1625 init_user_info (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1626 } |
9803 | 1627 |
42192
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1628 char * |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1629 emacs_root_dir (void) |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1630 { |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1631 static char root_dir[FILENAME_MAX]; |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1632 const char *p; |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1633 |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1634 p = getenv ("emacs_dir"); |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1635 if (p == NULL) |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1636 abort (); |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1637 strcpy (root_dir, p); |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1638 root_dir[parse_root (root_dir, NULL)] = '\0'; |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1639 dostounix_filename (root_dir); |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1640 return root_dir; |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1641 } |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1642 |
9803 | 1643 /* We don't have scripts to automatically determine the system configuration |
1644 for Emacs before it's compiled, and we don't want to have to make the | |
1645 user enter it, so we define EMACS_CONFIGURATION to invoke this runtime | |
1646 routine. */ | |
1647 | |
1648 char * | |
1649 get_emacs_configuration (void) | |
1650 { | |
13156 | 1651 char *arch, *oem, *os; |
24885
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1652 int build_num; |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1653 static char configuration_buffer[32]; |
9803 | 1654 |
13156 | 1655 /* Determine the processor type. */ |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1656 switch (get_processor_type ()) |
13156 | 1657 { |
12451
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
1658 |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
1659 #ifdef PROCESSOR_INTEL_386 |
13156 | 1660 case PROCESSOR_INTEL_386: |
1661 case PROCESSOR_INTEL_486: | |
1662 case PROCESSOR_INTEL_PENTIUM: | |
1663 arch = "i386"; | |
1664 break; | |
12451
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
1665 #endif |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
1666 |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
1667 #ifdef PROCESSOR_MIPS_R2000 |
13156 | 1668 case PROCESSOR_MIPS_R2000: |
1669 case PROCESSOR_MIPS_R3000: | |
1670 case PROCESSOR_MIPS_R4000: | |
1671 arch = "mips"; | |
1672 break; | |
12451
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
1673 #endif |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
1674 |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
1675 #ifdef PROCESSOR_ALPHA_21064 |
13156 | 1676 case PROCESSOR_ALPHA_21064: |
1677 arch = "alpha"; | |
1678 break; | |
12451
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
1679 #endif |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
1680 |
13156 | 1681 default: |
1682 arch = "unknown"; | |
1683 break; | |
1684 } | |
9803 | 1685 |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1686 /* 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
|
1687 #ifdef _MSC_VER |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1688 #define COMPILER_NAME "msvc" |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1689 #else |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1690 #ifdef __GNUC__ |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1691 #define COMPILER_NAME "mingw" |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1692 #else |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1693 #define COMPILER_NAME "unknown" |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1694 #endif |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1695 #endif |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1696 oem = COMPILER_NAME; |
9803 | 1697 |
24885
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1698 switch (osinfo_cache.dwPlatformId) { |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1699 case VER_PLATFORM_WIN32_NT: |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1700 os = "nt"; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1701 build_num = osinfo_cache.dwBuildNumber; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1702 break; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1703 case VER_PLATFORM_WIN32_WINDOWS: |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1704 if (osinfo_cache.dwMinorVersion == 0) { |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1705 os = "windows95"; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1706 } else { |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1707 os = "windows98"; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1708 } |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1709 build_num = LOWORD (osinfo_cache.dwBuildNumber); |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1710 break; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1711 case VER_PLATFORM_WIN32s: |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1712 /* Not supported, should not happen. */ |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1713 os = "windows32s"; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1714 build_num = LOWORD (osinfo_cache.dwBuildNumber); |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1715 break; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1716 default: |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1717 os = "unknown"; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1718 build_num = 0; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1719 break; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1720 } |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1721 |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1722 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
|
1723 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
|
1724 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
|
1725 } else { |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1726 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
|
1727 } |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1728 |
13156 | 1729 return configuration_buffer; |
9803 | 1730 } |
1731 | |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1732 char * |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1733 get_emacs_configuration_options (void) |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1734 { |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1735 static char options_buffer[256]; |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1736 |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1737 /* 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
|
1738 #ifdef _MSC_VER |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1739 #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
|
1740 #else |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1741 #ifdef __GNUC__ |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1742 #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
|
1743 #else |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1744 #define COMPILER_VERSION "" |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1745 #endif |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1746 #endif |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1747 |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1748 sprintf (options_buffer, COMPILER_VERSION); |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1749 #ifdef EMACSDEBUG |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1750 strcat (options_buffer, " --no-opt"); |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1751 #endif |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1752 #ifdef USER_CFLAGS |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1753 strcat (options_buffer, " --cflags"); |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1754 strcat (options_buffer, USER_CFLAGS); |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1755 #endif |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1756 #ifdef USER_LDFLAGS |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1757 strcat (options_buffer, " --ldflags"); |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1758 strcat (options_buffer, USER_LDFLAGS); |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1759 #endif |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1760 return options_buffer; |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1761 } |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1762 |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1763 |
11384 | 1764 #include <sys/timeb.h> |
1765 | |
1766 /* Emulate gettimeofday (Ulrich Leodolter, 1/11/95). */ | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1767 void |
11384 | 1768 gettimeofday (struct timeval *tv, struct timezone *tz) |
1769 { | |
63020
92ecd695d7c1
(gettimeofday): Use struct _timeb, not struct timeb.
Eli Zaretskii <eliz@gnu.org>
parents:
60092
diff
changeset
|
1770 struct _timeb tb; |
11384 | 1771 _ftime (&tb); |
1772 | |
1773 tv->tv_sec = tb.time; | |
1774 tv->tv_usec = tb.millitm * 1000L; | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1775 if (tz) |
11384 | 1776 { |
1777 tz->tz_minuteswest = tb.timezone; /* minutes west of Greenwich */ | |
1778 tz->tz_dsttime = tb.dstflag; /* type of dst correction */ | |
1779 } | |
1780 } | |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1781 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1782 /* ------------------------------------------------------------------------- */ |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
1783 /* 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
|
1784 /* ------------------------------------------------------------------------- */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1785 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1786 /* 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
|
1787 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
|
1788 (Ulrich Leodolter, 1/11/95). */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1789 char * |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1790 sys_ctime (const time_t *t) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1791 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1792 char *str = (char *) ctime (t); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1793 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
|
1794 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1795 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1796 /* 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
|
1797 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
|
1798 This is much easier. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1799 void |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1800 sys_sleep (int seconds) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1801 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1802 Sleep (seconds * 1000); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1803 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1804 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1805 /* 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
|
1806 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
|
1807 extern int __cdecl _free_osfhnd (int fd); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1808 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1809 /* 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
|
1810 filedesc fd_info [ MAXDESC ]; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1811 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1812 typedef struct volume_info_data { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1813 struct volume_info_data * next; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1814 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1815 /* time when info was obtained */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1816 DWORD timestamp; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1817 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1818 /* actual volume info */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1819 char * root_dir; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1820 DWORD serialnum; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1821 DWORD maxcomp; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1822 DWORD flags; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1823 char * name; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1824 char * type; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1825 } volume_info_data; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1826 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1827 /* Global referenced by various functions. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1828 static volume_info_data volume_info; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1829 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1830 /* 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
|
1831 data never expires). */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1832 static BOOL fixed_drives[26]; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1833 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1834 /* 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
|
1835 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
|
1836 #define DRIVE_INDEX( c ) ( (c) <= 'Z' ? (c) - 'A' : (c) - 'a' ) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1837 #define VOLINFO_STILL_VALID( root_dir, info ) \ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1838 ( ( isalpha (root_dir[0]) && \ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1839 fixed_drives[ DRIVE_INDEX (root_dir[0]) ] ) \ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1840 || GetTickCount () - info->timestamp < 10000 ) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1841 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1842 /* Cache support functions. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1843 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1844 /* Simple linked list with linear search is sufficient. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1845 static volume_info_data *volume_cache = NULL; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1846 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1847 static volume_info_data * |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1848 lookup_volume_info (char * root_dir) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1849 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1850 volume_info_data * info; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1851 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1852 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
|
1853 if (xstrcasecmp (info->root_dir, root_dir) == 0) |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1854 break; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1855 return info; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1856 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1857 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1858 static void |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1859 add_volume_info (char * root_dir, volume_info_data * info) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1860 { |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1861 info->root_dir = xstrdup (root_dir); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1862 info->next = volume_cache; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1863 volume_cache = info; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1864 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1865 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1866 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1867 /* Wrapper for GetVolumeInformation, which uses caching to avoid |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1868 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
|
1869 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
|
1870 volume_info_data * |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1871 GetCachedVolumeInformation (char * root_dir) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1872 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1873 volume_info_data * info; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1874 char default_root[ MAX_PATH ]; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1875 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1876 /* NULL for root_dir means use root from current directory. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1877 if (root_dir == NULL) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1878 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1879 if (GetCurrentDirectory (MAX_PATH, default_root) == 0) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1880 return NULL; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1881 parse_root (default_root, &root_dir); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1882 *root_dir = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1883 root_dir = default_root; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1884 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1885 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1886 /* Local fixed drives can be cached permanently. Removable drives |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1887 cannot be cached permanently, since the volume name and serial |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1888 number (if nothing else) can change. Remote drives should be |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1889 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
|
1890 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
|
1891 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
|
1892 by other processes) without notice. |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1893 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1894 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
|
1895 volumes, we use a simple expiry mechanism to invalidate cache |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1896 entries that are more than ten seconds old. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1897 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1898 #if 0 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1899 /* No point doing this, because WNetGetConnection is even slower than |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1900 GetVolumeInformation, consistently taking ~50ms on a 486 (FWIW, |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1901 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
|
1902 involve network access, and so is extremely quick). */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1903 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1904 /* Map drive letter to UNC if remote. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1905 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
|
1906 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1907 char remote_name[ 256 ]; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1908 char drive[3] = { root_dir[0], ':' }; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1909 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1910 if (WNetGetConnection (drive, remote_name, sizeof (remote_name)) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1911 == NO_ERROR) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1912 /* do something */ ; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1913 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1914 #endif |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1915 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1916 info = lookup_volume_info (root_dir); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1917 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1918 if (info == NULL || ! VOLINFO_STILL_VALID (root_dir, info)) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1919 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1920 char name[ 256 ]; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1921 DWORD serialnum; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1922 DWORD maxcomp; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1923 DWORD flags; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1924 char type[ 256 ]; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1925 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1926 /* Info is not cached, or is stale. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1927 if (!GetVolumeInformation (root_dir, |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1928 name, sizeof (name), |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1929 &serialnum, |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1930 &maxcomp, |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1931 &flags, |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1932 type, sizeof (type))) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1933 return NULL; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1934 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1935 /* Cache the volume information for future use, overwriting existing |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1936 entry if present. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1937 if (info == NULL) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1938 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1939 info = (volume_info_data *) xmalloc (sizeof (volume_info_data)); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1940 add_volume_info (root_dir, info); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1941 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1942 else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1943 { |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1944 xfree (info->name); |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1945 xfree (info->type); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1946 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1947 |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1948 info->name = xstrdup (name); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1949 info->serialnum = serialnum; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1950 info->maxcomp = maxcomp; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1951 info->flags = flags; |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1952 info->type = xstrdup (type); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1953 info->timestamp = GetTickCount (); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1954 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1955 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1956 return info; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1957 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1958 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1959 /* 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
|
1960 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
|
1961 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1962 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
|
1963 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1964 char temp[MAX_PATH]; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1965 char *rootname = NULL; /* default to current volume */ |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1966 volume_info_data * info; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1967 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1968 if (name == NULL) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1969 return FALSE; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1970 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1971 /* 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
|
1972 if (isalpha (name[0]) && name[1] == ':') |
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 rootname = temp; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1975 temp[0] = *name++; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1976 temp[1] = *name++; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1977 temp[2] = '\\'; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1978 temp[3] = 0; |
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 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
|
1981 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1982 char *str = temp; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1983 int slashes = 4; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1984 rootname = temp; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1985 do |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1986 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1987 if (IS_DIRECTORY_SEP (*name) && --slashes == 0) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1988 break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1989 *str++ = *name++; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1990 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1991 while ( *name ); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1992 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1993 *str++ = '\\'; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1994 *str = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1995 } |
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 if (pPath) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1998 *pPath = name; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1999 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2000 info = GetCachedVolumeInformation (rootname); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2001 if (info != NULL) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2002 { |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2003 /* Set global referenced by other functions. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2004 volume_info = *info; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2005 return TRUE; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2006 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2007 return FALSE; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2008 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2009 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2010 /* 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
|
2011 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
|
2012 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2013 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
|
2014 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2015 if (get_volume_info (name, pPath)) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2016 return (volume_info.maxcomp == 12); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2017 return FALSE; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2018 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2019 |
80030
6b3001cc9ca9
*** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents:
79759
diff
changeset
|
2020 /* 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
|
2021 const char * |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
2022 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
|
2023 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2024 static char shortname[MAX_PATH]; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2025 char * str = shortname; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2026 char c; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2027 char * path; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2028 const char * save_name = name; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2029 |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
2030 if (strlen (name) >= MAX_PATH) |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
2031 { |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
2032 /* 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
|
2033 strcpy (shortname, "?"); |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
2034 return shortname; |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
2035 } |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
2036 |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
2037 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
|
2038 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2039 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
|
2040 register int extn = 0; /* extension added? */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2041 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
|
2042 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2043 while (name < path) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2044 *str++ = *name++; /* skip past UNC header */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2045 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2046 while ((c = *name++)) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2047 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2048 switch ( c ) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2049 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2050 case '\\': |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2051 case '/': |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2052 *str++ = '\\'; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2053 extn = 0; /* reset extension flags */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2054 dots = 2; /* max 2 dots */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2055 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
|
2056 break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2057 case ':': |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2058 *str++ = ':'; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2059 extn = 0; /* reset extension flags */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2060 dots = 2; /* max 2 dots */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2061 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
|
2062 break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2063 case '.': |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2064 if ( dots ) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2065 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2066 /* 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
|
2067 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
|
2068 to be read as _emacs, for example. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2069 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2070 if (! *name || |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2071 *name == '.' || |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2072 IS_DIRECTORY_SEP (*name)) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2073 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2074 *str++ = '.'; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2075 dots--; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2076 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2077 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2078 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2079 *str++ = '_'; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2080 left--; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2081 dots = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2082 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2083 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2084 else if ( !extn ) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2085 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2086 *str++ = '.'; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2087 extn = 1; /* we've got an extension */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2088 left = 3; /* 3 chars in extension */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2089 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2090 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2091 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2092 /* 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
|
2093 *str++ = '_'; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2094 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2095 break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2096 case '~': |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2097 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
|
2098 if ( ! left ) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2099 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
|
2100 /* FALLTHRU */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2101 default: |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2102 if ( left ) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2103 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2104 *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
|
2105 left--; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2106 dots = 0; /* started a path component */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2107 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2108 break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2109 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2110 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2111 *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
|
2112 } |
867e4ead88d9
(map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents:
15141
diff
changeset
|
2113 else |
867e4ead88d9
(map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents:
15141
diff
changeset
|
2114 { |
867e4ead88d9
(map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents:
15141
diff
changeset
|
2115 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
|
2116 unixtodos_filename (shortname); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2117 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2118 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2119 if (pPath) |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2120 *pPath = shortname + (path - save_name); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2121 |
15213
867e4ead88d9
(map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents:
15141
diff
changeset
|
2122 return shortname; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2123 } |
11384 | 2124 |
22363 | 2125 static int |
2126 is_exec (const char * name) | |
2127 { | |
2128 char * p = strrchr (name, '.'); | |
2129 return | |
2130 (p != NULL | |
95217
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
2131 && (xstrcasecmp (p, ".exe") == 0 || |
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
2132 xstrcasecmp (p, ".com") == 0 || |
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
2133 xstrcasecmp (p, ".bat") == 0 || |
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
2134 xstrcasecmp (p, ".cmd") == 0)); |
22363 | 2135 } |
2136 | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2137 /* Emulate the Unix directory procedures opendir, closedir, |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2138 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
|
2139 so we provide them here. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2140 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2141 struct direct dir_static; /* simulated directory contents */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2142 static HANDLE dir_find_handle = INVALID_HANDLE_VALUE; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2143 static int dir_is_fat; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2144 static char dir_pathname[MAXPATHLEN+1]; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2145 static WIN32_FIND_DATA dir_find_data; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2146 |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2147 /* 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
|
2148 root directory. */ |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2149 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
|
2150 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
|
2151 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
|
2152 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
|
2153 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2154 DIR * |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2155 opendir (char *filename) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2156 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2157 DIR *dirp; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2158 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2159 /* 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
|
2160 this operation, so we defer the open until read time. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2161 |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2162 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
|
2163 return NULL; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2164 if (wnet_enum_handle != INVALID_HANDLE_VALUE) |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2165 return NULL; |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2166 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2167 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
|
2168 { |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2169 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
|
2170 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
|
2171 return NULL; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2172 } |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2173 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2174 if (!(dirp = (DIR *) malloc (sizeof (DIR)))) |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2175 return NULL; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2176 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2177 dirp->dd_fd = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2178 dirp->dd_loc = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2179 dirp->dd_size = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2180 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2181 strncpy (dir_pathname, map_w32_filename (filename, NULL), MAXPATHLEN); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2182 dir_pathname[MAXPATHLEN] = '\0'; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2183 dir_is_fat = is_fat_volume (filename, NULL); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2184 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2185 return dirp; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2186 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2187 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2188 void |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2189 closedir (DIR *dirp) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2190 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2191 /* If we have a find-handle open, close it. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2192 if (dir_find_handle != INVALID_HANDLE_VALUE) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2193 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2194 FindClose (dir_find_handle); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2195 dir_find_handle = INVALID_HANDLE_VALUE; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2196 } |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2197 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
|
2198 { |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2199 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
|
2200 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
|
2201 } |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2202 xfree ((char *) dirp); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2203 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2204 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2205 struct direct * |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2206 readdir (DIR *dirp) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2207 { |
80376
6e2a0297b94d
(readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents:
80030
diff
changeset
|
2208 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
|
2209 |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2210 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
|
2211 { |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2212 if (!read_unc_volume (wnet_enum_handle, |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2213 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
|
2214 MAX_PATH)) |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2215 return NULL; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2216 } |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2217 /* 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
|
2218 else if (dir_find_handle == INVALID_HANDLE_VALUE) |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2219 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2220 char filename[MAXNAMLEN + 3]; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2221 int ln; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2222 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2223 strcpy (filename, dir_pathname); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2224 ln = strlen (filename) - 1; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2225 if (!IS_DIRECTORY_SEP (filename[ln])) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2226 strcat (filename, "\\"); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2227 strcat (filename, "*"); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2228 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2229 dir_find_handle = FindFirstFile (filename, &dir_find_data); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2230 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2231 if (dir_find_handle == INVALID_HANDLE_VALUE) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2232 return NULL; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2233 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2234 else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2235 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2236 if (!FindNextFile (dir_find_handle, &dir_find_data)) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2237 return NULL; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2238 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2239 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2240 /* 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
|
2241 value returned by stat(). */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2242 dir_static.d_ino = 1; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2243 |
93142
e1c95382ef7e
(readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents:
92148
diff
changeset
|
2244 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
|
2245 |
e1c95382ef7e
(readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents:
92148
diff
changeset
|
2246 /* 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
|
2247 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
|
2248 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
|
2249 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
|
2250 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
|
2251 { |
e1c95382ef7e
(readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents:
92148
diff
changeset
|
2252 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
|
2253 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
|
2254 } |
e1c95382ef7e
(readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents:
92148
diff
changeset
|
2255 dir_static.d_namlen = strlen (dir_static.d_name); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2256 dir_static.d_reclen = sizeof (struct direct) - MAXNAMLEN + 3 + |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2257 dir_static.d_namlen - dir_static.d_namlen % 4; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2258 |
80376
6e2a0297b94d
(readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents:
80030
diff
changeset
|
2259 /* 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
|
2260 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
|
2261 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
|
2262 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
|
2263 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
|
2264 { |
6e2a0297b94d
(readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents:
80030
diff
changeset
|
2265 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
|
2266 /* 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
|
2267 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
|
2268 downcase = 1; |
6e2a0297b94d
(readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents:
80030
diff
changeset
|
2269 } |
6e2a0297b94d
(readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents:
80030
diff
changeset
|
2270 else |
6e2a0297b94d
(readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents:
80030
diff
changeset
|
2271 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
|
2272 dir_static.d_namlen = strlen (dir_static.d_name); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2273 if (dir_is_fat) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2274 _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
|
2275 else if (downcase) |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2276 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2277 register char *p; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2278 for (p = dir_static.d_name; *p; p++) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2279 if (*p >= 'a' && *p <= 'z') |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2280 break; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2281 if (!*p) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2282 _strlwr (dir_static.d_name); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2283 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2284 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2285 return &dir_static; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2286 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2287 |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2288 HANDLE |
55645
5b3f2477d17b
Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents:
55643
diff
changeset
|
2289 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
|
2290 { |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2291 NETRESOURCE nr; |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2292 HANDLE henum; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2293 int result; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2294 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2295 nr.dwScope = RESOURCE_GLOBALNET; |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2296 nr.dwType = RESOURCETYPE_DISK; |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2297 nr.dwDisplayType = RESOURCEDISPLAYTYPE_SERVER; |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2298 nr.dwUsage = RESOURCEUSAGE_CONTAINER; |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2299 nr.lpLocalName = NULL; |
63020
92ecd695d7c1
(gettimeofday): Use struct _timeb, not struct timeb.
Eli Zaretskii <eliz@gnu.org>
parents:
60092
diff
changeset
|
2300 nr.lpRemoteName = (LPSTR)map_w32_filename (path, NULL); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2301 nr.lpComment = NULL; |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2302 nr.lpProvider = NULL; |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2303 |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2304 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
|
2305 RESOURCEUSAGE_CONNECTABLE, &nr, &henum); |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2306 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2307 if (result == NO_ERROR) |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2308 return henum; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2309 else |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2310 return INVALID_HANDLE_VALUE; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2311 } |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2312 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2313 char * |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2314 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
|
2315 { |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
2316 DWORD count; |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2317 int result; |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
2318 DWORD bufsize = 512; |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2319 char *buffer; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2320 char *ptr; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2321 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2322 count = 1; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2323 buffer = alloca (bufsize); |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2324 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
|
2325 if (result != NO_ERROR) |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2326 return NULL; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2327 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2328 /* 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
|
2329 ptr = ((LPNETRESOURCE) buffer)->lpRemoteName; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2330 ptr += 2; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2331 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
|
2332 ptr++; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2333 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2334 strncpy (readbuf, ptr, size); |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2335 return readbuf; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2336 } |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2337 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2338 void |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2339 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
|
2340 { |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2341 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
|
2342 WNetCloseEnum (henum); |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2343 } |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2344 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2345 DWORD |
55645
5b3f2477d17b
Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents:
55643
diff
changeset
|
2346 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
|
2347 { |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2348 HANDLE henum; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2349 DWORD attrs; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2350 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2351 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
|
2352 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
|
2353 return -1; |
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 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
|
2356 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2357 close_unc_volume (henum); |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2358 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2359 return attrs; |
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 |
87985
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2362 /* Ensure a network connection is authenticated. */ |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2363 static void |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2364 logon_network_drive (const char *path) |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2365 { |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2366 NETRESOURCE resource; |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2367 char share[MAX_PATH]; |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2368 int i, n_slashes; |
93973
40f40216ff24
(logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents:
93759
diff
changeset
|
2369 char drive[4]; |
40f40216ff24
(logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents:
93759
diff
changeset
|
2370 |
40f40216ff24
(logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents:
93759
diff
changeset
|
2371 sprintf (drive, "%c:\\", path[0]); |
87985
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2372 |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2373 /* Only logon to networked drives. */ |
93973
40f40216ff24
(logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents:
93759
diff
changeset
|
2374 if ((!IS_DIRECTORY_SEP (path[0]) || !IS_DIRECTORY_SEP (path[1])) |
40f40216ff24
(logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents:
93759
diff
changeset
|
2375 && GetDriveType (drive) != DRIVE_REMOTE) |
87985
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2376 return; |
93973
40f40216ff24
(logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents:
93759
diff
changeset
|
2377 |
87985
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2378 n_slashes = 2; |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2379 strncpy (share, path, MAX_PATH); |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2380 /* Truncate to just server and share name. */ |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2381 for (i = 2; i < MAX_PATH; i++) |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2382 { |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2383 if (IS_DIRECTORY_SEP (share[i]) && ++n_slashes > 3) |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2384 { |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2385 share[i] = '\0'; |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2386 break; |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2387 } |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2388 } |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2389 |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2390 resource.dwType = RESOURCETYPE_DISK; |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2391 resource.lpLocalName = NULL; |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2392 resource.lpRemoteName = share; |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2393 resource.lpProvider = NULL; |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2394 |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2395 WNetAddConnection2 (&resource, NULL, NULL, CONNECT_INTERACTIVE); |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2396 } |
9803 | 2397 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2398 /* 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
|
2399 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
|
2400 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
|
2401 long file names. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2402 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2403 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2404 sys_access (const char * path, int mode) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2405 { |
22363 | 2406 DWORD attributes; |
2407 | |
2408 /* MSVC implementation doesn't recognize D_OK. */ | |
2409 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
|
2410 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
|
2411 { |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2412 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
|
2413 if (attributes == -1) { |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2414 errno = EACCES; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2415 return -1; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2416 } |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2417 } |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2418 else if ((attributes = GetFileAttributes (path)) == -1) |
22363 | 2419 { |
2420 /* Should try mapping GetLastError to errno; for now just indicate | |
2421 that path doesn't exist. */ | |
2422 errno = EACCES; | |
2423 return -1; | |
2424 } | |
2425 if ((mode & X_OK) != 0 && !is_exec (path)) | |
2426 { | |
2427 errno = EACCES; | |
2428 return -1; | |
2429 } | |
2430 if ((mode & W_OK) != 0 && (attributes & FILE_ATTRIBUTE_READONLY) != 0) | |
2431 { | |
2432 errno = EACCES; | |
2433 return -1; | |
2434 } | |
2435 if ((mode & D_OK) != 0 && (attributes & FILE_ATTRIBUTE_DIRECTORY) == 0) | |
2436 { | |
2437 errno = EACCES; | |
2438 return -1; | |
2439 } | |
2440 return 0; | |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2441 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2442 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2443 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2444 sys_chdir (const char * path) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2445 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
2446 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
|
2447 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2448 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2449 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2450 sys_chmod (const char * path, int mode) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2451 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
2452 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
|
2453 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2454 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2455 int |
63744 | 2456 sys_chown (const char *path, uid_t owner, gid_t group) |
2457 { | |
93690
c9e7cd4c092d
(sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents:
93142
diff
changeset
|
2458 if (sys_chmod (path, S_IREAD) == -1) /* check if file exists */ |
63744 | 2459 return -1; |
2460 return 0; | |
2461 } | |
2462 | |
2463 int | |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2464 sys_creat (const char * path, int mode) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2465 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
2466 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
|
2467 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2468 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2469 FILE * |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2470 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
|
2471 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2472 int fd; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2473 int oflag; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2474 const char * mode_save = mode; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2475 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2476 /* 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
|
2477 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
|
2478 prevent future file access. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2479 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2480 if (mode[0] == 'r') |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2481 oflag = O_RDONLY; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2482 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
|
2483 oflag = O_WRONLY | O_CREAT | O_TRUNC; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2484 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2485 return NULL; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2486 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2487 /* Only do simplistic option parsing. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2488 while (*++mode) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2489 if (mode[0] == '+') |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2490 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2491 oflag &= ~(O_RDONLY | O_WRONLY); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2492 oflag |= O_RDWR; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2493 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2494 else if (mode[0] == 'b') |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2495 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2496 oflag &= ~O_TEXT; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2497 oflag |= O_BINARY; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2498 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2499 else if (mode[0] == 't') |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2500 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2501 oflag &= ~O_BINARY; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2502 oflag |= O_TEXT; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2503 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2504 else break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2505 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
2506 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
|
2507 if (fd < 0) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2508 return NULL; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2509 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2510 return _fdopen (fd, mode_save); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2511 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2512 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2513 /* 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
|
2514 int |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2515 sys_link (const char * old, const char * new) |
9803 | 2516 { |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2517 HANDLE fileh; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2518 int result = -1; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2519 char oldname[MAX_PATH], newname[MAX_PATH]; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2520 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2521 if (old == NULL || new == NULL) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2522 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2523 errno = ENOENT; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2524 return -1; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2525 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2526 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2527 strcpy (oldname, map_w32_filename (old, NULL)); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2528 strcpy (newname, map_w32_filename (new, NULL)); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2529 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2530 fileh = CreateFile (oldname, 0, 0, NULL, OPEN_EXISTING, |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2531 FILE_FLAG_BACKUP_SEMANTICS, NULL); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2532 if (fileh != INVALID_HANDLE_VALUE) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2533 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2534 int wlen; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2535 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2536 /* Confusingly, the "alternate" stream name field does not apply |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2537 when restoring a hard link, and instead contains the actual |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2538 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
|
2539 The WIN32_STREAM_ID structure before the cStreamName field is |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2540 the stream header, which is then immediately followed by the |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2541 stream data. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2542 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2543 struct { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2544 WIN32_STREAM_ID wid; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2545 WCHAR wbuffer[MAX_PATH]; /* extra space for link name */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2546 } data; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2547 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2548 wlen = MultiByteToWideChar (CP_ACP, MB_PRECOMPOSED, newname, -1, |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2549 data.wid.cStreamName, MAX_PATH); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2550 if (wlen > 0) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2551 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2552 LPVOID context = NULL; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2553 DWORD wbytes = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2554 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2555 data.wid.dwStreamId = BACKUP_LINK; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2556 data.wid.dwStreamAttributes = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2557 data.wid.Size.LowPart = wlen * sizeof(WCHAR); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2558 data.wid.Size.HighPart = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2559 data.wid.dwStreamNameSize = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2560 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2561 if (BackupWrite (fileh, (LPBYTE)&data, |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2562 offsetof (WIN32_STREAM_ID, cStreamName) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2563 + data.wid.Size.LowPart, |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2564 &wbytes, FALSE, FALSE, &context) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2565 && BackupWrite (fileh, NULL, 0, &wbytes, TRUE, FALSE, &context)) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2566 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2567 /* succeeded */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2568 result = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2569 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2570 else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2571 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2572 /* Should try mapping GetLastError to errno; for now just |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2573 indicate a general error (eg. links not supported). */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2574 errno = EINVAL; // perhaps EMLINK? |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2575 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2576 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2577 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2578 CloseHandle (fileh); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2579 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2580 else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2581 errno = ENOENT; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2582 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2583 return result; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2584 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2585 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2586 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2587 sys_mkdir (const char * path) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2588 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
2589 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
|
2590 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2591 |
15354
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2592 /* 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
|
2593 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
|
2594 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
|
2595 string. |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2596 |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2597 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
|
2598 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
|
2599 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
|
2600 first of the 6 X's. */ |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2601 char * |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2602 sys_mktemp (char * template) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2603 { |
15354
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2604 char * p; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2605 int i; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2606 unsigned uid = GetCurrentThreadId (); |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2607 static char first_char[] = "abcdefghijklmnopqrstuvwyz0123456789!%-_@#"; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2608 |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2609 if (template == NULL) |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2610 return NULL; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2611 p = template + strlen (template); |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2612 i = 5; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2613 /* 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
|
2614 while (--p >= template && p[0] == 'X' && --i >= 0) |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2615 { |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2616 p[0] = '0' + uid % 10; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2617 uid /= 10; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2618 } |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2619 |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2620 if (i < 0 && p[0] == 'X') |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2621 { |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2622 i = 0; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2623 do |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2624 { |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2625 int save_errno = errno; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2626 p[0] = first_char[i]; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2627 if (sys_access (template, 0) < 0) |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2628 { |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2629 errno = save_errno; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2630 return template; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2631 } |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2632 } |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2633 while (++i < sizeof (first_char)); |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2634 } |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2635 |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2636 /* 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
|
2637 so return empty string */ |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2638 template[0] = 0; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2639 return template; |
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_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
|
2644 { |
37291
83dd2eb5365f
(sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents:
36001
diff
changeset
|
2645 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
|
2646 /* 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
|
2647 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
|
2648 non-inheritable. */ |
83dd2eb5365f
(sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents:
36001
diff
changeset
|
2649 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
|
2650 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
|
2651 return res; |
83dd2eb5365f
(sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents:
36001
diff
changeset
|
2652 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
|
2653 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2654 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2655 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2656 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
|
2657 { |
34644
69143373d98d
(sys_rename): Only check errno against EEXIST, and not
Andrew Innes <andrewi@gnu.org>
parents:
33869
diff
changeset
|
2658 BOOL result; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2659 char temp[MAX_PATH]; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2660 |
16884
36babc489b0c
Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents:
16867
diff
changeset
|
2661 /* 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
|
2662 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
|
2663 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
|
2664 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
|
2665 |
16884
36babc489b0c
Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents:
16867
diff
changeset
|
2666 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
|
2667 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
|
2668 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
|
2669 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
|
2670 |
16884
36babc489b0c
Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents:
16867
diff
changeset
|
2671 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
|
2672 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
|
2673 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
2674 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
|
2675 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2676 if (os_subtype == OS_WIN95) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2677 { |
22363 | 2678 char * o; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2679 char * p; |
22363 | 2680 int i = 0; |
2681 | |
2682 oldname = map_w32_filename (oldname, NULL); | |
2683 if (o = strrchr (oldname, '\\')) | |
2684 o++; | |
2685 else | |
2686 o = (char *) oldname; | |
9803 | 2687 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2688 if (p = strrchr (temp, '\\')) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2689 p++; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2690 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2691 p = temp; |
22363 | 2692 |
2693 do | |
2694 { | |
2695 /* Force temp name to require a manufactured 8.3 alias - this | |
2696 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
|
2697 sprintf (p, "_.%s.%u", o, i); |
22363 | 2698 i++; |
22430
921311b43bf4
(sys_rename): Don't examine errno if rename didn't fail.
Richard M. Stallman <rms@gnu.org>
parents:
22363
diff
changeset
|
2699 result = rename (oldname, temp); |
22363 | 2700 } |
2701 /* 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
|
2702 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
|
2703 if (result < 0) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2704 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2705 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2706 |
96376
c3309dba6542
American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents:
95917
diff
changeset
|
2707 /* 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
|
2708 (at least if it is a file; don't do this for directories). |
22363 | 2709 |
2710 Since we mustn't do this if we are just changing the case of the | |
2711 file name (we would end up deleting the file we are trying to | |
2712 rename!), we let rename detect if the destination file already | |
2713 exists - that way we avoid the possible pitfalls of trying to | |
2714 determine ourselves whether two names really refer to the same | |
2715 file, which is not always possible in the general case. (Consider | |
2716 all the permutations of shared or subst'd drives, etc.) */ | |
2717 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
2718 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
|
2719 result = rename (temp, newname); |
22363 | 2720 |
2721 if (result < 0 | |
34644
69143373d98d
(sys_rename): Only check errno against EEXIST, and not
Andrew Innes <andrewi@gnu.org>
parents:
33869
diff
changeset
|
2722 && errno == EEXIST |
22363 | 2723 && _chmod (newname, 0666) == 0 |
2724 && _unlink (newname) == 0) | |
2725 result = rename (temp, newname); | |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2726 |
22299
83928cc3329e
(sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22039
diff
changeset
|
2727 return result; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2728 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2729 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2730 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2731 sys_rmdir (const char * path) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2732 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
2733 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
|
2734 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2735 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2736 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2737 sys_unlink (const char * path) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2738 { |
21737
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
2739 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
|
2740 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
2741 /* 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
|
2742 _chmod (path, 0666); |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
2743 return _unlink (path); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2744 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2745 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2746 static FILETIME utc_base_ft; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2747 static long double utc_base; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2748 static int init = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2749 |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
2750 static long double |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
2751 convert_time_raw (FILETIME ft) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
2752 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
2753 return |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
2754 (long double) ft.dwHighDateTime |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
2755 * 4096.0L * 1024.0L * 1024.0L + ft.dwLowDateTime; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
2756 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
2757 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2758 static time_t |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2759 convert_time (FILETIME ft) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2760 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2761 long double ret; |
9803 | 2762 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2763 if (!init) |
9803 | 2764 { |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2765 /* Determine the delta between 1-Jan-1601 and 1-Jan-1970. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2766 SYSTEMTIME st; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2767 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2768 st.wYear = 1970; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2769 st.wMonth = 1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2770 st.wDay = 1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2771 st.wHour = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2772 st.wMinute = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2773 st.wSecond = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2774 st.wMilliseconds = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2775 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2776 SystemTimeToFileTime (&st, &utc_base_ft); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2777 utc_base = (long double) utc_base_ft.dwHighDateTime |
72059
7b3a19a8bfdb
(convert_time): Use explicit long double constants to ensure long double
Eli Zaretskii <eliz@gnu.org>
parents:
71899
diff
changeset
|
2778 * 4096.0L * 1024.0L * 1024.0L + utc_base_ft.dwLowDateTime; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2779 init = 1; |
9803 | 2780 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2781 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2782 if (CompareFileTime (&ft, &utc_base_ft) < 0) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2783 return 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2784 |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
2785 return (time_t) ((convert_time_raw (ft) - utc_base) * 1e-7L); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2786 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2787 |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
2788 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2789 void |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2790 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
|
2791 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2792 long double tmp; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2793 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2794 if (!init) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2795 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2796 /* Determine the delta between 1-Jan-1601 and 1-Jan-1970. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2797 SYSTEMTIME st; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2798 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2799 st.wYear = 1970; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2800 st.wMonth = 1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2801 st.wDay = 1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2802 st.wHour = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2803 st.wMinute = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2804 st.wSecond = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2805 st.wMilliseconds = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2806 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2807 SystemTimeToFileTime (&st, &utc_base_ft); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2808 utc_base = (long double) utc_base_ft.dwHighDateTime |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2809 * 4096 * 1024 * 1024 + utc_base_ft.dwLowDateTime; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2810 init = 1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2811 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2812 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2813 /* time in 100ns units since 1-Jan-1601 */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2814 tmp = (long double) time * 1e7 + utc_base; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2815 pft->dwHighDateTime = (DWORD) (tmp / (4096.0 * 1024 * 1024)); |
21737
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
2816 pft->dwLowDateTime = (DWORD) (tmp - (4096.0 * 1024 * 1024) * pft->dwHighDateTime); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2817 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2818 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2819 #if 0 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2820 /* 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
|
2821 using the file index from GetInformationByHandle, is not perfect and |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2822 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
|
2823 Instead, we now determine file-truename correctly (except for |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2824 possible drive aliasing etc). */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2825 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2826 /* 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
|
2827 static unsigned |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2828 hashval (const unsigned char * str) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2829 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2830 unsigned h = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2831 while (*str) |
9803 | 2832 { |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2833 h = (h << 4) + *str++; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2834 h ^= (h >> 28); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2835 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2836 return h; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2837 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2838 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2839 /* 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
|
2840 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
|
2841 static DWORD |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2842 generate_inode_val (const char * name) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2843 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2844 char fullname[ MAX_PATH ]; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2845 char * p; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2846 unsigned hash; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2847 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2848 /* Get the truly canonical filename, if it exists. (Note: this |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2849 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
|
2850 links. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2851 if (!w32_get_long_filename ((char *)name, fullname, MAX_PATH)) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2852 abort (); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2853 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2854 parse_root (fullname, &p); |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
2855 /* 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
|
2856 _strlwr (p); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2857 return hashval (p); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2858 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2859 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2860 #endif |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2861 |
94814
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2862 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
|
2863 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
|
2864 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2865 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
|
2866 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
|
2867 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
|
2868 | 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
|
2869 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2870 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
|
2871 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2872 err = GetLastError (); |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2873 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
|
2874 return NULL; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2875 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2876 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2877 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
|
2878 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
|
2879 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2880 xfree (psd); |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2881 return NULL; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2882 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2883 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2884 return psd; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2885 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2886 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2887 static DWORD |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2888 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
|
2889 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2890 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
|
2891 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2892 /* 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
|
2893 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
|
2894 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
|
2895 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
|
2896 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
|
2897 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
|
2898 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2899 |
97491
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2900 /* 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
|
2901 |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2902 #ifdef __GNUC__ |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2903 # define FLEXIBLE_ARRAY_MEMBER |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2904 #else |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2905 # define FLEXIBLE_ARRAY_MEMBER 1 |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2906 #endif |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2907 |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2908 struct w32_id { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2909 int rid; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2910 struct w32_id *next; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2911 char name[GNLEN+1]; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2912 unsigned char sid[FLEXIBLE_ARRAY_MEMBER]; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2913 }; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2914 |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2915 static struct w32_id *w32_idlist; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2916 |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2917 static int |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2918 w32_cached_id (PSID sid, int *id, char *name) |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2919 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2920 struct w32_id *tail, *found; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2921 |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2922 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
|
2923 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2924 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
|
2925 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2926 found = tail; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2927 break; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2928 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2929 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2930 if (found) |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2931 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2932 *id = found->rid; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2933 strcpy (name, found->name); |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2934 return 1; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2935 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2936 else |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2937 return 0; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2938 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2939 |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2940 static void |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2941 w32_add_to_cache (PSID sid, int id, char *name) |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2942 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2943 DWORD sid_len; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2944 struct w32_id *new_entry; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2945 |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2946 /* 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
|
2947 dumped. */ |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2948 if (initialized) |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2949 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2950 sid_len = get_length_sid (sid); |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2951 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
|
2952 if (new_entry) |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2953 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2954 new_entry->rid = id; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2955 strcpy (new_entry->name, name); |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2956 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
|
2957 new_entry->next = w32_idlist; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2958 w32_idlist = new_entry; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2959 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2960 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2961 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2962 |
94814
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2963 #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
|
2964 #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
|
2965 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2966 static int |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2967 get_name_and_id (PSECURITY_DESCRIPTOR psd, 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
|
2968 int *id, char *nm, int what) |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2969 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2970 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
|
2971 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
|
2972 BOOL dflt; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2973 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
|
2974 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
|
2975 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
|
2976 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
|
2977 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
|
2978 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
|
2979 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
|
2980 int result; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2981 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2982 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
|
2983 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
|
2984 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
|
2985 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
|
2986 else |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2987 result = 0; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2988 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2989 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
|
2990 use_dflt = 1; |
97491
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
2991 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
|
2992 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2993 /* 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
|
2994 specified machine. */ |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2995 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
|
2996 && 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
|
2997 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
2998 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
|
2999 char *p; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3000 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3001 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
|
3002 *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
|
3003 *p = *s; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3004 *p = '\0'; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3005 mp = machine; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3006 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3007 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3008 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
|
3009 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
|
3010 || 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
|
3011 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
|
3012 else |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3013 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3014 *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
|
3015 strcpy (nm, name); |
97491
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3016 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
|
3017 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3018 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3019 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
|
3020 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3021 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3022 static void |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3023 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
|
3024 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
|
3025 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
|
3026 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
|
3027 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3028 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
|
3029 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3030 if (!psd) |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3031 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3032 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
|
3033 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
|
3034 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3035 else |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3036 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3037 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
|
3038 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
|
3039 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
|
3040 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
|
3041 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3042 /* 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
|
3043 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
|
3044 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
|
3045 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3046 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
|
3047 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
|
3048 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3049 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
|
3050 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3051 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
|
3052 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
|
3053 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3054 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3055 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3056 /* 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
|
3057 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
|
3058 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
|
3059 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3060 stat (const char * path, struct stat * buf) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3061 { |
22299
83928cc3329e
(sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22039
diff
changeset
|
3062 char *name, *r; |
97488
caf9103a3856
(stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents:
97486
diff
changeset
|
3063 char drive_root[4]; |
caf9103a3856
(stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents:
97486
diff
changeset
|
3064 UINT devtype; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3065 WIN32_FIND_DATA wfd; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3066 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
|
3067 unsigned __int64 fake_inode; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3068 int permission; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3069 int len; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3070 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
|
3071 PSECURITY_DESCRIPTOR psd = NULL; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3072 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3073 if (path == NULL || buf == NULL) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3074 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3075 errno = EFAULT; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3076 return -1; |
9803 | 3077 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3078 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
3079 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
|
3080 /* 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
|
3081 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
|
3082 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
|
3083 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
|
3084 filesystems. */ |
9ad6c99cdc71
(stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents:
75348
diff
changeset
|
3085 if (_mbspbrk (name, "*?|<>\"")) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3086 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3087 errno = ENOENT; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3088 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3089 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3090 |
22299
83928cc3329e
(sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22039
diff
changeset
|
3091 /* 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
|
3092 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
|
3093 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
|
3094 { |
83928cc3329e
(sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22039
diff
changeset
|
3095 r[1] = r[2] = '\0'; |
83928cc3329e
(sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22039
diff
changeset
|
3096 } |
83928cc3329e
(sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22039
diff
changeset
|
3097 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3098 /* 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
|
3099 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
|
3100 is a trailing separator. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3101 len = strlen (name); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3102 rootdir = (path >= name + len - 1 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3103 && (IS_DIRECTORY_SEP (*path) || *path == 0)); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3104 name = strcpy (alloca (len + 2), name); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3105 |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
3106 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
|
3107 { |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
3108 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
|
3109 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
3110 if (attrs == -1) |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
3111 return -1; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
3112 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
3113 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
|
3114 wfd.dwFileAttributes = attrs; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
3115 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
|
3116 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
|
3117 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
|
3118 strcpy (wfd.cFileName, name); |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
3119 } |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
3120 else if (rootdir) |
9803 | 3121 { |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3122 if (!IS_DIRECTORY_SEP (name[len-1])) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3123 strcat (name, "\\"); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3124 if (GetDriveType (name) < 2) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3125 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3126 errno = ENOENT; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3127 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3128 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3129 memset (&wfd, 0, sizeof (wfd)); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3130 wfd.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3131 wfd.ftCreationTime = utc_base_ft; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3132 wfd.ftLastAccessTime = utc_base_ft; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3133 wfd.ftLastWriteTime = utc_base_ft; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3134 strcpy (wfd.cFileName, name); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3135 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3136 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3137 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3138 if (IS_DIRECTORY_SEP (name[len-1])) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3139 name[len - 1] = 0; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3140 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3141 /* (This is hacky, but helps when doing file completions on |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3142 network drives.) Optimize by using information available from |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3143 active readdir if possible. */ |
25193
953155ee541a
(stat): Check for directory ending in separator when
Geoff Voelker <voelker@cs.washington.edu>
parents:
24885
diff
changeset
|
3144 len = strlen (dir_pathname); |
953155ee541a
(stat): Check for directory ending in separator when
Geoff Voelker <voelker@cs.washington.edu>
parents:
24885
diff
changeset
|
3145 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
|
3146 len--; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3147 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
|
3148 && strnicmp (name, dir_pathname, len) == 0 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3149 && IS_DIRECTORY_SEP (name[len]) |
95217
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
3150 && 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
|
3151 { |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3152 /* This was the last entry returned by readdir. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3153 wfd = dir_find_data; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3154 } |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3155 else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3156 { |
88048
7c4da276fe17
(stat): Don't do a double check for networked drive.
Jason Rumney <jasonr@gnu.org>
parents:
87999
diff
changeset
|
3157 logon_network_drive (name); |
87985
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
3158 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3159 fh = FindFirstFile (name, &wfd); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3160 if (fh == INVALID_HANDLE_VALUE) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3161 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3162 errno = ENOENT; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3163 return -1; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3164 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3165 FindClose (fh); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3166 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3167 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3168 |
97488
caf9103a3856
(stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents:
97486
diff
changeset
|
3169 /* GetDriveType needs the root directory of NAME's drive. */ |
caf9103a3856
(stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents:
97486
diff
changeset
|
3170 if (!(strlen (name) >= 2 && IS_DEVICE_SEP (name[1]))) |
caf9103a3856
(stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents:
97486
diff
changeset
|
3171 devtype = GetDriveType (NULL); /* use root of current diectory */ |
caf9103a3856
(stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents:
97486
diff
changeset
|
3172 else |
caf9103a3856
(stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents:
97486
diff
changeset
|
3173 { |
caf9103a3856
(stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents:
97486
diff
changeset
|
3174 strncpy (drive_root, name, 3); |
caf9103a3856
(stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents:
97486
diff
changeset
|
3175 drive_root[3] = '\0'; |
caf9103a3856
(stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents:
97486
diff
changeset
|
3176 devtype = GetDriveType (drive_root); |
caf9103a3856
(stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents:
97486
diff
changeset
|
3177 } |
caf9103a3856
(stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents:
97486
diff
changeset
|
3178 |
94814
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3179 if (!(NILP (Vw32_get_true_file_attributes) |
97488
caf9103a3856
(stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents:
97486
diff
changeset
|
3180 || (EQ (Vw32_get_true_file_attributes, Qlocal) |
caf9103a3856
(stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents:
97486
diff
changeset
|
3181 && devtype != DRIVE_FIXED && devtype != DRIVE_RAMDISK)) |
44927
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3182 /* 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
|
3183 && (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
|
3184 FILE_FLAG_BACKUP_SEMANTICS, NULL)) |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3185 != INVALID_HANDLE_VALUE) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3186 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3187 /* 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
|
3188 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
|
3189 making a list of file name completions). */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3190 BY_HANDLE_FILE_INFORMATION info; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3191 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3192 if (GetFileInformationByHandle (fh, &info)) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3193 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3194 buf->st_nlink = info.nNumberOfLinks; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3195 /* 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
|
3196 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
|
3197 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
|
3198 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
|
3199 (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
|
3200 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
|
3201 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
|
3202 fake_inode += info.nFileIndexLow; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3203 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3204 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3205 { |
23622
0dc79ede9c53
(stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents:
23559
diff
changeset
|
3206 buf->st_nlink = 1; |
0dc79ede9c53
(stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents:
23559
diff
changeset
|
3207 fake_inode = 0; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3208 } |
23622
0dc79ede9c53
(stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents:
23559
diff
changeset
|
3209 |
44927
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3210 if (wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3211 { |
93690
c9e7cd4c092d
(sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents:
93142
diff
changeset
|
3212 buf->st_mode = S_IFDIR; |
44927
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3213 } |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3214 else |
23622
0dc79ede9c53
(stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents:
23559
diff
changeset
|
3215 { |
44927
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3216 switch (GetFileType (fh)) |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3217 { |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3218 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
|
3219 buf->st_mode = S_IFREG; |
44927
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3220 break; |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3221 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
|
3222 buf->st_mode = S_IFIFO; |
44927
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3223 break; |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3224 case FILE_TYPE_CHAR: |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3225 case FILE_TYPE_UNKNOWN: |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3226 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
|
3227 buf->st_mode = S_IFCHR; |
44927
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3228 } |
23622
0dc79ede9c53
(stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents:
23559
diff
changeset
|
3229 } |
0dc79ede9c53
(stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents:
23559
diff
changeset
|
3230 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
|
3231 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
|
3232 get_file_owner_and_group (psd, name, buf); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3233 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3234 else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3235 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3236 /* 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
|
3237 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
|
3238 S_IFDIR : S_IFREG; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3239 buf->st_nlink = 1; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3240 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
|
3241 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3242 get_file_owner_and_group (NULL, name, buf); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3243 } |
95481
4390d64d3328
Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents:
95277
diff
changeset
|
3244 xfree (psd); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3245 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3246 #if 0 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3247 /* Not sure if there is any point in this. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3248 if (!NILP (Vw32_generate_fake_inodes)) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3249 fake_inode = generate_inode_val (name); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3250 else if (fake_inode == 0) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3251 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3252 /* For want of something better, try to make everything unique. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3253 static DWORD gen_num = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3254 fake_inode = ++gen_num; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3255 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3256 #endif |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3257 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3258 /* 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
|
3259 if (sizeof (buf->st_ino) == 2) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3260 buf->st_ino = fake_inode ^ (fake_inode >> 16); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3261 else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3262 buf->st_ino = fake_inode; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3263 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
3264 /* 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
|
3265 buf->st_dev = volume_info.serialnum; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3266 buf->st_rdev = volume_info.serialnum; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3267 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3268 |
94814
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3269 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
|
3270 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
|
3271 buf->st_size += wfd.nFileSizeLow; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3272 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3273 /* Convert timestamps to Unix format. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3274 buf->st_mtime = convert_time (wfd.ftLastWriteTime); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3275 buf->st_atime = convert_time (wfd.ftLastAccessTime); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3276 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
|
3277 buf->st_ctime = convert_time (wfd.ftCreationTime); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3278 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
|
3279 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3280 /* determine rwx permissions */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3281 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
|
3282 permission = S_IREAD; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3283 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
|
3284 permission = S_IREAD | S_IWRITE; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
3285 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3286 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
|
3287 permission |= S_IEXEC; |
22363 | 3288 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
|
3289 permission |= S_IEXEC; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3290 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3291 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
|
3292 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3293 return 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3294 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3295 |
21737
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3296 /* 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
|
3297 file timestamps. */ |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3298 int |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3299 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
|
3300 { |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3301 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
|
3302 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
|
3303 unsigned __int64 fake_inode; |
21737
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3304 int permission; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3305 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3306 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
|
3307 { |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3308 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
|
3309 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
|
3310 if (!GetFileInformationByHandle (fh, &info)) |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3311 { |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3312 errno = EACCES; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3313 return -1; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3314 } |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3315 break; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3316 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
|
3317 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
|
3318 goto non_disk; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3319 case FILE_TYPE_CHAR: |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3320 case FILE_TYPE_UNKNOWN: |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3321 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
|
3322 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
|
3323 non_disk: |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3324 memset (&info, 0, sizeof (info)); |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3325 info.dwFileAttributes = 0; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3326 info.ftCreationTime = utc_base_ft; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3327 info.ftLastAccessTime = utc_base_ft; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3328 info.ftLastWriteTime = utc_base_ft; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3329 } |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3330 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3331 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
|
3332 buf->st_mode = S_IFDIR; |
44927
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3333 |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3334 buf->st_nlink = info.nNumberOfLinks; |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3335 /* 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
|
3336 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
|
3337 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
|
3338 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
|
3339 (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
|
3340 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
|
3341 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
|
3342 fake_inode += info.nFileIndexLow; |
21737
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3343 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3344 /* 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
|
3345 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
|
3346 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
|
3347 else |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3348 buf->st_ino = fake_inode; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3349 |
94814
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3350 /* 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
|
3351 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
|
3352 available for _WIN32_WINNT >= 0x501. */ |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
3353 buf->st_uid = dflt_passwd.pw_uid; |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
3354 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
|
3355 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
|
3356 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
|
3357 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3358 buf->st_dev = info.dwVolumeSerialNumber; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3359 buf->st_rdev = info.dwVolumeSerialNumber; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3360 |
94814
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3361 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
|
3362 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
|
3363 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
|
3364 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3365 /* Convert timestamps to Unix format. */ |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3366 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
|
3367 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
|
3368 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
|
3369 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
|
3370 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
|
3371 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3372 /* determine rwx permissions */ |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3373 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
|
3374 permission = S_IREAD; |
21737
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3375 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
|
3376 permission = S_IREAD | S_IWRITE; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
3377 |
21737
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3378 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
|
3379 permission |= S_IEXEC; |
21737
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3380 else |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3381 { |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3382 #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
|
3383 char * p = strrchr (name, '.'); |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3384 if (p != NULL && |
95217
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
3385 (xstrcasecmp (p, ".exe") == 0 || |
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
3386 xstrcasecmp (p, ".com") == 0 || |
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
3387 xstrcasecmp (p, ".bat") == 0 || |
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
3388 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
|
3389 permission |= S_IEXEC; |
21737
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3390 #endif |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3391 } |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3392 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3393 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
|
3394 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3395 return 0; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3396 } |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3397 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3398 int |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3399 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
|
3400 { |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3401 struct utimbuf deftime; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3402 HANDLE fh; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3403 FILETIME mtime; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3404 FILETIME atime; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3405 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3406 if (times == NULL) |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3407 { |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3408 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
|
3409 times = &deftime; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3410 } |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3411 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3412 /* 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
|
3413 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
|
3414 0, OPEN_EXISTING, 0, NULL); |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3415 if (fh) |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3416 { |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3417 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
|
3418 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
|
3419 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
|
3420 { |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3421 CloseHandle (fh); |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3422 errno = EACCES; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3423 return -1; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3424 } |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3425 CloseHandle (fh); |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3426 } |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3427 else |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3428 { |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3429 errno = EINVAL; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3430 return -1; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3431 } |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3432 return 0; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3433 } |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3434 |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3435 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3436 /* 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
|
3437 process.c for the Lisp bindings. */ |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3438 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3439 /* Helper wrapper functions. */ |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3440 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3441 HANDLE WINAPI create_toolhelp32_snapshot( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3442 DWORD Flags, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3443 DWORD Ignored) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3444 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3445 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
|
3446 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3447 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
|
3448 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3449 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
|
3450 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
|
3451 GetProcAddress (GetModuleHandle ("kernel32.dll"), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3452 "CreateToolhelp32Snapshot"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3453 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3454 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
|
3455 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3456 return INVALID_HANDLE_VALUE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3457 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3458 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
|
3459 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3460 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3461 BOOL WINAPI process32_first( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3462 HANDLE hSnapshot, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3463 LPPROCESSENTRY32 lppe) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3464 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3465 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
|
3466 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3467 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
|
3468 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3469 g_b_init_process32_first = 1; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3470 s_pfn_Process32_First = (Process32First_Proc) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3471 GetProcAddress (GetModuleHandle ("kernel32.dll"), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3472 "Process32First"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3473 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3474 if (s_pfn_Process32_First == NULL) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3475 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3476 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3477 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3478 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
|
3479 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3480 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3481 BOOL WINAPI process32_next( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3482 HANDLE hSnapshot, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3483 LPPROCESSENTRY32 lppe) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3484 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3485 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
|
3486 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3487 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
|
3488 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3489 g_b_init_process32_next = 1; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3490 s_pfn_Process32_Next = (Process32Next_Proc) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3491 GetProcAddress (GetModuleHandle ("kernel32.dll"), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3492 "Process32Next"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3493 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3494 if (s_pfn_Process32_Next == NULL) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3495 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3496 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3497 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3498 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
|
3499 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3500 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3501 BOOL WINAPI open_thread_token ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3502 HANDLE ThreadHandle, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3503 DWORD DesiredAccess, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3504 BOOL OpenAsSelf, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3505 PHANDLE TokenHandle) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3506 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3507 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
|
3508 HMODULE hm_advapi32 = NULL; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3509 if (is_windows_9x () == TRUE) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3510 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3511 SetLastError (ERROR_NOT_SUPPORTED); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3512 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3513 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3514 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
|
3515 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3516 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
|
3517 hm_advapi32 = LoadLibrary ("Advapi32.dll"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3518 s_pfn_Open_Thread_Token = |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3519 (OpenThreadToken_Proc) GetProcAddress (hm_advapi32, "OpenThreadToken"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3520 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3521 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
|
3522 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3523 SetLastError (ERROR_NOT_SUPPORTED); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3524 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3525 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3526 return ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3527 s_pfn_Open_Thread_Token ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3528 ThreadHandle, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3529 DesiredAccess, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3530 OpenAsSelf, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3531 TokenHandle) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3532 ); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3533 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3534 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3535 BOOL WINAPI impersonate_self ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3536 SECURITY_IMPERSONATION_LEVEL ImpersonationLevel) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3537 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3538 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
|
3539 HMODULE hm_advapi32 = NULL; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3540 if (is_windows_9x () == TRUE) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3541 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3542 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3543 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3544 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
|
3545 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3546 g_b_init_impersonate_self = 1; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3547 hm_advapi32 = LoadLibrary ("Advapi32.dll"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3548 s_pfn_Impersonate_Self = |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3549 (ImpersonateSelf_Proc) GetProcAddress (hm_advapi32, "ImpersonateSelf"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3550 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3551 if (s_pfn_Impersonate_Self == NULL) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3552 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3553 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3554 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3555 return s_pfn_Impersonate_Self (ImpersonationLevel); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3556 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3557 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3558 BOOL WINAPI revert_to_self (void) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3559 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3560 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
|
3561 HMODULE hm_advapi32 = NULL; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3562 if (is_windows_9x () == TRUE) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3563 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3564 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3565 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3566 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
|
3567 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3568 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
|
3569 hm_advapi32 = LoadLibrary ("Advapi32.dll"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3570 s_pfn_Revert_To_Self = |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3571 (RevertToSelf_Proc) GetProcAddress (hm_advapi32, "RevertToSelf"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3572 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3573 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
|
3574 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3575 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3576 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3577 return s_pfn_Revert_To_Self (); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3578 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3579 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3580 BOOL WINAPI get_process_memory_info ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3581 HANDLE h_proc, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3582 PPROCESS_MEMORY_COUNTERS mem_counters, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3583 DWORD bufsize) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3584 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3585 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
|
3586 HMODULE hm_psapi = NULL; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3587 if (is_windows_9x () == TRUE) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3588 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3589 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3590 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3591 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
|
3592 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3593 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
|
3594 hm_psapi = LoadLibrary ("Psapi.dll"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3595 if (hm_psapi) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3596 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
|
3597 GetProcAddress (hm_psapi, "GetProcessMemoryInfo"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3598 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3599 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
|
3600 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3601 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3602 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3603 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
|
3604 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3605 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3606 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
|
3607 HANDLE h_proc, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3608 DWORD *minrss, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3609 DWORD *maxrss) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3610 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3611 static GetProcessWorkingSetSize_Proc |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3612 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
|
3613 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3614 if (is_windows_9x () == TRUE) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3615 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3616 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3617 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3618 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
|
3619 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3620 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
|
3621 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
|
3622 GetProcAddress (GetModuleHandle ("kernel32.dll"), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3623 "GetProcessWorkingSetSize"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3624 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3625 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
|
3626 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3627 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3628 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3629 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
|
3630 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3631 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3632 BOOL WINAPI global_memory_status ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3633 MEMORYSTATUS *buf) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3634 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3635 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
|
3636 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3637 if (is_windows_9x () == TRUE) |
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 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3640 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3641 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
|
3642 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3643 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
|
3644 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
|
3645 GetProcAddress (GetModuleHandle ("kernel32.dll"), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3646 "GlobalMemoryStatus"); |
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 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
|
3649 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3650 return FALSE; |
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 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
|
3653 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3654 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3655 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
|
3656 MEMORY_STATUS_EX *buf) |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3657 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3658 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
|
3659 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3660 if (is_windows_9x () == TRUE) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3661 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3662 return FALSE; |
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 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
|
3665 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3666 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
|
3667 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
|
3668 GetProcAddress (GetModuleHandle ("kernel32.dll"), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3669 "GlobalMemoryStatusEx"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3670 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3671 if (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
|
3672 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3673 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3674 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3675 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
|
3676 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3677 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3678 Lisp_Object |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3679 w32_list_system_processes () |
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 struct gcpro gcpro1; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3682 Lisp_Object proclist = Qnil; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3683 HANDLE h_snapshot; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3684 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3685 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
|
3686 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3687 if (h_snapshot != INVALID_HANDLE_VALUE) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3688 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3689 PROCESSENTRY32 proc_entry; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3690 DWORD proc_id; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3691 BOOL res; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3692 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3693 GCPRO1 (proclist); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3694 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3695 proc_entry.dwSize = sizeof (PROCESSENTRY32); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3696 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
|
3697 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
|
3698 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3699 proc_id = proc_entry.th32ProcessID; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3700 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
|
3701 } |
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 CloseHandle (h_snapshot); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3704 UNGCPRO; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3705 proclist = Fnreverse (proclist); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3706 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3707 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3708 return proclist; |
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 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3711 static int |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3712 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
|
3713 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3714 TOKEN_PRIVILEGES priv; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3715 DWORD priv_size = sizeof (priv); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3716 DWORD opriv_size = sizeof (*old_priv); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3717 HANDLE h_token = NULL; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3718 HANDLE h_thread = GetCurrentThread (); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3719 int ret_val = 0; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3720 BOOL res; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3721 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3722 res = open_thread_token (h_thread, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3723 TOKEN_QUERY | TOKEN_ADJUST_PRIVILEGES, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3724 FALSE, &h_token); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3725 if (!res && GetLastError () == ERROR_NO_TOKEN) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3726 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3727 if (impersonate_self (SecurityImpersonation)) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3728 res = open_thread_token (h_thread, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3729 TOKEN_QUERY | TOKEN_ADJUST_PRIVILEGES, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3730 FALSE, &h_token); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3731 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3732 if (res) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3733 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3734 priv.PrivilegeCount = 1; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3735 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
|
3736 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
|
3737 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
|
3738 old_priv, &opriv_size) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3739 && GetLastError () != ERROR_NOT_ALL_ASSIGNED) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3740 ret_val = 1; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3741 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3742 if (h_token) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3743 CloseHandle (h_token); |
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 ret_val; |
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 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3748 static int |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3749 restore_privilege (TOKEN_PRIVILEGES *priv) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3750 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3751 DWORD priv_size = sizeof (*priv); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3752 HANDLE h_token = NULL; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3753 int ret_val = 0; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3754 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3755 if (open_thread_token (GetCurrentThread (), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3756 TOKEN_QUERY | TOKEN_ADJUST_PRIVILEGES, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3757 FALSE, &h_token)) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3758 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3759 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
|
3760 && GetLastError () != ERROR_NOT_ALL_ASSIGNED) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3761 ret_val = 1; |
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 if (h_token) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3764 CloseHandle (h_token); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3765 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3766 return ret_val; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3767 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3768 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3769 static Lisp_Object |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3770 ltime (time_sec, time_usec) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3771 long time_sec, time_usec; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3772 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3773 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
|
3774 make_number (time_sec & 0xffff), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3775 make_number (time_usec)); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3776 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3777 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3778 static int |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3779 process_times (h_proc, ctime, etime, stime, utime, pcpu) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3780 HANDLE h_proc; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3781 Lisp_Object *ctime, *etime, *stime, *utime; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3782 double *pcpu; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3783 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3784 FILETIME ft_creation, ft_exit, ft_kernel, ft_user, ft_current; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3785 long ctime_sec, ctime_usec, stime_sec, stime_usec, utime_sec, utime_usec; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3786 long etime_sec, etime_usec; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3787 long double tem1, tem2, tem; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3788 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3789 if (!h_proc |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3790 || !get_process_times_fn |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3791 || !(*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
|
3792 &ft_kernel, &ft_user)) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3793 return 0; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3794 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3795 GetSystemTimeAsFileTime (&ft_current); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3796 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3797 tem1 = convert_time_raw (ft_kernel) * 0.1L; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3798 stime_usec = fmodl (tem1, 1000000.0L); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3799 stime_sec = tem1 * 0.000001L; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3800 *stime = ltime (stime_sec, stime_usec); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3801 tem2 = convert_time_raw (ft_user) * 0.1L; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3802 utime_usec = fmodl (tem2, 1000000.0L); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3803 utime_sec = tem2 * 0.000001L; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3804 *utime = ltime (utime_sec, utime_usec); |
97371
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
3805 tem = convert_time_raw (ft_creation); |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
3806 /* 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
|
3807 if (tem) |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
3808 tem = (tem - utc_base) * 0.1; |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3809 ctime_usec = fmodl (tem, 1000000.0L); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3810 ctime_sec = tem * 0.000001L; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3811 *ctime = ltime (ctime_sec, ctime_usec); |
97371
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
3812 if (tem) |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
3813 tem = (convert_time_raw (ft_current) - utc_base) * 0.1L - tem; |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3814 etime_usec = fmodl (tem, 1000000.0L); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3815 etime_sec = tem * 0.000001L; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3816 *etime = ltime (etime_sec, etime_usec); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3817 |
97371
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
3818 if (tem) |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
3819 { |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
3820 *pcpu = 100.0 * (tem1 + tem2) / tem; |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
3821 if (*pcpu > 100) |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
3822 *pcpu = 100.0; |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
3823 } |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
3824 else |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
3825 *pcpu = 0; |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
3826 |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
3827 return 1; |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3828 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3829 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3830 Lisp_Object |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3831 w32_system_process_attributes (pid) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3832 Lisp_Object pid; |
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 struct gcpro gcpro1, gcpro2, gcpro3; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3835 Lisp_Object attrs = Qnil; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3836 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
|
3837 HANDLE h_snapshot, h_proc; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3838 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
|
3839 int found_proc = 0; |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3840 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
|
3841 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
|
3842 DWORD glength = sizeof (gname); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3843 HANDLE token = NULL; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3844 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
|
3845 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
|
3846 DWORD blen = 0; |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3847 TOKEN_USER user_token; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3848 TOKEN_PRIMARY_GROUP group_token; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3849 int euid; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3850 int egid; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3851 DWORD sess; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3852 PROCESS_MEMORY_COUNTERS mem; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3853 PROCESS_MEMORY_COUNTERS_EX mem_ex; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3854 DWORD minrss, maxrss; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3855 MEMORYSTATUS memst; |
97486
2c195017488c
(_MEMORY_STATUS_EX, MEMORY_STATUS_EX, LPMEMORY_STATUS_EX): Rename from
Eli Zaretskii <eliz@gnu.org>
parents:
97372
diff
changeset
|
3856 MEMORY_STATUS_EX memstex; |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3857 double totphys = 0.0; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3858 Lisp_Object ctime, stime, utime, etime; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3859 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
|
3860 BOOL result = FALSE; |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3861 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3862 CHECK_NUMBER_OR_FLOAT (pid); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3863 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
|
3864 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3865 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
|
3866 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3867 GCPRO3 (attrs, decoded_cmd, tem); |
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 if (h_snapshot != INVALID_HANDLE_VALUE) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3870 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3871 PROCESSENTRY32 pe; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3872 BOOL res; |
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 pe.dwSize = sizeof (PROCESSENTRY32); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3875 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
|
3876 res = process32_next (h_snapshot, &pe)) |
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 if (proc_id == pe.th32ProcessID) |
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 if (proc_id == 0) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3881 decoded_cmd = build_string ("Idle"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3882 else |
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 /* 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
|
3885 encoding. */ |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3886 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
|
3887 strlen (pe.szExeFile)); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3888 decoded_cmd = |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3889 code_convert_string_norecord (cmd_str, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3890 Vlocale_coding_system, 0); |
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 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
|
3893 attrs = Fcons (Fcons (Qppid, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3894 make_fixnum_or_float (pe.th32ParentProcessID)), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3895 attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3896 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
|
3897 attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3898 attrs = Fcons (Fcons (Qthcount, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3899 make_fixnum_or_float (pe.cntThreads)), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3900 attrs); |
97372
aeb822613377
(w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents:
97371
diff
changeset
|
3901 found_proc = 1; |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3902 break; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3903 } |
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 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3908 |
97372
aeb822613377
(w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents:
97371
diff
changeset
|
3909 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
|
3910 { |
aeb822613377
(w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents:
97371
diff
changeset
|
3911 UNGCPRO; |
aeb822613377
(w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents:
97371
diff
changeset
|
3912 return Qnil; |
aeb822613377
(w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents:
97371
diff
changeset
|
3913 } |
aeb822613377
(w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents:
97371
diff
changeset
|
3914 |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3915 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
|
3916 FALSE, proc_id); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3917 /* 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
|
3918 enabling the SeDebugPrivilege in our process. */ |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3919 if (!h_proc) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3920 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3921 TOKEN_PRIVILEGES priv_current; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3922 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3923 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
|
3924 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3925 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
|
3926 FALSE, proc_id); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3927 restore_privilege (&priv_current); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3928 revert_to_self (); |
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 } |
97875
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3931 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
|
3932 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3933 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
|
3934 if (result) |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3935 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3936 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
|
3937 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
|
3938 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3939 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
|
3940 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
|
3941 (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
|
3942 if (result) |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3943 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3944 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
|
3945 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
|
3946 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3947 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
|
3948 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
|
3949 uname, &ulength, |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3950 domain, &dlength, |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3951 &user_type); |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3952 if (result) |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3953 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
|
3954 else |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3955 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3956 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
|
3957 result = TRUE; |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3958 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3959 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3960 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
|
3961 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3962 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3963 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3964 if (result) |
97491
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3965 { |
97875
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3966 /* 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
|
3967 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
|
3968 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3969 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
|
3970 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
|
3971 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3972 else |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3973 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3974 /* 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
|
3975 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
|
3976 (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
|
3977 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
|
3978 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3979 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
|
3980 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
|
3981 (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
|
3982 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3983 if (result) |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3984 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3985 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
|
3986 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
|
3987 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3988 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
|
3989 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
|
3990 result = |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3991 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
|
3992 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
|
3993 &user_type); |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3994 if (result) |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3995 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
|
3996 egid, gname); |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3997 else |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3998 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
3999 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
|
4000 result = TRUE; |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4001 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4002 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4003 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
|
4004 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4005 } |
97491
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
4006 } |
97875
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4007 if (buf) |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4008 xfree (buf); |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4009 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4010 if (!result) |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4011 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4012 if (!is_windows_9x ()) |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4013 { |
97875
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4014 /* 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
|
4015 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
|
4016 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
|
4017 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
|
4018 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
|
4019 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
|
4020 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
|
4021 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
|
4022 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
|
4023 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4024 /* 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
|
4025 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
|
4026 user. */ |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4027 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
|
4028 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4029 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
|
4030 euid = 0; |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4031 else |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4032 euid = 123; |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4033 egid = euid; |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4034 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
|
4035 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
|
4036 ulength = strlen (uname); |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4037 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4038 else |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4039 { |
97875
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4040 euid = 123; |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4041 egid = 123; |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4042 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
|
4043 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
|
4044 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
|
4045 glength = strlen (gname); |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4046 } |
97875
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4047 if (token) |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4048 CloseHandle (token); |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4049 } |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4050 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4051 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
|
4052 tem = make_unibyte_string (uname, ulength); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4053 attrs = Fcons (Fcons (Quser, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4054 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
|
4055 attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4056 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
|
4057 tem = make_unibyte_string (gname, glength); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4058 attrs = Fcons (Fcons (Qgroup, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4059 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
|
4060 attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4061 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4062 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
|
4063 #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
|
4064 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
|
4065 #else |
1f8e4a26957e
(w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents:
97491
diff
changeset
|
4066 /* 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
|
4067 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
|
4068 { |
1f8e4a26957e
(w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents:
97491
diff
changeset
|
4069 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
|
4070 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
|
4071 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
|
4072 |
1f8e4a26957e
(w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents:
97491
diff
changeset
|
4073 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
|
4074 } |
1f8e4a26957e
(w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents:
97491
diff
changeset
|
4075 #endif /* __GNUC__ || _MSC_VER >= 1300 */ |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4076 else if (global_memory_status (&memst)) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4077 totphys = memst.dwTotalPhys / 1024.0; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4078 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4079 if (h_proc |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4080 && 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
|
4081 sizeof (mem_ex))) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4082 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4083 DWORD rss = mem_ex.WorkingSetSize / 1024; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4084 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4085 attrs = Fcons (Fcons (Qmajflt, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4086 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
|
4087 attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4088 attrs = Fcons (Fcons (Qvsize, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4089 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
|
4090 attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4091 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
|
4092 if (totphys) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4093 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
|
4094 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4095 else if (h_proc |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4096 && 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
|
4097 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4098 DWORD rss = mem_ex.WorkingSetSize / 1024; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4099 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4100 attrs = Fcons (Fcons (Qmajflt, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4101 make_fixnum_or_float (mem.PageFaultCount)), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4102 attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4103 attrs = Fcons (Fcons (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
|
4104 if (totphys) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4105 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
|
4106 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4107 else if (h_proc |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4108 && 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
|
4109 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4110 DWORD rss = maxrss / 1024; |
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 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
|
4113 if (totphys) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4114 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
|
4115 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4116 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4117 if (process_times (h_proc, &ctime, &etime, &stime, &utime, &pcpu)) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4118 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4119 attrs = Fcons (Fcons (Qutime, utime), attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4120 attrs = Fcons (Fcons (Qstime, stime), attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4121 attrs = Fcons (Fcons (Qstart, ctime), attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4122 attrs = Fcons (Fcons (Qetime, etime), attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4123 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
|
4124 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4125 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4126 /* 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
|
4127 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4128 if (h_proc) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4129 CloseHandle (h_proc); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4130 UNGCPRO; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4131 return attrs; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4132 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4133 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4134 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4135 #ifdef HAVE_SOCKETS |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4136 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4137 /* 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
|
4138 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
|
4139 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4140 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
|
4141 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
|
4142 otherwise provide the minimum necessary functionality |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4143 (eg. gethostname). */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4144 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4145 /* function pointers for relevant socket functions */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4146 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
|
4147 void (PASCAL *pfn_WSASetLastError) (int iError); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4148 int (PASCAL *pfn_WSAGetLastError) (void); |
71889
2385a5c8186c
Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents:
70740
diff
changeset
|
4149 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
|
4150 HANDLE (PASCAL *pfn_WSACreateEvent) (void); |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
4151 int (PASCAL *pfn_WSACloseEvent) (HANDLE hEvent); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4152 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
|
4153 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
|
4154 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
|
4155 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
|
4156 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
|
4157 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
|
4158 int (PASCAL *pfn_closesocket) (SOCKET s); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4159 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
|
4160 int (PASCAL *pfn_WSACleanup) (void); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4161 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4162 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
|
4163 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
|
4164 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
|
4165 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
|
4166 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
|
4167 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
|
4168 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
|
4169 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
|
4170 const char * optval, int optlen); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4171 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
|
4172 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
|
4173 int * namelen); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4174 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
|
4175 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
|
4176 struct sockaddr * from, int * fromlen); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4177 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
|
4178 const struct sockaddr * to, int tolen); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4179 |
15342
e64bd8310edc
(init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents:
15326
diff
changeset
|
4180 /* 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
|
4181 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
|
4182 #ifndef HANDLE_FLAG_INHERIT |
e64bd8310edc
(init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents:
15326
diff
changeset
|
4183 #define HANDLE_FLAG_INHERIT 1 |
e64bd8310edc
(init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents:
15326
diff
changeset
|
4184 #endif |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4185 |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4186 HANDLE winsock_lib; |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4187 static int winsock_inuse; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4188 |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4189 BOOL |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4190 term_winsock (void) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4191 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4192 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
|
4193 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4194 /* 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
|
4195 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
|
4196 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
|
4197 if (pfn_WSACleanup () == 0 || |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4198 pfn_WSAGetLastError () == WSAENETDOWN) |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4199 { |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4200 if (FreeLibrary (winsock_lib)) |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4201 winsock_lib = NULL; |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4202 return TRUE; |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4203 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4204 } |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4205 return FALSE; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4206 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4207 |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4208 BOOL |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4209 init_winsock (int load_now) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4210 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4211 WSADATA winsockData; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4212 |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4213 if (winsock_lib != NULL) |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4214 return TRUE; |
15342
e64bd8310edc
(init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents:
15326
diff
changeset
|
4215 |
e64bd8310edc
(init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents:
15326
diff
changeset
|
4216 pfn_SetHandleInformation = NULL; |
e64bd8310edc
(init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents:
15326
diff
changeset
|
4217 pfn_SetHandleInformation |
e64bd8310edc
(init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents:
15326
diff
changeset
|
4218 = (void *) GetProcAddress (GetModuleHandle ("kernel32.dll"), |
e64bd8310edc
(init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents:
15326
diff
changeset
|
4219 "SetHandleInformation"); |
e64bd8310edc
(init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents:
15326
diff
changeset
|
4220 |
71899
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
4221 winsock_lib = LoadLibrary ("Ws2_32.dll"); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4222 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4223 if (winsock_lib != NULL) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4224 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4225 /* dynamically link to socket functions */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4226 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4227 #define LOAD_PROC(fn) \ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4228 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
|
4229 goto fail; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4230 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4231 LOAD_PROC( WSAStartup ); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4232 LOAD_PROC( WSASetLastError ); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4233 LOAD_PROC( WSAGetLastError ); |
71889
2385a5c8186c
Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents:
70740
diff
changeset
|
4234 LOAD_PROC( WSAEventSelect ); |
71899
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
4235 LOAD_PROC( WSACreateEvent ); |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
4236 LOAD_PROC( WSACloseEvent ); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4237 LOAD_PROC( socket ); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4238 LOAD_PROC( bind ); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4239 LOAD_PROC( connect ); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4240 LOAD_PROC( ioctlsocket ); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4241 LOAD_PROC( recv ); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4242 LOAD_PROC( send ); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4243 LOAD_PROC( closesocket ); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4244 LOAD_PROC( shutdown ); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4245 LOAD_PROC( htons ); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4246 LOAD_PROC( ntohs ); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4247 LOAD_PROC( inet_addr ); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4248 LOAD_PROC( gethostname ); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4249 LOAD_PROC( gethostbyname ); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4250 LOAD_PROC( getservbyname ); |
45090
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4251 LOAD_PROC( getpeername ); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4252 LOAD_PROC( WSACleanup ); |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4253 LOAD_PROC( setsockopt ); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4254 LOAD_PROC( listen ); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4255 LOAD_PROC( getsockname ); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4256 LOAD_PROC( accept ); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4257 LOAD_PROC( recvfrom ); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4258 LOAD_PROC( sendto ); |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4259 #undef LOAD_PROC |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4260 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4261 /* specify version 1.1 of winsock */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4262 if (pfn_WSAStartup (0x101, &winsockData) == 0) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4263 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4264 if (winsockData.wVersion != 0x101) |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4265 goto fail; |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4266 |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4267 if (!load_now) |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4268 { |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4269 /* 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
|
4270 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
|
4271 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
|
4272 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
|
4273 connection to be established. */ |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4274 |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4275 pfn_WSACleanup (); |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4276 FreeLibrary (winsock_lib); |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4277 winsock_lib = NULL; |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4278 } |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4279 winsock_inuse = 0; |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4280 return TRUE; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4281 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4282 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4283 fail: |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4284 FreeLibrary (winsock_lib); |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4285 winsock_lib = NULL; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4286 } |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4287 |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4288 return FALSE; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4289 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4290 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4291 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4292 int h_errno = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4293 |
96462 | 4294 /* 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
|
4295 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
|
4296 are already in <sys/socket.h> */ |
74947 | 4297 static void |
4298 set_errno () | |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4299 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4300 if (winsock_lib == NULL) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4301 h_errno = EINVAL; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4302 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4303 h_errno = pfn_WSAGetLastError (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4304 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4305 switch (h_errno) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4306 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4307 case WSAEACCES: h_errno = EACCES; break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4308 case WSAEBADF: h_errno = EBADF; break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4309 case WSAEFAULT: h_errno = EFAULT; break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4310 case WSAEINTR: h_errno = EINTR; break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4311 case WSAEINVAL: h_errno = EINVAL; break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4312 case WSAEMFILE: h_errno = EMFILE; break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4313 case WSAENAMETOOLONG: h_errno = ENAMETOOLONG; break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4314 case WSAENOTEMPTY: h_errno = ENOTEMPTY; break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4315 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4316 errno = h_errno; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4317 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4318 |
74947 | 4319 static void |
4320 check_errno () | |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4321 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4322 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
|
4323 pfn_WSASetLastError (0); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4324 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4325 |
24857
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4326 /* Extend strerror to handle the winsock-specific error codes. */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4327 struct { |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4328 int errnum; |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4329 char * msg; |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4330 } _wsa_errlist[] = { |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4331 WSAEINTR , "Interrupted function call", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4332 WSAEBADF , "Bad file descriptor", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4333 WSAEACCES , "Permission denied", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4334 WSAEFAULT , "Bad address", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4335 WSAEINVAL , "Invalid argument", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4336 WSAEMFILE , "Too many open files", |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
4337 |
24857
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4338 WSAEWOULDBLOCK , "Resource temporarily unavailable", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4339 WSAEINPROGRESS , "Operation now in progress", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4340 WSAEALREADY , "Operation already in progress", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4341 WSAENOTSOCK , "Socket operation on non-socket", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4342 WSAEDESTADDRREQ , "Destination address required", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4343 WSAEMSGSIZE , "Message too long", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4344 WSAEPROTOTYPE , "Protocol wrong type for socket", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4345 WSAENOPROTOOPT , "Bad protocol option", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4346 WSAEPROTONOSUPPORT , "Protocol not supported", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4347 WSAESOCKTNOSUPPORT , "Socket type not supported", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4348 WSAEOPNOTSUPP , "Operation not supported", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4349 WSAEPFNOSUPPORT , "Protocol family not supported", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4350 WSAEAFNOSUPPORT , "Address family not supported by protocol family", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4351 WSAEADDRINUSE , "Address already in use", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4352 WSAEADDRNOTAVAIL , "Cannot assign requested address", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4353 WSAENETDOWN , "Network is down", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4354 WSAENETUNREACH , "Network is unreachable", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4355 WSAENETRESET , "Network dropped connection on reset", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4356 WSAECONNABORTED , "Software caused connection abort", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4357 WSAECONNRESET , "Connection reset by peer", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4358 WSAENOBUFS , "No buffer space available", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4359 WSAEISCONN , "Socket is already connected", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4360 WSAENOTCONN , "Socket is not connected", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4361 WSAESHUTDOWN , "Cannot send after socket shutdown", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4362 WSAETOOMANYREFS , "Too many references", /* not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4363 WSAETIMEDOUT , "Connection timed out", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4364 WSAECONNREFUSED , "Connection refused", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4365 WSAELOOP , "Network loop", /* not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4366 WSAENAMETOOLONG , "Name is too long", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4367 WSAEHOSTDOWN , "Host is down", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4368 WSAEHOSTUNREACH , "No route to host", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4369 WSAENOTEMPTY , "Buffer not empty", /* not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4370 WSAEPROCLIM , "Too many processes", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4371 WSAEUSERS , "Too many users", /* not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4372 WSAEDQUOT , "Double quote in host name", /* really not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4373 WSAESTALE , "Data is stale", /* not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4374 WSAEREMOTE , "Remote error", /* not sure */ |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
4375 |
24857
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4376 WSASYSNOTREADY , "Network subsystem is unavailable", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4377 WSAVERNOTSUPPORTED , "WINSOCK.DLL version out of range", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4378 WSANOTINITIALISED , "Winsock not initialized successfully", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4379 WSAEDISCON , "Graceful shutdown in progress", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4380 #ifdef WSAENOMORE |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4381 WSAENOMORE , "No more operations allowed", /* not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4382 WSAECANCELLED , "Operation cancelled", /* not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4383 WSAEINVALIDPROCTABLE , "Invalid procedure table from service provider", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4384 WSAEINVALIDPROVIDER , "Invalid service provider version number", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4385 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
|
4386 WSASYSCALLFAILURE , "System call failure", |
24857
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4387 WSASERVICE_NOT_FOUND , "Service not found", /* not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4388 WSATYPE_NOT_FOUND , "Class type not found", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4389 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
|
4390 WSA_E_CANCELLED , "Operation already cancelled", /* really not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4391 WSAEREFUSED , "Operation refused", /* not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4392 #endif |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
4393 |
24857
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4394 WSAHOST_NOT_FOUND , "Host not found", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4395 WSATRY_AGAIN , "Authoritative host not found during name lookup", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4396 WSANO_RECOVERY , "Non-recoverable error during name lookup", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4397 WSANO_DATA , "Valid name, no data record of requested type", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4398 |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4399 -1, NULL |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4400 }; |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4401 |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4402 char * |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4403 sys_strerror(int error_no) |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4404 { |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4405 int i; |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4406 static char unknown_msg[40]; |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4407 |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
4408 if (error_no >= 0 && error_no < sys_nerr) |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
4409 return sys_errlist[error_no]; |
24857
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4410 |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4411 for (i = 0; _wsa_errlist[i].errnum >= 0; i++) |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4412 if (_wsa_errlist[i].errnum == error_no) |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4413 return _wsa_errlist[i].msg; |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4414 |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4415 sprintf(unknown_msg, "Unidentified error: %d", error_no); |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4416 return unknown_msg; |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4417 } |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4418 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4419 /* [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
|
4420 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
|
4421 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
|
4422 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4423 //#define SOCK_REPLACE_HANDLE |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4424 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4425 #ifdef SOCK_REPLACE_HANDLE |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4426 #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
|
4427 #else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4428 #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
|
4429 #endif |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4430 |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4431 int socket_to_fd (SOCKET s); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4432 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4433 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4434 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
|
4435 { |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4436 SOCKET s; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4437 |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4438 if (winsock_lib == NULL) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4439 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4440 h_errno = ENETDOWN; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4441 return INVALID_SOCKET; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4442 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4443 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4444 check_errno (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4445 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4446 /* call the real socket function */ |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4447 s = pfn_socket (af, type, protocol); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
4448 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4449 if (s != INVALID_SOCKET) |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4450 return socket_to_fd (s); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4451 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4452 set_errno (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4453 return -1; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4454 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4455 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4456 /* 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
|
4457 int |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4458 socket_to_fd (SOCKET s) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4459 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4460 int fd; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4461 child_process * cp; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4462 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4463 /* 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
|
4464 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
|
4465 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
|
4466 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
|
4467 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
|
4468 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4469 /* 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
|
4470 fd = _open ("NUL:", _O_RDWR); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4471 if (fd >= 0) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4472 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4473 #ifdef SOCK_REPLACE_HANDLE |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4474 /* 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
|
4475 CloseHandle ((HANDLE) _get_osfhandle (fd)); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4476 _free_osfhnd (fd); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4477 _set_osfhnd (fd, s); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4478 /* setmode (fd, _O_BINARY); */ |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4479 #else |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4480 /* 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
|
4481 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
|
4482 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
|
4483 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
|
4484 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4485 /* 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
|
4486 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
|
4487 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
|
4488 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
|
4489 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
|
4490 if (pfn_SetHandleInformation) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4491 { |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4492 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
|
4493 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4494 else |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4495 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4496 HANDLE parent = GetCurrentProcess (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4497 HANDLE new_s = INVALID_HANDLE_VALUE; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4498 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4499 if (DuplicateHandle (parent, |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4500 (HANDLE) s, |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4501 parent, |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4502 &new_s, |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4503 0, |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4504 FALSE, |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4505 DUPLICATE_SAME_ACCESS)) |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
4506 { |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4507 /* 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
|
4508 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
|
4509 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
|
4510 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
|
4511 long nonblocking = 0; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4512 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
|
4513 { |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4514 pfn_closesocket (s); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4515 s = (SOCKET) new_s; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4516 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4517 else |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4518 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4519 CloseHandle (new_s); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4520 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
4521 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4522 } |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4523 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4524 fd_info[fd].hnd = (HANDLE) s; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4525 #endif |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4526 |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4527 /* set our own internal flags */ |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4528 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
|
4529 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4530 cp = new_child (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4531 if (cp) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4532 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4533 cp->fd = fd; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4534 cp->status = STATUS_READ_ACKNOWLEDGED; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4535 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4536 /* attach child_process to fd_info */ |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4537 if (fd_info[ fd ].cp != NULL) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4538 { |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4539 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
|
4540 abort (); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4541 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4542 |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4543 fd_info[ fd ].cp = cp; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4544 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4545 /* success! */ |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4546 winsock_inuse++; /* count open sockets */ |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4547 return fd; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4548 } |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4549 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4550 /* clean up */ |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4551 _close (fd); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4552 } |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4553 pfn_closesocket (s); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4554 h_errno = EMFILE; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4555 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4556 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4557 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4558 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4559 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4560 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
|
4561 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4562 if (winsock_lib == NULL) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4563 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4564 h_errno = ENOTSOCK; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4565 return SOCKET_ERROR; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4566 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4567 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4568 check_errno (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4569 if (fd_info[s].flags & FILE_SOCKET) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4570 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4571 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
|
4572 if (rc == SOCKET_ERROR) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4573 set_errno (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4574 return rc; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4575 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4576 h_errno = ENOTSOCK; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4577 return SOCKET_ERROR; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4578 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4579 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4580 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4581 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4582 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
|
4583 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4584 if (winsock_lib == NULL) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4585 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4586 h_errno = ENOTSOCK; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4587 return SOCKET_ERROR; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4588 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4589 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4590 check_errno (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4591 if (fd_info[s].flags & FILE_SOCKET) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4592 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4593 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
|
4594 if (rc == SOCKET_ERROR) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4595 set_errno (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4596 return rc; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4597 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4598 h_errno = ENOTSOCK; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4599 return SOCKET_ERROR; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4600 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4601 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4602 u_short |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4603 sys_htons (u_short hostshort) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4604 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4605 return (winsock_lib != NULL) ? |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4606 pfn_htons (hostshort) : hostshort; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4607 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4608 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4609 u_short |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4610 sys_ntohs (u_short netshort) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4611 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4612 return (winsock_lib != NULL) ? |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4613 pfn_ntohs (netshort) : netshort; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4614 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4615 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4616 unsigned long |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4617 sys_inet_addr (const char * cp) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4618 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4619 return (winsock_lib != NULL) ? |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4620 pfn_inet_addr (cp) : INADDR_NONE; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4621 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4622 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4623 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4624 sys_gethostname (char * name, int namelen) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4625 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4626 if (winsock_lib != NULL) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4627 return pfn_gethostname (name, namelen); |
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 if (namelen > MAX_COMPUTERNAME_LENGTH) |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
4630 return !GetComputerName (name, (DWORD *)&namelen); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4631 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4632 h_errno = EFAULT; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4633 return SOCKET_ERROR; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4634 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4635 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4636 struct hostent * |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4637 sys_gethostbyname(const char * name) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4638 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4639 struct hostent * host; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4640 |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4641 if (winsock_lib == NULL) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4642 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4643 h_errno = ENETDOWN; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4644 return NULL; |
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 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4647 check_errno (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4648 host = pfn_gethostbyname (name); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4649 if (!host) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4650 set_errno (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4651 return host; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4652 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4653 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4654 struct servent * |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4655 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
|
4656 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4657 struct servent * serv; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4658 |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4659 if (winsock_lib == NULL) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4660 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4661 h_errno = ENETDOWN; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4662 return NULL; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4663 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4664 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4665 check_errno (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4666 serv = pfn_getservbyname (name, proto); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4667 if (!serv) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4668 set_errno (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4669 return serv; |
9803 | 4670 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4671 |
18725
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4672 int |
45090
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4673 sys_getpeername (int s, struct sockaddr *addr, int * namelen) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4674 { |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4675 if (winsock_lib == NULL) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4676 { |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4677 h_errno = ENETDOWN; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4678 return SOCKET_ERROR; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4679 } |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4680 |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4681 check_errno (); |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4682 if (fd_info[s].flags & FILE_SOCKET) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4683 { |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4684 int rc = pfn_getpeername (SOCK_HANDLE (s), addr, namelen); |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4685 if (rc == SOCKET_ERROR) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4686 set_errno (); |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4687 return rc; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4688 } |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4689 h_errno = ENOTSOCK; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4690 return SOCKET_ERROR; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4691 } |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4692 |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4693 |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4694 int |
18725
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4695 sys_shutdown (int s, int how) |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4696 { |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4697 if (winsock_lib == NULL) |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4698 { |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4699 h_errno = ENETDOWN; |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4700 return SOCKET_ERROR; |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4701 } |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4702 |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4703 check_errno (); |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4704 if (fd_info[s].flags & FILE_SOCKET) |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4705 { |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4706 int rc = pfn_shutdown (SOCK_HANDLE (s), how); |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4707 if (rc == SOCKET_ERROR) |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4708 set_errno (); |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4709 return rc; |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4710 } |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4711 h_errno = ENOTSOCK; |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4712 return SOCKET_ERROR; |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4713 } |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4714 |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4715 int |
63038
ac1cd1222417
(sys_setsockopt): Change arg 4 to `const void *'. In the
Eli Zaretskii <eliz@gnu.org>
parents:
63020
diff
changeset
|
4716 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
|
4717 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4718 if (winsock_lib == NULL) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4719 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4720 h_errno = ENETDOWN; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4721 return SOCKET_ERROR; |
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 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4724 check_errno (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4725 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
|
4726 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4727 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
|
4728 (const char *)optval, optlen); |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4729 if (rc == SOCKET_ERROR) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4730 set_errno (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4731 return rc; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4732 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4733 h_errno = ENOTSOCK; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
4734 return SOCKET_ERROR; |
44042
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 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4737 int |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4738 sys_listen (int s, int backlog) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4739 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4740 if (winsock_lib == NULL) |
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 h_errno = ENETDOWN; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4743 return SOCKET_ERROR; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4744 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4745 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4746 check_errno (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4747 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
|
4748 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4749 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
|
4750 if (rc == SOCKET_ERROR) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4751 set_errno (); |
71889
2385a5c8186c
Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents:
70740
diff
changeset
|
4752 else |
71899
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
4753 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
|
4754 return rc; |
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 h_errno = ENOTSOCK; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
4757 return SOCKET_ERROR; |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4758 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4759 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4760 int |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4761 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
|
4762 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4763 if (winsock_lib == NULL) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4764 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4765 h_errno = ENETDOWN; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4766 return SOCKET_ERROR; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4767 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4768 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4769 check_errno (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4770 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
|
4771 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4772 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
|
4773 if (rc == SOCKET_ERROR) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4774 set_errno (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4775 return rc; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4776 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4777 h_errno = ENOTSOCK; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
4778 return SOCKET_ERROR; |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4779 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4780 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4781 int |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4782 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
|
4783 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4784 if (winsock_lib == NULL) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4785 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4786 h_errno = ENETDOWN; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4787 return -1; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4788 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4789 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4790 check_errno (); |
71889
2385a5c8186c
Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents:
70740
diff
changeset
|
4791 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
|
4792 { |
44437
81e8a128e49f
(sys_accept): Don't hide variable `s'.
Juanma Barranquero <lekktu@gmail.com>
parents:
44042
diff
changeset
|
4793 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
|
4794 int fd = -1; |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
4795 if (t == INVALID_SOCKET) |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
4796 set_errno (); |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
4797 else |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
4798 fd = socket_to_fd (t); |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
4799 |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
4800 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
|
4801 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
|
4802 return fd; |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4803 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4804 h_errno = ENOTSOCK; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4805 return -1; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4806 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4807 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4808 int |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4809 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
|
4810 struct sockaddr * from, int * fromlen) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4811 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4812 if (winsock_lib == NULL) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4813 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4814 h_errno = ENETDOWN; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4815 return SOCKET_ERROR; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4816 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4817 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4818 check_errno (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4819 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
|
4820 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4821 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
|
4822 if (rc == SOCKET_ERROR) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4823 set_errno (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4824 return rc; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4825 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4826 h_errno = ENOTSOCK; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4827 return SOCKET_ERROR; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4828 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4829 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4830 int |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4831 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
|
4832 const struct sockaddr * to, int tolen) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4833 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4834 if (winsock_lib == NULL) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4835 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4836 h_errno = ENETDOWN; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4837 return SOCKET_ERROR; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4838 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4839 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4840 check_errno (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4841 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
|
4842 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4843 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
|
4844 if (rc == SOCKET_ERROR) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4845 set_errno (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4846 return rc; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4847 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4848 h_errno = ENOTSOCK; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4849 return SOCKET_ERROR; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4850 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4851 |
45090
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4852 /* 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
|
4853 solely for making sockets non-blocking. */ |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4854 int |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4855 fcntl (int s, int cmd, int options) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4856 { |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4857 if (winsock_lib == NULL) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4858 { |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4859 h_errno = ENETDOWN; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4860 return -1; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4861 } |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4862 |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4863 check_errno (); |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4864 if (fd_info[s].flags & FILE_SOCKET) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4865 { |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4866 if (cmd == F_SETFL && options == O_NDELAY) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4867 { |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4868 unsigned long nblock = 1; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4869 int rc = pfn_ioctlsocket (SOCK_HANDLE (s), FIONBIO, &nblock); |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4870 if (rc == SOCKET_ERROR) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4871 set_errno(); |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4872 /* 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
|
4873 fd_info[s].flags |= FILE_NDELAY; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4874 return rc; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4875 } |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4876 else |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4877 { |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4878 h_errno = EINVAL; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4879 return SOCKET_ERROR; |
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 } |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4882 h_errno = ENOTSOCK; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4883 return SOCKET_ERROR; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4884 } |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4885 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4886 #endif /* HAVE_SOCKETS */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4887 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4888 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4889 /* 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
|
4890 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
|
4891 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4892 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4893 sys_close (int fd) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4894 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4895 int rc; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4896 |
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
|
4897 if (fd < 0) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4898 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4899 errno = EBADF; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4900 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4901 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4902 |
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
|
4903 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
|
4904 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4905 child_process * cp = fd_info[fd].cp; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4906 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4907 fd_info[fd].cp = NULL; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4908 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4909 if (CHILD_ACTIVE (cp)) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4910 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4911 /* 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
|
4912 int i; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4913 for (i = 0; i < MAXDESC; i++) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4914 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4915 if (i == fd) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4916 continue; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4917 if (fd_info[i].cp == cp) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4918 break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4919 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4920 if (i == MAXDESC) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4921 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4922 #ifdef HAVE_SOCKETS |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4923 if (fd_info[fd].flags & FILE_SOCKET) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4924 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4925 #ifndef SOCK_REPLACE_HANDLE |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4926 if (winsock_lib == NULL) abort (); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4927 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4928 pfn_shutdown (SOCK_HANDLE (fd), 2); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4929 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
|
4930 #endif |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4931 winsock_inuse--; /* count open sockets */ |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4932 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4933 #endif |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4934 delete_child (cp); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4935 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4936 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4937 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4938 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4939 /* 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
|
4940 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
|
4941 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
|
4942 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
|
4943 rc = _close (fd); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4944 |
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
|
4945 if (rc == 0 && fd < MAXDESC) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4946 fd_info[fd].flags = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4947 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4948 return rc; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4949 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4950 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4951 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4952 sys_dup (int fd) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4953 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4954 int new_fd; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4955 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4956 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
|
4957 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
|
4958 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4959 /* duplicate our internal info as well */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4960 fd_info[new_fd] = fd_info[fd]; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4961 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4962 return new_fd; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4963 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4964 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4965 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4966 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4967 sys_dup2 (int src, int dst) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4968 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4969 int rc; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4970 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4971 if (dst < 0 || dst >= MAXDESC) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4972 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4973 errno = EBADF; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4974 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4975 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4976 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4977 /* 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
|
4978 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
|
4979 sys_close (dst); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
4980 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4981 rc = _dup2 (src, dst); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4982 if (rc == 0) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4983 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4984 /* duplicate our internal info as well */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4985 fd_info[dst] = fd_info[src]; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4986 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4987 return rc; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4988 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4989 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4990 /* Unix pipe() has only one arg */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4991 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4992 sys_pipe (int * phandles) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4993 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4994 int rc; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4995 unsigned flags; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4996 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
4997 /* 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
|
4998 replace the relevant handle with an inheritable one. Also put |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
4999 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
|
5000 if required. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5001 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
|
5002 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5003 if (rc == 0) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5004 { |
52353
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5005 /* 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
|
5006 our fd_info array has room for. */ |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5007 if (phandles[0] >= MAXDESC || phandles[1] >= MAXDESC) |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5008 { |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5009 _close (phandles[0]); |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5010 _close (phandles[1]); |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5011 rc = -1; |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5012 } |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5013 else |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5014 { |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5015 flags = FILE_PIPE | FILE_READ | FILE_BINARY; |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5016 fd_info[phandles[0]].flags = flags; |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5017 |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5018 flags = FILE_PIPE | FILE_WRITE | FILE_BINARY; |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5019 fd_info[phandles[1]].flags = flags; |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5020 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5021 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5022 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5023 return rc; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5024 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5025 |
15249
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5026 /* From ntproc.c */ |
55643
ed93b07d7123
(_sys_read_ahead): Use w32_pipe_read_delay.
Jason Rumney <jasonr@gnu.org>
parents:
53123
diff
changeset
|
5027 extern int w32_pipe_read_delay; |
15249
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5028 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5029 /* 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
|
5030 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
|
5031 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5032 _sys_read_ahead (int fd) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5033 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5034 child_process * cp; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5035 int rc; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5036 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5037 if (fd < 0 || fd >= MAXDESC) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5038 return STATUS_READ_ERROR; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5039 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5040 cp = fd_info[fd].cp; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5041 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5042 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
|
5043 return STATUS_READ_ERROR; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5044 |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5045 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
|
5046 || (fd_info[fd].flags & FILE_READ) == 0) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5047 { |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5048 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
|
5049 abort (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5050 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5051 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5052 cp->status = STATUS_READ_IN_PROGRESS; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5053 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5054 if (fd_info[fd].flags & FILE_PIPE) |
15249
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5055 { |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5056 rc = _read (fd, &cp->chr, sizeof (char)); |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5057 |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5058 /* 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
|
5059 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
|
5060 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
|
5061 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
|
5062 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
|
5063 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
|
5064 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
|
5065 if (rc > 0) |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5066 { |
55643
ed93b07d7123
(_sys_read_ahead): Use w32_pipe_read_delay.
Jason Rumney <jasonr@gnu.org>
parents:
53123
diff
changeset
|
5067 int wait = w32_pipe_read_delay; |
15249
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5068 |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5069 if (wait > 0) |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5070 Sleep (wait); |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5071 else if (wait < 0) |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5072 while (++wait <= 0) |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5073 /* 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
|
5074 temporary priority boost to the child process. */ |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5075 Sleep (0); |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5076 } |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5077 } |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5078 else if (fd_info[fd].flags & FILE_SERIAL) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5079 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5080 HANDLE hnd = fd_info[fd].hnd; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5081 OVERLAPPED *ovl = &fd_info[fd].cp->ovl_read; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5082 COMMTIMEOUTS ct; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5083 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5084 /* Configure timeouts for blocking read. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5085 if (!GetCommTimeouts (hnd, &ct)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5086 return STATUS_READ_ERROR; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5087 ct.ReadIntervalTimeout = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5088 ct.ReadTotalTimeoutMultiplier = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5089 ct.ReadTotalTimeoutConstant = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5090 if (!SetCommTimeouts (hnd, &ct)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5091 return STATUS_READ_ERROR; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5092 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5093 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
|
5094 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5095 if (GetLastError () != ERROR_IO_PENDING) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5096 return STATUS_READ_ERROR; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5097 if (!GetOverlappedResult (hnd, ovl, (DWORD*) &rc, TRUE)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5098 return STATUS_READ_ERROR; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5099 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5100 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5101 #ifdef HAVE_SOCKETS |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5102 else if (fd_info[fd].flags & FILE_SOCKET) |
45090
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5103 { |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5104 unsigned long nblock = 0; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5105 /* 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
|
5106 if (fd_info[fd].flags & FILE_NDELAY) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5107 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONBIO, &nblock); |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5108 |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5109 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
|
5110 |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5111 if (fd_info[fd].flags & FILE_NDELAY) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5112 { |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5113 nblock = 1; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5114 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONBIO, &nblock); |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5115 } |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5116 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5117 #endif |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5118 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5119 if (rc == sizeof (char)) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5120 cp->status = STATUS_READ_SUCCEEDED; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5121 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5122 cp->status = STATUS_READ_FAILED; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5123 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5124 return cp->status; |
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 |
74947 | 5127 int |
5128 _sys_wait_accept (int fd) | |
71899
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5129 { |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5130 HANDLE hEv; |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5131 child_process * cp; |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5132 int rc; |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5133 |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5134 if (fd < 0 || fd >= MAXDESC) |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5135 return STATUS_READ_ERROR; |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5136 |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5137 cp = fd_info[fd].cp; |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5138 |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5139 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
|
5140 return STATUS_READ_ERROR; |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5141 |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5142 cp->status = STATUS_READ_FAILED; |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5143 |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5144 hEv = pfn_WSACreateEvent (); |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5145 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
|
5146 if (rc != SOCKET_ERROR) |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5147 { |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5148 rc = WaitForSingleObject (hEv, INFINITE); |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5149 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
|
5150 if (rc == WAIT_OBJECT_0) |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5151 cp->status = STATUS_READ_SUCCEEDED; |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5152 } |
74786
4f26e07fd85d
(_sys_wait_accept): Fix handle leak.
Kim F. Storm <storm@cua.dk>
parents:
72631
diff
changeset
|
5153 pfn_WSACloseEvent (hEv); |
71899
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5154 |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5155 return cp->status; |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5156 } |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5157 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5158 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5159 sys_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
|
5160 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5161 int nchars; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5162 int to_read; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5163 DWORD waiting; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5164 char * orig_buffer = buffer; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5165 |
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
|
5166 if (fd < 0) |
15141
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 errno = EBADF; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5169 return -1; |
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 |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5172 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
|
5173 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5174 child_process *cp = fd_info[fd].cp; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5175 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5176 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
|
5177 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5178 errno = EBADF; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5179 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5180 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5181 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5182 nchars = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5183 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5184 /* re-read CR carried over from last read */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5185 if (fd_info[fd].flags & FILE_LAST_CR) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5186 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5187 if (fd_info[fd].flags & FILE_BINARY) abort (); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5188 *buffer++ = 0x0d; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5189 count--; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5190 nchars++; |
21605
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5191 fd_info[fd].flags &= ~FILE_LAST_CR; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5192 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5193 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5194 /* 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
|
5195 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
|
5196 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
|
5197 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
|
5198 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
|
5199 if (cp) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5200 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5201 int current_status = cp->status; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5202 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5203 switch (current_status) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5204 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5205 case STATUS_READ_FAILED: |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5206 case STATUS_READ_ERROR: |
21605
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5207 /* report normal EOF if nothing in buffer */ |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5208 if (nchars <= 0) |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5209 fd_info[fd].flags |= FILE_AT_EOF; |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5210 return nchars; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5211 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5212 case STATUS_READ_READY: |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5213 case STATUS_READ_IN_PROGRESS: |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5214 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
|
5215 errno = EWOULDBLOCK; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5216 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5217 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5218 case STATUS_READ_SUCCEEDED: |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5219 /* consume read-ahead char */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5220 *buffer++ = cp->chr; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5221 count--; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5222 nchars++; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5223 cp->status = STATUS_READ_ACKNOWLEDGED; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5224 ResetEvent (cp->char_avail); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5225 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5226 case STATUS_READ_ACKNOWLEDGED: |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5227 break; |
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 default: |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5230 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
|
5231 errno = EBADF; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5232 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5233 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5234 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5235 if (fd_info[fd].flags & FILE_PIPE) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5236 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5237 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
|
5238 to_read = min (waiting, (DWORD) count); |
21605
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5239 |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5240 if (to_read > 0) |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5241 nchars += _read (fd, buffer, to_read); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5242 } |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5243 else if (fd_info[fd].flags & FILE_SERIAL) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5244 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5245 HANDLE hnd = fd_info[fd].hnd; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5246 OVERLAPPED *ovl = &fd_info[fd].cp->ovl_read; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5247 DWORD err = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5248 int rc = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5249 COMMTIMEOUTS ct; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5250 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5251 if (count > 0) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5252 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5253 /* Configure timeouts for non-blocking read. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5254 if (!GetCommTimeouts (hnd, &ct)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5255 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5256 errno = EIO; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5257 return -1; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5258 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5259 ct.ReadIntervalTimeout = MAXDWORD; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5260 ct.ReadTotalTimeoutMultiplier = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5261 ct.ReadTotalTimeoutConstant = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5262 if (!SetCommTimeouts (hnd, &ct)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5263 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5264 errno = EIO; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5265 return -1; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5266 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5267 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5268 if (!ResetEvent (ovl->hEvent)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5269 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5270 errno = EIO; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5271 return -1; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5272 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5273 if (!ReadFile (hnd, buffer, count, (DWORD*) &rc, ovl)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5274 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5275 if (GetLastError () != ERROR_IO_PENDING) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5276 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5277 errno = EIO; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5278 return -1; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5279 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5280 if (!GetOverlappedResult (hnd, ovl, (DWORD*) &rc, TRUE)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5281 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5282 errno = EIO; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5283 return -1; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5284 } |
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 nchars += rc; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5287 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5288 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5289 #ifdef HAVE_SOCKETS |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5290 else /* FILE_SOCKET */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5291 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
5292 if (winsock_lib == NULL) abort (); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5293 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5294 /* 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
|
5295 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONREAD, &waiting); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5296 if (waiting == 0 && nchars == 0) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5297 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5298 h_errno = errno = EWOULDBLOCK; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5299 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5300 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5301 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5302 if (waiting) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5303 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5304 /* always use binary mode for sockets */ |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5305 int res = pfn_recv (SOCK_HANDLE (fd), buffer, count, 0); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5306 if (res == SOCKET_ERROR) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5307 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5308 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
|
5309 pfn_WSAGetLastError (), SOCK_HANDLE (fd))); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5310 set_errno (); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5311 return -1; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5312 } |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5313 nchars += res; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5314 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5315 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5316 #endif |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5317 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5318 else |
21605
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5319 { |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5320 int nread = _read (fd, buffer, count); |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5321 if (nread >= 0) |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5322 nchars += nread; |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5323 else if (nchars == 0) |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5324 nchars = nread; |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5325 } |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5326 |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5327 if (nchars <= 0) |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5328 fd_info[fd].flags |= FILE_AT_EOF; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5329 /* Perform text mode translation if required. */ |
21605
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5330 else if ((fd_info[fd].flags & FILE_BINARY) == 0) |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5331 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5332 nchars = crlf_to_lf (nchars, orig_buffer); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5333 /* If buffer contains only CR, return that. To be absolutely |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5334 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
|
5335 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
|
5336 itself in the buffer. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5337 if (nchars > 1 && orig_buffer[nchars - 1] == 0x0d) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5338 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5339 fd_info[fd].flags |= FILE_LAST_CR; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5340 nchars--; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5341 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5342 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5343 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5344 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5345 nchars = _read (fd, buffer, count); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5346 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5347 return nchars; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5348 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5349 |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5350 /* From w32xfns.c */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5351 extern HANDLE interrupt_handle; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5352 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5353 /* 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
|
5354 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5355 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
|
5356 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5357 int nchars; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5358 |
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
|
5359 if (fd < 0) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5360 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5361 errno = EBADF; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5362 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5363 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5364 |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5365 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
|
5366 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5367 if ((fd_info[fd].flags & FILE_WRITE) == 0) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5368 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5369 errno = EBADF; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5370 return -1; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5371 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5372 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5373 /* Perform text mode translation if required. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5374 if ((fd_info[fd].flags & FILE_BINARY) == 0) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5375 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5376 char * tmpbuf = alloca (count * 2); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5377 unsigned char * src = (void *)buffer; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5378 unsigned char * dst = tmpbuf; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5379 int nbytes = count; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5380 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5381 while (1) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5382 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5383 unsigned char *next; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5384 /* copy next line or remaining bytes */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5385 next = _memccpy (dst, src, '\n', nbytes); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5386 if (next) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5387 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5388 /* copied one line ending with '\n' */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5389 int copied = next - dst; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5390 nbytes -= copied; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5391 src += copied; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5392 /* insert '\r' before '\n' */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5393 next[-1] = '\r'; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5394 next[0] = '\n'; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5395 dst = next + 1; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5396 count++; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5397 } |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5398 else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5399 /* copied remaining partial line -> now finished */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5400 break; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5401 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5402 buffer = tmpbuf; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5403 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5404 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5405 |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5406 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
|
5407 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5408 HANDLE hnd = (HANDLE) _get_osfhandle (fd); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5409 OVERLAPPED *ovl = &fd_info[fd].cp->ovl_write; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5410 HANDLE wait_hnd[2] = { interrupt_handle, ovl->hEvent }; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5411 DWORD active = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5412 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5413 if (!WriteFile (hnd, buffer, count, (DWORD*) &nchars, ovl)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5414 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5415 if (GetLastError () != ERROR_IO_PENDING) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5416 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5417 errno = EIO; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5418 return -1; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5419 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5420 if (detect_input_pending ()) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5421 active = MsgWaitForMultipleObjects (2, wait_hnd, FALSE, INFINITE, |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5422 QS_ALLINPUT); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5423 else |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5424 active = WaitForMultipleObjects (2, wait_hnd, FALSE, INFINITE); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5425 if (active == WAIT_OBJECT_0) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5426 { /* 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
|
5427 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
|
5428 PurgeComm (hnd, PURGE_TXABORT | PURGE_TXCLEAR); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5429 CancelIo (hnd); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5430 errno = EIO; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5431 return -1; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5432 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5433 if (active == WAIT_OBJECT_0 + 1 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5434 && !GetOverlappedResult (hnd, ovl, (DWORD*) &nchars, TRUE)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5435 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5436 errno = EIO; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5437 return -1; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5438 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5439 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5440 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5441 else |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5442 #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
|
5443 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
|
5444 { |
48545
538af265a4a7
(sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents:
48375
diff
changeset
|
5445 unsigned long nblock = 0; |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
5446 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
|
5447 |
538af265a4a7
(sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents:
48375
diff
changeset
|
5448 /* 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
|
5449 /* 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
|
5450 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
|
5451 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
|
5452 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5453 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
|
5454 |
538af265a4a7
(sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents:
48375
diff
changeset
|
5455 /* 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
|
5456 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
|
5457 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
|
5458 { |
538af265a4a7
(sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents:
48375
diff
changeset
|
5459 nblock = 1; |
538af265a4a7
(sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents:
48375
diff
changeset
|
5460 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
|
5461 } |
538af265a4a7
(sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents:
48375
diff
changeset
|
5462 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5463 if (nchars == SOCKET_ERROR) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5464 { |
48561 | 5465 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
|
5466 pfn_WSAGetLastError (), SOCK_HANDLE (fd))); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5467 set_errno (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5468 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5469 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5470 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5471 #endif |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5472 nchars = _write (fd, buffer, count); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5473 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5474 return nchars; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5475 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5476 |
21605
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5477 static void |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5478 check_windows_init_file () |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5479 { |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5480 extern int noninteractive, inhibit_window_system; |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5481 |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5482 /* 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
|
5483 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
|
5484 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
|
5485 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5486 if (!noninteractive && !inhibit_window_system) |
23395
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5487 { |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5488 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
|
5489 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
|
5490 Lisp_Object full_load_path; |
23395
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5491 Lisp_Object init_file; |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5492 int fd; |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5493 |
23809
2a6ad78388b3
(check_windows_init_file): Use decode_env_path when
Geoff Voelker <voelker@cs.washington.edu>
parents:
23622
diff
changeset
|
5494 objs[0] = Vload_path; |
2a6ad78388b3
(check_windows_init_file): Use decode_env_path when
Geoff Voelker <voelker@cs.washington.edu>
parents:
23622
diff
changeset
|
5495 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
|
5496 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
|
5497 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
|
5498 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
|
5499 if (fd < 0) |
23395
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5500 { |
23559
989c9cb875e3
(check_windows_init_file): Also look in load path specified
Geoff Voelker <voelker@cs.washington.edu>
parents:
23395
diff
changeset
|
5501 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
|
5502 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
|
5503 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
|
5504 char *buffer = alloca (1024 |
02e47d7a9bca
(check_windows_init_file): Fix allocation of error buffer.
Kim F. Storm <storm@cua.dk>
parents:
64770
diff
changeset
|
5505 + strlen (init_file_name) |
02e47d7a9bca
(check_windows_init_file): Fix allocation of error buffer.
Kim F. Storm <storm@cua.dk>
parents:
64770
diff
changeset
|
5506 + strlen (load_path)); |
23395
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5507 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5508 sprintf (buffer, |
23395
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5509 "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
|
5510 "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
|
5511 "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
|
5512 "\n%s\n\n" |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5513 "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
|
5514 "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
|
5515 "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
|
5516 "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
|
5517 init_file_name, load_path); |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5518 MessageBox (NULL, |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5519 buffer, |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5520 "Emacs Abort Dialog", |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5521 MB_OK | MB_ICONEXCLAMATION | MB_TASKMODAL); |
21605
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5522 /* Use the low-level Emacs abort. */ |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5523 #undef abort |
23395
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5524 abort (); |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5525 } |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5526 else |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5527 { |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
5528 _close (fd); |
23395
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5529 } |
21605
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5530 } |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5531 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5532 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5533 void |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5534 term_ntproc () |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5535 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5536 #ifdef HAVE_SOCKETS |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5537 /* shutdown the socket interface if necessary */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5538 term_winsock (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5539 #endif |
60092
04686828d0da
2004-11-08 Benjamin Riefenstahl <Benjamin.Riefenstahl@epost.de>
Jason Rumney <jasonr@gnu.org>
parents:
57609
diff
changeset
|
5540 |
04686828d0da
2004-11-08 Benjamin Riefenstahl <Benjamin.Riefenstahl@epost.de>
Jason Rumney <jasonr@gnu.org>
parents:
57609
diff
changeset
|
5541 term_w32select (); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5542 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5543 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5544 void |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5545 init_ntproc () |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5546 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5547 #ifdef HAVE_SOCKETS |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
5548 /* 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
|
5549 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
|
5550 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
|
5551 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
|
5552 |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
5553 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
|
5554 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
|
5555 |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
5556 /* Always initialize this correctly. */ |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
5557 winsock_lib = NULL; |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
5558 |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
5559 if (getenv ("PRELOAD_WINSOCK") != NULL) |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
5560 init_winsock (TRUE); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5561 #endif |
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 /* 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
|
5564 handles with non-inheritable versions. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5565 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5566 HANDLE parent; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5567 HANDLE stdin_save = INVALID_HANDLE_VALUE; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5568 HANDLE stdout_save = INVALID_HANDLE_VALUE; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5569 HANDLE stderr_save = INVALID_HANDLE_VALUE; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5570 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5571 parent = GetCurrentProcess (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5572 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5573 /* 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
|
5574 handles will be invalid when running as a gui program. */ |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5575 DuplicateHandle (parent, |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5576 GetStdHandle (STD_INPUT_HANDLE), |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5577 parent, |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5578 &stdin_save, |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5579 0, |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5580 FALSE, |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5581 DUPLICATE_SAME_ACCESS); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5582 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5583 DuplicateHandle (parent, |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5584 GetStdHandle (STD_OUTPUT_HANDLE), |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5585 parent, |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5586 &stdout_save, |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5587 0, |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5588 FALSE, |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5589 DUPLICATE_SAME_ACCESS); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5590 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5591 DuplicateHandle (parent, |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5592 GetStdHandle (STD_ERROR_HANDLE), |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5593 parent, |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5594 &stderr_save, |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5595 0, |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5596 FALSE, |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5597 DUPLICATE_SAME_ACCESS); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5598 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5599 fclose (stdin); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5600 fclose (stdout); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5601 fclose (stderr); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5602 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5603 if (stdin_save != INVALID_HANDLE_VALUE) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5604 _open_osfhandle ((long) stdin_save, O_TEXT); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5605 else |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5606 _open ("nul", O_TEXT | O_NOINHERIT | O_RDONLY); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5607 _fdopen (0, "r"); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5608 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5609 if (stdout_save != INVALID_HANDLE_VALUE) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5610 _open_osfhandle ((long) stdout_save, O_TEXT); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5611 else |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5612 _open ("nul", O_TEXT | O_NOINHERIT | O_WRONLY); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5613 _fdopen (1, "w"); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5614 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5615 if (stderr_save != INVALID_HANDLE_VALUE) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5616 _open_osfhandle ((long) stderr_save, O_TEXT); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5617 else |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5618 _open ("nul", O_TEXT | O_NOINHERIT | O_WRONLY); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5619 _fdopen (2, "w"); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5620 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5621 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5622 /* unfortunately, atexit depends on implementation of malloc */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5623 /* atexit (term_ntproc); */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5624 signal (SIGABRT, term_ntproc); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5625 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5626 /* determine which drives are fixed, for GetCachedVolumeInformation */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5627 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5628 /* GetDriveType must have trailing backslash. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5629 char drive[] = "A:\\"; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5630 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5631 /* Loop over all possible drive letters */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5632 while (*drive <= 'Z') |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5633 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5634 /* Record if this drive letter refers to a fixed drive. */ |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5635 fixed_drives[DRIVE_INDEX (*drive)] = |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5636 (GetDriveType (drive) == DRIVE_FIXED); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5637 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5638 (*drive)++; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5639 } |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
5640 |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
5641 /* Reset the volume info cache. */ |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
5642 volume_cache = NULL; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5643 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5644 |
23395
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5645 /* 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
|
5646 check_windows_init_file (); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5647 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5648 |
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
|
5649 /* |
72631
acfcb86a7b5e
(shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents:
72286
diff
changeset
|
5650 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
|
5651 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
|
5652 */ |
acfcb86a7b5e
(shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents:
72286
diff
changeset
|
5653 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
|
5654 { |
acfcb86a7b5e
(shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents:
72286
diff
changeset
|
5655 /* 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
|
5656 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
|
5657 || 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
|
5658 || 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
|
5659 { |
acfcb86a7b5e
(shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents:
72286
diff
changeset
|
5660 /* 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
|
5661 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
|
5662 } |
acfcb86a7b5e
(shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents:
72286
diff
changeset
|
5663 |
74786
4f26e07fd85d
(_sys_wait_accept): Fix handle leak.
Kim F. Storm <storm@cua.dk>
parents:
72631
diff
changeset
|
5664 /* 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
|
5665 return FALSE; |
acfcb86a7b5e
(shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents:
72286
diff
changeset
|
5666 } |
acfcb86a7b5e
(shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents:
72286
diff
changeset
|
5667 |
acfcb86a7b5e
(shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents:
72286
diff
changeset
|
5668 /* |
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
|
5669 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
|
5670 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
|
5671 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
|
5672 */ |
74947 | 5673 void |
5674 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
|
5675 { |
81421
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
5676 HMODULE kernel32 = GetModuleHandle ("kernel32.dll"); |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
5677 |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
5678 get_process_times_fn = (GetProcessTimes_Proc) |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
5679 GetProcAddress (kernel32, "GetProcessTimes"); |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
5680 |
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
|
5681 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
|
5682 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
|
5683 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
|
5684 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
|
5685 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
|
5686 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
|
5687 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
|
5688 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
|
5689 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
|
5690 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
|
5691 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
|
5692 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
|
5693 g_b_init_process32_first = 0; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
5694 g_b_init_process32_next = 0; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
5695 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
|
5696 g_b_init_impersonate_self = 0; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
5697 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
|
5698 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
|
5699 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
|
5700 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
|
5701 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
|
5702 g_b_init_equal_sid = 0; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
5703 g_b_init_copy_sid = 0; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
5704 g_b_init_get_length_sid = 0; |
72631
acfcb86a7b5e
(shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents:
72286
diff
changeset
|
5705 /* 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
|
5706 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
|
5707 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
|
5708 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
|
5709 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
|
5710 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
5711 /* "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
|
5712 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
|
5713 } |
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
|
5714 |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5715 /* For make-serial-process */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5716 int serial_open (char *port) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5717 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5718 HANDLE hnd; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5719 child_process *cp; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5720 int fd = -1; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5721 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5722 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
|
5723 OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5724 if (hnd == INVALID_HANDLE_VALUE) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5725 error ("Could not open %s", port); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5726 fd = (int) _open_osfhandle ((int) hnd, 0); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5727 if (fd == -1) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5728 error ("Could not open %s", port); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5729 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5730 cp = new_child (); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5731 if (!cp) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5732 error ("Could not create child process"); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5733 cp->fd = fd; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5734 cp->status = STATUS_READ_ACKNOWLEDGED; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5735 fd_info[ fd ].hnd = hnd; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5736 fd_info[ fd ].flags |= |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5737 FILE_READ | FILE_WRITE | FILE_BINARY | FILE_SERIAL; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5738 if (fd_info[ fd ].cp != NULL) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5739 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5740 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
|
5741 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5742 fd_info[ fd ].cp = cp; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5743 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
|
5744 if (cp->ovl_read.hEvent == NULL) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5745 error ("Could not create read event"); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5746 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
|
5747 if (cp->ovl_write.hEvent == NULL) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5748 error ("Could not create write event"); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5749 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5750 return fd; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5751 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5752 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5753 /* For serial-process-configure */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5754 void |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5755 serial_configure (struct Lisp_Process *p, |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5756 Lisp_Object contact) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5757 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5758 Lisp_Object childp2 = Qnil; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5759 Lisp_Object tem = Qnil; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5760 HANDLE hnd; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5761 DCB dcb; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5762 COMMTIMEOUTS ct; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5763 char summary[4] = "???"; /* This usually becomes "8N1". */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5764 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5765 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
|
5766 error ("Not a serial process"); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5767 hnd = fd_info[ p->outfd ].hnd; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5768 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5769 childp2 = Fcopy_sequence (p->childp); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5770 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5771 /* Initialize timeouts for blocking read and blocking write. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5772 if (!GetCommTimeouts (hnd, &ct)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5773 error ("GetCommTimeouts() failed"); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5774 ct.ReadIntervalTimeout = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5775 ct.ReadTotalTimeoutMultiplier = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5776 ct.ReadTotalTimeoutConstant = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5777 ct.WriteTotalTimeoutMultiplier = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5778 ct.WriteTotalTimeoutConstant = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5779 if (!SetCommTimeouts (hnd, &ct)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5780 error ("SetCommTimeouts() failed"); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5781 /* Read port attributes and prepare default configuration. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5782 memset (&dcb, 0, sizeof (dcb)); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5783 dcb.DCBlength = sizeof (DCB); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5784 if (!GetCommState (hnd, &dcb)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5785 error ("GetCommState() failed"); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5786 dcb.fBinary = TRUE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5787 dcb.fNull = FALSE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5788 dcb.fAbortOnError = FALSE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5789 /* 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
|
5790 dcb.ErrorChar = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5791 dcb.EofChar = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5792 dcb.EvtChar = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5793 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5794 /* Configure speed. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5795 if (!NILP (Fplist_member (contact, QCspeed))) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5796 tem = Fplist_get (contact, QCspeed); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5797 else |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5798 tem = Fplist_get (p->childp, QCspeed); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5799 CHECK_NUMBER (tem); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5800 dcb.BaudRate = XINT (tem); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5801 childp2 = Fplist_put (childp2, QCspeed, tem); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5802 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5803 /* Configure bytesize. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5804 if (!NILP (Fplist_member (contact, QCbytesize))) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5805 tem = Fplist_get (contact, QCbytesize); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5806 else |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5807 tem = Fplist_get (p->childp, QCbytesize); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5808 if (NILP (tem)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5809 tem = make_number (8); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5810 CHECK_NUMBER (tem); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5811 if (XINT (tem) != 7 && XINT (tem) != 8) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5812 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
|
5813 dcb.ByteSize = XINT (tem); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5814 summary[0] = XINT (tem) + '0'; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5815 childp2 = Fplist_put (childp2, QCbytesize, tem); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5816 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5817 /* Configure parity. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5818 if (!NILP (Fplist_member (contact, QCparity))) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5819 tem = Fplist_get (contact, QCparity); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5820 else |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5821 tem = Fplist_get (p->childp, QCparity); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5822 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
|
5823 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
|
5824 dcb.fParity = FALSE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5825 dcb.Parity = NOPARITY; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5826 dcb.fErrorChar = FALSE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5827 if (NILP (tem)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5828 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5829 summary[1] = 'N'; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5830 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5831 else if (EQ (tem, Qeven)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5832 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5833 summary[1] = 'E'; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5834 dcb.fParity = TRUE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5835 dcb.Parity = EVENPARITY; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5836 dcb.fErrorChar = TRUE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5837 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5838 else if (EQ (tem, Qodd)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5839 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5840 summary[1] = 'O'; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5841 dcb.fParity = TRUE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5842 dcb.Parity = ODDPARITY; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5843 dcb.fErrorChar = TRUE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5844 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5845 childp2 = Fplist_put (childp2, QCparity, tem); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5846 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5847 /* Configure stopbits. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5848 if (!NILP (Fplist_member (contact, QCstopbits))) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5849 tem = Fplist_get (contact, QCstopbits); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5850 else |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5851 tem = Fplist_get (p->childp, QCstopbits); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5852 if (NILP (tem)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5853 tem = make_number (1); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5854 CHECK_NUMBER (tem); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5855 if (XINT (tem) != 1 && XINT (tem) != 2) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5856 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
|
5857 summary[2] = XINT (tem) + '0'; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5858 if (XINT (tem) == 1) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5859 dcb.StopBits = ONESTOPBIT; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5860 else if (XINT (tem) == 2) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5861 dcb.StopBits = TWOSTOPBITS; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5862 childp2 = Fplist_put (childp2, QCstopbits, tem); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5863 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5864 /* Configure flowcontrol. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5865 if (!NILP (Fplist_member (contact, QCflowcontrol))) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5866 tem = Fplist_get (contact, QCflowcontrol); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5867 else |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5868 tem = Fplist_get (p->childp, QCflowcontrol); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5869 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
|
5870 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
|
5871 dcb.fOutxCtsFlow = FALSE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5872 dcb.fOutxDsrFlow = FALSE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5873 dcb.fDtrControl = DTR_CONTROL_DISABLE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5874 dcb.fDsrSensitivity = FALSE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5875 dcb.fTXContinueOnXoff = FALSE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5876 dcb.fOutX = FALSE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5877 dcb.fInX = FALSE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5878 dcb.fRtsControl = RTS_CONTROL_DISABLE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5879 dcb.XonChar = 17; /* Control-Q */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5880 dcb.XoffChar = 19; /* Control-S */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5881 if (NILP (tem)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5882 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5883 /* Already configured. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5884 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5885 else if (EQ (tem, Qhw)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5886 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5887 dcb.fRtsControl = RTS_CONTROL_HANDSHAKE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5888 dcb.fOutxCtsFlow = TRUE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5889 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5890 else if (EQ (tem, Qsw)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5891 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5892 dcb.fOutX = TRUE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5893 dcb.fInX = TRUE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5894 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5895 childp2 = Fplist_put (childp2, QCflowcontrol, tem); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5896 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5897 /* Activate configuration. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5898 if (!SetCommState (hnd, &dcb)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5899 error ("SetCommState() failed"); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5900 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5901 childp2 = Fplist_put (childp2, QCsummary, build_string (summary)); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5902 p->childp = childp2; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5903 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5904 |
78028
3a8b85706c0c
(_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents:
76098
diff
changeset
|
5905 /* end of w32.c */ |
52401 | 5906 |
5907 /* arch-tag: 90442dd3-37be-482b-b272-ac752e3049f1 | |
5908 (do not change this comment) */ |