Mercurial > emacs
annotate src/w32.c @ 112312:b9b02605a4af
* configure.in (AC_USE_SYSTEM_EXTENSIONS): Remove: gnulib does this.
author | Paul Eggert <eggert@cs.ucla.edu> |
---|---|
date | Sat, 08 Jan 2011 23:40:01 -0800 |
parents | eb37755b55e8 |
children | 417b1e4d63cd |
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, |
106815 | 3 2007, 2008, 2009, 2010 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> | |
103718
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
26 #include <float.h> /* for DBL_EPSILON */ |
9803 | 27 #include <io.h> |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
28 #include <errno.h> |
9803 | 29 #include <fcntl.h> |
30 #include <ctype.h> | |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
31 #include <signal.h> |
22363 | 32 #include <sys/file.h> |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
33 #include <sys/time.h> |
21737
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
34 #include <sys/utime.h> |
76098
9ad6c99cdc71
(stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents:
75348
diff
changeset
|
35 #include <mbstring.h> /* for _mbspbrk */ |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
36 #include <math.h> |
105669
68dd71358159
* alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
103868
diff
changeset
|
37 #include <setjmp.h> |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
38 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
39 /* must include CRT headers *before* config.h */ |
42469 | 40 |
41 #include <config.h> | |
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 { |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
79 DWORD dwLength; |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
80 DWORD dwMemoryLoad; |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
81 DWORDLONG ullTotalPhys; |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
82 DWORDLONG ullAvailPhys; |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
83 DWORDLONG ullTotalPageFile; |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
84 DWORDLONG ullAvailPageFile; |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
85 DWORDLONG ullTotalVirtual; |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
86 DWORDLONG ullAvailVirtual; |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
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> |
110400 | 95 #include <w32api.h> |
96 #if !defined(__MINGW32__) || __W32API_MAJOR_VERSION < 3 || (__W32API_MAJOR_VERSION == 3 && __W32API_MINOR_VERSION < 15) | |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
97 /* This either is not in psapi.h or guarded by higher value of |
111675
eb37755b55e8
w32.c: Fix a typo in a comment.
Eli Zaretskii <eliz@gnu.org>
parents:
111551
diff
changeset
|
98 _WIN32_WINNT than what we use. w32api supplied with MinGW 3.15 |
110400 | 99 defines it in psapi.h */ |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
100 typedef struct _PROCESS_MEMORY_COUNTERS_EX { |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
101 DWORD cb; |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
102 DWORD PageFaultCount; |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
103 DWORD PeakWorkingSetSize; |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
104 DWORD WorkingSetSize; |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
105 DWORD QuotaPeakPagedPoolUsage; |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
106 DWORD QuotaPagedPoolUsage; |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
107 DWORD QuotaPeakNonPagedPoolUsage; |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
108 DWORD QuotaNonPagedPoolUsage; |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
109 DWORD PagefileUsage; |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
110 DWORD PeakPagefileUsage; |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
111 DWORD PrivateUsage; |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
112 } PROCESS_MEMORY_COUNTERS_EX,*PPROCESS_MEMORY_COUNTERS_EX; |
110400 | 113 #endif |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
114 |
110431
9fe8167bbd9b
Don't make W32 code conditional on HAVE_SOCKETS, it's always defined.
Juanma Barranquero <lekktu@gmail.com>
parents:
110400
diff
changeset
|
115 /* TCP connection support. */ |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
116 #include <sys/socket.h> |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
117 #undef socket |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
118 #undef bind |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
119 #undef connect |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
120 #undef htons |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
121 #undef ntohs |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
122 #undef inet_addr |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
123 #undef gethostname |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
124 #undef gethostbyname |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
125 #undef getservbyname |
45090
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
126 #undef getpeername |
18725
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
127 #undef shutdown |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
128 #undef setsockopt |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
129 #undef listen |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
130 #undef getsockname |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
131 #undef accept |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
132 #undef recvfrom |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
133 #undef sendto |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
134 |
16593
4ed80eda6fac
Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents:
16588
diff
changeset
|
135 #include "w32.h" |
9803 | 136 #include "ndir.h" |
16593
4ed80eda6fac
Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents:
16588
diff
changeset
|
137 #include "w32heap.h" |
35286
fcd8120b294a
(init_environment, sys_shutdown, sys_pipe): Remove unused
Jason Rumney <jasonr@gnu.org>
parents:
34696
diff
changeset
|
138 #include "systime.h" |
95277 | 139 #include "dispextern.h" /* for xstrcasecmp */ |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
140 #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
|
141 |
95917 | 142 /* For serial_configure and serial_open. */ |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
143 #include "process.h" |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
144 |
64326
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
145 typedef HRESULT (WINAPI * ShGetFolderPath_fn) |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
146 (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
|
147 |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
148 void globals_of_w32 (void); |
94814
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
149 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
|
150 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
151 extern Lisp_Object Vw32_downcase_file_names; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
152 extern Lisp_Object Vw32_generate_fake_inodes; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
153 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
|
154 /* 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
|
155 extern Lisp_Object Qlocal; |
796bbedc63b1
(stat): When Vw32_get_true_file_attributes is Qlocal, get
Jason Rumney <jasonr@gnu.org>
parents:
80376
diff
changeset
|
156 |
55645
5b3f2477d17b
Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents:
55643
diff
changeset
|
157 extern int w32_num_mouse_buttons; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
158 |
34696
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
159 |
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
|
160 /* 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
|
161 |
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 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
|
163 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
|
164 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
|
165 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
|
166 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
|
167 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
|
168 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
|
169 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
|
170 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
|
171 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
|
172 static BOOL g_b_init_lookup_account_sid; |
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
|
173 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
|
174 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
|
175 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
|
176 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
|
177 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
|
178 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
|
179 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
|
180 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
|
181 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
|
182 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
|
183 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
|
184 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
|
185 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
|
186 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
|
187 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
|
188 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
|
189 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
|
190 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
|
191 static BOOL g_b_init_copy_sid; |
103718
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
192 static BOOL g_b_init_get_native_system_info; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
193 static BOOL g_b_init_get_system_times; |
48888
f0df5f687c15
Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents:
48561
diff
changeset
|
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); |
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
|
235 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
|
236 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
|
237 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
|
238 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
|
239 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
|
240 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
|
241 LPCTSTR lpFileName, |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
242 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
|
243 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
|
244 DWORD nLength, |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
245 LPDWORD lpnLengthNeeded); |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
246 typedef BOOL (WINAPI * GetSecurityDescriptorOwner_Proc) ( |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
247 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
|
248 PSID *pOwner, |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
249 LPBOOL lpbOwnerDefaulted); |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
250 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
|
251 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
|
252 PSID *pGroup, |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
253 LPBOOL lpbGroupDefaulted); |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
254 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
|
255 PSID sid); |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
256 typedef HANDLE (WINAPI * CreateToolhelp32Snapshot_Proc) ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
257 DWORD dwFlags, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
258 DWORD th32ProcessID); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
259 typedef BOOL (WINAPI * Process32First_Proc) ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
260 HANDLE hSnapshot, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
261 LPPROCESSENTRY32 lppe); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
262 typedef BOOL (WINAPI * Process32Next_Proc) ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
263 HANDLE hSnapshot, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
264 LPPROCESSENTRY32 lppe); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
265 typedef BOOL (WINAPI * OpenThreadToken_Proc) ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
266 HANDLE ThreadHandle, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
267 DWORD DesiredAccess, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
268 BOOL OpenAsSelf, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
269 PHANDLE TokenHandle); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
270 typedef BOOL (WINAPI * ImpersonateSelf_Proc) ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
271 SECURITY_IMPERSONATION_LEVEL ImpersonationLevel); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
272 typedef BOOL (WINAPI * RevertToSelf_Proc) (void); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
273 typedef BOOL (WINAPI * GetProcessMemoryInfo_Proc) ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
274 HANDLE Process, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
275 PPROCESS_MEMORY_COUNTERS ppsmemCounters, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
276 DWORD cb); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
277 typedef BOOL (WINAPI * GetProcessWorkingSetSize_Proc) ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
278 HANDLE hProcess, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
279 DWORD * lpMinimumWorkingSetSize, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
280 DWORD * lpMaximumWorkingSetSize); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
281 typedef BOOL (WINAPI * GlobalMemoryStatus_Proc) ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
282 LPMEMORYSTATUS lpBuffer); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
283 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
|
284 LPMEMORY_STATUS_EX lpBuffer); |
97491
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
285 typedef BOOL (WINAPI * CopySid_Proc) ( |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
286 DWORD nDestinationSidLength, |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
287 PSID pDestinationSid, |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
288 PSID pSourceSid); |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
289 typedef BOOL (WINAPI * EqualSid_Proc) ( |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
290 PSID pSid1, |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
291 PSID pSid2); |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
292 typedef DWORD (WINAPI * GetLengthSid_Proc) ( |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
293 PSID pSid); |
103718
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
294 typedef void (WINAPI * GetNativeSystemInfo_Proc) ( |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
295 LPSYSTEM_INFO lpSystemInfo); |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
296 typedef BOOL (WINAPI * GetSystemTimes_Proc) ( |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
297 LPFILETIME lpIdleTime, |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
298 LPFILETIME lpKernelTime, |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
299 LPFILETIME lpUserTime); |
97491
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
300 |
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
|
301 /* ** A utility function ** */ |
74947 | 302 static BOOL |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
303 is_windows_9x (void) |
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 { |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
305 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
|
306 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
|
307 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
|
308 { |
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
|
309 g_b_init_is_windows_9x = 1; |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
310 ZeroMemory (&os_ver, sizeof (OSVERSIONINFO)); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
311 os_ver.dwOSVersionInfoSize = sizeof (OSVERSIONINFO); |
48888
f0df5f687c15
Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents:
48561
diff
changeset
|
312 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
|
313 { |
f0df5f687c15
Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents:
48561
diff
changeset
|
314 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
|
315 } |
48375
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
316 } |
48888
f0df5f687c15
Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents:
48561
diff
changeset
|
317 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
|
318 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
319 |
81421
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
320 /* 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
|
321 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
|
322 (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
|
323 Lisp_Object |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
324 w32_get_internal_run_time (void) |
81421
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 if (get_process_times_fn) |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
327 { |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
328 FILETIME create, exit, kernel, user; |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
329 HANDLE proc = GetCurrentProcess (); |
81421
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
330 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
|
331 { |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
332 LARGE_INTEGER user_int, kernel_int, total; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
333 int microseconds; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
334 user_int.LowPart = user.dwLowDateTime; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
335 user_int.HighPart = user.dwHighDateTime; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
336 kernel_int.LowPart = kernel.dwLowDateTime; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
337 kernel_int.HighPart = kernel.dwHighDateTime; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
338 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
|
339 /* 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
|
340 microsecond resolution. */ |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
341 total.QuadPart /= 10; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
342 microseconds = total.QuadPart % 1000000; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
343 total.QuadPart /= 1000000; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
344 |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
345 /* 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
|
346 if (total.HighPart == 0) |
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 int secs = total.LowPart; |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
349 |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
350 return list3 (make_number ((secs >> 16) & 0xffff), |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
351 make_number (secs & 0xffff), |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
352 make_number (microseconds)); |
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 } |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
356 |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
357 return Fcurrent_time (); |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
358 } |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
359 |
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
|
360 /* ** 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
|
361 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
362 static BOOL WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
363 open_process_token (HANDLE ProcessHandle, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
364 DWORD DesiredAccess, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
365 PHANDLE TokenHandle) |
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 { |
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
|
367 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
|
368 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
|
369 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
|
370 { |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
371 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
|
372 } |
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
|
373 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
|
374 { |
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 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
|
376 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
|
377 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
|
378 (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
|
379 } |
f0df5f687c15
Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents:
48561
diff
changeset
|
380 if (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
|
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 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
|
383 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on 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 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
|
385 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
|
386 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
|
387 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
|
388 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
|
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 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on 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 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
392 static BOOL WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
393 get_token_information (HANDLE TokenHandle, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
394 TOKEN_INFORMATION_CLASS TokenInformationClass, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
395 LPVOID TokenInformation, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
396 DWORD TokenInformationLength, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
397 PDWORD ReturnLength) |
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 { |
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
|
399 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
|
400 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
|
401 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
|
402 { |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
403 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
|
404 } |
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
|
405 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
|
406 { |
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 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
|
408 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
|
409 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
|
410 (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
|
411 } |
f0df5f687c15
Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents:
48561
diff
changeset
|
412 if (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
|
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 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
|
415 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on 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 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
|
417 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
|
418 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
|
419 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
|
420 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
|
421 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
|
422 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
|
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 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on 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 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
426 static BOOL WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
427 lookup_account_sid (LPCTSTR lpSystemName, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
428 PSID Sid, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
429 LPTSTR Name, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
430 LPDWORD cbName, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
431 LPTSTR DomainName, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
432 LPDWORD cbDomainName, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
433 PSID_NAME_USE peUse) |
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 { |
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
|
435 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
|
436 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
|
437 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
|
438 { |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
439 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
|
440 } |
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
|
441 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
|
442 { |
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 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
|
444 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
|
445 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
|
446 (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
|
447 } |
f0df5f687c15
Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents:
48561
diff
changeset
|
448 if (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
|
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 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
|
451 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on 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 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
|
453 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
|
454 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
|
455 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
|
456 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
|
457 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
|
458 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
|
459 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
|
460 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
|
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 } |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on 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 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
464 static PDWORD WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
465 get_sid_sub_authority (PSID pSid, DWORD n) |
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
|
466 { |
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
|
467 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
|
468 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
|
469 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
|
470 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
|
471 { |
87998
3ef9b6e3d2fa
(get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents:
87995
diff
changeset
|
472 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
|
473 } |
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
|
474 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
|
475 { |
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
|
476 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
|
477 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
|
478 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
|
479 (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
|
480 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
|
481 } |
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
|
482 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
|
483 { |
87998
3ef9b6e3d2fa
(get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents:
87995
diff
changeset
|
484 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
|
485 } |
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 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
|
487 } |
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 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
489 static PUCHAR WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
490 get_sid_sub_authority_count (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
|
491 { |
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 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
|
493 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
|
494 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
|
495 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
|
496 { |
87998
3ef9b6e3d2fa
(get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents:
87995
diff
changeset
|
497 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
|
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 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
|
500 { |
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 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
|
502 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
|
503 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
|
504 (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
|
505 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
|
506 } |
78715eba45dd
(g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents:
87985
diff
changeset
|
507 if (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
|
508 { |
87998
3ef9b6e3d2fa
(get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents:
87995
diff
changeset
|
509 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
|
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 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
|
512 } |
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 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
514 static BOOL WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
515 get_file_security (LPCTSTR lpFileName, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
516 SECURITY_INFORMATION RequestedInformation, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
517 PSECURITY_DESCRIPTOR pSecurityDescriptor, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
518 DWORD nLength, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
519 LPDWORD lpnLengthNeeded) |
94814
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
520 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
521 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
|
522 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
|
523 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
|
524 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
525 return FALSE; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
526 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
527 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
|
528 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
529 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
|
530 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
|
531 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
|
532 (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
|
533 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
|
534 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
535 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
|
536 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
537 return FALSE; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
538 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
539 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
|
540 pSecurityDescriptor, nLength, |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
541 lpnLengthNeeded)); |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
542 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
543 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
544 static BOOL WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
545 get_security_descriptor_owner (PSECURITY_DESCRIPTOR pSecurityDescriptor, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
546 PSID *pOwner, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
547 LPBOOL lpbOwnerDefaulted) |
94814
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
548 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
549 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
|
550 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
|
551 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
|
552 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
553 return FALSE; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
554 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
555 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
|
556 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
557 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
|
558 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
|
559 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
|
560 (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
|
561 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
|
562 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
563 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
|
564 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
565 return FALSE; |
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 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
|
568 lpbOwnerDefaulted)); |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
569 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
570 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
571 static BOOL WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
572 get_security_descriptor_group (PSECURITY_DESCRIPTOR pSecurityDescriptor, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
573 PSID *pGroup, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
574 LPBOOL lpbGroupDefaulted) |
94814
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 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
|
577 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
|
578 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
|
579 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
580 return FALSE; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
581 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
582 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
|
583 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
584 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
|
585 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
|
586 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
|
587 (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
|
588 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
|
589 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
590 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
|
591 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
592 return FALSE; |
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 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
|
595 lpbGroupDefaulted)); |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
596 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
597 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
598 static BOOL WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
599 is_valid_sid (PSID sid) |
94814
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
600 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
601 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
|
602 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
|
603 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
|
604 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
605 return FALSE; |
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 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
|
608 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
609 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
|
610 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
|
611 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
|
612 (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
|
613 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
|
614 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
615 if (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
|
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 FALSE; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
618 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
619 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
|
620 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
621 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
622 static BOOL WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
623 equal_sid (PSID sid1, PSID sid2) |
97491
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
624 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
625 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
|
626 HMODULE hm_advapi32 = NULL; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
627 if (is_windows_9x () == TRUE) |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
628 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
629 return FALSE; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
630 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
631 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
|
632 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
633 g_b_init_equal_sid = 1; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
634 hm_advapi32 = LoadLibrary ("Advapi32.dll"); |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
635 s_pfn_Equal_Sid = |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
636 (EqualSid_Proc) GetProcAddress ( |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
637 hm_advapi32, "EqualSid"); |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
638 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
639 if (s_pfn_Equal_Sid == NULL) |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
640 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
641 return FALSE; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
642 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
643 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
|
644 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
645 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
646 static DWORD WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
647 get_length_sid (PSID sid) |
97491
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 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
|
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 0; |
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_get_length_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_get_length_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_Get_Length_Sid = |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
660 (GetLengthSid_Proc) GetProcAddress ( |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
661 hm_advapi32, "GetLengthSid"); |
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_Get_Length_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 0; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
666 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
667 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
|
668 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
669 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
670 static BOOL WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
671 copy_sid (DWORD destlen, PSID dest, PSID src) |
97491
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 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
|
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 FALSE; |
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_copy_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_copy_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_Copy_Sid = |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
684 (CopySid_Proc) GetProcAddress ( |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
685 hm_advapi32, "CopySid"); |
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_Copy_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 FALSE; |
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_Copy_Sid (destlen, dest, src)); |
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 |
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
|
694 /* |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
695 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
|
696 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
|
697 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
|
698 */ |
4d7b83cc03aa
Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents:
46370
diff
changeset
|
699 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
700 static void WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
701 get_native_system_info (LPSYSTEM_INFO lpSystemInfo) |
103718
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
702 { |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
703 static GetNativeSystemInfo_Proc s_pfn_Get_Native_System_Info = NULL; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
704 if (is_windows_9x () != TRUE) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
705 { |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
706 if (g_b_init_get_native_system_info == 0) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
707 { |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
708 g_b_init_get_native_system_info = 1; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
709 s_pfn_Get_Native_System_Info = |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
710 (GetNativeSystemInfo_Proc)GetProcAddress (GetModuleHandle ("kernel32.dll"), |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
711 "GetNativeSystemInfo"); |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
712 } |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
713 if (s_pfn_Get_Native_System_Info != NULL) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
714 s_pfn_Get_Native_System_Info (lpSystemInfo); |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
715 } |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
716 else |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
717 lpSystemInfo->dwNumberOfProcessors = -1; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
718 } |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
719 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
720 static BOOL WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
721 get_system_times (LPFILETIME lpIdleTime, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
722 LPFILETIME lpKernelTime, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
723 LPFILETIME lpUserTime) |
103718
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
724 { |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
725 static GetSystemTimes_Proc s_pfn_Get_System_times = NULL; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
726 if (is_windows_9x () == TRUE) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
727 { |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
728 return FALSE; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
729 } |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
730 if (g_b_init_get_system_times == 0) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
731 { |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
732 g_b_init_get_system_times = 1; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
733 s_pfn_Get_System_times = |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
734 (GetSystemTimes_Proc)GetProcAddress (GetModuleHandle ("kernel32.dll"), |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
735 "GetSystemTimes"); |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
736 } |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
737 if (s_pfn_Get_System_times == NULL) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
738 return FALSE; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
739 return (s_pfn_Get_System_times (lpIdleTime, lpKernelTime, lpUserTime)); |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
740 } |
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
|
741 |
34696
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
742 /* Equivalent of strerror for W32 error codes. */ |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
743 char * |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
744 w32_strerror (int error_no) |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
745 { |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
746 static char buf[500]; |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
747 |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
748 if (error_no == 0) |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
749 error_no = GetLastError (); |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
750 |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
751 buf[0] = '\0'; |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
752 if (!FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM, NULL, |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
753 error_no, |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
754 0, /* choose most suitable language */ |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
755 buf, sizeof (buf), NULL)) |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
756 sprintf (buf, "w32 error %u", error_no); |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
757 return buf; |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
758 } |
a1785afaedef
(w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
34644
diff
changeset
|
759 |
72286
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
760 /* 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
|
761 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
|
762 |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
763 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
|
764 int |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
765 w32_valid_pointer_p (void *p, int size) |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
766 { |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
767 SIZE_T done; |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
768 HANDLE h = OpenProcess (PROCESS_VM_READ, FALSE, GetCurrentProcessId ()); |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
769 |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
770 if (h) |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
771 { |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
772 unsigned char *buf = alloca (size); |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
773 int retval = ReadProcessMemory (h, p, buf, size, &done); |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
774 |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
775 CloseHandle (h); |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
776 return retval; |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
777 } |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
778 else |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
779 return -1; |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
780 } |
95d41ccb4448
(w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
72059
diff
changeset
|
781 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
782 static char startup_dir[MAXPATHLEN]; |
9803 | 783 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
784 /* Get the current working directory. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
785 char * |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
786 getwd (char *dir) |
14246
ebdd1b50daba
(nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
787 { |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
788 #if 0 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
789 if (GetCurrentDirectory (MAXPATHLEN, dir) > 0) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
790 return dir; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
791 return NULL; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
792 #else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
793 /* 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
|
794 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
|
795 conflicts when trying to rename or delete directories. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
796 strcpy (dir, startup_dir); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
797 return dir; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
798 #endif |
14246
ebdd1b50daba
(nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
799 } |
ebdd1b50daba
(nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
800 |
9803 | 801 /* Emulate getloadavg. */ |
103718
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
802 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
803 struct load_sample { |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
804 time_t sample_time; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
805 ULONGLONG idle; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
806 ULONGLONG kernel; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
807 ULONGLONG user; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
808 }; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
809 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
810 /* Number of processors on this machine. */ |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
811 static unsigned num_of_processors; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
812 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
813 /* We maintain 1-sec samples for the last 16 minutes in a circular buffer. */ |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
814 static struct load_sample samples[16*60]; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
815 static int first_idx = -1, last_idx = -1; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
816 static int max_idx = sizeof (samples) / sizeof (samples[0]); |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
817 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
818 static int |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
819 buf_next (int from) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
820 { |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
821 int next_idx = from + 1; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
822 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
823 if (next_idx >= max_idx) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
824 next_idx = 0; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
825 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
826 return next_idx; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
827 } |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
828 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
829 static int |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
830 buf_prev (int from) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
831 { |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
832 int prev_idx = from - 1; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
833 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
834 if (prev_idx < 0) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
835 prev_idx = max_idx - 1; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
836 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
837 return prev_idx; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
838 } |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
839 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
840 static void |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
841 sample_system_load (ULONGLONG *idle, ULONGLONG *kernel, ULONGLONG *user) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
842 { |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
843 SYSTEM_INFO sysinfo; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
844 FILETIME ft_idle, ft_user, ft_kernel; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
845 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
846 /* Initialize the number of processors on this machine. */ |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
847 if (num_of_processors <= 0) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
848 { |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
849 get_native_system_info (&sysinfo); |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
850 num_of_processors = sysinfo.dwNumberOfProcessors; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
851 if (num_of_processors <= 0) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
852 { |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
853 GetSystemInfo (&sysinfo); |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
854 num_of_processors = sysinfo.dwNumberOfProcessors; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
855 } |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
856 if (num_of_processors <= 0) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
857 num_of_processors = 1; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
858 } |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
859 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
860 /* TODO: Take into account threads that are ready to run, by |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
861 sampling the "\System\Processor Queue Length" performance |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
862 counter. The code below accounts only for threads that are |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
863 actually running. */ |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
864 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
865 if (get_system_times (&ft_idle, &ft_kernel, &ft_user)) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
866 { |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
867 ULARGE_INTEGER uidle, ukernel, uuser; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
868 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
869 memcpy (&uidle, &ft_idle, sizeof (ft_idle)); |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
870 memcpy (&ukernel, &ft_kernel, sizeof (ft_kernel)); |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
871 memcpy (&uuser, &ft_user, sizeof (ft_user)); |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
872 *idle = uidle.QuadPart; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
873 *kernel = ukernel.QuadPart; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
874 *user = uuser.QuadPart; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
875 } |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
876 else |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
877 { |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
878 *idle = 0; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
879 *kernel = 0; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
880 *user = 0; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
881 } |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
882 } |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
883 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
884 /* Produce the load average for a given time interval, using the |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
885 samples in the samples[] array. WHICH can be 0, 1, or 2, meaning |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
886 1-minute, 5-minute, or 15-minute average, respectively. */ |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
887 static double |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
888 getavg (int which) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
889 { |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
890 double retval = -1.0; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
891 double tdiff; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
892 int idx; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
893 double span = (which == 0 ? 1.0 : (which == 1 ? 5.0 : 15.0)) * 60; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
894 time_t now = samples[last_idx].sample_time; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
895 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
896 if (first_idx != last_idx) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
897 { |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
898 for (idx = buf_prev (last_idx); ; idx = buf_prev (idx)) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
899 { |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
900 tdiff = difftime (now, samples[idx].sample_time); |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
901 if (tdiff >= span - 2*DBL_EPSILON*now) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
902 { |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
903 long double sys = |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
904 samples[last_idx].kernel + samples[last_idx].user |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
905 - (samples[idx].kernel + samples[idx].user); |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
906 long double idl = samples[last_idx].idle - samples[idx].idle; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
907 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
908 retval = (1.0 - idl / sys) * num_of_processors; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
909 break; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
910 } |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
911 if (idx == first_idx) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
912 break; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
913 } |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
914 } |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
915 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
916 return retval; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
917 } |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
918 |
9803 | 919 int |
920 getloadavg (double loadavg[], int nelem) | |
921 { | |
103718
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
922 int elem; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
923 ULONGLONG idle, kernel, user; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
924 time_t now = time (NULL); |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
925 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
926 /* Store another sample. We ignore samples that are less than 1 sec |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
927 apart. */ |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
928 if (difftime (now, samples[last_idx].sample_time) >= 1.0 - 2*DBL_EPSILON*now) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
929 { |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
930 sample_system_load (&idle, &kernel, &user); |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
931 last_idx = buf_next (last_idx); |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
932 samples[last_idx].sample_time = now; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
933 samples[last_idx].idle = idle; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
934 samples[last_idx].kernel = kernel; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
935 samples[last_idx].user = user; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
936 /* If the buffer has more that 15 min worth of samples, discard |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
937 the old ones. */ |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
938 if (first_idx == -1) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
939 first_idx = last_idx; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
940 while (first_idx != last_idx |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
941 && (difftime (now, samples[first_idx].sample_time) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
942 >= 15.0*60 + 2*DBL_EPSILON*now)) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
943 first_idx = buf_next (first_idx); |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
944 } |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
945 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
946 for (elem = 0; elem < nelem; elem++) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
947 { |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
948 double avg = getavg (elem); |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
949 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
950 if (avg < 0) |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
951 break; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
952 loadavg[elem] = avg; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
953 } |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
954 |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
955 return elem; |
9803 | 956 } |
957 | |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
958 /* Emulate getpwuid, getpwnam and others. */ |
9803 | 959 |
12451
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
960 #define PASSWD_FIELD_SIZE 256 |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
961 |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
962 static char dflt_passwd_name[PASSWD_FIELD_SIZE]; |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
963 static char dflt_passwd_passwd[PASSWD_FIELD_SIZE]; |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
964 static char dflt_passwd_gecos[PASSWD_FIELD_SIZE]; |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
965 static char dflt_passwd_dir[PASSWD_FIELD_SIZE]; |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
966 static char dflt_passwd_shell[PASSWD_FIELD_SIZE]; |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
967 |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
968 static struct passwd dflt_passwd = |
9803 | 969 { |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
970 dflt_passwd_name, |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
971 dflt_passwd_passwd, |
9803 | 972 0, |
973 0, | |
974 0, | |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
975 dflt_passwd_gecos, |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
976 dflt_passwd_dir, |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
977 dflt_passwd_shell, |
9803 | 978 }; |
979 | |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
980 static char dflt_group_name[GNLEN+1]; |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
981 |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
982 static struct group dflt_group = |
53123 | 983 { |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
984 /* 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
|
985 group for all files. */ |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
986 dflt_group_name, |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
987 0, |
53123 | 988 }; |
989 | |
102670
06ca3efb355b
inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
990 unsigned |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
991 getuid (void) |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
992 { |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
993 return dflt_passwd.pw_uid; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
994 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
995 |
102670
06ca3efb355b
inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
996 unsigned |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
997 geteuid (void) |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
998 { |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
999 /* 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
|
1000 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
|
1001 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
|
1002 return getuid (); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1003 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1004 |
102670
06ca3efb355b
inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
1005 unsigned |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
1006 getgid (void) |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1007 { |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1008 return dflt_passwd.pw_gid; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1009 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1010 |
102670
06ca3efb355b
inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
1011 unsigned |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
1012 getegid (void) |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1013 { |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1014 return getgid (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1015 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1016 |
9803 | 1017 struct passwd * |
102670
06ca3efb355b
inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
1018 getpwuid (unsigned uid) |
9803 | 1019 { |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1020 if (uid == dflt_passwd.pw_uid) |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1021 return &dflt_passwd; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1022 return NULL; |
9803 | 1023 } |
1024 | |
53123 | 1025 struct group * |
1026 getgrgid (gid_t gid) | |
1027 { | |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1028 return &dflt_group; |
53123 | 1029 } |
1030 | |
9803 | 1031 struct passwd * |
1032 getpwnam (char *name) | |
1033 { | |
1034 struct passwd *pw; | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1035 |
9803 | 1036 pw = getpwuid (getuid ()); |
1037 if (!pw) | |
1038 return pw; | |
1039 | |
95217
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
1040 if (xstrcasecmp (name, pw->pw_name)) |
9803 | 1041 return NULL; |
1042 | |
1043 return pw; | |
1044 } | |
1045 | |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
1046 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
1047 init_user_info (void) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1048 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1049 /* 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
|
1050 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
|
1051 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1052 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
|
1053 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
|
1054 primary group sid from the process token). */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1055 |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1056 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
|
1057 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
|
1058 DWORD glength = sizeof (gname); |
78028
3a8b85706c0c
(_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents:
76098
diff
changeset
|
1059 HANDLE token = NULL; |
3a8b85706c0c
(_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents:
76098
diff
changeset
|
1060 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
|
1061 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
|
1062 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
|
1063 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
|
1064 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
|
1065 BOOL result; |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
1066 |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
1067 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
|
1068 if (result) |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
1069 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
1070 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
|
1071 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
|
1072 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
1073 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
|
1074 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
|
1075 (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
|
1076 if (result) |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
1077 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
1078 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
|
1079 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
|
1080 uname, &ulength, |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
1081 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
|
1082 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
1083 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
1084 else |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
1085 result = FALSE; |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
1086 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
1087 if (result) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1088 { |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1089 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
|
1090 /* Determine a reasonable uid value. */ |
95217
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
1091 if (xstrcasecmp ("administrator", uname) == 0) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1092 { |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1093 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
|
1094 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
|
1095 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1096 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1097 { |
87995
e576feac5b90
(init_user_info): Fix commentary for RID usage.
Eli Zaretskii <eliz@gnu.org>
parents:
87990
diff
changeset
|
1098 /* 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
|
1099 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
|
1100 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
|
1101 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
1102 /* 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
|
1103 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
|
1104 (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
|
1105 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
|
1106 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
1107 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
|
1108 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
|
1109 (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
|
1110 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
1111 if (result) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1112 { |
91878
a5f49adf9035
(init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents:
88048
diff
changeset
|
1113 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
|
1114 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
|
1115 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
|
1116 /* 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
|
1117 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
|
1118 "None" in globals_of_w32. */ |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1119 if (lookup_account_sid (NULL, group_token.PrimaryGroup, |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1120 gname, &glength, NULL, &dlength, |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1121 &user_type)) |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1122 strcpy (dflt_group_name, gname); |
15141
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 else |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1125 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
|
1126 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1127 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1128 /* 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
|
1129 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
|
1130 else if (GetUserName (uname, &ulength)) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1131 { |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1132 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
|
1133 if (xstrcasecmp ("administrator", uname) == 0) |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1134 dflt_passwd.pw_uid = 0; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1135 else |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1136 dflt_passwd.pw_uid = 123; |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1137 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
|
1138 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1139 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1140 { |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1141 strcpy (dflt_passwd.pw_name, "unknown"); |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1142 dflt_passwd.pw_uid = 123; |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1143 dflt_passwd.pw_gid = 123; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1144 } |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1145 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
|
1146 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1147 /* Ensure HOME and SHELL are defined. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1148 if (getenv ("HOME") == NULL) |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1149 abort (); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1150 if (getenv ("SHELL") == NULL) |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1151 abort (); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1152 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1153 /* Set dir and shell from environment variables. */ |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1154 strcpy (dflt_passwd.pw_dir, getenv ("HOME")); |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
1155 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
|
1156 |
97875
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
1157 xfree (buf); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1158 if (token) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1159 CloseHandle (token); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1160 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1161 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1162 int |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
1163 random (void) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1164 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1165 /* 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
|
1166 return ((rand () << 15) | rand ()); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1167 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1168 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1169 void |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1170 srandom (int seed) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1171 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1172 srand (seed); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1173 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1174 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1175 |
15326
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1176 /* Normalize filename by converting all path separators to |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1177 the specified separator. Also conditionally convert upper |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1178 case path name components to lower case. */ |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1179 |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1180 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
1181 normalize_filename (register char *fp, char path_sep) |
15326
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1182 { |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1183 char sep; |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1184 char *elem; |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1185 |
15615
124e347ce827
(normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents:
15418
diff
changeset
|
1186 /* 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
|
1187 preserves case in filenames. |
124e347ce827
(normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents:
15418
diff
changeset
|
1188 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
|
1189 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
|
1190 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
|
1191 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
|
1192 { |
124e347ce827
(normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents:
15418
diff
changeset
|
1193 *fp += 'a' - 'A'; |
124e347ce827
(normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents:
15418
diff
changeset
|
1194 fp += 2; |
124e347ce827
(normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents:
15418
diff
changeset
|
1195 } |
124e347ce827
(normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents:
15418
diff
changeset
|
1196 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
1197 if (NILP (Vw32_downcase_file_names)) |
15326
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1198 { |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1199 while (*fp) |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1200 { |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1201 if (*fp == '/' || *fp == '\\') |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1202 *fp = path_sep; |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1203 fp++; |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1204 } |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1205 return; |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1206 } |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1207 |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1208 sep = path_sep; /* convert to this path separator */ |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1209 elem = fp; /* start of current path element */ |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1210 |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1211 do { |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1212 if (*fp >= 'a' && *fp <= 'z') |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1213 elem = 0; /* don't convert this element */ |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1214 |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1215 if (*fp == 0 || *fp == ':') |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1216 { |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1217 sep = *fp; /* restore current separator (or 0) */ |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1218 *fp = '/'; /* after conversion of this element */ |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1219 } |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1220 |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1221 if (*fp == '/' || *fp == '\\') |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1222 { |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1223 if (elem && elem != fp) |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1224 { |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1225 *fp = 0; /* temporary end of string */ |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1226 _strlwr (elem); /* while we convert to lower case */ |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1227 } |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1228 *fp = sep; /* convert (or restore) path separator */ |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1229 elem = fp + 1; /* next element starts after separator */ |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1230 sep = path_sep; |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1231 } |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1232 } while (*fp++); |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1233 } |
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1234 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1235 /* Destructively turn backslashes into slashes. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1236 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
1237 dostounix_filename (register char *p) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1238 { |
15326
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1239 normalize_filename (p, '/'); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1240 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1241 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1242 /* Destructively turn slashes into backslashes. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1243 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
1244 unixtodos_filename (register char *p) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1245 { |
15326
ea444efb0b95
(normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15279
diff
changeset
|
1246 normalize_filename (p, '\\'); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1247 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1248 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1249 /* 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
|
1250 (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
|
1251 although this code isn't going to ever change.) */ |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
1252 static int |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
1253 crlf_to_lf (register int n, register unsigned char *buf) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1254 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1255 unsigned char *np = buf; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1256 unsigned char *startp = buf; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1257 unsigned char *endp = buf + n; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1258 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1259 if (n == 0) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1260 return n; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1261 while (buf < endp - 1) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1262 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1263 if (*buf == 0x0d) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1264 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1265 if (*(++buf) != 0x0a) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1266 *np++ = 0x0d; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1267 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1268 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1269 *np++ = *buf++; |
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 if (buf < endp) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1272 *np++ = *buf++; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1273 return np - startp; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1274 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1275 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1276 /* 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
|
1277 optionally store pointer to char after root. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1278 static int |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1279 parse_root (char * name, char ** pPath) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1280 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1281 char * start = name; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1282 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1283 if (name == NULL) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1284 return 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1285 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1286 /* find the root name of the volume if given */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1287 if (isalpha (name[0]) && name[1] == ':') |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1288 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1289 /* skip past drive specifier */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1290 name += 2; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1291 if (IS_DIRECTORY_SEP (name[0])) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1292 name++; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1293 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1294 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
|
1295 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1296 int slashes = 2; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1297 name += 2; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1298 do |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1299 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1300 if (IS_DIRECTORY_SEP (*name) && --slashes == 0) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1301 break; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1302 name++; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1303 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1304 while ( *name ); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1305 if (IS_DIRECTORY_SEP (name[0])) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1306 name++; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1307 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1308 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1309 if (pPath) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1310 *pPath = name; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1311 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1312 return name - start; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1313 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1314 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1315 /* 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
|
1316 static int |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1317 get_long_basename (char * name, char * buf, int size) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1318 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1319 WIN32_FIND_DATA find_data; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1320 HANDLE dir_handle; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1321 int len = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1322 |
28932
f8b0ac62f238
Use the term `invalid' instead of `illegal'.
Gerd Moellmann <gerd@gnu.org>
parents:
27890
diff
changeset
|
1323 /* 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
|
1324 if (_mbspbrk (name, "*?|<>\"")) |
22039
c33bec4d9e67
(stat, get_long_basename): Fail if filename contains any
Richard M. Stallman <rms@gnu.org>
parents:
21747
diff
changeset
|
1325 return 0; |
c33bec4d9e67
(stat, get_long_basename): Fail if filename contains any
Richard M. Stallman <rms@gnu.org>
parents:
21747
diff
changeset
|
1326 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1327 dir_handle = FindFirstFile (name, &find_data); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1328 if (dir_handle != INVALID_HANDLE_VALUE) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1329 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1330 if ((len = strlen (find_data.cFileName)) < size) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1331 memcpy (buf, find_data.cFileName, len + 1); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1332 else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1333 len = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1334 FindClose (dir_handle); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1335 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1336 return len; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1337 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1338 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1339 /* 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
|
1340 BOOL |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1341 w32_get_long_filename (char * name, char * buf, int size) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1342 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1343 char * o = buf; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1344 char * p; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1345 char * q; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1346 char full[ MAX_PATH ]; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1347 int len; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1348 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1349 len = strlen (name); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1350 if (len >= MAX_PATH) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1351 return FALSE; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1352 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1353 /* Use local copy for destructive modification. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1354 memcpy (full, name, len+1); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1355 unixtodos_filename (full); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1356 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1357 /* Copy root part verbatim. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1358 len = parse_root (full, &p); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1359 memcpy (o, full, len); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1360 o += len; |
23858
6bb3dc7f1b48
(w32_get_long_filename): Handle root dirs correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23809
diff
changeset
|
1361 *o = '\0'; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1362 size -= len; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1363 |
23858
6bb3dc7f1b48
(w32_get_long_filename): Handle root dirs correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23809
diff
changeset
|
1364 while (p != NULL && *p) |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1365 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1366 q = p; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1367 p = strchr (q, '\\'); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1368 if (p) *p = '\0'; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1369 len = get_long_basename (full, o, size); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1370 if (len > 0) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1371 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1372 o += len; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1373 size -= len; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1374 if (p != NULL) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1375 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1376 *p++ = '\\'; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1377 if (size < 2) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1378 return FALSE; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1379 *o++ = '\\'; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1380 size--; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1381 *o = '\0'; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1382 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1383 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1384 else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1385 return FALSE; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1386 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1387 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1388 return TRUE; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1389 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1390 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
1391 static int |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
1392 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
|
1393 { |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
1394 const char *ptr = filename; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
1395 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
1396 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
|
1397 return 0; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
1398 |
76098
9ad6c99cdc71
(stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents:
75348
diff
changeset
|
1399 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
|
1400 return 0; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
1401 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
1402 return 1; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
1403 } |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1404 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1405 /* 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
|
1406 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1407 int |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1408 sigsetmask (int signal_mask) |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1409 { |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1410 return 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1411 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1412 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1413 int |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1414 sigmask (int sig) |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1415 { |
27630
95dde6f88b39
(sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents:
25193
diff
changeset
|
1416 return 0; |
95dde6f88b39
(sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents:
25193
diff
changeset
|
1417 } |
95dde6f88b39
(sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents:
25193
diff
changeset
|
1418 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1419 int |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1420 sigblock (int sig) |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1421 { |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1422 return 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1423 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1424 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1425 int |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1426 sigunblock (int sig) |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1427 { |
27630
95dde6f88b39
(sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents:
25193
diff
changeset
|
1428 return 0; |
95dde6f88b39
(sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents:
25193
diff
changeset
|
1429 } |
95dde6f88b39
(sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents:
25193
diff
changeset
|
1430 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1431 int |
108200
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1432 sigemptyset (sigset_t *set) |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1433 { |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1434 return 0; |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1435 } |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1436 |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1437 int |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1438 sigaddset (sigset_t *set, int signo) |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1439 { |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1440 return 0; |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1441 } |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1442 |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1443 int |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1444 sigfillset (sigset_t *set) |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1445 { |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1446 return 0; |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1447 } |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1448 |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1449 int |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1450 sigprocmask (int how, const sigset_t *set, sigset_t *oset) |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1451 { |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1452 return 0; |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1453 } |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1454 |
e30aff0bf9d5
Emulate POSIX_SIGNALS on MS-Windows.
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
1455 int |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1456 setpgrp (int pid, int gid) |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1457 { |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1458 return 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1459 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1460 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1461 int |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1462 alarm (int seconds) |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1463 { |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1464 return 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1465 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1466 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1467 #define REG_ROOT "SOFTWARE\\GNU\\Emacs" |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1468 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1469 LPBYTE |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
1470 w32_get_resource (char *key, LPDWORD lpdwtype) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1471 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1472 LPBYTE lpvalue; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1473 HKEY hrootkey = NULL; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1474 DWORD cbData; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1475 |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1476 /* 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
|
1477 we have any resources. */ |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1478 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1479 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
|
1480 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1481 lpvalue = NULL; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1482 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1483 if (RegQueryValueEx (hrootkey, key, NULL, NULL, NULL, &cbData) == ERROR_SUCCESS |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1484 && (lpvalue = (LPBYTE) xmalloc (cbData)) != NULL |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1485 && 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
|
1486 { |
78919
87875c00eb06
(w32_get_resource): Always close registry keys.
Jason Rumney <jasonr@gnu.org>
parents:
78260
diff
changeset
|
1487 RegCloseKey (hrootkey); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1488 return (lpvalue); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1489 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1490 |
95481
4390d64d3328
Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents:
95277
diff
changeset
|
1491 xfree (lpvalue); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1492 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1493 RegCloseKey (hrootkey); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1494 } |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1495 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1496 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
|
1497 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1498 lpvalue = NULL; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1499 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1500 if (RegQueryValueEx (hrootkey, key, NULL, NULL, NULL, &cbData) == ERROR_SUCCESS |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1501 && (lpvalue = (LPBYTE) xmalloc (cbData)) != NULL |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1502 && 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
|
1503 { |
78919
87875c00eb06
(w32_get_resource): Always close registry keys.
Jason Rumney <jasonr@gnu.org>
parents:
78260
diff
changeset
|
1504 RegCloseKey (hrootkey); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1505 return (lpvalue); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1506 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1507 |
95481
4390d64d3328
Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents:
95277
diff
changeset
|
1508 xfree (lpvalue); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1509 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1510 RegCloseKey (hrootkey); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1511 } |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1512 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1513 return (NULL); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1514 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1515 |
16892
a8a539285d69
Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
1516 char *get_emacs_configuration (void); |
a8a539285d69
Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
1517 extern Lisp_Object Vsystem_configuration; |
a8a539285d69
Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
1518 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1519 void |
24229
fc89585ce76f
(init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents:
23858
diff
changeset
|
1520 init_environment (char ** argv) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1521 { |
22363 | 1522 static const char * const tempdirs[] = { |
1523 "$TMPDIR", "$TEMP", "$TMP", "c:/" | |
1524 }; | |
64326
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1525 |
22363 | 1526 int i; |
64326
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1527 |
22363 | 1528 const int imax = sizeof (tempdirs) / sizeof (tempdirs[0]); |
1529 | |
1530 /* Make sure they have a usable $TMPDIR. Many Emacs functions use | |
1531 temporary files and assume "/tmp" if $TMPDIR is unset, which | |
1532 will break on DOS/Windows. Refuse to work if we cannot find | |
1533 a directory, not even "c:/", usable for that purpose. */ | |
1534 for (i = 0; i < imax ; i++) | |
1535 { | |
1536 const char *tmp = tempdirs[i]; | |
1537 | |
1538 if (*tmp == '$') | |
1539 tmp = getenv (tmp + 1); | |
1540 /* Note that `access' can lie to us if the directory resides on a | |
1541 read-only filesystem, like CD-ROM or a write-protected floppy. | |
1542 The only way to be really sure is to actually create a file and | |
1543 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
|
1544 if (tmp && _access (tmp, D_OK) == 0) |
22363 | 1545 { |
1546 char * var = alloca (strlen (tmp) + 8); | |
1547 sprintf (var, "TMPDIR=%s", tmp); | |
36001
1d402a57bb21
(init-environment): Duplicate local string before putenv.
Jason Rumney <jasonr@gnu.org>
parents:
35425
diff
changeset
|
1548 _putenv (strdup (var)); |
22363 | 1549 break; |
1550 } | |
1551 } | |
1552 if (i >= imax) | |
1553 cmd_error_internal | |
1554 (Fcons (Qerror, | |
1555 Fcons (build_string ("no usable temporary directories found!!"), | |
1556 Qnil)), | |
1557 "While setting TMPDIR: "); | |
1558 | |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1559 /* 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
|
1560 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
|
1561 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1562 int i; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1563 LPBYTE lpval; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1564 DWORD dwType; |
33869
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1565 char locale_name[32]; |
64326
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1566 struct stat ignored; |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1567 char default_home[MAX_PATH]; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1568 |
70738
ec34443b2ba0
(init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents:
69172
diff
changeset
|
1569 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
|
1570 { |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1571 char * name; |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1572 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
|
1573 } dflt_envvars[] = |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1574 { |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1575 {"HOME", "C:/"}, |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1576 {"PRELOAD_WINSOCK", NULL}, |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1577 {"emacs_dir", "C:/emacs"}, |
35425
c26271ca6ad0
(init_environment): Add a version-independent site-lisp
Andrew Innes <andrewi@gnu.org>
parents:
35286
diff
changeset
|
1578 {"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
|
1579 {"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
|
1580 {"EMACSDATA", "%emacs_dir%/etc"}, |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1581 {"EMACSPATH", "%emacs_dir%/bin"}, |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1582 /* 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
|
1583 is then ignored. */ |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1584 /* {"INFOPATH", "%emacs_dir%/info"}, */ |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1585 {"EMACSDOC", "%emacs_dir%/etc"}, |
33869
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1586 {"TERM", "cmd"}, |
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1587 {"LANG", NULL}, |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1588 }; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1589 |
109160
f8660b83cdbf
Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents:
109152
diff
changeset
|
1590 #define N_ENV_VARS sizeof (dflt_envvars)/sizeof (dflt_envvars[0]) |
70738
ec34443b2ba0
(init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents:
69172
diff
changeset
|
1591 |
ec34443b2ba0
(init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents:
69172
diff
changeset
|
1592 /* 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
|
1593 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
|
1594 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
|
1595 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
|
1596 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
|
1597 |
ec34443b2ba0
(init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents:
69172
diff
changeset
|
1598 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
|
1599 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
|
1600 |
64326
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1601 /* 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
|
1602 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
|
1603 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
|
1604 if (stat ("C:/.emacs", &ignored) < 0) |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1605 { |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1606 HRESULT profile_result; |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1607 /* 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
|
1608 of Windows 95 and NT4 that have not been updated to include |
100192
038d7d21b786
* w32.c (init_environment): Don't free handle to library shell32.dll.
Juanma Barranquero <lekktu@gmail.com>
parents:
97875
diff
changeset
|
1609 MSIE 5. */ |
64326
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1610 ShGetFolderPath_fn get_folder_path; |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1611 get_folder_path = (ShGetFolderPath_fn) |
100192
038d7d21b786
* w32.c (init_environment): Don't free handle to library shell32.dll.
Juanma Barranquero <lekktu@gmail.com>
parents:
97875
diff
changeset
|
1612 GetProcAddress (GetModuleHandle ("shell32.dll"), "SHGetFolderPathA"); |
64326
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1613 |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1614 if (get_folder_path != NULL) |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1615 { |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1616 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
|
1617 0, default_home); |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1618 |
96376
c3309dba6542
American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents:
95917
diff
changeset
|
1619 /* 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
|
1620 if (profile_result == S_OK) |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1621 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
|
1622 } |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1623 } |
8d328b39d0d9
(init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents:
64084
diff
changeset
|
1624 |
33869
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1625 /* 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
|
1626 if (GetLocaleInfo (LOCALE_USER_DEFAULT, |
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1627 LOCALE_SABBREVLANGNAME | LOCALE_USE_CP_ACP, |
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1628 locale_name, sizeof (locale_name))) |
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1629 { |
70738
ec34443b2ba0
(init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents:
69172
diff
changeset
|
1630 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
|
1631 { |
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1632 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
|
1633 { |
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1634 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
|
1635 break; |
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1636 } |
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1637 } |
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1638 } |
e41a7b1e443f
(init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents:
31350
diff
changeset
|
1639 |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1640 #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
|
1641 |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1642 /* 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
|
1643 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
|
1644 of a standard installation. */ |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1645 { |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1646 char *p; |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1647 char modname[MAX_PATH]; |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1648 |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1649 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
|
1650 abort (); |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1651 if ((p = strrchr (modname, '\\')) == NULL) |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1652 abort (); |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1653 *p = 0; |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1654 |
95217
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
1655 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
|
1656 { |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1657 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
|
1658 |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1659 *p = 0; |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1660 for (p = modname; *p; p++) |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1661 if (*p == '\\') *p = '/'; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1662 |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
1663 _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
|
1664 _putenv (strdup (buf)); |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1665 } |
57609
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1666 /* 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
|
1667 |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1668 /* 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
|
1669 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
|
1670 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
|
1671 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
|
1672 { |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1673 *p = 0; |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1674 p = strrchr (modname, '\\'); |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1675 if (p != NULL) |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1676 { |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1677 *p = 0; |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1678 p = strrchr (modname, '\\'); |
95217
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
1679 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
|
1680 { |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1681 char buf[SET_ENV_BUF_SIZE]; |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1682 |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1683 *p = 0; |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1684 for (p = modname; *p; p++) |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1685 if (*p == '\\') *p = '/'; |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1686 |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
1687 _snprintf (buf, sizeof (buf)-1, "emacs_dir=%s", modname); |
57609
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1688 _putenv (strdup (buf)); |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1689 } |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1690 } |
5aefaad0a5f1
(init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents:
55645
diff
changeset
|
1691 } |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1692 } |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1693 |
70738
ec34443b2ba0
(init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents:
69172
diff
changeset
|
1694 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
|
1695 { |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1696 if (!getenv (env_vars[i].name)) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1697 { |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1698 int dont_free = 0; |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1699 |
78028
3a8b85706c0c
(_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents:
76098
diff
changeset
|
1700 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
|
1701 /* Also ignore empty environment variables. */ |
3a8b85706c0c
(_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents:
76098
diff
changeset
|
1702 || *lpval == 0) |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1703 { |
95481
4390d64d3328
Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents:
95277
diff
changeset
|
1704 xfree (lpval); |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1705 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
|
1706 dwType = REG_EXPAND_SZ; |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1707 dont_free = 1; |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1708 } |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1709 |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1710 if (lpval) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1711 { |
70740
f263eba56074
(init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents:
70738
diff
changeset
|
1712 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
|
1713 |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1714 if (dwType == REG_EXPAND_SZ) |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
1715 ExpandEnvironmentStrings ((LPSTR) lpval, buf1, sizeof (buf1)); |
70740
f263eba56074
(init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents:
70738
diff
changeset
|
1716 else if (dwType == REG_SZ) |
f263eba56074
(init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents:
70738
diff
changeset
|
1717 strcpy (buf1, lpval); |
f263eba56074
(init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents:
70738
diff
changeset
|
1718 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
|
1719 { |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
1720 _snprintf (buf2, sizeof (buf2)-1, "%s=%s", env_vars[i].name, |
70740
f263eba56074
(init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents:
70738
diff
changeset
|
1721 buf1); |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1722 _putenv (strdup (buf2)); |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1723 } |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1724 |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1725 if (!dont_free) |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
1726 xfree (lpval); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1727 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1728 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1729 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1730 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1731 |
16892
a8a539285d69
Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
1732 /* Rebuild system configuration to reflect invoking system. */ |
a8a539285d69
Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
1733 Vsystem_configuration = build_string (EMACS_CONFIGURATION); |
a8a539285d69
Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16884
diff
changeset
|
1734 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1735 /* 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
|
1736 "Path" although cmd.exe (perhaps NT itself) arranges for |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1737 environment variable lookup and setting to be case insensitive. |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1738 However, Emacs assumes a fully case sensitive environment, so we |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1739 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
|
1740 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
|
1741 modifying the string in the C runtime environ entry. |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1742 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1743 The same applies to COMSPEC. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1744 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1745 char ** envp; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1746 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1747 for (envp = environ; *envp; envp++) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1748 if (_strnicmp (*envp, "PATH=", 5) == 0) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1749 memcpy (*envp, "PATH=", 5); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1750 else if (_strnicmp (*envp, "COMSPEC=", 8) == 0) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1751 memcpy (*envp, "COMSPEC=", 8); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1752 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1753 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1754 /* Remember the initial working directory for getwd, then make the |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1755 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
|
1756 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
|
1757 running subprocesses for the same reason.) */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1758 if (!GetCurrentDirectory (MAXPATHLEN, startup_dir)) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1759 abort (); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1760 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1761 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1762 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
|
1763 static char modname[MAX_PATH]; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1764 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1765 if (!GetModuleFileName (NULL, modname, MAX_PATH)) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1766 abort (); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1767 if ((p = strrchr (modname, '\\')) == NULL) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1768 abort (); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1769 *p = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1770 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1771 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
|
1772 |
fc89585ce76f
(init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents:
23858
diff
changeset
|
1773 /* 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
|
1774 *p = '\\'; |
fc89585ce76f
(init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents:
23858
diff
changeset
|
1775 argv[0] = modname; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1776 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1777 |
27890
91be3fa84ccb
(init_environment): Set Vw32_num_mouse_buttons here.
Jason Rumney <jasonr@gnu.org>
parents:
27630
diff
changeset
|
1778 /* 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
|
1779 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
|
1780 mouse-3. */ |
55645
5b3f2477d17b
Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents:
55643
diff
changeset
|
1781 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
|
1782 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1783 init_user_info (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1784 } |
9803 | 1785 |
42192
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1786 char * |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1787 emacs_root_dir (void) |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1788 { |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1789 static char root_dir[FILENAME_MAX]; |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1790 const char *p; |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1791 |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1792 p = getenv ("emacs_dir"); |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1793 if (p == NULL) |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1794 abort (); |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1795 strcpy (root_dir, p); |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1796 root_dir[parse_root (root_dir, NULL)] = '\0'; |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1797 dostounix_filename (root_dir); |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1798 return root_dir; |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1799 } |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
39812
diff
changeset
|
1800 |
9803 | 1801 /* We don't have scripts to automatically determine the system configuration |
1802 for Emacs before it's compiled, and we don't want to have to make the | |
1803 user enter it, so we define EMACS_CONFIGURATION to invoke this runtime | |
1804 routine. */ | |
1805 | |
1806 char * | |
1807 get_emacs_configuration (void) | |
1808 { | |
13156 | 1809 char *arch, *oem, *os; |
24885
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1810 int build_num; |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1811 static char configuration_buffer[32]; |
9803 | 1812 |
13156 | 1813 /* Determine the processor type. */ |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1814 switch (get_processor_type ()) |
13156 | 1815 { |
12451
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
1816 |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
1817 #ifdef PROCESSOR_INTEL_386 |
13156 | 1818 case PROCESSOR_INTEL_386: |
1819 case PROCESSOR_INTEL_486: | |
1820 case PROCESSOR_INTEL_PENTIUM: | |
1821 arch = "i386"; | |
1822 break; | |
12451
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
1823 #endif |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
1824 |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
1825 #ifdef PROCESSOR_MIPS_R2000 |
13156 | 1826 case PROCESSOR_MIPS_R2000: |
1827 case PROCESSOR_MIPS_R3000: | |
1828 case PROCESSOR_MIPS_R4000: | |
1829 arch = "mips"; | |
1830 break; | |
12451
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
1831 #endif |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
1832 |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
1833 #ifdef PROCESSOR_ALPHA_21064 |
13156 | 1834 case PROCESSOR_ALPHA_21064: |
1835 arch = "alpha"; | |
1836 break; | |
12451
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
1837 #endif |
4439dcb1496a
(PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12183
diff
changeset
|
1838 |
13156 | 1839 default: |
1840 arch = "unknown"; | |
1841 break; | |
1842 } | |
9803 | 1843 |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1844 /* 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
|
1845 #ifdef _MSC_VER |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1846 #define COMPILER_NAME "msvc" |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1847 #else |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1848 #ifdef __GNUC__ |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1849 #define COMPILER_NAME "mingw" |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1850 #else |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1851 #define COMPILER_NAME "unknown" |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1852 #endif |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1853 #endif |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1854 oem = COMPILER_NAME; |
9803 | 1855 |
24885
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1856 switch (osinfo_cache.dwPlatformId) { |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1857 case VER_PLATFORM_WIN32_NT: |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1858 os = "nt"; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1859 build_num = osinfo_cache.dwBuildNumber; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1860 break; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1861 case VER_PLATFORM_WIN32_WINDOWS: |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1862 if (osinfo_cache.dwMinorVersion == 0) { |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1863 os = "windows95"; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1864 } else { |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1865 os = "windows98"; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1866 } |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1867 build_num = LOWORD (osinfo_cache.dwBuildNumber); |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1868 break; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1869 case VER_PLATFORM_WIN32s: |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1870 /* Not supported, should not happen. */ |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1871 os = "windows32s"; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1872 build_num = LOWORD (osinfo_cache.dwBuildNumber); |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1873 break; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1874 default: |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1875 os = "unknown"; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1876 build_num = 0; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1877 break; |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1878 } |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1879 |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1880 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
|
1881 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
|
1882 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
|
1883 } else { |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1884 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
|
1885 } |
5f1b1f5fd7c8
(get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents:
24857
diff
changeset
|
1886 |
13156 | 1887 return configuration_buffer; |
9803 | 1888 } |
1889 | |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1890 char * |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1891 get_emacs_configuration_options (void) |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1892 { |
110482
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1893 static char *options_buffer; |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1894 char cv[32]; /* Enough for COMPILER_VERSION. */ |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1895 char *options[] = { |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1896 cv, /* To be filled later. */ |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1897 #ifdef EMACSDEBUG |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1898 " --no-opt", |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1899 #endif |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1900 /* configure.bat already sets USER_CFLAGS and USER_LDFLAGS |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1901 with a starting space to save work here. */ |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1902 #ifdef USER_CFLAGS |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1903 " --cflags", USER_CFLAGS, |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1904 #endif |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1905 #ifdef USER_LDFLAGS |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1906 " --ldflags", USER_LDFLAGS, |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1907 #endif |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1908 NULL |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1909 }; |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1910 size_t size = 0; |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1911 int i; |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1912 |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1913 /* 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
|
1914 #ifdef _MSC_VER |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1915 #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
|
1916 #else |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1917 #ifdef __GNUC__ |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1918 #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
|
1919 #else |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1920 #define COMPILER_VERSION "" |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1921 #endif |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1922 #endif |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1923 |
110582
aa7656773a38
src/w32.c (get_emacs_configuration_options): Fix previous change.
Juanma Barranquero <lekktu@gmail.com>
parents:
110483
diff
changeset
|
1924 if (_snprintf (cv, sizeof (cv) - 1, COMPILER_VERSION) < 0) |
110482
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1925 return "Error: not enough space for compiler version"; |
110582
aa7656773a38
src/w32.c (get_emacs_configuration_options): Fix previous change.
Juanma Barranquero <lekktu@gmail.com>
parents:
110483
diff
changeset
|
1926 cv[sizeof (cv) - 1] = '\0'; |
110482
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1927 |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1928 for (i = 0; options[i]; i++) |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1929 size += strlen (options[i]); |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1930 |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1931 options_buffer = xmalloc (size + 1); |
110483
2892adf3a65b
w32.c (get_emacs_configuration_options): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
110482
diff
changeset
|
1932 options_buffer[0] = '\0'; |
110482
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1933 |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1934 for (i = 0; options[i]; i++) |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1935 strcat (options_buffer, options[i]); |
99986de658d5
src/w32.c (get_emacs_configuration_options): Fix buffer overrun.
Juanma Barranquero <lekktu@gmail.com>
parents:
110431
diff
changeset
|
1936 |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1937 return options_buffer; |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1938 } |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1939 |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
1940 |
11384 | 1941 #include <sys/timeb.h> |
1942 | |
1943 /* Emulate gettimeofday (Ulrich Leodolter, 1/11/95). */ | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1944 void |
11384 | 1945 gettimeofday (struct timeval *tv, struct timezone *tz) |
1946 { | |
63020
92ecd695d7c1
(gettimeofday): Use struct _timeb, not struct timeb.
Eli Zaretskii <eliz@gnu.org>
parents:
60092
diff
changeset
|
1947 struct _timeb tb; |
11384 | 1948 _ftime (&tb); |
1949 | |
1950 tv->tv_sec = tb.time; | |
1951 tv->tv_usec = tb.millitm * 1000L; | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
1952 if (tz) |
11384 | 1953 { |
1954 tz->tz_minuteswest = tb.timezone; /* minutes west of Greenwich */ | |
1955 tz->tz_dsttime = tb.dstflag; /* type of dst correction */ | |
1956 } | |
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 /* ------------------------------------------------------------------------- */ |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
1960 /* 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
|
1961 /* ------------------------------------------------------------------------- */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1962 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1963 /* 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
|
1964 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
|
1965 (Ulrich Leodolter, 1/11/95). */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1966 char * |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1967 sys_ctime (const time_t *t) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1968 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1969 char *str = (char *) ctime (t); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1970 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
|
1971 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1972 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1973 /* 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
|
1974 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
|
1975 This is much easier. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1976 void |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1977 sys_sleep (int seconds) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1978 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1979 Sleep (seconds * 1000); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1980 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1981 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1982 /* 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
|
1983 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
|
1984 extern int __cdecl _free_osfhnd (int fd); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1985 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1986 /* 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
|
1987 filedesc fd_info [ MAXDESC ]; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1988 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1989 typedef struct volume_info_data { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1990 struct volume_info_data * next; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1991 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1992 /* time when info was obtained */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1993 DWORD timestamp; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1994 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1995 /* actual volume info */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
1996 char * root_dir; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1997 DWORD serialnum; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1998 DWORD maxcomp; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
1999 DWORD flags; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2000 char * name; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2001 char * type; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2002 } volume_info_data; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2003 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2004 /* Global referenced by various functions. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2005 static volume_info_data volume_info; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2006 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2007 /* 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
|
2008 data never expires). */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2009 static BOOL fixed_drives[26]; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2010 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2011 /* 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
|
2012 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
|
2013 #define DRIVE_INDEX( c ) ( (c) <= 'Z' ? (c) - 'A' : (c) - 'a' ) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2014 #define VOLINFO_STILL_VALID( root_dir, info ) \ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2015 ( ( isalpha (root_dir[0]) && \ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2016 fixed_drives[ DRIVE_INDEX (root_dir[0]) ] ) \ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2017 || GetTickCount () - info->timestamp < 10000 ) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2018 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2019 /* Cache support functions. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2020 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2021 /* Simple linked list with linear search is sufficient. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2022 static volume_info_data *volume_cache = NULL; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2023 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2024 static volume_info_data * |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2025 lookup_volume_info (char * root_dir) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2026 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2027 volume_info_data * info; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2028 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2029 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
|
2030 if (xstrcasecmp (info->root_dir, root_dir) == 0) |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2031 break; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2032 return info; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2033 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2034 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2035 static void |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2036 add_volume_info (char * root_dir, volume_info_data * info) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2037 { |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
2038 info->root_dir = xstrdup (root_dir); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2039 info->next = volume_cache; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2040 volume_cache = info; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2041 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2042 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2043 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2044 /* Wrapper for GetVolumeInformation, which uses caching to avoid |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2045 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
|
2046 cdrom drive, ~5-10ms or more for remote drives on LAN). */ |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
2047 static volume_info_data * |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2048 GetCachedVolumeInformation (char * root_dir) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2049 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2050 volume_info_data * info; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2051 char default_root[ MAX_PATH ]; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2052 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2053 /* NULL for root_dir means use root from current directory. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2054 if (root_dir == NULL) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2055 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2056 if (GetCurrentDirectory (MAX_PATH, default_root) == 0) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2057 return NULL; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2058 parse_root (default_root, &root_dir); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2059 *root_dir = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2060 root_dir = default_root; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2061 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2062 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2063 /* Local fixed drives can be cached permanently. Removable drives |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2064 cannot be cached permanently, since the volume name and serial |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2065 number (if nothing else) can change. Remote drives should be |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2066 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
|
2067 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
|
2068 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
|
2069 by other processes) without notice. |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2070 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2071 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
|
2072 volumes, we use a simple expiry mechanism to invalidate cache |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2073 entries that are more than ten seconds old. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2074 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2075 #if 0 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2076 /* No point doing this, because WNetGetConnection is even slower than |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2077 GetVolumeInformation, consistently taking ~50ms on a 486 (FWIW, |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2078 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
|
2079 involve network access, and so is extremely quick). */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2080 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2081 /* Map drive letter to UNC if remote. */ |
109160
f8660b83cdbf
Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents:
109152
diff
changeset
|
2082 if (isalpha (root_dir[0]) && !fixed[DRIVE_INDEX (root_dir[0])]) |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2083 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2084 char remote_name[ 256 ]; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2085 char drive[3] = { root_dir[0], ':' }; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2086 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2087 if (WNetGetConnection (drive, remote_name, sizeof (remote_name)) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2088 == NO_ERROR) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2089 /* do something */ ; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2090 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2091 #endif |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2092 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2093 info = lookup_volume_info (root_dir); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2094 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2095 if (info == NULL || ! VOLINFO_STILL_VALID (root_dir, info)) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2096 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2097 char name[ 256 ]; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2098 DWORD serialnum; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2099 DWORD maxcomp; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2100 DWORD flags; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2101 char type[ 256 ]; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2102 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2103 /* Info is not cached, or is stale. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2104 if (!GetVolumeInformation (root_dir, |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2105 name, sizeof (name), |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2106 &serialnum, |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2107 &maxcomp, |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2108 &flags, |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2109 type, sizeof (type))) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2110 return NULL; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2111 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2112 /* Cache the volume information for future use, overwriting existing |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2113 entry if present. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2114 if (info == NULL) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2115 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2116 info = (volume_info_data *) xmalloc (sizeof (volume_info_data)); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2117 add_volume_info (root_dir, info); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2118 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2119 else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2120 { |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
2121 xfree (info->name); |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
2122 xfree (info->type); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2123 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2124 |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
2125 info->name = xstrdup (name); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2126 info->serialnum = serialnum; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2127 info->maxcomp = maxcomp; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2128 info->flags = flags; |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
2129 info->type = xstrdup (type); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2130 info->timestamp = GetTickCount (); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2131 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2132 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2133 return info; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2134 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2135 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2136 /* 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
|
2137 start of pathname in name (past UNC header\volume header if present). */ |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
2138 static int |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2139 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
|
2140 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2141 char temp[MAX_PATH]; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2142 char *rootname = NULL; /* default to current volume */ |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2143 volume_info_data * info; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2144 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2145 if (name == NULL) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2146 return FALSE; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2147 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2148 /* 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
|
2149 if (isalpha (name[0]) && name[1] == ':') |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2150 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2151 rootname = temp; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2152 temp[0] = *name++; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2153 temp[1] = *name++; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2154 temp[2] = '\\'; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2155 temp[3] = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2156 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2157 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
|
2158 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2159 char *str = temp; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2160 int slashes = 4; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2161 rootname = temp; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2162 do |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2163 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2164 if (IS_DIRECTORY_SEP (*name) && --slashes == 0) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2165 break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2166 *str++ = *name++; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2167 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2168 while ( *name ); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2169 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2170 *str++ = '\\'; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2171 *str = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2172 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2173 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2174 if (pPath) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2175 *pPath = name; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2176 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2177 info = GetCachedVolumeInformation (rootname); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2178 if (info != NULL) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2179 { |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2180 /* Set global referenced by other functions. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2181 volume_info = *info; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2182 return TRUE; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2183 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2184 return FALSE; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2185 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2186 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2187 /* 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
|
2188 names); also set path pointer to start of pathname in name. */ |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
2189 static int |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2190 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
|
2191 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2192 if (get_volume_info (name, pPath)) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2193 return (volume_info.maxcomp == 12); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2194 return FALSE; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2195 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2196 |
80030
6b3001cc9ca9
*** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents:
79759
diff
changeset
|
2197 /* 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
|
2198 const char * |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
2199 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
|
2200 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2201 static char shortname[MAX_PATH]; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2202 char * str = shortname; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2203 char c; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2204 char * path; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2205 const char * save_name = name; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2206 |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
2207 if (strlen (name) >= MAX_PATH) |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
2208 { |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
2209 /* 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
|
2210 strcpy (shortname, "?"); |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
2211 return shortname; |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
2212 } |
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
2213 |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
2214 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
|
2215 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2216 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
|
2217 register int extn = 0; /* extension added? */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2218 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
|
2219 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2220 while (name < path) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2221 *str++ = *name++; /* skip past UNC header */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2222 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2223 while ((c = *name++)) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2224 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2225 switch ( c ) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2226 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2227 case '\\': |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2228 case '/': |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2229 *str++ = '\\'; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2230 extn = 0; /* reset extension flags */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2231 dots = 2; /* max 2 dots */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2232 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
|
2233 break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2234 case ':': |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2235 *str++ = ':'; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2236 extn = 0; /* reset extension flags */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2237 dots = 2; /* max 2 dots */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2238 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
|
2239 break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2240 case '.': |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2241 if ( dots ) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2242 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2243 /* 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
|
2244 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
|
2245 to be read as _emacs, for example. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2246 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2247 if (! *name || |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2248 *name == '.' || |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2249 IS_DIRECTORY_SEP (*name)) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2250 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2251 *str++ = '.'; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2252 dots--; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2253 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2254 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2255 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2256 *str++ = '_'; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2257 left--; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2258 dots = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2259 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2260 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2261 else if ( !extn ) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2262 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2263 *str++ = '.'; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2264 extn = 1; /* we've got an extension */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2265 left = 3; /* 3 chars in extension */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2266 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2267 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2268 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2269 /* 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
|
2270 *str++ = '_'; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2271 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2272 break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2273 case '~': |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2274 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
|
2275 if ( ! left ) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2276 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
|
2277 /* FALLTHRU */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2278 default: |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2279 if ( left ) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2280 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2281 *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
|
2282 left--; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2283 dots = 0; /* started a path component */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2284 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2285 break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2286 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2287 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2288 *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
|
2289 } |
867e4ead88d9
(map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents:
15141
diff
changeset
|
2290 else |
867e4ead88d9
(map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents:
15141
diff
changeset
|
2291 { |
867e4ead88d9
(map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents:
15141
diff
changeset
|
2292 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
|
2293 unixtodos_filename (shortname); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2294 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2295 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2296 if (pPath) |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2297 *pPath = shortname + (path - save_name); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2298 |
15213
867e4ead88d9
(map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents:
15141
diff
changeset
|
2299 return shortname; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2300 } |
11384 | 2301 |
22363 | 2302 static int |
2303 is_exec (const char * name) | |
2304 { | |
2305 char * p = strrchr (name, '.'); | |
2306 return | |
2307 (p != NULL | |
95217
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
2308 && (xstrcasecmp (p, ".exe") == 0 || |
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
2309 xstrcasecmp (p, ".com") == 0 || |
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
2310 xstrcasecmp (p, ".bat") == 0 || |
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
2311 xstrcasecmp (p, ".cmd") == 0)); |
22363 | 2312 } |
2313 | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2314 /* Emulate the Unix directory procedures opendir, closedir, |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2315 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
|
2316 so we provide them here. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2317 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2318 struct direct dir_static; /* simulated directory contents */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2319 static HANDLE dir_find_handle = INVALID_HANDLE_VALUE; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2320 static int dir_is_fat; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2321 static char dir_pathname[MAXPATHLEN+1]; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2322 static WIN32_FIND_DATA dir_find_data; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2323 |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2324 /* 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
|
2325 root directory. */ |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2326 static HANDLE wnet_enum_handle = INVALID_HANDLE_VALUE; |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
2327 static HANDLE open_unc_volume (const char *); |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
2328 static char *read_unc_volume (HANDLE, char *, int); |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
2329 static void close_unc_volume (HANDLE); |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2330 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2331 DIR * |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2332 opendir (char *filename) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2333 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2334 DIR *dirp; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2335 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2336 /* 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
|
2337 this operation, so we defer the open until read time. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2338 |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2339 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
|
2340 return NULL; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2341 if (wnet_enum_handle != INVALID_HANDLE_VALUE) |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2342 return NULL; |
22505
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 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
|
2345 { |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2346 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
|
2347 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
|
2348 return NULL; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2349 } |
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 if (!(dirp = (DIR *) malloc (sizeof (DIR)))) |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2352 return NULL; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2353 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2354 dirp->dd_fd = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2355 dirp->dd_loc = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2356 dirp->dd_size = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2357 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2358 strncpy (dir_pathname, map_w32_filename (filename, NULL), MAXPATHLEN); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2359 dir_pathname[MAXPATHLEN] = '\0'; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2360 dir_is_fat = is_fat_volume (filename, NULL); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2361 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2362 return dirp; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2363 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2364 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2365 void |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2366 closedir (DIR *dirp) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2367 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2368 /* If we have a find-handle open, close it. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2369 if (dir_find_handle != INVALID_HANDLE_VALUE) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2370 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2371 FindClose (dir_find_handle); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2372 dir_find_handle = INVALID_HANDLE_VALUE; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2373 } |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2374 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
|
2375 { |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2376 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
|
2377 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
|
2378 } |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2379 xfree ((char *) dirp); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2380 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2381 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2382 struct direct * |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2383 readdir (DIR *dirp) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2384 { |
80376
6e2a0297b94d
(readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents:
80030
diff
changeset
|
2385 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
|
2386 |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2387 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
|
2388 { |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2389 if (!read_unc_volume (wnet_enum_handle, |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2390 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
|
2391 MAX_PATH)) |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2392 return NULL; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2393 } |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2394 /* 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
|
2395 else if (dir_find_handle == INVALID_HANDLE_VALUE) |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2396 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2397 char filename[MAXNAMLEN + 3]; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2398 int ln; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2399 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2400 strcpy (filename, dir_pathname); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2401 ln = strlen (filename) - 1; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2402 if (!IS_DIRECTORY_SEP (filename[ln])) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2403 strcat (filename, "\\"); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2404 strcat (filename, "*"); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2405 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2406 dir_find_handle = FindFirstFile (filename, &dir_find_data); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2407 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2408 if (dir_find_handle == INVALID_HANDLE_VALUE) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2409 return NULL; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2410 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2411 else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2412 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2413 if (!FindNextFile (dir_find_handle, &dir_find_data)) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2414 return NULL; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2415 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2416 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2417 /* 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
|
2418 value returned by stat(). */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2419 dir_static.d_ino = 1; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2420 |
93142
e1c95382ef7e
(readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents:
92148
diff
changeset
|
2421 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
|
2422 |
e1c95382ef7e
(readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents:
92148
diff
changeset
|
2423 /* 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
|
2424 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
|
2425 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
|
2426 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
|
2427 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
|
2428 { |
e1c95382ef7e
(readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents:
92148
diff
changeset
|
2429 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
|
2430 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
|
2431 } |
e1c95382ef7e
(readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents:
92148
diff
changeset
|
2432 dir_static.d_namlen = strlen (dir_static.d_name); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2433 dir_static.d_reclen = sizeof (struct direct) - MAXNAMLEN + 3 + |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2434 dir_static.d_namlen - dir_static.d_namlen % 4; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2435 |
80376
6e2a0297b94d
(readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents:
80030
diff
changeset
|
2436 /* 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
|
2437 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
|
2438 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
|
2439 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
|
2440 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
|
2441 { |
6e2a0297b94d
(readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents:
80030
diff
changeset
|
2442 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
|
2443 /* 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
|
2444 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
|
2445 downcase = 1; |
6e2a0297b94d
(readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents:
80030
diff
changeset
|
2446 } |
6e2a0297b94d
(readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents:
80030
diff
changeset
|
2447 else |
6e2a0297b94d
(readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents:
80030
diff
changeset
|
2448 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
|
2449 dir_static.d_namlen = strlen (dir_static.d_name); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2450 if (dir_is_fat) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2451 _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
|
2452 else if (downcase) |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2453 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2454 register char *p; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2455 for (p = dir_static.d_name; *p; p++) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2456 if (*p >= 'a' && *p <= 'z') |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2457 break; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2458 if (!*p) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2459 _strlwr (dir_static.d_name); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2460 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2461 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2462 return &dir_static; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2463 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2464 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
2465 static HANDLE |
55645
5b3f2477d17b
Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents:
55643
diff
changeset
|
2466 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
|
2467 { |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2468 NETRESOURCE nr; |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2469 HANDLE henum; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2470 int result; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2471 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2472 nr.dwScope = RESOURCE_GLOBALNET; |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2473 nr.dwType = RESOURCETYPE_DISK; |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2474 nr.dwDisplayType = RESOURCEDISPLAYTYPE_SERVER; |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2475 nr.dwUsage = RESOURCEUSAGE_CONTAINER; |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2476 nr.lpLocalName = NULL; |
63020
92ecd695d7c1
(gettimeofday): Use struct _timeb, not struct timeb.
Eli Zaretskii <eliz@gnu.org>
parents:
60092
diff
changeset
|
2477 nr.lpRemoteName = (LPSTR)map_w32_filename (path, NULL); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2478 nr.lpComment = NULL; |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2479 nr.lpProvider = NULL; |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
2480 |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
2481 result = WNetOpenEnum (RESOURCE_GLOBALNET, RESOURCETYPE_DISK, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
2482 RESOURCEUSAGE_CONNECTABLE, &nr, &henum); |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2483 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2484 if (result == NO_ERROR) |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2485 return henum; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2486 else |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2487 return INVALID_HANDLE_VALUE; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2488 } |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2489 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
2490 static char * |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2491 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
|
2492 { |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
2493 DWORD count; |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2494 int result; |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
2495 DWORD bufsize = 512; |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2496 char *buffer; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2497 char *ptr; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2498 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2499 count = 1; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2500 buffer = alloca (bufsize); |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2501 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
|
2502 if (result != NO_ERROR) |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2503 return NULL; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2504 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2505 /* 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
|
2506 ptr = ((LPNETRESOURCE) buffer)->lpRemoteName; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2507 ptr += 2; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2508 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
|
2509 ptr++; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2510 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2511 strncpy (readbuf, ptr, size); |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2512 return readbuf; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2513 } |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2514 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
2515 static void |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2516 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
|
2517 { |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2518 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
|
2519 WNetCloseEnum (henum); |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2520 } |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2521 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
2522 static DWORD |
55645
5b3f2477d17b
Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents:
55643
diff
changeset
|
2523 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
|
2524 { |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2525 HANDLE henum; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2526 DWORD attrs; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2527 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2528 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
|
2529 if (henum == INVALID_HANDLE_VALUE) |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2530 return -1; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2531 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2532 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
|
2533 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2534 close_unc_volume (henum); |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2535 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2536 return attrs; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2537 } |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2538 |
87985
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2539 /* Ensure a network connection is authenticated. */ |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2540 static void |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2541 logon_network_drive (const char *path) |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2542 { |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2543 NETRESOURCE resource; |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2544 char share[MAX_PATH]; |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2545 int i, n_slashes; |
93973
40f40216ff24
(logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents:
93759
diff
changeset
|
2546 char drive[4]; |
103859
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
2547 UINT drvtype; |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
2548 |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
2549 if (IS_DIRECTORY_SEP (path[0]) && IS_DIRECTORY_SEP (path[1])) |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
2550 drvtype = DRIVE_REMOTE; |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
2551 else if (path[0] == '\0' || path[1] != ':') |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
2552 drvtype = GetDriveType (NULL); |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
2553 else |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
2554 { |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
2555 drive[0] = path[0]; |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
2556 drive[1] = ':'; |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
2557 drive[2] = '\\'; |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
2558 drive[3] = '\0'; |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
2559 drvtype = GetDriveType (drive); |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
2560 } |
87985
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2561 |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2562 /* Only logon to networked drives. */ |
103859
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
2563 if (drvtype != DRIVE_REMOTE) |
87985
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2564 return; |
93973
40f40216ff24
(logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents:
93759
diff
changeset
|
2565 |
87985
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2566 n_slashes = 2; |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2567 strncpy (share, path, MAX_PATH); |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2568 /* Truncate to just server and share name. */ |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2569 for (i = 2; i < MAX_PATH; i++) |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2570 { |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2571 if (IS_DIRECTORY_SEP (share[i]) && ++n_slashes > 3) |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2572 { |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2573 share[i] = '\0'; |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2574 break; |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2575 } |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2576 } |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2577 |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2578 resource.dwType = RESOURCETYPE_DISK; |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2579 resource.lpLocalName = NULL; |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2580 resource.lpRemoteName = share; |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2581 resource.lpProvider = NULL; |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2582 |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2583 WNetAddConnection2 (&resource, NULL, NULL, CONNECT_INTERACTIVE); |
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
2584 } |
9803 | 2585 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2586 /* 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
|
2587 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
|
2588 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
|
2589 long file names. */ |
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 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2592 sys_access (const char * path, int mode) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2593 { |
22363 | 2594 DWORD attributes; |
2595 | |
2596 /* MSVC implementation doesn't recognize D_OK. */ | |
2597 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
|
2598 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
|
2599 { |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2600 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
|
2601 if (attributes == -1) { |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2602 errno = EACCES; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2603 return -1; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2604 } |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2605 } |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
2606 else if ((attributes = GetFileAttributes (path)) == -1) |
22363 | 2607 { |
2608 /* Should try mapping GetLastError to errno; for now just indicate | |
2609 that path doesn't exist. */ | |
2610 errno = EACCES; | |
2611 return -1; | |
2612 } | |
2613 if ((mode & X_OK) != 0 && !is_exec (path)) | |
2614 { | |
2615 errno = EACCES; | |
2616 return -1; | |
2617 } | |
2618 if ((mode & W_OK) != 0 && (attributes & FILE_ATTRIBUTE_READONLY) != 0) | |
2619 { | |
2620 errno = EACCES; | |
2621 return -1; | |
2622 } | |
2623 if ((mode & D_OK) != 0 && (attributes & FILE_ATTRIBUTE_DIRECTORY) == 0) | |
2624 { | |
2625 errno = EACCES; | |
2626 return -1; | |
2627 } | |
2628 return 0; | |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2629 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2630 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2631 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2632 sys_chdir (const char * path) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2633 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
2634 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
|
2635 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2636 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2637 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2638 sys_chmod (const char * path, int mode) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2639 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
2640 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
|
2641 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2642 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2643 int |
63744 | 2644 sys_chown (const char *path, uid_t owner, gid_t group) |
2645 { | |
93690
c9e7cd4c092d
(sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents:
93142
diff
changeset
|
2646 if (sys_chmod (path, S_IREAD) == -1) /* check if file exists */ |
63744 | 2647 return -1; |
2648 return 0; | |
2649 } | |
2650 | |
2651 int | |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2652 sys_creat (const char * path, int mode) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2653 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
2654 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
|
2655 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2656 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2657 FILE * |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
2658 sys_fopen (const char * path, const char * mode) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2659 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2660 int fd; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2661 int oflag; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2662 const char * mode_save = mode; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2663 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2664 /* 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
|
2665 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
|
2666 prevent future file access. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2667 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2668 if (mode[0] == 'r') |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2669 oflag = O_RDONLY; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2670 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
|
2671 oflag = O_WRONLY | O_CREAT | O_TRUNC; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2672 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2673 return NULL; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2674 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2675 /* Only do simplistic option parsing. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2676 while (*++mode) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2677 if (mode[0] == '+') |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2678 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2679 oflag &= ~(O_RDONLY | O_WRONLY); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2680 oflag |= O_RDWR; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2681 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2682 else if (mode[0] == 'b') |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2683 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2684 oflag &= ~O_TEXT; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2685 oflag |= O_BINARY; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2686 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2687 else if (mode[0] == 't') |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2688 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2689 oflag &= ~O_BINARY; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2690 oflag |= O_TEXT; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2691 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2692 else break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2693 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
2694 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
|
2695 if (fd < 0) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2696 return NULL; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2697 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2698 return _fdopen (fd, mode_save); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2699 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2700 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2701 /* 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
|
2702 int |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2703 sys_link (const char * old, const char * new) |
9803 | 2704 { |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2705 HANDLE fileh; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2706 int result = -1; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2707 char oldname[MAX_PATH], newname[MAX_PATH]; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2708 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2709 if (old == NULL || new == NULL) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2710 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2711 errno = ENOENT; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2712 return -1; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2713 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2714 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2715 strcpy (oldname, map_w32_filename (old, NULL)); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2716 strcpy (newname, map_w32_filename (new, NULL)); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2717 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2718 fileh = CreateFile (oldname, 0, 0, NULL, OPEN_EXISTING, |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2719 FILE_FLAG_BACKUP_SEMANTICS, NULL); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2720 if (fileh != INVALID_HANDLE_VALUE) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2721 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2722 int wlen; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2723 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2724 /* Confusingly, the "alternate" stream name field does not apply |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2725 when restoring a hard link, and instead contains the actual |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2726 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
|
2727 The WIN32_STREAM_ID structure before the cStreamName field is |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2728 the stream header, which is then immediately followed by the |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2729 stream data. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2730 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2731 struct { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2732 WIN32_STREAM_ID wid; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2733 WCHAR wbuffer[MAX_PATH]; /* extra space for link name */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2734 } data; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2735 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2736 wlen = MultiByteToWideChar (CP_ACP, MB_PRECOMPOSED, newname, -1, |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2737 data.wid.cStreamName, MAX_PATH); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2738 if (wlen > 0) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2739 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2740 LPVOID context = NULL; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2741 DWORD wbytes = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2742 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2743 data.wid.dwStreamId = BACKUP_LINK; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2744 data.wid.dwStreamAttributes = 0; |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
2745 data.wid.Size.LowPart = wlen * sizeof (WCHAR); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2746 data.wid.Size.HighPart = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2747 data.wid.dwStreamNameSize = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2748 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2749 if (BackupWrite (fileh, (LPBYTE)&data, |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2750 offsetof (WIN32_STREAM_ID, cStreamName) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2751 + data.wid.Size.LowPart, |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2752 &wbytes, FALSE, FALSE, &context) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2753 && BackupWrite (fileh, NULL, 0, &wbytes, TRUE, FALSE, &context)) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2754 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2755 /* succeeded */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2756 result = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2757 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2758 else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2759 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2760 /* Should try mapping GetLastError to errno; for now just |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2761 indicate a general error (eg. links not supported). */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2762 errno = EINVAL; // perhaps EMLINK? |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2763 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2764 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2765 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2766 CloseHandle (fileh); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2767 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2768 else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2769 errno = ENOENT; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2770 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2771 return result; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2772 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2773 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2774 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2775 sys_mkdir (const char * path) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2776 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
2777 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
|
2778 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2779 |
15354
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2780 /* 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
|
2781 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
|
2782 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
|
2783 string. |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2784 |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2785 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
|
2786 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
|
2787 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
|
2788 first of the 6 X's. */ |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2789 char * |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2790 sys_mktemp (char * template) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2791 { |
15354
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2792 char * p; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2793 int i; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2794 unsigned uid = GetCurrentThreadId (); |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2795 static char first_char[] = "abcdefghijklmnopqrstuvwyz0123456789!%-_@#"; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2796 |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2797 if (template == NULL) |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2798 return NULL; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2799 p = template + strlen (template); |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2800 i = 5; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2801 /* 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
|
2802 while (--p >= template && p[0] == 'X' && --i >= 0) |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2803 { |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2804 p[0] = '0' + uid % 10; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2805 uid /= 10; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2806 } |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2807 |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2808 if (i < 0 && p[0] == 'X') |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2809 { |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2810 i = 0; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2811 do |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2812 { |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2813 int save_errno = errno; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2814 p[0] = first_char[i]; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2815 if (sys_access (template, 0) < 0) |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2816 { |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2817 errno = save_errno; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2818 return template; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2819 } |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2820 } |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2821 while (++i < sizeof (first_char)); |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2822 } |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2823 |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2824 /* 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
|
2825 so return empty string */ |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2826 template[0] = 0; |
0e45e7d8bfdf
(sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
15342
diff
changeset
|
2827 return template; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2828 } |
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 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2831 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
|
2832 { |
37291
83dd2eb5365f
(sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents:
36001
diff
changeset
|
2833 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
|
2834 /* 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
|
2835 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
|
2836 non-inheritable. */ |
83dd2eb5365f
(sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents:
36001
diff
changeset
|
2837 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
|
2838 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
|
2839 return res; |
83dd2eb5365f
(sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents:
36001
diff
changeset
|
2840 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
|
2841 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2842 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2843 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2844 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
|
2845 { |
34644
69143373d98d
(sys_rename): Only check errno against EEXIST, and not
Andrew Innes <andrewi@gnu.org>
parents:
33869
diff
changeset
|
2846 BOOL result; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2847 char temp[MAX_PATH]; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2848 |
16884
36babc489b0c
Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents:
16867
diff
changeset
|
2849 /* 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
|
2850 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
|
2851 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
|
2852 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
|
2853 |
16884
36babc489b0c
Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents:
16867
diff
changeset
|
2854 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
|
2855 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
|
2856 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
|
2857 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
|
2858 |
16884
36babc489b0c
Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents:
16867
diff
changeset
|
2859 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
|
2860 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
|
2861 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
2862 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
|
2863 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2864 if (os_subtype == OS_WIN95) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2865 { |
22363 | 2866 char * o; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2867 char * p; |
22363 | 2868 int i = 0; |
2869 | |
2870 oldname = map_w32_filename (oldname, NULL); | |
2871 if (o = strrchr (oldname, '\\')) | |
2872 o++; | |
2873 else | |
2874 o = (char *) oldname; | |
9803 | 2875 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2876 if (p = strrchr (temp, '\\')) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2877 p++; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2878 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2879 p = temp; |
22363 | 2880 |
2881 do | |
2882 { | |
2883 /* Force temp name to require a manufactured 8.3 alias - this | |
2884 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
|
2885 sprintf (p, "_.%s.%u", o, i); |
22363 | 2886 i++; |
22430
921311b43bf4
(sys_rename): Don't examine errno if rename didn't fail.
Richard M. Stallman <rms@gnu.org>
parents:
22363
diff
changeset
|
2887 result = rename (oldname, temp); |
22363 | 2888 } |
2889 /* 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
|
2890 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
|
2891 if (result < 0) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2892 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2893 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2894 |
96376
c3309dba6542
American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents:
95917
diff
changeset
|
2895 /* 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
|
2896 (at least if it is a file; don't do this for directories). |
22363 | 2897 |
2898 Since we mustn't do this if we are just changing the case of the | |
2899 file name (we would end up deleting the file we are trying to | |
2900 rename!), we let rename detect if the destination file already | |
2901 exists - that way we avoid the possible pitfalls of trying to | |
2902 determine ourselves whether two names really refer to the same | |
2903 file, which is not always possible in the general case. (Consider | |
2904 all the permutations of shared or subst'd drives, etc.) */ | |
2905 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
2906 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
|
2907 result = rename (temp, newname); |
22363 | 2908 |
2909 if (result < 0 | |
34644
69143373d98d
(sys_rename): Only check errno against EEXIST, and not
Andrew Innes <andrewi@gnu.org>
parents:
33869
diff
changeset
|
2910 && errno == EEXIST |
22363 | 2911 && _chmod (newname, 0666) == 0 |
2912 && _unlink (newname) == 0) | |
2913 result = rename (temp, newname); | |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2914 |
22299
83928cc3329e
(sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22039
diff
changeset
|
2915 return result; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2916 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2917 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2918 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2919 sys_rmdir (const char * path) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2920 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
2921 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
|
2922 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2923 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2924 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2925 sys_unlink (const char * path) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2926 { |
21737
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
2927 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
|
2928 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
2929 /* 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
|
2930 _chmod (path, 0666); |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
2931 return _unlink (path); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2932 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2933 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2934 static FILETIME utc_base_ft; |
100885
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2935 static ULONGLONG utc_base; /* In 100ns units */ |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2936 static int init = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2937 |
100885
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2938 #define FILETIME_TO_U64(result, ft) \ |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2939 do { \ |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2940 ULARGE_INTEGER uiTemp; \ |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2941 uiTemp.LowPart = (ft).dwLowDateTime; \ |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2942 uiTemp.HighPart = (ft).dwHighDateTime; \ |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2943 result = uiTemp.QuadPart; \ |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2944 } while (0) |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2945 |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2946 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
2947 initialize_utc_base (void) |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
2948 { |
100885
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2949 /* Determine the delta between 1-Jan-1601 and 1-Jan-1970. */ |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2950 SYSTEMTIME st; |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2951 |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2952 st.wYear = 1970; |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2953 st.wMonth = 1; |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2954 st.wDay = 1; |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2955 st.wHour = 0; |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2956 st.wMinute = 0; |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2957 st.wSecond = 0; |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2958 st.wMilliseconds = 0; |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2959 |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2960 SystemTimeToFileTime (&st, &utc_base_ft); |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2961 FILETIME_TO_U64 (utc_base, utc_base_ft); |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
2962 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
2963 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2964 static time_t |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2965 convert_time (FILETIME ft) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2966 { |
100885
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2967 ULONGLONG tmp; |
9803 | 2968 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2969 if (!init) |
9803 | 2970 { |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
2971 initialize_utc_base (); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2972 init = 1; |
9803 | 2973 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2974 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2975 if (CompareFileTime (&ft, &utc_base_ft) < 0) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2976 return 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2977 |
100885
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2978 FILETIME_TO_U64 (tmp, ft); |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2979 return (time_t) ((tmp - utc_base) / 10000000L); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2980 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2981 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
2982 static void |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2983 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
|
2984 { |
100885
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2985 ULARGE_INTEGER tmp; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2986 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2987 if (!init) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2988 { |
100885
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2989 initialize_utc_base (); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2990 init = 1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2991 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2992 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2993 /* time in 100ns units since 1-Jan-1601 */ |
100885
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2994 tmp.QuadPart = (ULONGLONG) time * 10000000L + utc_base; |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2995 pft->dwHighDateTime = tmp.HighPart; |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
2996 pft->dwLowDateTime = tmp.LowPart; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2997 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
2998 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
2999 #if 0 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3000 /* 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
|
3001 using the file index from GetInformationByHandle, is not perfect and |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3002 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
|
3003 Instead, we now determine file-truename correctly (except for |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3004 possible drive aliasing etc). */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3005 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3006 /* 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
|
3007 static unsigned |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3008 hashval (const unsigned char * str) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3009 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3010 unsigned h = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3011 while (*str) |
9803 | 3012 { |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3013 h = (h << 4) + *str++; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3014 h ^= (h >> 28); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3015 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3016 return h; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3017 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3018 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3019 /* 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
|
3020 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
|
3021 static DWORD |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3022 generate_inode_val (const char * name) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3023 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3024 char fullname[ MAX_PATH ]; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3025 char * p; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3026 unsigned hash; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3027 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3028 /* Get the truly canonical filename, if it exists. (Note: this |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3029 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
|
3030 links. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3031 if (!w32_get_long_filename ((char *)name, fullname, MAX_PATH)) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3032 abort (); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3033 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3034 parse_root (fullname, &p); |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
3035 /* 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
|
3036 _strlwr (p); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3037 return hashval (p); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3038 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3039 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3040 #endif |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3041 |
94814
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3042 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
|
3043 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
|
3044 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3045 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
|
3046 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
|
3047 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
|
3048 | 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
|
3049 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3050 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
|
3051 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3052 err = GetLastError (); |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3053 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
|
3054 return NULL; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3055 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3056 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3057 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
|
3058 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
|
3059 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3060 xfree (psd); |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3061 return NULL; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3062 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3063 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3064 return psd; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3065 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3066 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3067 static DWORD |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3068 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
|
3069 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3070 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
|
3071 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3072 /* 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
|
3073 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
|
3074 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
|
3075 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
|
3076 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
|
3077 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
|
3078 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3079 |
97491
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3080 /* 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
|
3081 |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3082 #ifdef __GNUC__ |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3083 # define FLEXIBLE_ARRAY_MEMBER |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3084 #else |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3085 # define FLEXIBLE_ARRAY_MEMBER 1 |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3086 #endif |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3087 |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3088 struct w32_id { |
102670
06ca3efb355b
inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
3089 unsigned rid; |
97491
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3090 struct w32_id *next; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3091 char name[GNLEN+1]; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3092 unsigned char sid[FLEXIBLE_ARRAY_MEMBER]; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3093 }; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3094 |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3095 static struct w32_id *w32_idlist; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3096 |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3097 static int |
102670
06ca3efb355b
inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
3098 w32_cached_id (PSID sid, unsigned *id, char *name) |
97491
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3099 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3100 struct w32_id *tail, *found; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3101 |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3102 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
|
3103 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3104 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
|
3105 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3106 found = tail; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3107 break; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3108 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3109 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3110 if (found) |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3111 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3112 *id = found->rid; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3113 strcpy (name, found->name); |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3114 return 1; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3115 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3116 else |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3117 return 0; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3118 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3119 |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3120 static void |
102670
06ca3efb355b
inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
3121 w32_add_to_cache (PSID sid, unsigned id, char *name) |
97491
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3122 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3123 DWORD sid_len; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3124 struct w32_id *new_entry; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3125 |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3126 /* 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
|
3127 dumped. */ |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3128 if (initialized) |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3129 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3130 sid_len = get_length_sid (sid); |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3131 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
|
3132 if (new_entry) |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3133 { |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3134 new_entry->rid = id; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3135 strcpy (new_entry->name, name); |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3136 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
|
3137 new_entry->next = w32_idlist; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3138 w32_idlist = new_entry; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3139 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3140 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3141 } |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3142 |
94814
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3143 #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
|
3144 #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
|
3145 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3146 static int |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3147 get_name_and_id (PSECURITY_DESCRIPTOR psd, const char *fname, |
102670
06ca3efb355b
inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
3148 unsigned *id, char *nm, int what) |
94814
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3149 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3150 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
|
3151 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
|
3152 BOOL dflt; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3153 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
|
3154 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
|
3155 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
|
3156 char domain[1024]; |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
3157 DWORD domain_len = sizeof (domain); |
94814
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3158 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
|
3159 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
|
3160 int result; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3161 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3162 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
|
3163 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
|
3164 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
|
3165 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
|
3166 else |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3167 result = 0; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3168 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3169 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
|
3170 use_dflt = 1; |
97491
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3171 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
|
3172 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3173 /* 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
|
3174 specified machine. */ |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3175 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
|
3176 && 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
|
3177 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3178 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
|
3179 char *p; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3180 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3181 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
|
3182 *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
|
3183 *p = *s; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3184 *p = '\0'; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3185 mp = machine; |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3186 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3187 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3188 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
|
3189 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
|
3190 || 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
|
3191 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
|
3192 else |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3193 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3194 *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
|
3195 strcpy (nm, name); |
97491
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
3196 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
|
3197 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3198 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3199 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
|
3200 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3201 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3202 static void |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
3203 get_file_owner_and_group (PSECURITY_DESCRIPTOR psd, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
3204 const char *fname, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
3205 struct stat *st) |
94814
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3206 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3207 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
|
3208 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3209 if (!psd) |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3210 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3211 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
|
3212 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
|
3213 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3214 else |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3215 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3216 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
|
3217 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
|
3218 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
|
3219 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
|
3220 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3221 /* 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
|
3222 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
|
3223 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
|
3224 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3225 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
|
3226 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
|
3227 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3228 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
|
3229 { |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3230 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
|
3231 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
|
3232 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3233 } |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3234 |
103859
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3235 /* Return non-zero if NAME is a potentially slow filesystem. */ |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3236 int |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3237 is_slow_fs (const char *name) |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3238 { |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3239 char drive_root[4]; |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3240 UINT devtype; |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3241 |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3242 if (IS_DIRECTORY_SEP (name[0]) && IS_DIRECTORY_SEP (name[1])) |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3243 devtype = DRIVE_REMOTE; /* assume UNC name is remote */ |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3244 else if (!(strlen (name) >= 2 && IS_DEVICE_SEP (name[1]))) |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3245 devtype = GetDriveType (NULL); /* use root of current drive */ |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3246 else |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3247 { |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3248 /* GetDriveType needs the root directory of the drive. */ |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3249 strncpy (drive_root, name, 2); |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3250 drive_root[2] = '\\'; |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3251 drive_root[3] = '\0'; |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3252 devtype = GetDriveType (drive_root); |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3253 } |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3254 return !(devtype == DRIVE_FIXED || devtype == DRIVE_RAMDISK); |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3255 } |
fe78cff95301
(logon_network_drive): Don't assume PATH is an absolute file name.
Eli Zaretskii <eliz@gnu.org>
parents:
103811
diff
changeset
|
3256 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3257 /* 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
|
3258 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
|
3259 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
|
3260 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3261 stat (const char * path, struct stat * buf) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3262 { |
22299
83928cc3329e
(sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22039
diff
changeset
|
3263 char *name, *r; |
97488
caf9103a3856
(stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents:
97486
diff
changeset
|
3264 char drive_root[4]; |
caf9103a3856
(stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents:
97486
diff
changeset
|
3265 UINT devtype; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3266 WIN32_FIND_DATA wfd; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3267 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
|
3268 unsigned __int64 fake_inode; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3269 int permission; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3270 int len; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3271 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
|
3272 PSECURITY_DESCRIPTOR psd = NULL; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3273 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3274 if (path == NULL || buf == NULL) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3275 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3276 errno = EFAULT; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3277 return -1; |
9803 | 3278 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3279 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
3280 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
|
3281 /* 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
|
3282 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
|
3283 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
|
3284 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
|
3285 filesystems. */ |
9ad6c99cdc71
(stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents:
75348
diff
changeset
|
3286 if (_mbspbrk (name, "*?|<>\"")) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3287 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3288 errno = ENOENT; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3289 return -1; |
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 |
22299
83928cc3329e
(sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22039
diff
changeset
|
3292 /* 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
|
3293 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
|
3294 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
|
3295 { |
83928cc3329e
(sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22039
diff
changeset
|
3296 r[1] = r[2] = '\0'; |
83928cc3329e
(sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22039
diff
changeset
|
3297 } |
83928cc3329e
(sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22039
diff
changeset
|
3298 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3299 /* 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
|
3300 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
|
3301 is a trailing separator. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3302 len = strlen (name); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3303 rootdir = (path >= name + len - 1 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3304 && (IS_DIRECTORY_SEP (*path) || *path == 0)); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3305 name = strcpy (alloca (len + 2), name); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3306 |
22505
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
3307 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
|
3308 { |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
3309 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
|
3310 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
3311 if (attrs == -1) |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
3312 return -1; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
3313 |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
3314 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
|
3315 wfd.dwFileAttributes = attrs; |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
3316 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
|
3317 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
|
3318 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
|
3319 strcpy (wfd.cFileName, name); |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
3320 } |
d4f3552a85f2
(is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents:
22501
diff
changeset
|
3321 else if (rootdir) |
9803 | 3322 { |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3323 if (!IS_DIRECTORY_SEP (name[len-1])) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3324 strcat (name, "\\"); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3325 if (GetDriveType (name) < 2) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3326 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3327 errno = ENOENT; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3328 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3329 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3330 memset (&wfd, 0, sizeof (wfd)); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3331 wfd.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3332 wfd.ftCreationTime = utc_base_ft; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3333 wfd.ftLastAccessTime = utc_base_ft; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3334 wfd.ftLastWriteTime = utc_base_ft; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3335 strcpy (wfd.cFileName, name); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3336 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3337 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3338 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3339 if (IS_DIRECTORY_SEP (name[len-1])) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3340 name[len - 1] = 0; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3341 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3342 /* (This is hacky, but helps when doing file completions on |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3343 network drives.) Optimize by using information available from |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3344 active readdir if possible. */ |
25193
953155ee541a
(stat): Check for directory ending in separator when
Geoff Voelker <voelker@cs.washington.edu>
parents:
24885
diff
changeset
|
3345 len = strlen (dir_pathname); |
953155ee541a
(stat): Check for directory ending in separator when
Geoff Voelker <voelker@cs.washington.edu>
parents:
24885
diff
changeset
|
3346 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
|
3347 len--; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3348 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
|
3349 && strnicmp (name, dir_pathname, len) == 0 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3350 && IS_DIRECTORY_SEP (name[len]) |
95217
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
3351 && 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
|
3352 { |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3353 /* This was the last entry returned by readdir. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3354 wfd = dir_find_data; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3355 } |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3356 else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3357 { |
88048
7c4da276fe17
(stat): Don't do a double check for networked drive.
Jason Rumney <jasonr@gnu.org>
parents:
87999
diff
changeset
|
3358 logon_network_drive (name); |
87985
f7a641e1f03d
(logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents:
87649
diff
changeset
|
3359 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3360 fh = FindFirstFile (name, &wfd); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3361 if (fh == INVALID_HANDLE_VALUE) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3362 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3363 errno = ENOENT; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3364 return -1; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3365 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3366 FindClose (fh); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3367 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3368 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3369 |
94814
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3370 if (!(NILP (Vw32_get_true_file_attributes) |
103868 | 3371 || (EQ (Vw32_get_true_file_attributes, Qlocal) && is_slow_fs (name))) |
44927
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3372 /* 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
|
3373 && (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
|
3374 FILE_FLAG_BACKUP_SEMANTICS, NULL)) |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3375 != INVALID_HANDLE_VALUE) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3376 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3377 /* 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
|
3378 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
|
3379 making a list of file name completions). */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3380 BY_HANDLE_FILE_INFORMATION info; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3381 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3382 if (GetFileInformationByHandle (fh, &info)) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3383 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3384 buf->st_nlink = info.nNumberOfLinks; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3385 /* 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
|
3386 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
|
3387 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
|
3388 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
|
3389 (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
|
3390 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
|
3391 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
|
3392 fake_inode += info.nFileIndexLow; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3393 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3394 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3395 { |
23622
0dc79ede9c53
(stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents:
23559
diff
changeset
|
3396 buf->st_nlink = 1; |
0dc79ede9c53
(stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents:
23559
diff
changeset
|
3397 fake_inode = 0; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3398 } |
23622
0dc79ede9c53
(stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents:
23559
diff
changeset
|
3399 |
44927
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3400 if (wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3401 { |
93690
c9e7cd4c092d
(sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents:
93142
diff
changeset
|
3402 buf->st_mode = S_IFDIR; |
44927
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3403 } |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3404 else |
23622
0dc79ede9c53
(stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents:
23559
diff
changeset
|
3405 { |
44927
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3406 switch (GetFileType (fh)) |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3407 { |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3408 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
|
3409 buf->st_mode = S_IFREG; |
44927
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3410 break; |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3411 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
|
3412 buf->st_mode = S_IFIFO; |
44927
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3413 break; |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3414 case FILE_TYPE_CHAR: |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3415 case FILE_TYPE_UNKNOWN: |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3416 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
|
3417 buf->st_mode = S_IFCHR; |
44927
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3418 } |
23622
0dc79ede9c53
(stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents:
23559
diff
changeset
|
3419 } |
0dc79ede9c53
(stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents:
23559
diff
changeset
|
3420 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
|
3421 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
|
3422 get_file_owner_and_group (psd, name, buf); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3423 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3424 else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3425 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3426 /* 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
|
3427 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
|
3428 S_IFDIR : S_IFREG; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3429 buf->st_nlink = 1; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3430 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
|
3431 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3432 get_file_owner_and_group (NULL, name, buf); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3433 } |
95481
4390d64d3328
Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents:
95277
diff
changeset
|
3434 xfree (psd); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3435 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3436 #if 0 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3437 /* Not sure if there is any point in this. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3438 if (!NILP (Vw32_generate_fake_inodes)) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3439 fake_inode = generate_inode_val (name); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3440 else if (fake_inode == 0) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3441 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3442 /* For want of something better, try to make everything unique. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3443 static DWORD gen_num = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3444 fake_inode = ++gen_num; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3445 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3446 #endif |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3447 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3448 /* 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
|
3449 if (sizeof (buf->st_ino) == 2) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3450 buf->st_ino = fake_inode ^ (fake_inode >> 16); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3451 else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
3452 buf->st_ino = fake_inode; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3453 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15615
diff
changeset
|
3454 /* 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
|
3455 buf->st_dev = volume_info.serialnum; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3456 buf->st_rdev = volume_info.serialnum; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3457 |
94814
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3458 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
|
3459 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
|
3460 buf->st_size += wfd.nFileSizeLow; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3461 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3462 /* Convert timestamps to Unix format. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3463 buf->st_mtime = convert_time (wfd.ftLastWriteTime); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3464 buf->st_atime = convert_time (wfd.ftLastAccessTime); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3465 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
|
3466 buf->st_ctime = convert_time (wfd.ftCreationTime); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3467 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
|
3468 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3469 /* determine rwx permissions */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3470 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
|
3471 permission = S_IREAD; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3472 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
|
3473 permission = S_IREAD | S_IWRITE; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
3474 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3475 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
|
3476 permission |= S_IEXEC; |
22363 | 3477 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
|
3478 permission |= S_IEXEC; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3479 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3480 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
|
3481 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3482 return 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3483 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
3484 |
21737
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3485 /* 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
|
3486 file timestamps. */ |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3487 int |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3488 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
|
3489 { |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3490 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
|
3491 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
|
3492 unsigned __int64 fake_inode; |
21737
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3493 int permission; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3494 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3495 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
|
3496 { |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3497 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
|
3498 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
|
3499 if (!GetFileInformationByHandle (fh, &info)) |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3500 { |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3501 errno = EACCES; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3502 return -1; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3503 } |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3504 break; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3505 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
|
3506 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
|
3507 goto non_disk; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3508 case FILE_TYPE_CHAR: |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3509 case FILE_TYPE_UNKNOWN: |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3510 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
|
3511 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
|
3512 non_disk: |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3513 memset (&info, 0, sizeof (info)); |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3514 info.dwFileAttributes = 0; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3515 info.ftCreationTime = utc_base_ft; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3516 info.ftLastAccessTime = utc_base_ft; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3517 info.ftLastWriteTime = utc_base_ft; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3518 } |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3519 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3520 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
|
3521 buf->st_mode = S_IFDIR; |
44927
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3522 |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3523 buf->st_nlink = info.nNumberOfLinks; |
1f6fdc21ea67
(stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents:
44437
diff
changeset
|
3524 /* 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
|
3525 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
|
3526 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
|
3527 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
|
3528 (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
|
3529 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
|
3530 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
|
3531 fake_inode += info.nFileIndexLow; |
21737
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3532 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3533 /* 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
|
3534 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
|
3535 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
|
3536 else |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3537 buf->st_ino = fake_inode; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3538 |
94814
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3539 /* 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
|
3540 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
|
3541 available for _WIN32_WINNT >= 0x501. */ |
94797
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
3542 buf->st_uid = dflt_passwd.pw_uid; |
89a5cb9cf680
Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents:
94293
diff
changeset
|
3543 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
|
3544 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
|
3545 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
|
3546 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3547 buf->st_dev = info.dwVolumeSerialNumber; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3548 buf->st_rdev = info.dwVolumeSerialNumber; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3549 |
94814
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
3550 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
|
3551 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
|
3552 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
|
3553 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3554 /* Convert timestamps to Unix format. */ |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3555 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
|
3556 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
|
3557 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
|
3558 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
|
3559 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
|
3560 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3561 /* determine rwx permissions */ |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3562 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
|
3563 permission = S_IREAD; |
21737
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3564 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
|
3565 permission = S_IREAD | S_IWRITE; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
3566 |
21737
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3567 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
|
3568 permission |= S_IEXEC; |
21737
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3569 else |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3570 { |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3571 #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
|
3572 char * p = strrchr (name, '.'); |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3573 if (p != NULL && |
95217
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
3574 (xstrcasecmp (p, ".exe") == 0 || |
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
3575 xstrcasecmp (p, ".com") == 0 || |
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
3576 xstrcasecmp (p, ".bat") == 0 || |
cb71cb48eb66
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
3577 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
|
3578 permission |= S_IEXEC; |
21737
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3579 #endif |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3580 } |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3581 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3582 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
|
3583 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3584 return 0; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3585 } |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3586 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3587 int |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3588 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
|
3589 { |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3590 struct utimbuf deftime; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3591 HANDLE fh; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3592 FILETIME mtime; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3593 FILETIME atime; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3594 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3595 if (times == NULL) |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3596 { |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3597 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
|
3598 times = &deftime; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3599 } |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3600 |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3601 /* 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
|
3602 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
|
3603 0, OPEN_EXISTING, 0, NULL); |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3604 if (fh) |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3605 { |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3606 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
|
3607 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
|
3608 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
|
3609 { |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3610 CloseHandle (fh); |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3611 errno = EACCES; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3612 return -1; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3613 } |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3614 CloseHandle (fh); |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3615 } |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3616 else |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3617 { |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3618 errno = EINVAL; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3619 return -1; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3620 } |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3621 return 0; |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3622 } |
d0b03ce6dcf5
(fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents:
21605
diff
changeset
|
3623 |
97365
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 /* 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
|
3626 process.c for the Lisp bindings. */ |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3627 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3628 /* Helper wrapper functions. */ |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3629 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
3630 static HANDLE WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
3631 create_toolhelp32_snapshot (DWORD Flags, DWORD Ignored) |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3632 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3633 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
|
3634 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3635 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
|
3636 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3637 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
|
3638 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
|
3639 GetProcAddress (GetModuleHandle ("kernel32.dll"), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3640 "CreateToolhelp32Snapshot"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3641 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3642 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
|
3643 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3644 return INVALID_HANDLE_VALUE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3645 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3646 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
|
3647 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3648 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
3649 static BOOL WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
3650 process32_first (HANDLE hSnapshot, LPPROCESSENTRY32 lppe) |
97365
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 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
|
3653 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3654 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
|
3655 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3656 g_b_init_process32_first = 1; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3657 s_pfn_Process32_First = (Process32First_Proc) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3658 GetProcAddress (GetModuleHandle ("kernel32.dll"), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3659 "Process32First"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3660 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3661 if (s_pfn_Process32_First == NULL) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3662 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3663 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3664 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3665 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
|
3666 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3667 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
3668 static BOOL WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
3669 process32_next (HANDLE hSnapshot, LPPROCESSENTRY32 lppe) |
97365
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 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
|
3672 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3673 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
|
3674 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3675 g_b_init_process32_next = 1; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3676 s_pfn_Process32_Next = (Process32Next_Proc) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3677 GetProcAddress (GetModuleHandle ("kernel32.dll"), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3678 "Process32Next"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3679 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3680 if (s_pfn_Process32_Next == NULL) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3681 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3682 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3683 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3684 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
|
3685 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3686 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
3687 static BOOL WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
3688 open_thread_token (HANDLE ThreadHandle, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
3689 DWORD DesiredAccess, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
3690 BOOL OpenAsSelf, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
3691 PHANDLE TokenHandle) |
97365
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 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
|
3694 HMODULE hm_advapi32 = NULL; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3695 if (is_windows_9x () == TRUE) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3696 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3697 SetLastError (ERROR_NOT_SUPPORTED); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3698 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3699 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3700 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
|
3701 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3702 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
|
3703 hm_advapi32 = LoadLibrary ("Advapi32.dll"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3704 s_pfn_Open_Thread_Token = |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3705 (OpenThreadToken_Proc) GetProcAddress (hm_advapi32, "OpenThreadToken"); |
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 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
|
3708 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3709 SetLastError (ERROR_NOT_SUPPORTED); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3710 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3711 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3712 return ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3713 s_pfn_Open_Thread_Token ( |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3714 ThreadHandle, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3715 DesiredAccess, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3716 OpenAsSelf, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3717 TokenHandle) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3718 ); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3719 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3720 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
3721 static BOOL WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
3722 impersonate_self (SECURITY_IMPERSONATION_LEVEL ImpersonationLevel) |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3723 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3724 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
|
3725 HMODULE hm_advapi32 = NULL; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3726 if (is_windows_9x () == TRUE) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3727 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3728 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3729 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3730 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
|
3731 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3732 g_b_init_impersonate_self = 1; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3733 hm_advapi32 = LoadLibrary ("Advapi32.dll"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3734 s_pfn_Impersonate_Self = |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3735 (ImpersonateSelf_Proc) GetProcAddress (hm_advapi32, "ImpersonateSelf"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3736 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3737 if (s_pfn_Impersonate_Self == NULL) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3738 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3739 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3740 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3741 return s_pfn_Impersonate_Self (ImpersonationLevel); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3742 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3743 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
3744 static BOOL WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
3745 revert_to_self (void) |
97365
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 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
|
3748 HMODULE hm_advapi32 = NULL; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3749 if (is_windows_9x () == TRUE) |
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 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3752 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3753 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
|
3754 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3755 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
|
3756 hm_advapi32 = LoadLibrary ("Advapi32.dll"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3757 s_pfn_Revert_To_Self = |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3758 (RevertToSelf_Proc) GetProcAddress (hm_advapi32, "RevertToSelf"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3759 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3760 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
|
3761 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3762 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3763 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3764 return s_pfn_Revert_To_Self (); |
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 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
3767 static BOOL WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
3768 get_process_memory_info (HANDLE h_proc, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
3769 PPROCESS_MEMORY_COUNTERS mem_counters, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
3770 DWORD bufsize) |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3771 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3772 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
|
3773 HMODULE hm_psapi = NULL; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3774 if (is_windows_9x () == TRUE) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3775 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3776 return FALSE; |
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 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
|
3779 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3780 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
|
3781 hm_psapi = LoadLibrary ("Psapi.dll"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3782 if (hm_psapi) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3783 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
|
3784 GetProcAddress (hm_psapi, "GetProcessMemoryInfo"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3785 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3786 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
|
3787 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3788 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3789 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3790 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
|
3791 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3792 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
3793 static BOOL WINAPI |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
3794 get_process_working_set_size (HANDLE h_proc, |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
3795 DWORD *minrss, |
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
3796 DWORD *maxrss) |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3797 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3798 static GetProcessWorkingSetSize_Proc |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3799 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
|
3800 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3801 if (is_windows_9x () == TRUE) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3802 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3803 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3804 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3805 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
|
3806 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3807 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
|
3808 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
|
3809 GetProcAddress (GetModuleHandle ("kernel32.dll"), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3810 "GetProcessWorkingSetSize"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3811 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3812 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
|
3813 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3814 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3815 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3816 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
|
3817 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3818 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
3819 static BOOL WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
3820 global_memory_status (MEMORYSTATUS *buf) |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3821 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3822 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
|
3823 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3824 if (is_windows_9x () == TRUE) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3825 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3826 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3827 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3828 if (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
|
3829 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3830 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
|
3831 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
|
3832 GetProcAddress (GetModuleHandle ("kernel32.dll"), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3833 "GlobalMemoryStatus"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3834 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3835 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
|
3836 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3837 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3838 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3839 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
|
3840 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3841 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
3842 static BOOL WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
3843 global_memory_status_ex (MEMORY_STATUS_EX *buf) |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3844 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3845 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
|
3846 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3847 if (is_windows_9x () == TRUE) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3848 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3849 return FALSE; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3850 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3851 if (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
|
3852 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3853 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
|
3854 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
|
3855 GetProcAddress (GetModuleHandle ("kernel32.dll"), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3856 "GlobalMemoryStatusEx"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3857 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3858 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
|
3859 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3860 return FALSE; |
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 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
|
3863 } |
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 Lisp_Object |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
3866 list_system_processes (void) |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3867 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3868 struct gcpro gcpro1; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3869 Lisp_Object proclist = Qnil; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3870 HANDLE h_snapshot; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3871 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3872 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
|
3873 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3874 if (h_snapshot != INVALID_HANDLE_VALUE) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3875 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3876 PROCESSENTRY32 proc_entry; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3877 DWORD proc_id; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3878 BOOL res; |
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 GCPRO1 (proclist); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3881 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3882 proc_entry.dwSize = sizeof (PROCESSENTRY32); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3883 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
|
3884 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
|
3885 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3886 proc_id = proc_entry.th32ProcessID; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3887 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
|
3888 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3889 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3890 CloseHandle (h_snapshot); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3891 UNGCPRO; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3892 proclist = Fnreverse (proclist); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3893 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3894 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3895 return proclist; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3896 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3897 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3898 static int |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3899 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
|
3900 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3901 TOKEN_PRIVILEGES priv; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3902 DWORD priv_size = sizeof (priv); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3903 DWORD opriv_size = sizeof (*old_priv); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3904 HANDLE h_token = NULL; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3905 HANDLE h_thread = GetCurrentThread (); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3906 int ret_val = 0; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3907 BOOL res; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3908 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3909 res = open_thread_token (h_thread, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3910 TOKEN_QUERY | TOKEN_ADJUST_PRIVILEGES, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3911 FALSE, &h_token); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3912 if (!res && GetLastError () == ERROR_NO_TOKEN) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3913 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3914 if (impersonate_self (SecurityImpersonation)) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3915 res = open_thread_token (h_thread, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3916 TOKEN_QUERY | TOKEN_ADJUST_PRIVILEGES, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3917 FALSE, &h_token); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3918 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3919 if (res) |
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 priv.PrivilegeCount = 1; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3922 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
|
3923 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
|
3924 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
|
3925 old_priv, &opriv_size) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3926 && GetLastError () != ERROR_NOT_ALL_ASSIGNED) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3927 ret_val = 1; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3928 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3929 if (h_token) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3930 CloseHandle (h_token); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3931 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3932 return ret_val; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3933 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3934 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3935 static int |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3936 restore_privilege (TOKEN_PRIVILEGES *priv) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3937 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3938 DWORD priv_size = sizeof (*priv); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3939 HANDLE h_token = NULL; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3940 int ret_val = 0; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3941 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3942 if (open_thread_token (GetCurrentThread (), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3943 TOKEN_QUERY | TOKEN_ADJUST_PRIVILEGES, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3944 FALSE, &h_token)) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3945 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3946 if (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
|
3947 && GetLastError () != ERROR_NOT_ALL_ASSIGNED) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3948 ret_val = 1; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3949 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3950 if (h_token) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3951 CloseHandle (h_token); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3952 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3953 return ret_val; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3954 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3955 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3956 static Lisp_Object |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
3957 ltime (long time_sec, long time_usec) |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3958 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3959 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
|
3960 make_number (time_sec & 0xffff), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3961 make_number (time_usec)); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3962 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3963 |
100885
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
3964 #define U64_TO_LISP_TIME(time) ltime ((time) / 1000000L, (time) % 1000000L) |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
3965 |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3966 static int |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
3967 process_times (HANDLE h_proc, Lisp_Object *ctime, Lisp_Object *etime, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
3968 Lisp_Object *stime, Lisp_Object *utime, Lisp_Object *ttime, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
3969 double *pcpu) |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3970 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3971 FILETIME ft_creation, ft_exit, ft_kernel, ft_user, ft_current; |
100885
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
3972 ULONGLONG tem1, tem2, tem3, tem; |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3973 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3974 if (!h_proc |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3975 || !get_process_times_fn |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
3976 || !(*get_process_times_fn) (h_proc, &ft_creation, &ft_exit, |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
3977 &ft_kernel, &ft_user)) |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3978 return 0; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3979 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3980 GetSystemTimeAsFileTime (&ft_current); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
3981 |
100885
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
3982 FILETIME_TO_U64 (tem1, ft_kernel); |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
3983 tem1 /= 10L; |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
3984 *stime = U64_TO_LISP_TIME (tem1); |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
3985 |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
3986 FILETIME_TO_U64 (tem2, ft_user); |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
3987 tem2 /= 10L; |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
3988 *utime = U64_TO_LISP_TIME (tem2); |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
3989 |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
3990 tem3 = tem1 + tem2; |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
3991 *ttime = U64_TO_LISP_TIME (tem3); |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
3992 |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
3993 FILETIME_TO_U64 (tem, ft_creation); |
97371
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
3994 /* 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
|
3995 if (tem) |
100885
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
3996 tem = (tem - utc_base) / 10L; |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
3997 *ctime = U64_TO_LISP_TIME (tem); |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
3998 |
97371
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
3999 if (tem) |
100885
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
4000 { |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
4001 FILETIME_TO_U64 (tem3, ft_current); |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
4002 tem = (tem3 - utc_base) / 10L - tem; |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
4003 } |
56164f0c606d
* w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents:
100831
diff
changeset
|
4004 *etime = U64_TO_LISP_TIME (tem); |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4005 |
97371
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
4006 if (tem) |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
4007 { |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
4008 *pcpu = 100.0 * (tem1 + tem2) / tem; |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
4009 if (*pcpu > 100) |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
4010 *pcpu = 100.0; |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
4011 } |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
4012 else |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
4013 *pcpu = 0; |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
4014 |
23de3091fdd0
(process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents:
97365
diff
changeset
|
4015 return 1; |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4016 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4017 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4018 Lisp_Object |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
4019 system_process_attributes (Lisp_Object pid) |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4020 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4021 struct gcpro gcpro1, gcpro2, gcpro3; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4022 Lisp_Object attrs = Qnil; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4023 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
|
4024 HANDLE h_snapshot, h_proc; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4025 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
|
4026 int found_proc = 0; |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4027 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
|
4028 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
|
4029 DWORD glength = sizeof (gname); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4030 HANDLE token = NULL; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4031 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
|
4032 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
|
4033 DWORD blen = 0; |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4034 TOKEN_USER user_token; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4035 TOKEN_PRIMARY_GROUP group_token; |
102670
06ca3efb355b
inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
4036 unsigned euid; |
06ca3efb355b
inc/sys/stat.h (struct stat): Change the types of st_uid and st_gid to unsigned.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
4037 unsigned egid; |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4038 DWORD sess; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4039 PROCESS_MEMORY_COUNTERS mem; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4040 PROCESS_MEMORY_COUNTERS_EX mem_ex; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4041 DWORD minrss, maxrss; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4042 MEMORYSTATUS memst; |
97486
2c195017488c
(_MEMORY_STATUS_EX, MEMORY_STATUS_EX, LPMEMORY_STATUS_EX): Rename from
Eli Zaretskii <eliz@gnu.org>
parents:
97372
diff
changeset
|
4043 MEMORY_STATUS_EX memstex; |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4044 double totphys = 0.0; |
100831
e43e429a11bb
(process_times): Compute sum of utime and stime.
Eli Zaretskii <eliz@gnu.org>
parents:
100565
diff
changeset
|
4045 Lisp_Object ctime, stime, utime, etime, ttime; |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4046 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
|
4047 BOOL result = FALSE; |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4048 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4049 CHECK_NUMBER_OR_FLOAT (pid); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4050 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
|
4051 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4052 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
|
4053 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4054 GCPRO3 (attrs, decoded_cmd, tem); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4055 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4056 if (h_snapshot != INVALID_HANDLE_VALUE) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4057 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4058 PROCESSENTRY32 pe; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4059 BOOL res; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4060 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4061 pe.dwSize = sizeof (PROCESSENTRY32); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4062 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
|
4063 res = process32_next (h_snapshot, &pe)) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4064 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4065 if (proc_id == pe.th32ProcessID) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4066 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4067 if (proc_id == 0) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4068 decoded_cmd = build_string ("Idle"); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4069 else |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4070 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4071 /* 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
|
4072 encoding. */ |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4073 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
|
4074 strlen (pe.szExeFile)); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4075 decoded_cmd = |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4076 code_convert_string_norecord (cmd_str, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4077 Vlocale_coding_system, 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 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
|
4080 attrs = Fcons (Fcons (Qppid, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4081 make_fixnum_or_float (pe.th32ParentProcessID)), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4082 attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4083 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
|
4084 attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4085 attrs = Fcons (Fcons (Qthcount, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4086 make_fixnum_or_float (pe.cntThreads)), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4087 attrs); |
97372
aeb822613377
(w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents:
97371
diff
changeset
|
4088 found_proc = 1; |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4089 break; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4090 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4091 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4092 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4093 CloseHandle (h_snapshot); |
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 |
97372
aeb822613377
(w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents:
97371
diff
changeset
|
4096 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
|
4097 { |
aeb822613377
(w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents:
97371
diff
changeset
|
4098 UNGCPRO; |
aeb822613377
(w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents:
97371
diff
changeset
|
4099 return Qnil; |
aeb822613377
(w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents:
97371
diff
changeset
|
4100 } |
aeb822613377
(w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents:
97371
diff
changeset
|
4101 |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4102 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
|
4103 FALSE, proc_id); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4104 /* 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
|
4105 enabling the SeDebugPrivilege in our process. */ |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4106 if (!h_proc) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4107 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4108 TOKEN_PRIVILEGES priv_current; |
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 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
|
4111 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4112 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
|
4113 FALSE, proc_id); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4114 restore_privilege (&priv_current); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4115 revert_to_self (); |
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 } |
97875
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4118 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
|
4119 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4120 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
|
4121 if (result) |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4122 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4123 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
|
4124 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
|
4125 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4126 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
|
4127 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
|
4128 (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
|
4129 if (result) |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4130 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4131 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
|
4132 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
|
4133 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4134 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
|
4135 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
|
4136 uname, &ulength, |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4137 domain, &dlength, |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4138 &user_type); |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4139 if (result) |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4140 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
|
4141 else |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4142 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4143 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
|
4144 result = TRUE; |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4145 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4146 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4147 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
|
4148 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4149 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4150 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4151 if (result) |
97491
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
4152 { |
97875
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4153 /* 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
|
4154 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
|
4155 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4156 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
|
4157 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
|
4158 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4159 else |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4160 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4161 /* 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
|
4162 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
|
4163 (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
|
4164 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
|
4165 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4166 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
|
4167 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
|
4168 (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
|
4169 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4170 if (result) |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4171 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4172 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
|
4173 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
|
4174 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4175 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
|
4176 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
|
4177 result = |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4178 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
|
4179 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
|
4180 &user_type); |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4181 if (result) |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4182 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
|
4183 egid, gname); |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4184 else |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4185 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4186 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
|
4187 result = TRUE; |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4188 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4189 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4190 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
|
4191 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4192 } |
97491
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
4193 } |
103624
3e06f0e66062
Remove useless if-before-xfree tests.
Jim Meyering <jim@meyering.net>
parents:
102670
diff
changeset
|
4194 xfree (buf); |
97875
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4195 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4196 if (!result) |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4197 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4198 if (!is_windows_9x ()) |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4199 { |
97875
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4200 /* 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
|
4201 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
|
4202 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
|
4203 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
|
4204 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
|
4205 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
|
4206 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
|
4207 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
|
4208 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
|
4209 } |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4210 /* 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
|
4211 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
|
4212 user. */ |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4213 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
|
4214 { |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4215 if (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
|
4216 euid = 0; |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4217 else |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4218 euid = 123; |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4219 egid = euid; |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4220 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
|
4221 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
|
4222 ulength = strlen (uname); |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4223 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4224 else |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4225 { |
97875
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4226 euid = 123; |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4227 egid = 123; |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4228 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
|
4229 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
|
4230 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
|
4231 glength = strlen (gname); |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4232 } |
97875
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4233 if (token) |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4234 CloseHandle (token); |
a77c2abc7237
(init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents:
97495
diff
changeset
|
4235 } |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4236 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4237 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
|
4238 tem = make_unibyte_string (uname, ulength); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4239 attrs = Fcons (Fcons (Quser, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4240 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
|
4241 attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4242 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
|
4243 tem = make_unibyte_string (gname, glength); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4244 attrs = Fcons (Fcons (Qgroup, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4245 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
|
4246 attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4247 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4248 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
|
4249 #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
|
4250 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
|
4251 #else |
1f8e4a26957e
(w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents:
97491
diff
changeset
|
4252 /* 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
|
4253 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
|
4254 { |
1f8e4a26957e
(w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents:
97491
diff
changeset
|
4255 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
|
4256 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
|
4257 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
|
4258 |
1f8e4a26957e
(w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents:
97491
diff
changeset
|
4259 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
|
4260 } |
1f8e4a26957e
(w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents:
97491
diff
changeset
|
4261 #endif /* __GNUC__ || _MSC_VER >= 1300 */ |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4262 else if (global_memory_status (&memst)) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4263 totphys = memst.dwTotalPhys / 1024.0; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4264 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4265 if (h_proc |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4266 && 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
|
4267 sizeof (mem_ex))) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4268 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4269 DWORD rss = mem_ex.WorkingSetSize / 1024; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4270 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4271 attrs = Fcons (Fcons (Qmajflt, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4272 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
|
4273 attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4274 attrs = Fcons (Fcons (Qvsize, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4275 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
|
4276 attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4277 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
|
4278 if (totphys) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4279 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
|
4280 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4281 else if (h_proc |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4282 && 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
|
4283 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4284 DWORD rss = mem_ex.WorkingSetSize / 1024; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4285 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4286 attrs = Fcons (Fcons (Qmajflt, |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4287 make_fixnum_or_float (mem.PageFaultCount)), |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4288 attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4289 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
|
4290 if (totphys) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4291 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
|
4292 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4293 else if (h_proc |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4294 && 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
|
4295 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4296 DWORD rss = maxrss / 1024; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4297 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4298 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
|
4299 if (totphys) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4300 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
|
4301 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4302 |
100831
e43e429a11bb
(process_times): Compute sum of utime and stime.
Eli Zaretskii <eliz@gnu.org>
parents:
100565
diff
changeset
|
4303 if (process_times (h_proc, &ctime, &etime, &stime, &utime, &ttime, &pcpu)) |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4304 { |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4305 attrs = Fcons (Fcons (Qutime, utime), attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4306 attrs = Fcons (Fcons (Qstime, stime), attrs); |
100831
e43e429a11bb
(process_times): Compute sum of utime and stime.
Eli Zaretskii <eliz@gnu.org>
parents:
100565
diff
changeset
|
4307 attrs = Fcons (Fcons (Qtime, ttime), attrs); |
97365
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4308 attrs = Fcons (Fcons (Qstart, ctime), attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4309 attrs = Fcons (Fcons (Qetime, etime), attrs); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4310 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
|
4311 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4312 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4313 /* 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
|
4314 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4315 if (h_proc) |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4316 CloseHandle (h_proc); |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4317 UNGCPRO; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4318 return attrs; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4319 } |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4320 |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
4321 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4322 /* 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
|
4323 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
|
4324 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4325 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
|
4326 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
|
4327 otherwise provide the minimum necessary functionality |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4328 (eg. gethostname). */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4329 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4330 /* function pointers for relevant socket functions */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4331 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
|
4332 void (PASCAL *pfn_WSASetLastError) (int iError); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4333 int (PASCAL *pfn_WSAGetLastError) (void); |
71889
2385a5c8186c
Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents:
70740
diff
changeset
|
4334 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
|
4335 HANDLE (PASCAL *pfn_WSACreateEvent) (void); |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
4336 int (PASCAL *pfn_WSACloseEvent) (HANDLE hEvent); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4337 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
|
4338 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
|
4339 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
|
4340 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
|
4341 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
|
4342 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
|
4343 int (PASCAL *pfn_closesocket) (SOCKET s); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4344 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
|
4345 int (PASCAL *pfn_WSACleanup) (void); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4346 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4347 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
|
4348 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
|
4349 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
|
4350 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
|
4351 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
|
4352 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
|
4353 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
|
4354 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
|
4355 const char * optval, int optlen); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4356 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
|
4357 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
|
4358 int * namelen); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4359 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
|
4360 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
|
4361 struct sockaddr * from, int * fromlen); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4362 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
|
4363 const struct sockaddr * to, int tolen); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4364 |
15342
e64bd8310edc
(init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents:
15326
diff
changeset
|
4365 /* 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
|
4366 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
|
4367 #ifndef HANDLE_FLAG_INHERIT |
e64bd8310edc
(init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents:
15326
diff
changeset
|
4368 #define HANDLE_FLAG_INHERIT 1 |
e64bd8310edc
(init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents:
15326
diff
changeset
|
4369 #endif |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4370 |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4371 HANDLE winsock_lib; |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4372 static int winsock_inuse; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4373 |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4374 BOOL |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4375 term_winsock (void) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4376 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4377 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
|
4378 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4379 /* 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
|
4380 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
|
4381 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
|
4382 if (pfn_WSACleanup () == 0 || |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4383 pfn_WSAGetLastError () == WSAENETDOWN) |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4384 { |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4385 if (FreeLibrary (winsock_lib)) |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4386 winsock_lib = NULL; |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4387 return TRUE; |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4388 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4389 } |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4390 return FALSE; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4391 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4392 |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4393 BOOL |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4394 init_winsock (int load_now) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4395 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4396 WSADATA winsockData; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4397 |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4398 if (winsock_lib != NULL) |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4399 return TRUE; |
15342
e64bd8310edc
(init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents:
15326
diff
changeset
|
4400 |
e64bd8310edc
(init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents:
15326
diff
changeset
|
4401 pfn_SetHandleInformation |
e64bd8310edc
(init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents:
15326
diff
changeset
|
4402 = (void *) GetProcAddress (GetModuleHandle ("kernel32.dll"), |
e64bd8310edc
(init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents:
15326
diff
changeset
|
4403 "SetHandleInformation"); |
e64bd8310edc
(init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents:
15326
diff
changeset
|
4404 |
71899
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
4405 winsock_lib = LoadLibrary ("Ws2_32.dll"); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4406 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4407 if (winsock_lib != NULL) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4408 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4409 /* dynamically link to socket functions */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4410 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4411 #define LOAD_PROC(fn) \ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4412 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
|
4413 goto fail; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4414 |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4415 LOAD_PROC (WSAStartup); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4416 LOAD_PROC (WSASetLastError); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4417 LOAD_PROC (WSAGetLastError); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4418 LOAD_PROC (WSAEventSelect); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4419 LOAD_PROC (WSACreateEvent); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4420 LOAD_PROC (WSACloseEvent); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4421 LOAD_PROC (socket); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4422 LOAD_PROC (bind); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4423 LOAD_PROC (connect); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4424 LOAD_PROC (ioctlsocket); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4425 LOAD_PROC (recv); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4426 LOAD_PROC (send); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4427 LOAD_PROC (closesocket); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4428 LOAD_PROC (shutdown); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4429 LOAD_PROC (htons); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4430 LOAD_PROC (ntohs); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4431 LOAD_PROC (inet_addr); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4432 LOAD_PROC (gethostname); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4433 LOAD_PROC (gethostbyname); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4434 LOAD_PROC (getservbyname); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4435 LOAD_PROC (getpeername); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4436 LOAD_PROC (WSACleanup); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4437 LOAD_PROC (setsockopt); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4438 LOAD_PROC (listen); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4439 LOAD_PROC (getsockname); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4440 LOAD_PROC (accept); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4441 LOAD_PROC (recvfrom); |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4442 LOAD_PROC (sendto); |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4443 #undef LOAD_PROC |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4444 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4445 /* specify version 1.1 of winsock */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4446 if (pfn_WSAStartup (0x101, &winsockData) == 0) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4447 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4448 if (winsockData.wVersion != 0x101) |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4449 goto fail; |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4450 |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4451 if (!load_now) |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4452 { |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4453 /* 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
|
4454 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
|
4455 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
|
4456 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
|
4457 connection to be established. */ |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4458 |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4459 pfn_WSACleanup (); |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4460 FreeLibrary (winsock_lib); |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4461 winsock_lib = NULL; |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4462 } |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4463 winsock_inuse = 0; |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4464 return TRUE; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4465 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4466 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4467 fail: |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4468 FreeLibrary (winsock_lib); |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4469 winsock_lib = NULL; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4470 } |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4471 |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4472 return FALSE; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4473 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4474 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4475 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4476 int h_errno = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4477 |
96462 | 4478 /* 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
|
4479 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
|
4480 are already in <sys/socket.h> */ |
74947 | 4481 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
4482 set_errno (void) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4483 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4484 if (winsock_lib == NULL) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4485 h_errno = EINVAL; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4486 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4487 h_errno = pfn_WSAGetLastError (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4488 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4489 switch (h_errno) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4490 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4491 case WSAEACCES: h_errno = EACCES; break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4492 case WSAEBADF: h_errno = EBADF; break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4493 case WSAEFAULT: h_errno = EFAULT; break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4494 case WSAEINTR: h_errno = EINTR; break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4495 case WSAEINVAL: h_errno = EINVAL; break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4496 case WSAEMFILE: h_errno = EMFILE; break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4497 case WSAENAMETOOLONG: h_errno = ENAMETOOLONG; break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4498 case WSAENOTEMPTY: h_errno = ENOTEMPTY; break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4499 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4500 errno = h_errno; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4501 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4502 |
74947 | 4503 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
4504 check_errno (void) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4505 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4506 if (h_errno == 0 && winsock_lib != NULL) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4507 pfn_WSASetLastError (0); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4508 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4509 |
24857
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4510 /* Extend strerror to handle the winsock-specific error codes. */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4511 struct { |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4512 int errnum; |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4513 char * msg; |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4514 } _wsa_errlist[] = { |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4515 WSAEINTR , "Interrupted function call", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4516 WSAEBADF , "Bad file descriptor", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4517 WSAEACCES , "Permission denied", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4518 WSAEFAULT , "Bad address", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4519 WSAEINVAL , "Invalid argument", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4520 WSAEMFILE , "Too many open files", |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
4521 |
24857
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4522 WSAEWOULDBLOCK , "Resource temporarily unavailable", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4523 WSAEINPROGRESS , "Operation now in progress", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4524 WSAEALREADY , "Operation already in progress", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4525 WSAENOTSOCK , "Socket operation on non-socket", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4526 WSAEDESTADDRREQ , "Destination address required", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4527 WSAEMSGSIZE , "Message too long", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4528 WSAEPROTOTYPE , "Protocol wrong type for socket", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4529 WSAENOPROTOOPT , "Bad protocol option", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4530 WSAEPROTONOSUPPORT , "Protocol not supported", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4531 WSAESOCKTNOSUPPORT , "Socket type not supported", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4532 WSAEOPNOTSUPP , "Operation not supported", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4533 WSAEPFNOSUPPORT , "Protocol family not supported", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4534 WSAEAFNOSUPPORT , "Address family not supported by protocol family", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4535 WSAEADDRINUSE , "Address already in use", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4536 WSAEADDRNOTAVAIL , "Cannot assign requested address", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4537 WSAENETDOWN , "Network is down", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4538 WSAENETUNREACH , "Network is unreachable", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4539 WSAENETRESET , "Network dropped connection on reset", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4540 WSAECONNABORTED , "Software caused connection abort", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4541 WSAECONNRESET , "Connection reset by peer", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4542 WSAENOBUFS , "No buffer space available", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4543 WSAEISCONN , "Socket is already connected", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4544 WSAENOTCONN , "Socket is not connected", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4545 WSAESHUTDOWN , "Cannot send after socket shutdown", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4546 WSAETOOMANYREFS , "Too many references", /* not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4547 WSAETIMEDOUT , "Connection timed out", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4548 WSAECONNREFUSED , "Connection refused", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4549 WSAELOOP , "Network loop", /* not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4550 WSAENAMETOOLONG , "Name is too long", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4551 WSAEHOSTDOWN , "Host is down", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4552 WSAEHOSTUNREACH , "No route to host", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4553 WSAENOTEMPTY , "Buffer not empty", /* not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4554 WSAEPROCLIM , "Too many processes", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4555 WSAEUSERS , "Too many users", /* not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4556 WSAEDQUOT , "Double quote in host name", /* really not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4557 WSAESTALE , "Data is stale", /* not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4558 WSAEREMOTE , "Remote error", /* not sure */ |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
4559 |
24857
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4560 WSASYSNOTREADY , "Network subsystem is unavailable", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4561 WSAVERNOTSUPPORTED , "WINSOCK.DLL version out of range", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4562 WSANOTINITIALISED , "Winsock not initialized successfully", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4563 WSAEDISCON , "Graceful shutdown in progress", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4564 #ifdef WSAENOMORE |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4565 WSAENOMORE , "No more operations allowed", /* not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4566 WSAECANCELLED , "Operation cancelled", /* not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4567 WSAEINVALIDPROCTABLE , "Invalid procedure table from service provider", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4568 WSAEINVALIDPROVIDER , "Invalid service provider version number", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4569 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
|
4570 WSASYSCALLFAILURE , "System call failure", |
24857
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4571 WSASERVICE_NOT_FOUND , "Service not found", /* not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4572 WSATYPE_NOT_FOUND , "Class type not found", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4573 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
|
4574 WSA_E_CANCELLED , "Operation already cancelled", /* really not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4575 WSAEREFUSED , "Operation refused", /* not sure */ |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4576 #endif |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
4577 |
24857
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4578 WSAHOST_NOT_FOUND , "Host not found", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4579 WSATRY_AGAIN , "Authoritative host not found during name lookup", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4580 WSANO_RECOVERY , "Non-recoverable error during name lookup", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4581 WSANO_DATA , "Valid name, no data record of requested type", |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4582 |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4583 -1, NULL |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4584 }; |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4585 |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4586 char * |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4587 sys_strerror (int error_no) |
24857
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4588 { |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4589 int i; |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4590 static char unknown_msg[40]; |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4591 |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
4592 if (error_no >= 0 && error_no < sys_nerr) |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
4593 return sys_errlist[error_no]; |
24857
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4594 |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4595 for (i = 0; _wsa_errlist[i].errnum >= 0; i++) |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4596 if (_wsa_errlist[i].errnum == error_no) |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4597 return _wsa_errlist[i].msg; |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4598 |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4599 sprintf (unknown_msg, "Unidentified error: %d", error_no); |
24857
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4600 return unknown_msg; |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4601 } |
031247d14ba1
(sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24229
diff
changeset
|
4602 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4603 /* [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
|
4604 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
|
4605 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
|
4606 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4607 #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
|
4608 |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
4609 static int socket_to_fd (SOCKET s); |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4610 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4611 int |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4612 sys_socket (int af, int type, int protocol) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4613 { |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4614 SOCKET s; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4615 |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4616 if (winsock_lib == NULL) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4617 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4618 h_errno = ENETDOWN; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4619 return INVALID_SOCKET; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4620 } |
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 check_errno (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4623 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4624 /* call the real socket function */ |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4625 s = pfn_socket (af, type, protocol); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
4626 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4627 if (s != INVALID_SOCKET) |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4628 return socket_to_fd (s); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4629 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4630 set_errno (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4631 return -1; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4632 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4633 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4634 /* Convert a SOCKET to a file descriptor. */ |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
4635 static int |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4636 socket_to_fd (SOCKET s) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4637 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4638 int fd; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4639 child_process * cp; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4640 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4641 /* 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
|
4642 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
|
4643 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
|
4644 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
|
4645 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
|
4646 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4647 /* 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
|
4648 fd = _open ("NUL:", _O_RDWR); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4649 if (fd >= 0) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4650 { |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4651 /* 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
|
4652 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
|
4653 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
|
4654 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
|
4655 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4656 /* 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
|
4657 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
|
4658 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
|
4659 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
|
4660 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
|
4661 if (pfn_SetHandleInformation) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4662 { |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4663 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
|
4664 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4665 else |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4666 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4667 HANDLE parent = GetCurrentProcess (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4668 HANDLE new_s = INVALID_HANDLE_VALUE; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4669 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4670 if (DuplicateHandle (parent, |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4671 (HANDLE) s, |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4672 parent, |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4673 &new_s, |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4674 0, |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4675 FALSE, |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4676 DUPLICATE_SAME_ACCESS)) |
30060
15f8d649a7a8
(init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents:
28932
diff
changeset
|
4677 { |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4678 /* 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
|
4679 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
|
4680 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
|
4681 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
|
4682 long nonblocking = 0; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4683 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
|
4684 { |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4685 pfn_closesocket (s); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4686 s = (SOCKET) new_s; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4687 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4688 else |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4689 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4690 CloseHandle (new_s); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4691 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
4692 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4693 } |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4694 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4695 fd_info[fd].hnd = (HANDLE) s; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4696 |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4697 /* set our own internal flags */ |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4698 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
|
4699 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4700 cp = new_child (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4701 if (cp) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4702 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4703 cp->fd = fd; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4704 cp->status = STATUS_READ_ACKNOWLEDGED; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4705 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4706 /* attach child_process to fd_info */ |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4707 if (fd_info[ fd ].cp != NULL) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4708 { |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4709 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
|
4710 abort (); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4711 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4712 |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4713 fd_info[ fd ].cp = cp; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4714 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4715 /* success! */ |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4716 winsock_inuse++; /* count open sockets */ |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4717 return fd; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4718 } |
44042
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 /* clean up */ |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4721 _close (fd); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4722 } |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4723 pfn_closesocket (s); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4724 h_errno = EMFILE; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4725 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4726 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4727 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4728 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4729 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
|
4730 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4731 if (winsock_lib == NULL) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4732 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4733 h_errno = ENOTSOCK; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4734 return SOCKET_ERROR; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4735 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4736 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4737 check_errno (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4738 if (fd_info[s].flags & FILE_SOCKET) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4739 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4740 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
|
4741 if (rc == SOCKET_ERROR) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4742 set_errno (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4743 return rc; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4744 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4745 h_errno = ENOTSOCK; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4746 return SOCKET_ERROR; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4747 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4748 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4749 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4750 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
|
4751 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4752 if (winsock_lib == NULL) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4753 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4754 h_errno = ENOTSOCK; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4755 return SOCKET_ERROR; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4756 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4757 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4758 check_errno (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4759 if (fd_info[s].flags & FILE_SOCKET) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4760 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4761 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
|
4762 if (rc == SOCKET_ERROR) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4763 set_errno (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4764 return rc; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4765 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4766 h_errno = ENOTSOCK; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4767 return SOCKET_ERROR; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4768 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4769 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4770 u_short |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4771 sys_htons (u_short hostshort) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4772 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4773 return (winsock_lib != NULL) ? |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4774 pfn_htons (hostshort) : hostshort; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4775 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4776 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4777 u_short |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4778 sys_ntohs (u_short netshort) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4779 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4780 return (winsock_lib != NULL) ? |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4781 pfn_ntohs (netshort) : netshort; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4782 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4783 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4784 unsigned long |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4785 sys_inet_addr (const char * cp) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4786 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4787 return (winsock_lib != NULL) ? |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4788 pfn_inet_addr (cp) : INADDR_NONE; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4789 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4790 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4791 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4792 sys_gethostname (char * name, int namelen) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4793 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4794 if (winsock_lib != NULL) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4795 return pfn_gethostname (name, namelen); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4796 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4797 if (namelen > MAX_COMPUTERNAME_LENGTH) |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
4798 return !GetComputerName (name, (DWORD *)&namelen); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4799 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4800 h_errno = EFAULT; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4801 return SOCKET_ERROR; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4802 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4803 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4804 struct hostent * |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4805 sys_gethostbyname (const char * name) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4806 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4807 struct hostent * host; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4808 |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4809 if (winsock_lib == NULL) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4810 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4811 h_errno = ENETDOWN; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4812 return NULL; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4813 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4814 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4815 check_errno (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4816 host = pfn_gethostbyname (name); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4817 if (!host) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4818 set_errno (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4819 return host; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4820 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4821 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4822 struct servent * |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4823 sys_getservbyname (const char * name, const char * proto) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4824 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4825 struct servent * serv; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4826 |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
4827 if (winsock_lib == NULL) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4828 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4829 h_errno = ENETDOWN; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4830 return NULL; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4831 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4832 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4833 check_errno (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4834 serv = pfn_getservbyname (name, proto); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4835 if (!serv) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4836 set_errno (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4837 return serv; |
9803 | 4838 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
4839 |
18725
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4840 int |
45090
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4841 sys_getpeername (int s, struct sockaddr *addr, int * namelen) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4842 { |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4843 if (winsock_lib == NULL) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4844 { |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4845 h_errno = ENETDOWN; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4846 return SOCKET_ERROR; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4847 } |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4848 |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4849 check_errno (); |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4850 if (fd_info[s].flags & FILE_SOCKET) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4851 { |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4852 int rc = pfn_getpeername (SOCK_HANDLE (s), addr, namelen); |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4853 if (rc == SOCKET_ERROR) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4854 set_errno (); |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4855 return rc; |
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 h_errno = ENOTSOCK; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4858 return SOCKET_ERROR; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4859 } |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4860 |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
4861 int |
18725
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4862 sys_shutdown (int s, int how) |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4863 { |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4864 if (winsock_lib == NULL) |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4865 { |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4866 h_errno = ENETDOWN; |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4867 return SOCKET_ERROR; |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4868 } |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4869 |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4870 check_errno (); |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4871 if (fd_info[s].flags & FILE_SOCKET) |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4872 { |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4873 int rc = pfn_shutdown (SOCK_HANDLE (s), how); |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4874 if (rc == SOCKET_ERROR) |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4875 set_errno (); |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4876 return rc; |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4877 } |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4878 h_errno = ENOTSOCK; |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4879 return SOCKET_ERROR; |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4880 } |
07145cb40453
(sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16892
diff
changeset
|
4881 |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4882 int |
63038
ac1cd1222417
(sys_setsockopt): Change arg 4 to `const void *'. In the
Eli Zaretskii <eliz@gnu.org>
parents:
63020
diff
changeset
|
4883 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
|
4884 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4885 if (winsock_lib == NULL) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4886 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4887 h_errno = ENETDOWN; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4888 return SOCKET_ERROR; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4889 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4890 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4891 check_errno (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4892 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
|
4893 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4894 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
|
4895 (const char *)optval, optlen); |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4896 if (rc == SOCKET_ERROR) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4897 set_errno (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4898 return rc; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4899 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4900 h_errno = ENOTSOCK; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
4901 return SOCKET_ERROR; |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4902 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4903 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4904 int |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4905 sys_listen (int s, int backlog) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4906 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4907 if (winsock_lib == NULL) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4908 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4909 h_errno = ENETDOWN; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4910 return SOCKET_ERROR; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4911 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4912 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4913 check_errno (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4914 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
|
4915 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4916 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
|
4917 if (rc == SOCKET_ERROR) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4918 set_errno (); |
71889
2385a5c8186c
Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents:
70740
diff
changeset
|
4919 else |
71899
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
4920 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
|
4921 return rc; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4922 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4923 h_errno = ENOTSOCK; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
4924 return SOCKET_ERROR; |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4925 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4926 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4927 int |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4928 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
|
4929 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4930 if (winsock_lib == NULL) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4931 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4932 h_errno = ENETDOWN; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4933 return SOCKET_ERROR; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4934 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4935 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4936 check_errno (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4937 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
|
4938 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4939 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
|
4940 if (rc == SOCKET_ERROR) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4941 set_errno (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4942 return rc; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4943 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4944 h_errno = ENOTSOCK; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
4945 return SOCKET_ERROR; |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4946 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4947 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4948 int |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4949 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
|
4950 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4951 if (winsock_lib == NULL) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4952 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4953 h_errno = ENETDOWN; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4954 return -1; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4955 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4956 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4957 check_errno (); |
71889
2385a5c8186c
Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents:
70740
diff
changeset
|
4958 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
|
4959 { |
44437
81e8a128e49f
(sys_accept): Don't hide variable `s'.
Juanma Barranquero <lekktu@gmail.com>
parents:
44042
diff
changeset
|
4960 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
|
4961 int fd = -1; |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
4962 if (t == INVALID_SOCKET) |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
4963 set_errno (); |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
4964 else |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
4965 fd = socket_to_fd (t); |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
4966 |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
4967 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
|
4968 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
|
4969 return fd; |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4970 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4971 h_errno = ENOTSOCK; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4972 return -1; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4973 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4974 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4975 int |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4976 sys_recvfrom (int s, char * buf, int len, int flags, |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
4977 struct sockaddr * from, int * fromlen) |
44042
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4978 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4979 if (winsock_lib == NULL) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4980 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4981 h_errno = ENETDOWN; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4982 return SOCKET_ERROR; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4983 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4984 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4985 check_errno (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4986 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
|
4987 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4988 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
|
4989 if (rc == SOCKET_ERROR) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4990 set_errno (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4991 return rc; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4992 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4993 h_errno = ENOTSOCK; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4994 return SOCKET_ERROR; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4995 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4996 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4997 int |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
4998 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
|
4999 const struct sockaddr * to, int tolen) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
5000 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
5001 if (winsock_lib == NULL) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
5002 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
5003 h_errno = ENETDOWN; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
5004 return SOCKET_ERROR; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
5005 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
5006 |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
5007 check_errno (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
5008 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
|
5009 { |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
5010 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
|
5011 if (rc == SOCKET_ERROR) |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
5012 set_errno (); |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
5013 return rc; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
5014 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
5015 h_errno = ENOTSOCK; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
5016 return SOCKET_ERROR; |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
5017 } |
6e7772d1632e
(init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents:
42469
diff
changeset
|
5018 |
45090
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5019 /* 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
|
5020 solely for making sockets non-blocking. */ |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5021 int |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5022 fcntl (int s, int cmd, int options) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5023 { |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5024 if (winsock_lib == NULL) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5025 { |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5026 h_errno = ENETDOWN; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5027 return -1; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5028 } |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5029 |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5030 check_errno (); |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5031 if (fd_info[s].flags & FILE_SOCKET) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5032 { |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5033 if (cmd == F_SETFL && options == O_NDELAY) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5034 { |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5035 unsigned long nblock = 1; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5036 int rc = pfn_ioctlsocket (SOCK_HANDLE (s), FIONBIO, &nblock); |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5037 if (rc == SOCKET_ERROR) |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
5038 set_errno (); |
45090
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5039 /* 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
|
5040 fd_info[s].flags |= FILE_NDELAY; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5041 return rc; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5042 } |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5043 else |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5044 { |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5045 h_errno = EINVAL; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5046 return SOCKET_ERROR; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5047 } |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5048 } |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5049 h_errno = ENOTSOCK; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5050 return SOCKET_ERROR; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5051 } |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5052 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5053 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5054 /* 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
|
5055 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
|
5056 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5057 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5058 sys_close (int fd) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5059 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5060 int rc; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5061 |
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
|
5062 if (fd < 0) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5063 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5064 errno = EBADF; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5065 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5066 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5067 |
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
|
5068 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
|
5069 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5070 child_process * cp = fd_info[fd].cp; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5071 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5072 fd_info[fd].cp = NULL; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5073 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5074 if (CHILD_ACTIVE (cp)) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5075 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5076 /* 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
|
5077 int i; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5078 for (i = 0; i < MAXDESC; i++) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5079 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5080 if (i == fd) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5081 continue; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5082 if (fd_info[i].cp == cp) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5083 break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5084 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5085 if (i == MAXDESC) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5086 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5087 if (fd_info[fd].flags & FILE_SOCKET) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5088 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
5089 if (winsock_lib == NULL) abort (); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5090 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5091 pfn_shutdown (SOCK_HANDLE (fd), 2); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5092 rc = pfn_closesocket (SOCK_HANDLE (fd)); |
110431
9fe8167bbd9b
Don't make W32 code conditional on HAVE_SOCKETS, it's always defined.
Juanma Barranquero <lekktu@gmail.com>
parents:
110400
diff
changeset
|
5093 |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
5094 winsock_inuse--; /* count open sockets */ |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5095 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5096 delete_child (cp); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5097 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5098 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5099 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5100 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5101 /* 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
|
5102 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
|
5103 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
|
5104 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
|
5105 rc = _close (fd); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5106 |
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
|
5107 if (rc == 0 && fd < MAXDESC) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5108 fd_info[fd].flags = 0; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5109 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5110 return rc; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5111 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5112 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5113 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5114 sys_dup (int fd) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5115 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5116 int new_fd; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5117 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5118 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
|
5119 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
|
5120 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5121 /* duplicate our internal info as well */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5122 fd_info[new_fd] = fd_info[fd]; |
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 new_fd; |
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 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5127 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5128 sys_dup2 (int src, int dst) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5129 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5130 int rc; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5131 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5132 if (dst < 0 || dst >= MAXDESC) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5133 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5134 errno = EBADF; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5135 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5136 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5137 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5138 /* 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
|
5139 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
|
5140 sys_close (dst); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5141 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5142 rc = _dup2 (src, dst); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5143 if (rc == 0) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5144 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5145 /* duplicate our internal info as well */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5146 fd_info[dst] = fd_info[src]; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5147 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5148 return rc; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5149 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5150 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5151 /* Unix pipe() has only one arg */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5152 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5153 sys_pipe (int * phandles) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5154 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5155 int rc; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5156 unsigned flags; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5157 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5158 /* 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
|
5159 replace the relevant handle with an inheritable one. Also put |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5160 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
|
5161 if required. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5162 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
|
5163 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5164 if (rc == 0) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5165 { |
52353
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5166 /* 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
|
5167 our fd_info array has room for. */ |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5168 if (phandles[0] >= MAXDESC || phandles[1] >= MAXDESC) |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5169 { |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5170 _close (phandles[0]); |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5171 _close (phandles[1]); |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5172 rc = -1; |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5173 } |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5174 else |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5175 { |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5176 flags = FILE_PIPE | FILE_READ | FILE_BINARY; |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5177 fd_info[phandles[0]].flags = flags; |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5178 |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5179 flags = FILE_PIPE | FILE_WRITE | FILE_BINARY; |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5180 fd_info[phandles[1]].flags = flags; |
373b8dc17c8b
(sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents:
49600
diff
changeset
|
5181 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5182 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5183 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5184 return rc; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5185 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5186 |
15249
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5187 /* From ntproc.c */ |
55643
ed93b07d7123
(_sys_read_ahead): Use w32_pipe_read_delay.
Jason Rumney <jasonr@gnu.org>
parents:
53123
diff
changeset
|
5188 extern int w32_pipe_read_delay; |
15249
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5189 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5190 /* 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
|
5191 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
|
5192 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5193 _sys_read_ahead (int fd) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5194 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5195 child_process * cp; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5196 int rc; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5197 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5198 if (fd < 0 || fd >= MAXDESC) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5199 return STATUS_READ_ERROR; |
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 cp = fd_info[fd].cp; |
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 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
|
5204 return STATUS_READ_ERROR; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5205 |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5206 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
|
5207 || (fd_info[fd].flags & FILE_READ) == 0) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5208 { |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5209 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
|
5210 abort (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5211 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5212 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5213 cp->status = STATUS_READ_IN_PROGRESS; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5214 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5215 if (fd_info[fd].flags & FILE_PIPE) |
15249
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5216 { |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5217 rc = _read (fd, &cp->chr, sizeof (char)); |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5218 |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5219 /* 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
|
5220 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
|
5221 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
|
5222 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
|
5223 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
|
5224 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
|
5225 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
|
5226 if (rc > 0) |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5227 { |
55643
ed93b07d7123
(_sys_read_ahead): Use w32_pipe_read_delay.
Jason Rumney <jasonr@gnu.org>
parents:
53123
diff
changeset
|
5228 int wait = w32_pipe_read_delay; |
15249
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5229 |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5230 if (wait > 0) |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5231 Sleep (wait); |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5232 else if (wait < 0) |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5233 while (++wait <= 0) |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5234 /* 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
|
5235 temporary priority boost to the child process. */ |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5236 Sleep (0); |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5237 } |
53bb2499db2a
(_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents:
15237
diff
changeset
|
5238 } |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5239 else if (fd_info[fd].flags & FILE_SERIAL) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5240 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5241 HANDLE hnd = fd_info[fd].hnd; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5242 OVERLAPPED *ovl = &fd_info[fd].cp->ovl_read; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5243 COMMTIMEOUTS ct; |
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 /* Configure timeouts for blocking read. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5246 if (!GetCommTimeouts (hnd, &ct)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5247 return STATUS_READ_ERROR; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5248 ct.ReadIntervalTimeout = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5249 ct.ReadTotalTimeoutMultiplier = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5250 ct.ReadTotalTimeoutConstant = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5251 if (!SetCommTimeouts (hnd, &ct)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5252 return STATUS_READ_ERROR; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5253 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5254 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
|
5255 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5256 if (GetLastError () != ERROR_IO_PENDING) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5257 return STATUS_READ_ERROR; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5258 if (!GetOverlappedResult (hnd, ovl, (DWORD*) &rc, TRUE)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5259 return STATUS_READ_ERROR; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5260 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5261 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5262 else if (fd_info[fd].flags & FILE_SOCKET) |
45090
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5263 { |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5264 unsigned long nblock = 0; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5265 /* 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
|
5266 if (fd_info[fd].flags & FILE_NDELAY) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5267 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONBIO, &nblock); |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5268 |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5269 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
|
5270 |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5271 if (fd_info[fd].flags & FILE_NDELAY) |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5272 { |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5273 nblock = 1; |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5274 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONBIO, &nblock); |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5275 } |
c9aa2603d1f7
(sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
45007
diff
changeset
|
5276 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5277 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5278 if (rc == sizeof (char)) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5279 cp->status = STATUS_READ_SUCCEEDED; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5280 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5281 cp->status = STATUS_READ_FAILED; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5282 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5283 return cp->status; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5284 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5285 |
74947 | 5286 int |
5287 _sys_wait_accept (int fd) | |
71899
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5288 { |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5289 HANDLE hEv; |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5290 child_process * cp; |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5291 int rc; |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5292 |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5293 if (fd < 0 || fd >= MAXDESC) |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5294 return STATUS_READ_ERROR; |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5295 |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5296 cp = fd_info[fd].cp; |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5297 |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5298 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
|
5299 return STATUS_READ_ERROR; |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5300 |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5301 cp->status = STATUS_READ_FAILED; |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5302 |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5303 hEv = pfn_WSACreateEvent (); |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5304 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
|
5305 if (rc != SOCKET_ERROR) |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5306 { |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5307 rc = WaitForSingleObject (hEv, INFINITE); |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5308 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
|
5309 if (rc == WAIT_OBJECT_0) |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5310 cp->status = STATUS_READ_SUCCEEDED; |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5311 } |
74786
4f26e07fd85d
(_sys_wait_accept): Fix handle leak.
Kim F. Storm <storm@cua.dk>
parents:
72631
diff
changeset
|
5312 pfn_WSACloseEvent (hEv); |
71899
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5313 |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5314 return cp->status; |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5315 } |
6772d0603863
(pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents:
71889
diff
changeset
|
5316 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5317 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5318 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
|
5319 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5320 int nchars; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5321 int to_read; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5322 DWORD waiting; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5323 char * orig_buffer = buffer; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5324 |
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
|
5325 if (fd < 0) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5326 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5327 errno = EBADF; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5328 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5329 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5330 |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5331 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
|
5332 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5333 child_process *cp = fd_info[fd].cp; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5334 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5335 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
|
5336 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5337 errno = EBADF; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5338 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5339 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5340 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5341 nchars = 0; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5342 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5343 /* re-read CR carried over from last read */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5344 if (fd_info[fd].flags & FILE_LAST_CR) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5345 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5346 if (fd_info[fd].flags & FILE_BINARY) abort (); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5347 *buffer++ = 0x0d; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5348 count--; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5349 nchars++; |
21605
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5350 fd_info[fd].flags &= ~FILE_LAST_CR; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5351 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5352 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5353 /* 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
|
5354 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
|
5355 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
|
5356 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
|
5357 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
|
5358 if (cp) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5359 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5360 int current_status = cp->status; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5361 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5362 switch (current_status) |
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 case STATUS_READ_FAILED: |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5365 case STATUS_READ_ERROR: |
21605
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5366 /* report normal EOF if nothing in buffer */ |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5367 if (nchars <= 0) |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5368 fd_info[fd].flags |= FILE_AT_EOF; |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5369 return nchars; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5370 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5371 case STATUS_READ_READY: |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5372 case STATUS_READ_IN_PROGRESS: |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5373 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
|
5374 errno = EWOULDBLOCK; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5375 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5376 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5377 case STATUS_READ_SUCCEEDED: |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5378 /* consume read-ahead char */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5379 *buffer++ = cp->chr; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5380 count--; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5381 nchars++; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5382 cp->status = STATUS_READ_ACKNOWLEDGED; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5383 ResetEvent (cp->char_avail); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5384 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5385 case STATUS_READ_ACKNOWLEDGED: |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5386 break; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5387 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5388 default: |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5389 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
|
5390 errno = EBADF; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5391 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5392 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5393 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5394 if (fd_info[fd].flags & FILE_PIPE) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5395 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5396 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
|
5397 to_read = min (waiting, (DWORD) count); |
21605
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5398 |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5399 if (to_read > 0) |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5400 nchars += _read (fd, buffer, to_read); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5401 } |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5402 else if (fd_info[fd].flags & FILE_SERIAL) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5403 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5404 HANDLE hnd = fd_info[fd].hnd; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5405 OVERLAPPED *ovl = &fd_info[fd].cp->ovl_read; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5406 DWORD err = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5407 int rc = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5408 COMMTIMEOUTS ct; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5409 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5410 if (count > 0) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5411 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5412 /* Configure timeouts for non-blocking read. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5413 if (!GetCommTimeouts (hnd, &ct)) |
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 errno = EIO; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5416 return -1; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5417 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5418 ct.ReadIntervalTimeout = MAXDWORD; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5419 ct.ReadTotalTimeoutMultiplier = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5420 ct.ReadTotalTimeoutConstant = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5421 if (!SetCommTimeouts (hnd, &ct)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5422 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5423 errno = EIO; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5424 return -1; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5425 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5426 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5427 if (!ResetEvent (ovl->hEvent)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5428 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5429 errno = EIO; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5430 return -1; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5431 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5432 if (!ReadFile (hnd, buffer, count, (DWORD*) &rc, ovl)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5433 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5434 if (GetLastError () != ERROR_IO_PENDING) |
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 if (!GetOverlappedResult (hnd, ovl, (DWORD*) &rc, TRUE)) |
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 errno = EIO; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5442 return -1; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5443 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5444 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5445 nchars += rc; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5446 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5447 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5448 else /* FILE_SOCKET */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5449 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
5450 if (winsock_lib == NULL) abort (); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5451 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5452 /* 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
|
5453 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONREAD, &waiting); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5454 if (waiting == 0 && nchars == 0) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5455 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5456 h_errno = errno = EWOULDBLOCK; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5457 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5458 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5459 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5460 if (waiting) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5461 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5462 /* always use binary mode for sockets */ |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5463 int res = pfn_recv (SOCK_HANDLE (fd), buffer, count, 0); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5464 if (res == SOCKET_ERROR) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5465 { |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
5466 DebPrint (("sys_read.recv failed with error %d on socket %ld\n", |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
5467 pfn_WSAGetLastError (), SOCK_HANDLE (fd))); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5468 set_errno (); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5469 return -1; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5470 } |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5471 nchars += res; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5472 } |
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 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5475 else |
21605
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5476 { |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5477 int nread = _read (fd, buffer, count); |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5478 if (nread >= 0) |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5479 nchars += nread; |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5480 else if (nchars == 0) |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5481 nchars = nread; |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5482 } |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5483 |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5484 if (nchars <= 0) |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5485 fd_info[fd].flags |= FILE_AT_EOF; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5486 /* Perform text mode translation if required. */ |
21605
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5487 else if ((fd_info[fd].flags & FILE_BINARY) == 0) |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5488 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5489 nchars = crlf_to_lf (nchars, orig_buffer); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5490 /* If buffer contains only CR, return that. To be absolutely |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5491 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
|
5492 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
|
5493 itself in the buffer. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5494 if (nchars > 1 && orig_buffer[nchars - 1] == 0x0d) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5495 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5496 fd_info[fd].flags |= FILE_LAST_CR; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5497 nchars--; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5498 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5499 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5500 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5501 else |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5502 nchars = _read (fd, buffer, count); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5503 |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5504 return nchars; |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5505 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5506 |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5507 /* From w32xfns.c */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5508 extern HANDLE interrupt_handle; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5509 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5510 /* 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
|
5511 int |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5512 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
|
5513 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5514 int nchars; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5515 |
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
|
5516 if (fd < 0) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5517 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5518 errno = EBADF; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5519 return -1; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5520 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5521 |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5522 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
|
5523 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5524 if ((fd_info[fd].flags & FILE_WRITE) == 0) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5525 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5526 errno = EBADF; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5527 return -1; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5528 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5529 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5530 /* Perform text mode translation if required. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5531 if ((fd_info[fd].flags & FILE_BINARY) == 0) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5532 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5533 char * tmpbuf = alloca (count * 2); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5534 unsigned char * src = (void *)buffer; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5535 unsigned char * dst = tmpbuf; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5536 int nbytes = count; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5537 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5538 while (1) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5539 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5540 unsigned char *next; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5541 /* copy next line or remaining bytes */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5542 next = _memccpy (dst, src, '\n', nbytes); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5543 if (next) |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5544 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5545 /* copied one line ending with '\n' */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5546 int copied = next - dst; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5547 nbytes -= copied; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5548 src += copied; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5549 /* insert '\r' before '\n' */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5550 next[-1] = '\r'; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5551 next[0] = '\n'; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5552 dst = next + 1; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5553 count++; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5554 } |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5555 else |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5556 /* copied remaining partial line -> now finished */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5557 break; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5558 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5559 buffer = tmpbuf; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5560 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5561 } |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5562 |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5563 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
|
5564 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5565 HANDLE hnd = (HANDLE) _get_osfhandle (fd); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5566 OVERLAPPED *ovl = &fd_info[fd].cp->ovl_write; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5567 HANDLE wait_hnd[2] = { interrupt_handle, ovl->hEvent }; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5568 DWORD active = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5569 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5570 if (!WriteFile (hnd, buffer, count, (DWORD*) &nchars, ovl)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5571 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5572 if (GetLastError () != ERROR_IO_PENDING) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5573 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5574 errno = EIO; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5575 return -1; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5576 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5577 if (detect_input_pending ()) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5578 active = MsgWaitForMultipleObjects (2, wait_hnd, FALSE, INFINITE, |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5579 QS_ALLINPUT); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5580 else |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5581 active = WaitForMultipleObjects (2, wait_hnd, FALSE, INFINITE); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5582 if (active == WAIT_OBJECT_0) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5583 { /* 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
|
5584 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
|
5585 PurgeComm (hnd, PURGE_TXABORT | PURGE_TXCLEAR); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5586 CancelIo (hnd); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5587 errno = EIO; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5588 return -1; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5589 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5590 if (active == WAIT_OBJECT_0 + 1 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5591 && !GetOverlappedResult (hnd, ovl, (DWORD*) &nchars, TRUE)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5592 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5593 errno = EIO; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5594 return -1; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5595 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5596 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5597 } |
110431
9fe8167bbd9b
Don't make W32 code conditional on HAVE_SOCKETS, it's always defined.
Juanma Barranquero <lekktu@gmail.com>
parents:
110400
diff
changeset
|
5598 else 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
|
5599 { |
48545
538af265a4a7
(sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents:
48375
diff
changeset
|
5600 unsigned long nblock = 0; |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
5601 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
|
5602 |
538af265a4a7
(sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents:
48375
diff
changeset
|
5603 /* 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
|
5604 /* 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
|
5605 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
|
5606 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
|
5607 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5608 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
|
5609 |
538af265a4a7
(sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents:
48375
diff
changeset
|
5610 /* 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
|
5611 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
|
5612 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
|
5613 { |
538af265a4a7
(sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents:
48375
diff
changeset
|
5614 nblock = 1; |
538af265a4a7
(sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents:
48375
diff
changeset
|
5615 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
|
5616 } |
538af265a4a7
(sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents:
48375
diff
changeset
|
5617 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5618 if (nchars == SOCKET_ERROR) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5619 { |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
5620 DebPrint (("sys_write.send failed with error %d on socket %ld\n", |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
5621 pfn_WSAGetLastError (), SOCK_HANDLE (fd))); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5622 set_errno (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5623 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5624 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5625 else |
108749 | 5626 { |
5627 /* Some networked filesystems don't like too large writes, so | |
5628 break them into smaller chunks. See the Comments section of | |
5629 the MSDN documentation of WriteFile for details behind the | |
5630 choice of the value of CHUNK below. See also the thread | |
5631 http://thread.gmane.org/gmane.comp.version-control.git/145294 | |
5632 in the git mailing list. */ | |
5633 const unsigned char *p = buffer; | |
5634 const unsigned chunk = 30 * 1024 * 1024; | |
5635 | |
5636 nchars = 0; | |
5637 while (count > 0) | |
5638 { | |
5639 unsigned this_chunk = count < chunk ? count : chunk; | |
5640 int n = _write (fd, p, this_chunk); | |
5641 | |
5642 nchars += n; | |
5643 if (n < 0) | |
5644 { | |
5645 nchars = n; | |
5646 break; | |
5647 } | |
5648 else if (n < this_chunk) | |
5649 break; | |
5650 count -= n; | |
5651 p += n; | |
5652 } | |
5653 } | |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5654 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5655 return nchars; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5656 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5657 |
21605
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5658 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
5659 check_windows_init_file (void) |
21605
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5660 { |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5661 extern int noninteractive, inhibit_window_system; |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5662 |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5663 /* 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
|
5664 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
|
5665 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
|
5666 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5667 if (!noninteractive && !inhibit_window_system) |
23395
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5668 { |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5669 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
|
5670 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
|
5671 Lisp_Object full_load_path; |
23395
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5672 Lisp_Object init_file; |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5673 int fd; |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5674 |
23809
2a6ad78388b3
(check_windows_init_file): Use decode_env_path when
Geoff Voelker <voelker@cs.washington.edu>
parents:
23622
diff
changeset
|
5675 objs[0] = Vload_path; |
2a6ad78388b3
(check_windows_init_file): Use decode_env_path when
Geoff Voelker <voelker@cs.washington.edu>
parents:
23622
diff
changeset
|
5676 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
|
5677 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
|
5678 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
|
5679 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
|
5680 if (fd < 0) |
23395
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5681 { |
23559
989c9cb875e3
(check_windows_init_file): Also look in load path specified
Geoff Voelker <voelker@cs.washington.edu>
parents:
23395
diff
changeset
|
5682 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
|
5683 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
|
5684 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
|
5685 char *buffer = alloca (1024 |
02e47d7a9bca
(check_windows_init_file): Fix allocation of error buffer.
Kim F. Storm <storm@cua.dk>
parents:
64770
diff
changeset
|
5686 + strlen (init_file_name) |
02e47d7a9bca
(check_windows_init_file): Fix allocation of error buffer.
Kim F. Storm <storm@cua.dk>
parents:
64770
diff
changeset
|
5687 + strlen (load_path)); |
23395
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5688 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5689 sprintf (buffer, |
23395
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5690 "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
|
5691 "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
|
5692 "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
|
5693 "\n%s\n\n" |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5694 "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
|
5695 "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
|
5696 "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
|
5697 "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
|
5698 init_file_name, load_path); |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5699 MessageBox (NULL, |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5700 buffer, |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5701 "Emacs Abort Dialog", |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5702 MB_OK | MB_ICONEXCLAMATION | MB_TASKMODAL); |
21605
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5703 /* Use the low-level Emacs abort. */ |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5704 #undef abort |
23395
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5705 abort (); |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5706 } |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5707 else |
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5708 { |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
5709 _close (fd); |
23395
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5710 } |
21605
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5711 } |
60b840947a09
(sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21565
diff
changeset
|
5712 } |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5713 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5714 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
5715 term_ntproc (void) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5716 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5717 /* shutdown the socket interface if necessary */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5718 term_winsock (); |
60092
04686828d0da
2004-11-08 Benjamin Riefenstahl <Benjamin.Riefenstahl@epost.de>
Jason Rumney <jasonr@gnu.org>
parents:
57609
diff
changeset
|
5719 |
04686828d0da
2004-11-08 Benjamin Riefenstahl <Benjamin.Riefenstahl@epost.de>
Jason Rumney <jasonr@gnu.org>
parents:
57609
diff
changeset
|
5720 term_w32select (); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5721 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5722 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5723 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
5724 init_ntproc (void) |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5725 { |
15357
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
5726 /* 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
|
5727 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
|
5728 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
|
5729 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
|
5730 |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
5731 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
|
5732 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
|
5733 |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
5734 /* Always initialize this correctly. */ |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
5735 winsock_lib = NULL; |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
5736 |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
5737 if (getenv ("PRELOAD_WINSOCK") != NULL) |
6686192ea2b3
(init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents:
15354
diff
changeset
|
5738 init_winsock (TRUE); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5739 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5740 /* 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
|
5741 handles with non-inheritable versions. */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5742 { |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5743 HANDLE parent; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5744 HANDLE stdin_save = INVALID_HANDLE_VALUE; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5745 HANDLE stdout_save = INVALID_HANDLE_VALUE; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5746 HANDLE stderr_save = INVALID_HANDLE_VALUE; |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5747 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5748 parent = GetCurrentProcess (); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5749 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5750 /* 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
|
5751 handles will be invalid when running as a gui program. */ |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5752 DuplicateHandle (parent, |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5753 GetStdHandle (STD_INPUT_HANDLE), |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5754 parent, |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5755 &stdin_save, |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5756 0, |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5757 FALSE, |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5758 DUPLICATE_SAME_ACCESS); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5759 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5760 DuplicateHandle (parent, |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5761 GetStdHandle (STD_OUTPUT_HANDLE), |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5762 parent, |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5763 &stdout_save, |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5764 0, |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5765 FALSE, |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5766 DUPLICATE_SAME_ACCESS); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5767 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5768 DuplicateHandle (parent, |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5769 GetStdHandle (STD_ERROR_HANDLE), |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5770 parent, |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5771 &stderr_save, |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5772 0, |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5773 FALSE, |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5774 DUPLICATE_SAME_ACCESS); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5775 |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5776 fclose (stdin); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5777 fclose (stdout); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5778 fclose (stderr); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5779 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5780 if (stdin_save != INVALID_HANDLE_VALUE) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5781 _open_osfhandle ((long) stdin_save, O_TEXT); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5782 else |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5783 _open ("nul", O_TEXT | O_NOINHERIT | O_RDONLY); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5784 _fdopen (0, "r"); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5785 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5786 if (stdout_save != INVALID_HANDLE_VALUE) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5787 _open_osfhandle ((long) stdout_save, O_TEXT); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5788 else |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5789 _open ("nul", O_TEXT | O_NOINHERIT | O_WRONLY); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5790 _fdopen (1, "w"); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5791 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5792 if (stderr_save != INVALID_HANDLE_VALUE) |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5793 _open_osfhandle ((long) stderr_save, O_TEXT); |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5794 else |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5795 _open ("nul", O_TEXT | O_NOINHERIT | O_WRONLY); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5796 _fdopen (2, "w"); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5797 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5798 |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5799 /* unfortunately, atexit depends on implementation of malloc */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5800 /* atexit (term_ntproc); */ |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5801 signal (SIGABRT, term_ntproc); |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5802 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5803 /* determine which drives are fixed, for GetCachedVolumeInformation */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5804 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5805 /* GetDriveType must have trailing backslash. */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5806 char drive[] = "A:\\"; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5807 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5808 /* Loop over all possible drive letters */ |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5809 while (*drive <= 'Z') |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5810 { |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5811 /* Record if this drive letter refers to a fixed drive. */ |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5812 fixed_drives[DRIVE_INDEX (*drive)] = |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5813 (GetDriveType (drive) == DRIVE_FIXED); |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5814 |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5815 (*drive)++; |
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5816 } |
31106
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
5817 |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
5818 /* Reset the volume info cache. */ |
ad1ae9eb641a
(GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents:
30060
diff
changeset
|
5819 volume_cache = NULL; |
19704
974a890c1d12
Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18725
diff
changeset
|
5820 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48888
diff
changeset
|
5821 |
23395
93d7c8a30147
(init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23016
diff
changeset
|
5822 /* 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
|
5823 check_windows_init_file (); |
15141
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5824 } |
6565b268b12a
(nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14912
diff
changeset
|
5825 |
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
|
5826 /* |
72631
acfcb86a7b5e
(shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents:
72286
diff
changeset
|
5827 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
|
5828 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
|
5829 */ |
110610
f3646cf59e9f
src/w32.c: Remove unused code and make static many functions.
Juanma Barranquero <lekktu@gmail.com>
parents:
110582
diff
changeset
|
5830 static BOOL WINAPI |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
5831 shutdown_handler (DWORD type) |
72631
acfcb86a7b5e
(shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents:
72286
diff
changeset
|
5832 { |
acfcb86a7b5e
(shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents:
72286
diff
changeset
|
5833 /* 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
|
5834 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
|
5835 || 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
|
5836 || 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
|
5837 { |
acfcb86a7b5e
(shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents:
72286
diff
changeset
|
5838 /* 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
|
5839 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
|
5840 } |
acfcb86a7b5e
(shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents:
72286
diff
changeset
|
5841 |
74786
4f26e07fd85d
(_sys_wait_accept): Fix handle leak.
Kim F. Storm <storm@cua.dk>
parents:
72631
diff
changeset
|
5842 /* 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
|
5843 return FALSE; |
acfcb86a7b5e
(shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents:
72286
diff
changeset
|
5844 } |
acfcb86a7b5e
(shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents:
72286
diff
changeset
|
5845 |
acfcb86a7b5e
(shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents:
72286
diff
changeset
|
5846 /* |
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
|
5847 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
|
5848 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
|
5849 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
|
5850 */ |
74947 | 5851 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
108749
diff
changeset
|
5852 globals_of_w32 (void) |
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
|
5853 { |
81421
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
5854 HMODULE kernel32 = GetModuleHandle ("kernel32.dll"); |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
5855 |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
5856 get_process_times_fn = (GetProcessTimes_Proc) |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
5857 GetProcAddress (kernel32, "GetProcessTimes"); |
5e608f6f217b
(get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
81416
diff
changeset
|
5858 |
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
|
5859 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
|
5860 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
|
5861 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
|
5862 g_b_init_lookup_account_sid = 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
|
5863 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
|
5864 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
|
5865 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
|
5866 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
|
5867 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
|
5868 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
|
5869 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
|
5870 g_b_init_process32_first = 0; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
5871 g_b_init_process32_next = 0; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
5872 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
|
5873 g_b_init_impersonate_self = 0; |
a8d58587d1b0
Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents:
96462
diff
changeset
|
5874 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
|
5875 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
|
5876 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
|
5877 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
|
5878 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
|
5879 g_b_init_equal_sid = 0; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
5880 g_b_init_copy_sid = 0; |
bb6b5c0fc1ba
(CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents:
97488
diff
changeset
|
5881 g_b_init_get_length_sid = 0; |
103718
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
5882 g_b_init_get_native_system_info = 0; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
5883 g_b_init_get_system_times = 0; |
9a76dfa56921
Emulation of `getloadavg' on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
103624
diff
changeset
|
5884 num_of_processors = 0; |
72631
acfcb86a7b5e
(shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents:
72286
diff
changeset
|
5885 /* 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
|
5886 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
|
5887 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
|
5888 console application to get console mode to work. */ |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
5889 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
|
5890 |
5ad1f4d9b15c
Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents:
94797
diff
changeset
|
5891 /* "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
|
5892 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
|
5893 } |
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
|
5894 |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5895 /* For make-serial-process */ |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
5896 int |
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
5897 serial_open (char *port) |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5898 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5899 HANDLE hnd; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5900 child_process *cp; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5901 int fd = -1; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5902 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5903 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
|
5904 OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5905 if (hnd == INVALID_HANDLE_VALUE) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5906 error ("Could not open %s", port); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5907 fd = (int) _open_osfhandle ((int) hnd, 0); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5908 if (fd == -1) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5909 error ("Could not open %s", port); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5910 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5911 cp = new_child (); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5912 if (!cp) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5913 error ("Could not create child process"); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5914 cp->fd = fd; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5915 cp->status = STATUS_READ_ACKNOWLEDGED; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5916 fd_info[ fd ].hnd = hnd; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5917 fd_info[ fd ].flags |= |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5918 FILE_READ | FILE_WRITE | FILE_BINARY | FILE_SERIAL; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5919 if (fd_info[ fd ].cp != NULL) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5920 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5921 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
|
5922 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5923 fd_info[ fd ].cp = cp; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5924 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
|
5925 if (cp->ovl_read.hEvent == NULL) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5926 error ("Could not create read event"); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5927 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
|
5928 if (cp->ovl_write.hEvent == NULL) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5929 error ("Could not create write event"); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5930 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5931 return fd; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5932 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5933 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5934 /* For serial-process-configure */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5935 void |
110994
734b2470f93c
src/w32*.c: Whitespace fixes and typos.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
5936 serial_configure (struct Lisp_Process *p, Lisp_Object contact) |
95884
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5937 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5938 Lisp_Object childp2 = Qnil; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5939 Lisp_Object tem = Qnil; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5940 HANDLE hnd; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5941 DCB dcb; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5942 COMMTIMEOUTS ct; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5943 char summary[4] = "???"; /* This usually becomes "8N1". */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5944 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5945 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
|
5946 error ("Not a serial process"); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5947 hnd = fd_info[ p->outfd ].hnd; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5948 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5949 childp2 = Fcopy_sequence (p->childp); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5950 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5951 /* Initialize timeouts for blocking read and blocking write. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5952 if (!GetCommTimeouts (hnd, &ct)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5953 error ("GetCommTimeouts() failed"); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5954 ct.ReadIntervalTimeout = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5955 ct.ReadTotalTimeoutMultiplier = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5956 ct.ReadTotalTimeoutConstant = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5957 ct.WriteTotalTimeoutMultiplier = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5958 ct.WriteTotalTimeoutConstant = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5959 if (!SetCommTimeouts (hnd, &ct)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5960 error ("SetCommTimeouts() failed"); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5961 /* Read port attributes and prepare default configuration. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5962 memset (&dcb, 0, sizeof (dcb)); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5963 dcb.DCBlength = sizeof (DCB); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5964 if (!GetCommState (hnd, &dcb)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5965 error ("GetCommState() failed"); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5966 dcb.fBinary = TRUE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5967 dcb.fNull = FALSE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5968 dcb.fAbortOnError = FALSE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5969 /* 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
|
5970 dcb.ErrorChar = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5971 dcb.EofChar = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5972 dcb.EvtChar = 0; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5973 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5974 /* Configure speed. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5975 if (!NILP (Fplist_member (contact, QCspeed))) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5976 tem = Fplist_get (contact, QCspeed); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5977 else |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5978 tem = Fplist_get (p->childp, QCspeed); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5979 CHECK_NUMBER (tem); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5980 dcb.BaudRate = XINT (tem); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5981 childp2 = Fplist_put (childp2, QCspeed, tem); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5982 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5983 /* Configure bytesize. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5984 if (!NILP (Fplist_member (contact, QCbytesize))) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5985 tem = Fplist_get (contact, QCbytesize); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5986 else |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5987 tem = Fplist_get (p->childp, QCbytesize); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5988 if (NILP (tem)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5989 tem = make_number (8); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5990 CHECK_NUMBER (tem); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5991 if (XINT (tem) != 7 && XINT (tem) != 8) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5992 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
|
5993 dcb.ByteSize = XINT (tem); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5994 summary[0] = XINT (tem) + '0'; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5995 childp2 = Fplist_put (childp2, QCbytesize, tem); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5996 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5997 /* Configure parity. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5998 if (!NILP (Fplist_member (contact, QCparity))) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
5999 tem = Fplist_get (contact, QCparity); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6000 else |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6001 tem = Fplist_get (p->childp, QCparity); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6002 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
|
6003 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
|
6004 dcb.fParity = FALSE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6005 dcb.Parity = NOPARITY; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6006 dcb.fErrorChar = FALSE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6007 if (NILP (tem)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6008 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6009 summary[1] = 'N'; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6010 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6011 else if (EQ (tem, Qeven)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6012 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6013 summary[1] = 'E'; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6014 dcb.fParity = TRUE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6015 dcb.Parity = EVENPARITY; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6016 dcb.fErrorChar = TRUE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6017 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6018 else if (EQ (tem, Qodd)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6019 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6020 summary[1] = 'O'; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6021 dcb.fParity = TRUE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6022 dcb.Parity = ODDPARITY; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6023 dcb.fErrorChar = TRUE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6024 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6025 childp2 = Fplist_put (childp2, QCparity, tem); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6026 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6027 /* Configure stopbits. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6028 if (!NILP (Fplist_member (contact, QCstopbits))) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6029 tem = Fplist_get (contact, QCstopbits); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6030 else |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6031 tem = Fplist_get (p->childp, QCstopbits); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6032 if (NILP (tem)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6033 tem = make_number (1); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6034 CHECK_NUMBER (tem); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6035 if (XINT (tem) != 1 && XINT (tem) != 2) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6036 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
|
6037 summary[2] = XINT (tem) + '0'; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6038 if (XINT (tem) == 1) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6039 dcb.StopBits = ONESTOPBIT; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6040 else if (XINT (tem) == 2) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6041 dcb.StopBits = TWOSTOPBITS; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6042 childp2 = Fplist_put (childp2, QCstopbits, tem); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6043 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6044 /* Configure flowcontrol. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6045 if (!NILP (Fplist_member (contact, QCflowcontrol))) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6046 tem = Fplist_get (contact, QCflowcontrol); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6047 else |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6048 tem = Fplist_get (p->childp, QCflowcontrol); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6049 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
|
6050 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
|
6051 dcb.fOutxCtsFlow = FALSE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6052 dcb.fOutxDsrFlow = FALSE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6053 dcb.fDtrControl = DTR_CONTROL_DISABLE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6054 dcb.fDsrSensitivity = FALSE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6055 dcb.fTXContinueOnXoff = FALSE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6056 dcb.fOutX = FALSE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6057 dcb.fInX = FALSE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6058 dcb.fRtsControl = RTS_CONTROL_DISABLE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6059 dcb.XonChar = 17; /* Control-Q */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6060 dcb.XoffChar = 19; /* Control-S */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6061 if (NILP (tem)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6062 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6063 /* Already configured. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6064 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6065 else if (EQ (tem, Qhw)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6066 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6067 dcb.fRtsControl = RTS_CONTROL_HANDSHAKE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6068 dcb.fOutxCtsFlow = TRUE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6069 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6070 else if (EQ (tem, Qsw)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6071 { |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6072 dcb.fOutX = TRUE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6073 dcb.fInX = TRUE; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6074 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6075 childp2 = Fplist_put (childp2, QCflowcontrol, tem); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6076 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6077 /* Activate configuration. */ |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6078 if (!SetCommState (hnd, &dcb)) |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6079 error ("SetCommState() failed"); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6080 |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6081 childp2 = Fplist_put (childp2, QCsummary, build_string (summary)); |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6082 p->childp = childp2; |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6083 } |
d6a4488883dc
Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
95481
diff
changeset
|
6084 |
78028
3a8b85706c0c
(_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents:
76098
diff
changeset
|
6085 /* end of w32.c */ |
52401 | 6086 |